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

MG: fixed empty TOpenDialog

Browse Source 
git-svn-id: trunk@370 -
This commit is contained in:
lazarus 2001-10-25 20:01:35 +00:00
parent 1296a70f3e
commit 38781df5f7
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/main.pp
View File

@ -1332,7 +1332,7 @@ begin
try
OpenDialog.Title:='Open file';
OpenDialog.InitialDir:=EnvironmentOptions.LastOpenDialogDir;
if OpenDialog.Execute then begin
if OpenDialog.Execute and (OpenDialog.Filename<>'') then begin
AFilename:=ExpandFilename(OpenDialog.Filename);
EnvironmentOptions.LastOpenDialogDir:=ExtractFilePath(AFilename);
if DoOpenEditorFile(AFilename,false)=mrOk then begin
@ -1668,7 +1668,7 @@ begin
try
OpenDialog.Title:='Open Project File (*.lpi)';
OpenDialog.InitialDir:=EnvironmentOptions.LastOpenDialogDir;
if OpenDialog.Execute then begin
if OpenDialog.Execute and (OpenDialog.Filename<>'') then begin
AFilename:=ExpandFilename(OpenDialog.Filename);
EnvironmentOptions.LastOpenDialogDir:=ExtractFilePath(AFilename);
if DoOpenProjectFile(AFilename)=mrOk then begin
@ -4348,6 +4348,9 @@ end.
{ =============================================================================
$Log$
Revision 1.127 2001/10/25 20:01:35 lazarus
MG: fixed empty TOpenDialog
Revision 1.126 2001/10/23 09:13:51 lazarus
MG: fixed TestProject

2
ide/uniteditor.pp
View File

@ -213,7 +213,6 @@ type
FProcessingCommand: boolean;
FSaveDialog : TSaveDialog;
FOpenDialog : TOpenDialog;
FOnNewClicked : TNotifyEvent;
FOnOpenClicked : TNotifyEvent;
@ -1499,7 +1498,6 @@ begin
end;
end;
FSaveDialog := TSaveDialog.Create(Self);
FOpenDialog := TOpenDialog.Create(Self);
BuildPopupMenu;