49 lines
1.0 KiB
ObjectPascal
49 lines
1.0 KiB
ObjectPascal
{*******************************************}
|
|
{ }
|
|
{ FastQueryBuilder 1.03 }
|
|
{ }
|
|
{ Copyright (c) 2005 }
|
|
{ Fast Reports Inc. }
|
|
{ }
|
|
{*******************************************}
|
|
|
|
{$I fqb.inc}
|
|
|
|
unit fqbLinkForm;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
|
StdCtrls, ExtCtrls, Buttons;
|
|
|
|
type
|
|
TfqbLinkForm = class(TForm)
|
|
RadioOpt: TRadioGroup;
|
|
RadioType: TRadioGroup;
|
|
txtTable1: TStaticText;
|
|
txtTable2: TStaticText;
|
|
Label1: TLabel;
|
|
Label2: TLabel;
|
|
Label3: TLabel;
|
|
txtCol1: TStaticText;
|
|
Label4: TLabel;
|
|
txtCol2: TStaticText;
|
|
BitBtn1: TBitBtn;
|
|
BitBtn2: TBitBtn;
|
|
procedure FormCreate(Sender: TObject);
|
|
end;
|
|
|
|
implementation
|
|
|
|
{$R *.DFM}
|
|
|
|
procedure TfqbLinkForm.FormCreate(Sender: TObject);
|
|
begin
|
|
{$IFDEF DELPHI24}
|
|
ScaleForPPI(Screen.PixelsPerInch);
|
|
{$ENDIF}
|
|
end;
|
|
|
|
end.
|