paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-31 18:00:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

gtk intf: added client rectangle size to rcPaint

Browse Source 
git-svn-id: trunk@9522 -
This commit is contained in:
mattias 2006-06-28 21:51:25 +00:00
parent 006bc13dad
commit 9fd55ac210
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/gtk/gtkproc.inc
View File

@ -1083,16 +1083,18 @@ function GtkPaintMessageToPaintMessage(var GtkPaintMsg: TLMGtkPaint;
FreeGtkPaintMsg: boolean): TLMPaint;
var
PS : PPaintStruct;
Widget: PGtkWidget;
begin
Result.Msg:=LM_PAINT;
New(PS);
PS^.hDC:=0;
Widget:=GtkPaintMsg.Data.Widget;
If GtkPaintMsg.Data.RepaintAll then
PS^.rcPaint := Rect(0,0,0,0)
PS^.rcPaint := Rect(0,0,Widget^.Allocation.Width,Widget^.Allocation.Height)
else
PS^.rcPaint := GtkPaintMsg.Data.Rect;
Result.DC:=BeginPaint(THandle(GtkPaintMsg.Data.Widget), PS^);
Result.DC:=BeginPaint(THandle(Widget), PS^);
Result.PaintStruct:=PS;
Result.Result:=0;
if FreeGtkPaintMsg then