paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-16 02:20:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

lcl: set default values for properties of TCustomEditButton and TFileNameEdit

Browse Source 
git-svn-id: trunk@18020 -
This commit is contained in:
paul 2009-01-01 19:32:42 +00:00
parent cd79a420be
commit 9d7996ed21
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lcl/editbtn.pas
View File

@ -83,9 +83,9 @@ type
property ButtonHint: TTranslateString read GetButtonHint write SetButtonHint;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
property Flat : Boolean read GetFlat write SetFlat;
property ButtonOnlyWhenFocused : Boolean read FButtonNeedsFocus write SetButtonNeedsFocus;
destructor Destroy; override;
property Flat: Boolean read GetFlat write SetFlat default False;
property ButtonOnlyWhenFocused: Boolean read FButtonNeedsFocus write SetButtonNeedsFocus default False;
end;
@ -183,7 +183,7 @@ type
property FileName : String read GetFileName write SetFileName;
property InitialDir : String read FInitialDir write FInitialDir;
property OnAcceptFileName : TAcceptFileNameEvent read FOnAcceptFN write FonAcceptFN;
property DialogKind : TDialogKind read FDialogKind write FDialogKind;
property DialogKind : TDialogKind read FDialogKind write FDialogKind default dkOpen;
property DialogTitle : String read FDialogTitle write FDialogTitle;
property DialogOptions : TOpenOptions read FDialogOptions write FDialogOptions;
property Filter : String read FFilter write FFilter;
@ -554,10 +554,10 @@ end;
function TCustomEditButton.GetFlat: Boolean;
begin
If Assigned(FButton) then
Result:=FButton.Flat
if Assigned(FButton) then
Result := FButton.Flat
else
Result:=False;
Result := False;
end;
procedure TCustomEditButton.CheckButtonVisible;
@ -703,7 +703,8 @@ end;
constructor TFileNameEdit.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FDialogFiles:=TStringList.Create;
FDialogFiles := TStringList.Create;
FDialogKind := dkOpen;
end;
destructor TFileNameEdit.Destroy;