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

replaced open with save dialog in addtopackage dialog add component

Browse Source 
git-svn-id: trunk@8877 -
This commit is contained in:
mattias 2006-03-07 11:05:48 +00:00
parent 3c7832808c
commit d18f7447b6
2 changed files with 15 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/lazarusidestrconsts.pas
View File

@ -2529,6 +2529,8 @@ resourcestring
lisA2PPalettePage = 'Palette Page:';
lisA2PUnitFileName2 = 'Unit File Name:';
lisA2PUnitName = 'Unit Name:';
lisA2PShortenOrExpandFilename = 'Shorten or expand filename';
lisA2PSaveFileDialog = 'Save file dialog';
lisA2PFileName = 'File name:';
// broken dependencies dialog

26
packager/addtopackagedlg.pas
View File

@ -727,18 +727,18 @@ end;
procedure TAddToPackageDlg.ComponentUnitFileBrowseButtonClick(Sender: TObject);
var
OpenDialog: TOpenDialog;
SaveDialog: TSaveDialog;
AFilename: string;
begin
OpenDialog:=TOpenDialog.Create(nil);
SaveDialog:=TSaveDialog.Create(nil);
try
InputHistories.ApplyFileDialogSettings(OpenDialog);
OpenDialog.InitialDir:=
LazPackage.GetFileDialogInitialDir(OpenDialog.InitialDir);
OpenDialog.Title:=lisOpenFile;
OpenDialog.Options:=OpenDialog.Options+[ofPathMustExist];
if OpenDialog.Execute then begin
AFilename:=CleanAndExpandFilename(OpenDialog.Filename);
InputHistories.ApplyFileDialogSettings(SaveDialog);
SaveDialog.InitialDir:=
LazPackage.GetFileDialogInitialDir(SaveDialog.InitialDir);
SaveDialog.Title:=lisOpenFile;
SaveDialog.Options:=SaveDialog.Options+[ofPathMustExist];
if SaveDialog.Execute then begin
AFilename:=CleanAndExpandFilename(SaveDialog.Filename);
if FilenameIsPascalUnit(AFilename) then begin
LazPackage.ShortenFilename(AFilename,true);
ComponentUnitFileEdit.Text:=AFilename;
@ -748,9 +748,9 @@ begin
mtError,[mbCancel],0);
end;
end;
InputHistories.StoreFileDialogSettings(OpenDialog);
InputHistories.StoreFileDialogSettings(SaveDialog);
finally
OpenDialog.Free;
SaveDialog.Free;
end;
end;
@ -1529,7 +1529,7 @@ begin
Caption:='...';
OnClick:=@ComponentUnitFileBrowseButtonClick;
ShowHint:=true;
Hint:='Open file dialog';
Hint:=lisA2PSaveFileDialog;
end;
ComponentUnitFileShortenButton:=TButton.Create(Self);
@ -1539,7 +1539,7 @@ begin
Caption:='<>';
OnClick:=@ComponentUnitFileShortenButtonClick;
ShowHint:=true;
Hint:='Shorten or expand filename';
Hint:=lisA2PShortenOrExpandFilename;
end;
ComponentUnitNameLabel:=TLabel.Create(Self);