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

tachart: Fixes compilation because now fpvectorial uses TFPColor

Browse Source 
git-svn-id: trunk@31245 -
This commit is contained in:
sekelsenmat 2011-06-16 10:33:47 +00:00
parent 9a6b6f2418
commit 206e4d5b90
2 changed files with 14 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/tachart/demo/fpvectorial/fpvectorialdemo.lpi
View File

@ -26,6 +26,7 @@
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="\usr\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
<RequiredPackages Count="5">

38
components/tachart/tadrawerfpvectorial.pas
View File

@ -20,7 +20,7 @@ unit TADrawerFPVectorial;
interface
uses
Classes, FPCanvas, FPVectorial, TADrawUtils;
Classes, FPCanvas, FPVectorial, TADrawUtils, fpimage;
type
@ -28,10 +28,11 @@ type
TFPVectorialDrawer = class(TBasicDrawer, IChartDrawer)
strict private
FBrushColor: TvColor;
FBrushColor: TFPColor;
FBrushStyle: TFPBrushStyle;
FCanvas: TvVectorialDocument;
FFontSize: Integer;
FPenColor: TvColor;
FPenColor: TFPColor;
strict protected
function GetFontAngle: Double; override;
procedure SetBrush(ABrush: TFPCustomBrush);
@ -71,21 +72,7 @@ type
implementation
uses
Math, TAChartUtils, TAGeometry;
function ChartColorToVColor(AColor: TChartColor): TvColor;
begin
Result.Alpha := 255;
Result.Red := AColor;
Result.Green := AColor shr 8;
Result.Blue := AColor shr 16;
end;
function VColorToChartColor(AColor: TvColor): TChartColor;
begin
with AColor do
Result := Red + (Green shl 8) + (Blue shl 16);
end;
Math, TAChartUtils, TAGeometry, fpvutils;
{ TFPVectorialDrawer }
@ -137,7 +124,7 @@ end;
function TFPVectorialDrawer.GetBrushColor: TChartColor;
begin
Result := VColorToChartColor(FBrushColor);
Result := FPColorToChartColor(FBrushColor);
end;
function TFPVectorialDrawer.GetFontAngle: Double;
@ -198,7 +185,7 @@ end;
procedure TFPVectorialDrawer.PrepareSimplePen(AColor: TChartColor);
begin
FPenColor := ChartColorToVColor(AColor);
FPenColor := ChartColorToFPColor(AColor);
end;
procedure TFPVectorialDrawer.RadialPie(
@ -215,7 +202,7 @@ begin
FCanvas.AddLineToPath(AX1, AY2);
FCanvas.AddLineToPath(AX1, AY1);
FCanvas.SetBrushColor(FBrushColor);
FCanvas.SetBrushStyle(bsSolid);
FCanvas.SetBrushStyle(FBrushStyle);
FCanvas.SetPenColor(FPenColor);
FCanvas.EndPath();
end;
@ -228,12 +215,13 @@ end;
procedure TFPVectorialDrawer.SetBrush(ABrush: TFPCustomBrush);
begin
FBrushColor := ChartColorToVColor(FPColorToChartColor(ABrush.FPColor));
FBrushColor := ABrush.FPColor;
FBrushStyle := ABrush.Style;
end;
procedure TFPVectorialDrawer.SetBrushColor(AColor: TChartColor);
begin
FBrushColor := ChartColorToVColor(AColor);
FBrushColor := ChartColorToFPColor(AColor);
end;
procedure TFPVectorialDrawer.SetBrushParams(
@ -250,14 +238,14 @@ end;
procedure TFPVectorialDrawer.SetPen(APen: TFPCustomPen);
begin
FPenColor := ChartColorToVColor(FPColorToChartColor(APen.FPColor));
FPenColor := APen.FPColor;
end;
procedure TFPVectorialDrawer.SetPenParams(
AStyle: TFPPenStyle; AColor: TChartColor);
begin
Unused(AStyle);
FPenColor := ChartColorToVColor(AColor);
FPenColor := ChartColorToFPColor(AColor);
end;
function TFPVectorialDrawer.SimpleTextExtent(const AText: String): TPoint;