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

LCL: gtk2: less hints

Browse Source 
git-svn-id: trunk@46289 -
This commit is contained in:
mattias 2014-09-22 11:45:59 +00:00
parent 68c63595a9
commit f1fd7c865a
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -877,7 +877,7 @@ begin
else
PS^.rcPaint := GtkPaintMsg.Data.Rect;
Result.DC := BeginPaint(THandle(PtrUInt(Widget)), PS^);
Result.DC := BeginPaint(THandle({%H-}PtrUInt(Widget)), PS^);
Result.PaintStruct := PS;
Result.Result := 0;
if FreeGtkPaintMsg then

2
lcl/interfaces/gtk2/gtk2wsmenus.pp
View File

@ -83,7 +83,7 @@ var
MenuWidget: PGtkWidget = nil;
function Gtk2MenuItemButtonPress(widget: PGtkWidget; event: PGdkEventButton;
{%H-} user_data: gpointer): gboolean; cdecl;
{%H-}user_data: gpointer): gboolean; cdecl;
var
Parent: PGtkWidget;
WidgetInfo: PWidgetInfo;