mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-30 17:02:36 +02:00
lcl: gtk2: less hints
git-svn-id: trunk@41669 -
This commit is contained in:
parent
6e6f461181
commit
f97c282b0d
@ -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',
|
||||
|
Loading…
Reference in New Issue
Block a user