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

lcl: less with-blocks for FPC 3.1.1

Browse Source 
git-svn-id: trunk@50293 -
This commit is contained in:
mattias 2015-11-11 13:24:06 +00:00
parent fa3ae668cd
commit e634c21fa2
1 changed files with 25 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
lcl/interfaces/gtk3/gtk3procs.pas
View File

@ -355,56 +355,56 @@ end;
function RectFromGtkAllocation(AGtkAllocation: TGtkAllocation): TRect;
begin
with Result, AGtkAllocation do
with AGtkAllocation do
begin
Left := x;
Top := y;
Right := Width + x;
Bottom := Height + y;
Result.Left := x;
Result.Top := y;
Result.Right := Width + x;
Result.Bottom := Height + y;
end;
end;
function RectFromGdkRect(AGdkRect: TGdkRectangle): TRect;
begin
with Result, AGdkRect do
with AGdkRect do
begin
Left := x;
Top := y;
Right := Width + x;
Bottom := Height + y;
Result.Left := x;
Result.Top := y;
Result.Right := Width + x;
Result.Bottom := Height + y;
end;
end;
function RectFromPangoRect(APangoRect: TPangoRectangle): TRect;
begin
with Result, APangoRect do
with APangoRect do
begin
Left := x div PANGO_SCALE;
Top := y div PANGO_SCALE;
Right := (Width div PANGO_SCALE) + (x div PANGO_SCALE);
Bottom := (Height div PANGO_SCALE) + (y div PANGO_SCALE);
Result.Left := x div PANGO_SCALE;
Result.Top := y div PANGO_SCALE;
Result.Right := (Width div PANGO_SCALE) + (x div PANGO_SCALE);
Result.Bottom := (Height div PANGO_SCALE) + (y div PANGO_SCALE);
end;
end;
function GdkRectFromRect(R: TRect): TGdkRectangle;
begin
with Result, R do
with Result do
begin
x := Left;
y := Top;
width := Right-Left;
height := Bottom-Top;
x := R.Left;
y := R.Top;
width := R.Right-R.Left;
height := R.Bottom-R.Top;
end;
end;
function GtkAllocationFromRect(R: TRect): TGtkAllocation;
begin
with Result, R do
with Result do
begin
x := Left;
y := Top;
width := Right-Left;
height := Bottom-Top;
x := R.Left;
y := R.Top;
width := R.Right-R.Left;
height := R.Bottom-R.Top;
end;
end;