lcl: gtk2: less hints

git-svn-id: trunk@41669 -
This commit is contained in:
mattias 2013-06-10 21:25:29 +00:00
parent 6e6f461181
commit f97c282b0d

View File

@ -1062,7 +1062,7 @@ begin
if (BtnResult>=Low(ButtonResults)) and (BtnResult<=High(ButtonResults)) then
BtnID := ButtonResults[DlgBtn.ModalResult];
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;
g_object_set_data(PGObject(Btn), 'modal_result',