mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-06 21:38:13 +02:00
109 lines
2.5 KiB
ObjectPascal
109 lines
2.5 KiB
ObjectPascal
|
|
{*****************************************}
|
|
{ }
|
|
{ FastReport v2.3 }
|
|
{ Insert fields dialog }
|
|
{ }
|
|
{ Copyright (c) 1998-99 by Tzyganenko A. }
|
|
{ }
|
|
{*****************************************}
|
|
|
|
unit LR_IFlds;
|
|
|
|
interface
|
|
|
|
{$I LR_Vers.inc}
|
|
|
|
uses
|
|
Classes, SysUtils, LResources,
|
|
Forms, Controls, Graphics, Dialogs,
|
|
Buttons, StdCtrls, ButtonPanel,
|
|
|
|
LR_DBRel;
|
|
|
|
type
|
|
|
|
{ TfrInsertFieldsForm }
|
|
|
|
TfrInsertFieldsForm = class(TForm)
|
|
ButtonPanel1: TButtonPanel;
|
|
FieldsL: TListBox;
|
|
DatasetCB: TComboBox;
|
|
Label1: TLabel;
|
|
GroupBox1: TGroupBox;
|
|
HorzRB: TRadioButton;
|
|
lblError: TLabel;
|
|
VertRB: TRadioButton;
|
|
GroupBox2: TGroupBox;
|
|
HeaderCB: TCheckBox;
|
|
BandCB: TCheckBox;
|
|
procedure DatasetCBChange(Sender: TObject);
|
|
procedure FormShow(Sender: TObject);
|
|
procedure FormCreate(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
procedure GetFields;
|
|
public
|
|
{ Public declarations }
|
|
DataSet: TfrTDataSet;
|
|
end;
|
|
|
|
var
|
|
frInsertFieldsForm: TfrInsertFieldsForm;
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
uses LR_Class, LR_Const, LR_Utils, DB;
|
|
|
|
procedure TfrInsertFieldsForm.FormShow(Sender: TObject);
|
|
begin
|
|
DataSet := nil;
|
|
if Curreport.DataType = dtDataSet then
|
|
frGetComponents(CurReport.Owner, TDataSet, DatasetCB.Items, nil)
|
|
else
|
|
frGetComponents(CurReport.Owner, TDataSource, DatasetCB.Items, nil);
|
|
if DatasetCB.Items.Count > 0 then
|
|
DatasetCB.ItemIndex := 0;
|
|
GetFields;
|
|
end;
|
|
|
|
procedure TfrInsertFieldsForm.DatasetCBChange(Sender: TObject);
|
|
begin
|
|
GetFields;
|
|
end;
|
|
|
|
procedure TfrInsertFieldsForm.GetFields;
|
|
begin
|
|
lblError.Visible := false;
|
|
FieldsL.Items.Clear;
|
|
if DatasetCB.ItemIndex<>-1 then
|
|
begin
|
|
DataSet := frGetDataSet(DatasetCB.Items[DatasetCB.ItemIndex]);
|
|
if DataSet <> nil then
|
|
begin
|
|
try
|
|
frGetFieldNames(DataSet, FieldsL.Items);
|
|
except
|
|
lblError.Visible := true;
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TfrInsertFieldsForm.FormCreate(Sender: TObject);
|
|
begin
|
|
Caption := sInsertFieldsFormCapt;
|
|
Label1.Caption := sInsertFieldsFormAviableDSet;
|
|
GroupBox1.Caption := sInsertFieldsFormPlace;
|
|
HorzRB.Caption := sInsertFieldsFormHorz;
|
|
VertRB.Caption := sInsertFieldsFormVert;
|
|
HeaderCB.Caption := sInsertFieldsFormHeader;
|
|
BandCB.Caption := sInsertFieldsFormBand;
|
|
lblError.Hint := sInsertFieldsDbNoFields;
|
|
end;
|
|
|
|
end.
|
|
|