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

TAChart: Revert r61263 #aa69a266b0 for TADiagramDrawing.pas.

Browse Source 
git-svn-id: trunk@61269 -
This commit is contained in:
wp 2019-05-22 09:57:30 +00:00
parent 95ca9460ab
commit b9b93e077d
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/tachart/tadiagramdrawing.pas
View File

@ -81,7 +81,7 @@ begin
id.SetBrushColor($FFFFFF);
for d in ASelf.Decorators do
if d is IDiaDrawerDecorator then
IDiaDrawerDecorator(d).Apply(id);
(d as IDiaDrawerDecorator).Apply(id);
with ASelf do
id.Polygon([
ToImage(FTopLeft), ToImage(FTopRight),
@ -103,7 +103,7 @@ begin
ADrawer.SetBrushColor($FFFFFF);
for d in AEndPoint.Decorators do
if d is IDiaDrawerDecorator then
IDiaDrawerDecorator(d).Apply(ADrawer);
(d as IDiaDrawerDecorator).Apply(ADrawer);
da := ArcTan2(AEndPoint.Width.Value, AEndPoint.Length.Value);
diag := -Round(Sqrt(Sqr(AEndPoint.Length.Value) + Sqr(AEndPoint.Width.Value)));
@ -126,7 +126,7 @@ begin
id.PrepareSimplePen($000000);
for d in ASelf.Decorators do
if d is IDiaDrawerDecorator then
IDiaDrawerDecorator(d).Apply(id);
(d as IDiaDrawerDecorator).Apply(id);
startPos := ToImage(ASelf.Start.Connector.ActualPos);
endPos := ToImage(ASelf.Finish.Connector.ActualPos);
case ASelf.Routing of