lazarus-ccr/components/zmsql/source/QBEZmsql/QBDBFrm2.pas

{*******************************************************}
{                                                       }
{       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.