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

ideintf: fix use of close button as custom button

Browse Source 
git-svn-id: trunk@19767 -
This commit is contained in:
paul 2009-05-02 12:46:06 +00:00
parent 16060bb198
commit 7f4737ea06
2 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ideintf/checkgroupeditordlg.pas
View File

@ -145,6 +145,7 @@ begin
DuplicateCheckBox.Caption := cgCheckDuplicate; DuplicateCheckBox.Caption := cgCheckDuplicate;
LabelDisable.Caption := cgDisable; LabelDisable.Caption := cgDisable;
BtnPanel.CloseButton.Caption := sccsTrEdtApply; BtnPanel.CloseButton.Caption := sccsTrEdtApply;
BtnPanel.CloseButton.Kind := bkCustom;
BtnPanel.CloseButton.Glyph := nil; BtnPanel.CloseButton.Glyph := nil;
BtnPanel.CloseButton.ModalResult := mrNone; BtnPanel.CloseButton.ModalResult := mrNone;
BtnPanel.CloseButton.OnClick := @ApplyCheck; BtnPanel.CloseButton.OnClick := @ApplyCheck;

1
ideintf/imagelisteditor.pp
View File

@ -189,6 +189,7 @@ begin
BtnSaveAll.Caption := sccsILEdtSaveAll; BtnSaveAll.Caption := sccsILEdtSaveAll;
BtnPanel.CloseButton.Caption := sccsILEdtApply; BtnPanel.CloseButton.Caption := sccsILEdtApply;
BtnPanel.CloseButton.Kind := bkCustom;
BtnPanel.CloseButton.Glyph := nil; BtnPanel.CloseButton.Glyph := nil;
BtnPanel.CloseButton.ModalResult := mrNone; BtnPanel.CloseButton.ModalResult := mrNone;
BtnPanel.CloseButton.OnClick := @btnApplyClick; BtnPanel.CloseButton.OnClick := @btnApplyClick;