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

lcl: less with-blocks for FPC 3.1.1

Browse Source 
git-svn-id: trunk@50291 -
This commit is contained in:
mattias 2015-11-11 13:17:45 +00:00
parent 1a4afb9d1d
commit f814866d82
1 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lcl/interfaces/gtk/gtkwinapi.inc
View File

@ -4739,11 +4739,11 @@ begin
If lpRect <> nil then begin
gdk_region_get_clipbox(PGDIObject(RGN)^.GDIRegionObject,
@CRect);
With lpRect^,CRect do begin
Left := X;
Top := Y;
Right := X + Width;
Bottom := Y + Height;
With lpRect^ do begin
Left := CRect.X;
Top := CRect.Y;
Right := CRect.X + CRect.Width;
Bottom := CRect.Y + CRect.Height;
end;
end;
end;
@ -8283,6 +8283,7 @@ var
{$IFNDEF Gtk2}
PaintDC: HDC;
DCOrigin: TPoint;
R: TRect;
{$ENDIF}
begin
(* MG: old trick. Not used anymore, but it might be, that someday there
@ -8347,10 +8348,10 @@ var
then begin
PaintDC := TLMPaint(AMessage).DC;
DCOrigin := TGtkDeviceContext(PaintDC).Offset;
with GtkPaintData.Rect do
IntersectClipRect(PaintDC,
Left - DCOrigin.X, Top - DCOrigin.Y,
Right - DCOrigin.X, Bottom - DCOrigin.Y);
R:=GtkPaintData.Rect;
IntersectClipRect(PaintDC,
R.Left - DCOrigin.X, R.Top - DCOrigin.Y,
R.Right - DCOrigin.X, R.Bottom - DCOrigin.Y);
end;
{$EndIf}
GtkPaintData.Free;