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

tachart: less with-blocks for FPC 3.1.1

Browse Source 
git-svn-id: trunk@50313 -
This commit is contained in:
mattias 2015-11-12 04:35:51 +00:00
parent fb34c4b45f
commit 68b558f8d5
2 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/tachart/tagraph.pas
View File

@ -825,7 +825,7 @@ begin
FClipRect.Bottom -= Bottom;
end;
with ClipRect do begin;
with ClipRect do begin
FTitle.Measure(ADrawer, 1, Left, Right, Top);
FFoot.Measure(ADrawer, -1, Left, Right, Bottom);
end;

10
components/tachart/tanavigation.pas
View File

@ -320,12 +320,10 @@ procedure TChartNavPanel.Paint;
function GraphRect(ARect: TDoubleRect): TRect;
begin
with ARect do begin
a := a * FScale + FOffset;
b := b * FScale + FOffset;
Result := Rect(
Round(a.X), Height - Round(b.Y), Round(b.X), Height - Round(a.Y));
end;
ARect.a := ARect.a * FScale + FOffset;
ARect.b := ARect.b * FScale + FOffset;
Result := Rect(
Round(ARect.a.X), Height - Round(ARect.b.Y), Round(ARect.b.X), Height - Round(ARect.a.Y));
end;
var