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

TAChart: Support clipping in TOpenGLDrawer

Browse Source 
git-svn-id: trunk@29951 -
This commit is contained in:
ask 2011-03-21 04:13:20 +00:00
parent 29546f3a08
commit 1c19d07c41
2 changed files with 30 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
components/tachart/tadraweropengl.pas
View File

@ -27,7 +27,7 @@ type
{ TOpenGLDrawer }
TOpenGLDrawer = class(TFPCanvasDrawer, IChartDrawer, ISimpleTextOut)
TOpenGLDrawer = class(TFPCanvasDrawer, IChartDrawer)
strict private
FBrushColor: TFPColor;
FContext: TOpenGLControl;
@ -35,11 +35,11 @@ type
FPenColor: TFPColor;
FPenWidth: Integer;
FPos: TPoint;
procedure InternalPolyline(
const APoints: array of TPoint; AStartIndex, ANumPts, AMode: Integer);
procedure SetBrush(ABrush: TFPCustomBrush);
procedure SetFont(AFont: TFPCustomFont);
procedure SetPen(APen: TFPCustomPen);
procedure InternalPolyline(
const APoints: array of TPoint; AStartIndex, ANumPts, AMode: Integer);
strict protected
function GetFontAngle: Double; override;
function SimpleTextExtent(const AText: String): TPoint; override;
@ -93,16 +93,41 @@ begin
end;
procedure TOpenGLDrawer.ClippingStart(const AClipRect: TRect);
type
TGLClipPlaneEqn = record A, B, C, D: GLdouble; end;
var
cp: TGLClipPlaneEqn;
begin
Unused(AClipRect);
cp.A := 1.0;
cp.D := -AClipRect.Left;
glClipPlane(GL_CLIP_PLANE0, @cp);
cp.A := -1.0;
cp.D := AClipRect.Right;
glClipPlane(GL_CLIP_PLANE1, @cp);
cp.A := 0.0;
cp.B := 1.0;
cp.D := -AClipRect.Top;
glClipPlane(GL_CLIP_PLANE2, @cp);
cp.B := -1.0;
cp.D := AClipRect.Bottom;
glClipPlane(GL_CLIP_PLANE3, @cp);
ClippingStart;
end;
procedure TOpenGLDrawer.ClippingStart;
begin
glEnable(GL_CLIP_PLANE0);
glEnable(GL_CLIP_PLANE1);
glEnable(GL_CLIP_PLANE2);
glEnable(GL_CLIP_PLANE3);
end;
procedure TOpenGLDrawer.ClippingStop;
begin
glDisable(GL_CLIP_PLANE0);
glDisable(GL_CLIP_PLANE1);
glDisable(GL_CLIP_PLANE2);
glDisable(GL_CLIP_PLANE3);
end;
constructor TOpenGLDrawer.Create(AContext: TOpenGLControl);

2
components/tachart/tadrawutils.pas
View File

@ -143,7 +143,7 @@ type
{ TCanvasDrawer }
TCanvasDrawer = class(
TFPCanvasDrawer, IChartDrawer, IChartTCanvasDrawer, ISimpleTextOut)
TFPCanvasDrawer, IChartDrawer, IChartTCanvasDrawer)
private
FCanvas: TCanvas;
procedure SetBrush(ABrush: TFPCustomBrush);