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

TDirectoryEdit now uses as default dir the Text from Uberto Barbini

Browse Source 
git-svn-id: trunk@6917 -
This commit is contained in:
mattias 2005-03-07 23:31:32 +00:00
parent d00d0b82ac
commit cf3580e354
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/editbtn.pas
View File

@ -28,7 +28,8 @@ interface
uses
Classes, SysUtils, LCLProc, LResources, LCLStrConsts, LCLType, LMessages,
Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, Calendar, ExtDlgs;
Graphics, Controls, Forms, FileUtil, Dialogs, StdCtrls, Buttons, Calendar,
ExtDlgs;
type
{ TCustomEditButton }
@ -734,8 +735,13 @@ end;
function TDirectoryEdit.CreateDialog: TCommonDialog;
begin
Result:=TSelectDirectoryDialog.Create(Self);
TSelectDirectoryDialog(Result).InitialDir:=RootDir;
TSelectDirectoryDialog(Result).FileName:=Directory;
if DirPathExists(Directory) then begin
TSelectDirectoryDialog(Result).InitialDir:=Directory;
TSelectDirectoryDialog(Result).FileName:='';
end else begin
TSelectDirectoryDialog(Result).InitialDir:=RootDir;
TSelectDirectoryDialog(Result).FileName:=Directory;
end;
end;
Function TDirectoryEdit.GetDialogResult(D: TCommonDialog) : String;