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

lcl: gtk2: less hints

Browse Source 
git-svn-id: trunk@41669 -
This commit is contained in:
mattias 2013-06-10 21:25:29 +00:00
parent 6e6f461181
commit f97c282b0d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/gtk2/gtk2lclintf.inc
View File

@ -1062,7 +1062,7 @@ begin
if (BtnResult>=Low(ButtonResults)) and (BtnResult<=High(ButtonResults)) then if (BtnResult>=Low(ButtonResults)) and (BtnResult<=High(ButtonResults)) then
BtnID := ButtonResults[DlgBtn.ModalResult]; BtnID := ButtonResults[DlgBtn.ModalResult];
if (BtnIdx=CancelID) then if (BtnIdx=CancelID) then
g_object_set_data(PGObject(Dialog), 'modal_result', Pointer(PtrInt(DlgBtn.ModalResult))); g_object_set_data(PGObject(Dialog), 'modal_result', {%H-}Pointer(PtrInt(DlgBtn.ModalResult)));
X := DlgBtn.ModalResult; X := DlgBtn.ModalResult;
g_object_set_data(PGObject(Btn), 'modal_result', g_object_set_data(PGObject(Btn), 'modal_result',