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

set default and cancel button

Browse Source 
git-svn-id: trunk@7947 -
This commit is contained in:
vincents 2005-10-10 11:47:06 +00:00
parent 593d31c026
commit 0812c49df5
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/exttooldialog.pas
View File

@ -516,6 +516,7 @@ begin
SetBounds(Self.ClientWidth-200, Self.ClientHeight-40,80,25);
Caption:=lisLazBuildOk;
OnClick:=@OkButtonClick;
Default:=true;
Visible:=true;
end;
@ -526,6 +527,7 @@ begin
SetBounds(Self.ClientWidth-100, Self.ClientHeight-40,80,25);
Caption:=dlgCancel;
OnClick:=@CancelButtonClick;
Cancel:=true;
Visible:=true;
end;
end;