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

lcl: less with-blocks for FPC 3.1.1

Browse Source 
git-svn-id: trunk@50300 -
This commit is contained in:
mattias 2015-11-11 13:40:08 +00:00
parent c2fb2c5995
commit 264c56af19
1 changed files with 11 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2231,13 +2231,10 @@ begin
Origin := DevCtx.Offset;
try
with R do
begin
DrawHorzLine(Left, Top, Right-1);
DrawVertLine(Right-1, Top, Bottom-1);
DrawHorzLine(Right-1, Bottom-1, Left);
DrawVertLine(Left, Bottom-1, Top);
end;
DrawHorzLine(R.Left, R.Top, R.Right-1);
DrawVertLine(R.Right-1, R.Top, R.Bottom-1);
DrawHorzLine(R.Right-1, R.Bottom-1, R.Left);
DrawVertLine(R.Left, R.Bottom-1, R.Top);
Result := True;
finally
@ -4456,7 +4453,7 @@ end;
------------------------------------------------------------------------------}
function TGtk2WidgetSet.GetRgnBox(RGN : HRGN; lpRect : PRect) : Longint;
var
CRect : TGDKRectangle;
ClipR : TGDKRectangle;
begin
Result := SIMPLEREGION;
If lpRect <> nil then
@ -4467,12 +4464,12 @@ begin
Result := RegionType({%H-}PGDIObject(RGN)^.GDIRegionObject);
If lpRect <> nil then begin
gdk_region_get_clipbox({%H-}PGDIObject(RGN)^.GDIRegionObject,
@CRect);
With lpRect^,CRect do begin
Left := X;
Top := Y;
Right := X + Width;
Bottom := Y + Height;
@ClipR);
With lpRect^ do begin
Left := ClipR.X;
Top := ClipR.Y;
Right := ClipR.X + ClipR.Width;
Bottom := ClipR.Y + ClipR.Height;
end;
end;
end;