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

escape closes dialog (issue #1143)

Browse Source 
git-svn-id: trunk@7634 -
This commit is contained in:
vincents 2005-09-06 09:55:11 +00:00
parent cba602c612
commit e3102ae1be
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/projectopts.pp
View File

@ -160,6 +160,7 @@ begin
Top:= Self.ClientHeight - Height - 4; Top:= Self.ClientHeight - Height - 4;
Kind:= bkCancel; Kind:= bkCancel;
Anchors:= [akBottom, akRight]; Anchors:= [akBottom, akRight];
Cancel:= true;
end; end;
OkButton:=TBitBtn.Create(Self); OkButton:=TBitBtn.Create(Self);
@ -169,6 +170,7 @@ begin
Top:= CancelButton.Top; Top:= CancelButton.Top;
Kind:= bkOk; Kind:= bkOk;
Anchors:= [akBottom, akRight]; Anchors:= [akBottom, akRight];
Default:= true;
end; end;
IDEDialogLayoutList.ApplyLayout(Self, 430, 375); IDEDialogLayoutList.ApplyLayout(Self, 430, 375);

2
ideintf/imagelisteditor.pp
View File

@ -159,7 +159,6 @@ end;
//Select new image file and add in list //Select new image file and add in list
procedure TImageListEditorDlg.OnClickAdd(Sender: TObject); procedure TImageListEditorDlg.OnClickAdd(Sender: TObject);
Var OpenDlg: TOpenDialog; Var OpenDlg: TOpenDialog;
FileName: String;
i : Integer; i : Integer;
begin begin
Opendlg := TOpenDialog.Create(Self); Opendlg := TOpenDialog.Create(Self);
@ -172,7 +171,6 @@ begin
If OpenDlg.Execute then If OpenDlg.Execute then
begin begin
fDirName:=ExtractFilePath(OpenDlg.FileName); //save the directory fDirName:=ExtractFilePath(OpenDlg.FileName); //save the directory
FileName:=OpenDlg.FileName;
for i := 0 to OpenDlg.Files.Count - 1 do for i := 0 to OpenDlg.Files.Count - 1 do
AddImageToList(OpenDlg.Files[i]); AddImageToList(OpenDlg.Files[i]);
end; end;