1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
|
{
*****************************************************************************
See the file COPYING.modifiedLGPL.txt, included in this distribution,
for details about the license.
*****************************************************************************
Authors: Alexander Klenin
}
unit TAGUIConnectorAggPas;
{$H+}
interface
uses
Agg_FPImage,
Classes,
TAGUIConnector;
type
TChartGUIConnectorAggPas = class(TChartGUIConnector)
private
FPixelFormat: TAggFPImgPixelFormat;
procedure SetPixelFormat(AValue: TAggFPImgPixelFormat);
public
procedure CreateDrawer(var AData: TChartGUIConnectorData); override;
procedure SetBounds(var AData: TChartGUIConnectorData); override;
procedure Display(var AData: TChartGUIConnectorData); override;
published
property PixelFormat: TAggFPImgPixelFormat
read FPixelFormat write SetPixelFormat default afpimRGB24;
end;
procedure Register;
implementation
{$R taaggpas.res}
uses
Agg_LCL, Graphics, SysUtils, TAChartUtils, TADrawerAggPas, TADrawerCanvas,
TAGeometry;
type
TAggPasOwnerDrawer = class(TAggPasDrawer)
strict protected
FBitmap: TBitmap;
public
constructor Create(ACanvas: TAggLCLCanvas);
destructor Destroy; override;
procedure SetSize(ASize: TPoint);
procedure PaintOnCanvas(ACanvas: TCanvas; const ARect: TRect);
property Canvas: TAggLCLCanvas read FCanvas;
end;
procedure Register;
begin
RegisterComponents(CHART_COMPONENT_IDE_PAGE, [TChartGUIConnectorAggPas]);
end;
{ TChartGUIConnectorAggPas }
procedure TChartGUIConnectorAggPas.CreateDrawer(
var AData: TChartGUIConnectorData);
begin
AData.FDrawer := TAggPasOwnerDrawer.Create(TAggLCLCanvas.Create);
AData.FDrawer.DoGetFontOrientation := @CanvasGetFontOrientationFunc;
end;
procedure TChartGUIConnectorAggPas.Display(var AData: TChartGUIConnectorData);
begin
(AData.FDrawer as TAggPasOwnerDrawer).PaintOnCanvas(
AData.FCanvas, AData.FBounds);
end;
procedure TChartGUIConnectorAggPas.SetBounds(var AData: TChartGUIConnectorData);
begin
AData.FDrawerBounds.TopLeft := Point(0, 0);
AData.FDrawerBounds.BottomRight :=
AData.FBounds.BottomRight - AData.FBounds.TopLeft;
with AData.FDrawer as TAggPasOwnerDrawer do begin
SetSize(AData.FDrawerBounds.BottomRight);
Canvas.Image.PixelFormat := PixelFormat;
end;
end;
procedure TChartGUIConnectorAggPas.SetPixelFormat(AValue: TAggFPImgPixelFormat);
begin
if FPixelFormat = AValue then exit;
FPixelFormat := AValue;
Broadcaster.Broadcast(Self);
end;
{ TAggPasOwnerDrawer }
constructor TAggPasOwnerDrawer.Create(ACanvas: TAggLCLCanvas);
begin
inherited Create(ACanvas);
FBitmap := TBitmap.Create;
end;
destructor TAggPasOwnerDrawer.Destroy;
begin
inherited;
FreeAndNil(FBitmap);
FreeAndNil(FCanvas);
end;
procedure TAggPasOwnerDrawer.PaintOnCanvas(
ACanvas: TCanvas; const ARect: TRect);
begin
FBitmap.LoadFromIntfImage(FCanvas.Image.IntfImg);
ACanvas.Draw(ARect.Left, ARect.Top, FBitmap);
end;
procedure TAggPasOwnerDrawer.SetSize(ASize: TPoint);
begin
FBitmap.SetSize(ASize.X, ASize.Y);
FCanvas.Width := ASize.X;
FCanvas.Height := ASize.Y;
end;
end.
|
