From 68b558f8d56bcb4979cc94128ed2547a906b667a Mon Sep 17 00:00:00 2001 From: mattias Date: Thu, 12 Nov 2015 04:35:51 +0000 Subject: [PATCH] tachart: less with-blocks for FPC 3.1.1 git-svn-id: trunk@50313 - --- components/tachart/tagraph.pas | 2 +- components/tachart/tanavigation.pas | 10 ++++------ 2 files changed, 5 insertions(+), 7 deletions(-) diff --git a/components/tachart/tagraph.pas b/components/tachart/tagraph.pas index ad27e98798..ce7bd210be 100644 --- a/components/tachart/tagraph.pas +++ b/components/tachart/tagraph.pas @@ -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; diff --git a/components/tachart/tanavigation.pas b/components/tachart/tanavigation.pas index 44ad3e1a5a..df05188267 100644 --- a/components/tachart/tanavigation.pas +++ b/components/tachart/tanavigation.pas @@ -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