fr_iflds.pas

FreeReport 2.34 consists of the report engine, designer and previewer, with capabilities comparable

{*****************************************}
{                                         }
{             FastReport v2.3             }
{          Insert fields dialog           }
{                                         }
{  Copyright (c) 1998-99 by Tzyganenko A. }
{                                         }
{*****************************************}

unit FR_IFlds;

interface

{$I FR.inc}

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, FR_DBRel;

type
  TfrInsertFieldsForm = class(TForm)
    FieldsL: TListBox;
    DatasetCB: TComboBox;
    Label1: TLabel;
    GroupBox1: TGroupBox;
    HorzRB: TRadioButton;
    VertRB: TRadioButton;
    Button1: TButton;
    Button2: TButton;
    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

uses FR_Class, FR_Const, FR_Utils
{$IFDEF IBO}
  , IB_Components
{$ELSE}
  , DB
{$ENDIF};

{$R *.DFM}

procedure TfrInsertFieldsForm.FormShow(Sender: TObject);
begin
  DataSet := nil;
{$IFDEF IBO}
  frGetComponents(CurReport.Owner, TIB_DataSet, DatasetCB.Items, nil);
{$ELSE}
  frGetComponents(CurReport.Owner, TDataSet, DatasetCB.Items, nil);
{$ENDIF}
  if DatasetCB.Items.Count > 0 then
    DatasetCB.ItemIndex := 0;
  GetFields;
end;

procedure TfrInsertFieldsForm.DatasetCBChange(Sender: TObject);
begin
  GetFields;
end;

procedure TfrInsertFieldsForm.GetFields;
begin
  FieldsL.Items.Clear;
  DataSet := frGetDataSet(DatasetCB.Items[DatasetCB.ItemIndex]);
  if DataSet <> nil then
    frGetFieldNames(DataSet, FieldsL.Items);
end;

procedure TfrInsertFieldsForm.FormCreate(Sender: TObject);
begin
  Caption := LoadStr(frRes + 630);
  Label1.Caption := LoadStr(frRes + 631);
  GroupBox1.Caption := LoadStr(frRes + 632);
  HorzRB.Caption := LoadStr(frRes + 633);
  VertRB.Caption := LoadStr(frRes + 634);
  HeaderCB.Caption := LoadStr(frRes + 635);
  BandCB.Caption := LoadStr(frRes + 636);
  Button1.Caption := LoadStr(SOk);
  Button2.Caption := LoadStr(SCancel);
end;

end.