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

lcl: gtk2: less hints

Browse Source 
git-svn-id: trunk@42290 -
This commit is contained in:
mattias 2013-08-03 16:14:22 +00:00
parent a7d3638143
commit b538b89c23
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/gtk2wsstdctrls.pp
View File

@ -629,7 +629,7 @@ begin
if not WSCheckHandleAllocated(ACustomListBox, 'SetStyle') then
Exit;
Widget := GetWidgetInfo({%H-}Pointer(ACustomListBox.Handle), True)^.CoreWidget;
AStyle := PtrInt(g_object_get_data(PGObject(Widget), 'lclcustomlistboxstyle'));
AStyle := {%H-}PtrInt(g_object_get_data(PGObject(Widget), 'lclcustomlistboxstyle'));
if (AStyle <> Ord(ACustomListBox.Style)) then
RecreateWnd(ACustomListBox);
end;
@ -770,7 +770,7 @@ begin
g_signal_connect_after(Selection, 'changed',
G_CALLBACK(@gtk2ListBoxSelectionChangedAfter), WidgetInfo);
g_object_set_data(PGObject(TVWidget), 'lclcustomlistboxstyle', gPointer(Ord(TListBox(AWinControl).Style)));
g_object_set_data(PGObject(TVWidget), 'lclcustomlistboxstyle', {%H-}gPointer(Ord(TListBox(AWinControl).Style)));
// Sets the callbacks
SetCallbacks(p, WidgetInfo);