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

lcl: gtk2: clean up

Browse Source 
git-svn-id: trunk@38613 -
This commit is contained in:
mattias 2012-09-11 09:11:27 +00:00
parent b6fd6f59e1
commit 9462a85cb1
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/gtk2/gtk2winapi.inc
View File

@ -6079,7 +6079,7 @@ function TGtk2WidgetSet.GetWindowLong(Handle: HWND; int: Integer): PtrInt;
function GetObjectData(Name: PChar): PtrInt;
begin
Result := PtrInt(PtrUInt({%H-}g_object_get_data(PGObject(Handle),Name)));
Result := PtrInt({%H-}PtrUInt({%H-}g_object_get_data(PGObject(Handle),Name)));
end;
var
WidgetInfo: PWidgetInfo;
@ -7467,7 +7467,7 @@ begin
RadioGroup := GetGroup;
// Set new group
g_object_set_data({%H-}Pointer(hndMenu), GROUPIDX_DATANAME, Pointer(PtrInt(GroupIndex)));
g_object_set_data({%H-}Pointer(hndMenu), GROUPIDX_DATANAME, {%H-}Pointer(PtrInt(GroupIndex)));
if RadioGroup = nil
then begin
// We're the only member, get a group