paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 04:16:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Remove TOpenGLDrawer -> Graphics dependency

Browse Source 
git-svn-id: trunk@29967 -
This commit is contained in:
ask 2011-03-21 14:15:42 +00:00
parent a40bfdfa55
commit 2c1e9b1a49
4 changed files with 14 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/tachart/demo/opengl/Main.pas
View File

@ -47,7 +47,7 @@ begin
glMatrixMode(GL_MODELVIEW);
glLoadIdentity();
d := TOpenGLDrawer.Create(OpenGLControl1);
d := TOpenGLDrawer.Create;
Chart1.DisableRedrawing;
Chart1.Title.Text.Text := 'OpenGL';
Chart1.Draw(d, Rect(0, 0, OpenGLControl1.Width, OpenGLControl1.Height));

4
components/tachart/tadraweraggpas.pas
View File

@ -15,7 +15,7 @@ Authors: Alexander Klenin
}
unit TADrawerAggPas;
{$mode objfpc}
{$H+}
interface
@ -26,7 +26,7 @@ type
{ TAggPasDrawer }
TAggPasDrawer = class(TBasicDrawer, IChartDrawer, ISimpleTextOut)
TAggPasDrawer = class(TBasicDrawer, IChartDrawer)
strict private
FCanvas: TAggLCLCanvas;
procedure SetBrush(ABrush: TFPCustomBrush);

22
components/tachart/tadraweropengl.pas
View File

@ -15,13 +15,12 @@ Authors: Alexander Klenin
}
unit TADrawerOpenGL;
{$mode objfpc}
{$H+}
interface
uses
Classes, SysUtils, FPCanvas, FPImage, OpenGLContext, GL, GLu, Glut,
TADrawUtils;
Classes, FPCanvas, FPImage, GL, GLu, Glut, TADrawUtils;
type
@ -30,7 +29,6 @@ type
TOpenGLDrawer = class(TBasicDrawer, IChartDrawer)
strict private
FBrushColor: TFPColor;
FContext: TOpenGLControl;
FFontColor: TFPColor;
FPenColor: TFPColor;
FPenWidth: Integer;
@ -45,7 +43,7 @@ type
function SimpleTextExtent(const AText: String): TPoint; override;
procedure SimpleTextOut(AX, AY: Integer; const AText: String); override;
public
constructor Create(AContext: TOpenGLControl);
constructor Create;
public
procedure AddToFontOrientation(ADelta: Integer);
procedure ClippingStart;
@ -74,10 +72,11 @@ type
procedure SetBrushParams(AStyle: TFPBrushStyle; AColor: TChartColor);
procedure SetPenParams(AStyle: TFPPenStyle; AColor: TChartColor);
end;
implementation
uses
Graphics, TAChartUtils;
TAChartUtils;
procedure ChartGLColor(AColor: TFPColor);
begin
@ -130,9 +129,8 @@ begin
glDisable(GL_CLIP_PLANE3);
end;
constructor TOpenGLDrawer.Create(AContext: TOpenGLControl);
constructor TOpenGLDrawer.Create;
begin
FContext := AContext;
end;
procedure TOpenGLDrawer.Ellipse(AX1, AY1, AX2, AY2: Integer);
@ -150,7 +148,7 @@ end;
function TOpenGLDrawer.GetBrushColor: TChartColor;
begin
Result := FPColorToTColor(FBrushColor);
Result := FPColorToChartColor(FBrushColor);
end;
function TOpenGLDrawer.GetFontAngle: Double;
@ -224,7 +222,7 @@ end;
procedure TOpenGLDrawer.PrepareSimplePen(AColor: TChartColor);
begin
FPenWidth := 1;
FPenColor := TColorToFPColor(ColorToRGB(AColor));
FPenColor := ChartColorToFPColor(AColor);
end;
procedure TOpenGLDrawer.RadialPie(
@ -261,7 +259,7 @@ end;
procedure TOpenGLDrawer.SetBrushColor(AColor: TChartColor);
begin
FBrushColor := TColorToFPColor(ColorToRGB(AColor));
FBrushColor := ChartColorToFPColor(AColor);
end;
procedure TOpenGLDrawer.SetBrushParams(
@ -285,7 +283,7 @@ end;
procedure TOpenGLDrawer.SetPenParams(AStyle: TFPPenStyle; AColor: TChartColor);
begin
Unused(AStyle);
FPenColor := TColorToFPColor(ColorToRGB(AColor));
FPenColor := ChartColorToFPColor(AColor);
end;
function TOpenGLDrawer.SimpleTextExtent(const AText: String): TPoint;

2
components/tachart/tadrawutils.pas
View File

@ -21,7 +21,7 @@ unit TADrawUtils;
interface
uses
Classes, FPCanvas, FPImage, Graphics, SysUtils, Types;
Classes, FPCanvas, FPImage, Graphics, Types;
type
TChartColor = -$7FFFFFFF-1..$7FFFFFFF;