paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 12:39:15 +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 try
OpenDialog.Title:='Open file'; OpenDialog.Title:='Open file';
OpenDialog.InitialDir:=EnvironmentOptions.LastOpenDialogDir; OpenDialog.InitialDir:=EnvironmentOptions.LastOpenDialogDir;
if OpenDialog.Execute then begin if OpenDialog.Execute and (OpenDialog.Filename<>'') then begin
AFilename:=ExpandFilename(OpenDialog.Filename); AFilename:=ExpandFilename(OpenDialog.Filename);
EnvironmentOptions.LastOpenDialogDir:=ExtractFilePath(AFilename); EnvironmentOptions.LastOpenDialogDir:=ExtractFilePath(AFilename);
if DoOpenEditorFile(AFilename,false)=mrOk then begin if DoOpenEditorFile(AFilename,false)=mrOk then begin
@ -1668,7 +1668,7 @@ begin
try try
OpenDialog.Title:='Open Project File (*.lpi)'; OpenDialog.Title:='Open Project File (*.lpi)';
OpenDialog.InitialDir:=EnvironmentOptions.LastOpenDialogDir; OpenDialog.InitialDir:=EnvironmentOptions.LastOpenDialogDir;
if OpenDialog.Execute then begin if OpenDialog.Execute and (OpenDialog.Filename<>'') then begin
AFilename:=ExpandFilename(OpenDialog.Filename); AFilename:=ExpandFilename(OpenDialog.Filename);
EnvironmentOptions.LastOpenDialogDir:=ExtractFilePath(AFilename); EnvironmentOptions.LastOpenDialogDir:=ExtractFilePath(AFilename);
if DoOpenProjectFile(AFilename)=mrOk then begin if DoOpenProjectFile(AFilename)=mrOk then begin
@ -4348,6 +4348,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $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 Revision 1.126 2001/10/23 09:13:51 lazarus
MG: fixed TestProject MG: fixed TestProject

2
ide/uniteditor.pp
View File

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