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

fpvectorial: Remove some obsolete declarations

Browse Source
This commit is contained in:
wp_xyz 2023-01-28 19:29:07 +01:00
parent 5bc07f9b2c
commit 6b98e93cee
2 changed files with 0 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/fpvectorial/fpvectorial.pas
View File

@ -6666,9 +6666,6 @@ var
var var
Points: array of TPoint; Points: array of TPoint;
UpperDim, LowerDim: T3DPoint; UpperDim, LowerDim: T3DPoint;
{$ifdef USE_LCL_CANVAS}
ALCLDest: TCanvas absolute ADest;
{$endif}
txt: String; txt: String;
begin begin
ADest.Pen.FPColor := AdjustColorToBackground(colBlack, ARenderInfo); ADest.Pen.FPColor := AdjustColorToBackground(colBlack, ARenderInfo);
@ -6818,9 +6815,6 @@ var
var var
Points: array of TPoint; Points: array of TPoint;
lAngle, lRadius: Double; lAngle, lRadius: Double;
{$ifdef USE_LCL_CANVAS}
ALCLDest: TCanvas absolute ADest;
{$endif}
begin begin
ADest.Pen.FPColor := AdjustColorToBackground(colBlack, ARenderInfo); ADest.Pen.FPColor := AdjustColorToBackground(colBlack, ARenderInfo);
ADest.Pen.Width := 1; ADest.Pen.Width := 1;
@ -6936,9 +6930,6 @@ var
var var
Points: array of TPoint = nil; Points: array of TPoint = nil;
lTriangleCenter, lTriangleCorner: T3DPoint; lTriangleCenter, lTriangleCorner: T3DPoint;
{$ifdef USE_LCL_CANVAS}
ALCLDest: TCanvas absolute ADest;
{$endif}
txt: String; txt: String;
begin begin
ADest.Pen.FPColor := colYellow;//AdjustColorToBackground(colBlack, ARenderInfo); ADest.Pen.FPColor := colYellow;//AdjustColorToBackground(colBlack, ARenderInfo);

1
components/fpvectorial/tests/visualtest.lpi
View File

@ -73,7 +73,6 @@
<Linking> <Linking>
<Debugging> <Debugging>
<DebugInfoType Value="dsDwarf3"/> <DebugInfoType Value="dsDwarf3"/>
<UseHeaptrc Value="True"/>
<UseExternalDbgSyms Value="True"/> <UseExternalDbgSyms Value="True"/>
</Debugging> </Debugging>
<Options> <Options>