paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 10:58:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazcontrols: style

Browse Source 
git-svn-id: trunk@37571 -
This commit is contained in:
mattias 2012-06-07 16:40:03 +00:00
parent a322f2534d
commit 2ad9e952c2
2 changed files with 16 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/lazcontrols/lazcontrols.pas
View File

@ -8,7 +8,7 @@ interface
uses
DividerBevel, ExtendedNotebook, ListFilterEdit, TreeFilterEdit,
shortpathedit, LazarusPackageIntf;
ShortPathEdit, LazarusPackageIntf;
implementation
@ -18,7 +18,7 @@ begin
RegisterUnit('ExtendedNotebook', @ExtendedNotebook.Register);
RegisterUnit('ListFilterEdit', @ListFilterEdit.Register);
RegisterUnit('TreeFilterEdit', @TreeFilterEdit.Register);
RegisterUnit('shortpathedit', @shortpathedit.Register);
RegisterUnit('ShortPathEdit', @ShortPathEdit.Register);
end;
initialization

25
components/lazcontrols/shortpathedit.pas
View File

@ -1,4 +1,4 @@
unit shortpathedit;
unit ShortPathEdit;
{$mode objfpc}{$H+}
@ -7,17 +7,20 @@ interface
uses
Classes, SysUtils, EditBtn, LResources, Dialogs, FileUtil;
Type
type
{ TShortPathEdit }
TShortPathEdit = class(TDirectoryEdit)
private
FDirectory : String;
FOnAcceptDir: TAcceptFileNameEvent;
protected
function CreateDialog: TCommonDialog; override;
procedure RunDialog; override;
published
property Directory: String read FDirectory write FDirectory;
property OnAcceptDirectory: TAcceptFileNameEvent read FOnAcceptDir write FonAcceptDir;
private
FDirectory : String;
FOnAcceptDir: TAcceptFileNameEvent;
protected
function CreateDialog: TCommonDialog; override;
procedure RunDialog; override;
published
property Directory: String read FDirectory write FDirectory;
property OnAcceptDirectory: TAcceptFileNameEvent read FOnAcceptDir write FonAcceptDir;
end;
procedure Register;