You've already forked lazarus-ccr
5483e65197
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6119 8e941d3f-bd1b-0410-a28a-d453659cc2b4
76 lines
2.0 KiB
ObjectPascal
76 lines
2.0 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 }
|
|
{ }
|
|
{ Converted to Lazarus/Free Pascal by Jean Patrick }
|
|
{ Data: 14/02/2013 }
|
|
{ E-mail: jpsoft-sac-pa@hotmail.com }
|
|
{ }
|
|
{*******************************************************}
|
|
|
|
unit QBDirFrm;
|
|
|
|
{$IFDEF FPC}
|
|
{$MODE Delphi}
|
|
{$ENDIF}
|
|
|
|
|
|
|
|
interface
|
|
|
|
uses
|
|
Forms,
|
|
StdCtrls, ExtCtrls, FileCtrl, EditBtn;
|
|
|
|
type
|
|
|
|
{ TOQBDirForm }
|
|
|
|
TOQBDirForm = class(TForm)
|
|
BtnOk: TButton;
|
|
BtnCancel: TButton;
|
|
Bevel: TBevel;
|
|
DirLbx: TDirectoryEdit;
|
|
FileLbx: TFileListBox;
|
|
procedure DirLbxChange(Sender: TObject);
|
|
private
|
|
procedure SetDir(aDir: string);
|
|
function GetDir: string;
|
|
public
|
|
property Directory: string read GetDir write SetDir;
|
|
end;
|
|
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
procedure TOQBDirForm.SetDir(aDir: string);
|
|
begin
|
|
DirLbx.Directory := aDir;
|
|
end;
|
|
|
|
function TOQBDirForm.GetDir: string;
|
|
begin
|
|
Result := DirLbx.Directory;
|
|
end;
|
|
|
|
procedure TOQBDirForm.DirLbxChange(Sender: TObject);
|
|
begin
|
|
FileLbx.Directory := DirLbx.Directory;
|
|
end;
|
|
|
|
end.
|