You've already forked lazarus-ccr
63 lines
1.6 KiB
ObjectPascal
63 lines
1.6 KiB
ObjectPascal
|
{*******************************************************}
|
||
|
|
{ }
|
||
|
|
{ Delphi Visual Component Library }
|
||
|
|
{ QBuilder dialog component }
|
||
|
|
{ }
|
||
|
|
{ Copyright (c) 1996-2003 Sergey Orlik }
|
||
|
|
{ }
|
||
|
|
{ Written by: }
|
||
|
|
{ Sergey Orlik }
|
||
|
|
{ product manager }
|
||
|
|
{ Russia, C.I.S. and Baltic States (former USSR) }
|
||
|
|
{ Borland Moscow office }
|
||
|
|
{ Internet: support@fast-report.com, }
|
||
|
|
{ sorlik@borland.com }
|
||
|
|
{ http://www.fast-report.com }
|
||
|
|
{ }
|
||
|
|
{*******************************************************}
|
||
|
|
|
||
|
|
unit QBDBFrm2;
|
||
|
|
|
||
|
|
{$IFDEF FPC}
|
||
|
|
{$MODE Delphi}
|
||
|
|
{$ENDIF}
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
uses
|
||
|
|
Forms, Dialogs,
|
||
|
|
StdCtrls, ExtCtrls;
|
||
|
|
|
||
|
|
type
|
||
|
|
TOQBDBForm2 = class(TForm)
|
||
|
|
BtnOk: TButton;
|
||
|
|
BtnCancel: TButton;
|
||
|
|
Bevel1: TBevel;
|
||
|
|
CheckDB: TCheckBox;
|
||
|
|
EdtDB: TEdit;
|
||
|
|
btnDir: TButton;
|
||
|
|
Label1: TLabel;
|
||
|
|
DlgSelect: TOpenDialog;
|
||
|
|
CheckView: TCheckBox;
|
||
|
|
procedure btnDbClick(Sender: TObject);
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
{$R *.lfm}
|
||
|
|
|
||
|
|
procedure TOQBDBForm2.btnDbClick(Sender: TObject);
|
||
|
|
var
|
||
|
|
s: string;
|
||
|
|
begin
|
||
|
|
GetDir(0, s);
|
||
|
|
DlgSelect.InitialDir := s;
|
||
|
|
if DlgSelect.Execute then
|
||
|
|
EdtDB.Text := DlgSelect.FileName;
|
||
|
|
end;
|
||
|
|
|
||
|
|
end.
|