paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-03 17:43:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Extract TFPCanvasDrawer and ISimpleTextOut

Browse Source 
git-svn-id: trunk@29533 -
This commit is contained in:
ask 2011-02-13 18:50:52 +00:00
parent 2d3a007277
commit bea6cd43d9
1 changed files with 93 additions and 58 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

151
components/tachart/tadrawutils.pas
View File

@ -50,7 +50,36 @@ type
procedure Recall; procedure Recall;
end; end;
TChartTextOut = class; ISimpleTextOut = interface
procedure SimpleTextOut(AX, AY: Integer; const AText: String);
function SimpleTextExtent(const AText: String): TPoint;
function GetFontAngle: Double;
end;
{ TChartTextOut }
TChartTextOut = class
strict private
FAlignment: TAlignment;
FSimpleTextOut: ISimpleTextOut;
FPos: TPoint;
FText1: String;
FText2: TStrings;
FWidth: Integer;
procedure DoTextOutString;
procedure DoTextOutList;
public
constructor Create(ASimpleTextOut: ISimpleTextOut);
public
function Alignment(AAlignment: TAlignment): TChartTextOut;
procedure Done;
function Pos(AX, AY: Integer): TChartTextOut;
function Pos(const APos: TPoint): TChartTextOut;
function Text(const AText: String): TChartTextOut;
function Text(const AText: TStrings): TChartTextOut;
function Width(AWidth: Integer): TChartTextOut;
end;
{ IChartDrawer } { IChartDrawer }
@ -86,39 +115,31 @@ type
property Pen: TFPCustomPen write SetPen; property Pen: TFPCustomPen write SetPen;
end; end;
{ TChartTextOut } { TFPCanvasDrawer }
TChartTextOut = class TFPCanvasDrawer = class(TInterfacedObject, ISimpleTextOut)
strict private strict protected
FAlignment: TAlignment; function GetFontAngle: Double; virtual; abstract;
FDrawer: IChartDrawer; procedure SimpleTextOut(AX, AY: Integer; const AText: String); virtual; abstract;
FPos: TPoint; function SimpleTextExtent(const AText: String): TPoint; virtual; abstract;
FText1: String;
FText2: TStrings;
FWidth: Integer;
procedure DoTextOutString;
procedure DoTextOutList;
public public
constructor Create(ADrawer: IChartDrawer); function TextExtent(const AText: String): TPoint;
public function TextExtent(AText: TStrings): TPoint;
function Alignment(AAlignment: TAlignment): TChartTextOut; function TextOut: TChartTextOut;
procedure Done;
function Pos(AX, AY: Integer): TChartTextOut;
function Pos(const APos: TPoint): TChartTextOut;
function Text(const AText: String): TChartTextOut;
function Text(const AText: TStrings): TChartTextOut;
function Width(AWidth: Integer): TChartTextOut;
end; end;
{ TCanvasDrawer } { TCanvasDrawer }
TCanvasDrawer = class(TInterfacedObject, IChartDrawer) TCanvasDrawer = class(TFPCanvasDrawer, IChartDrawer, ISimpleTextOut)
private private
FCanvas: TCanvas; FCanvas: TCanvas;
procedure SetBrush(ABrush: TFPCustomBrush); procedure SetBrush(ABrush: TFPCustomBrush);
procedure SetFont(AFont: TFPCustomFont); procedure SetFont(AFont: TFPCustomFont);
procedure SetPen(APen: TFPCustomPen); procedure SetPen(APen: TFPCustomPen);
strict protected
function GetFontAngle: Double; override;
procedure SimpleTextOut(AX, AY: Integer; const AText: String); override;
function SimpleTextExtent(const AText: String): TPoint; override;
public public
procedure AddToFontOrientation(ADelta: Integer); procedure AddToFontOrientation(ADelta: Integer);
procedure ClippingStart; procedure ClippingStart;
@ -139,9 +160,6 @@ type
procedure Rectangle(AX1, AY1, AX2, AY2: Integer); procedure Rectangle(AX1, AY1, AX2, AY2: Integer);
procedure SetBrushParams(AStyle: TFPBrushStyle; AColor: TChartColor); procedure SetBrushParams(AStyle: TFPBrushStyle; AColor: TChartColor);
procedure SetPenParams(AStyle: TFPPenStyle; AColor: TChartColor); procedure SetPenParams(AStyle: TFPPenStyle; AColor: TChartColor);
function TextExtent(const AText: String): TPoint;
function TextExtent(AText: TStrings): TPoint;
function TextOut: TChartTextOut;
end; end;
procedure DrawLineDepth(ACanvas: TCanvas; AX1, AY1, AX2, AY2, ADepth: Integer); procedure DrawLineDepth(ACanvas: TCanvas; AX1, AY1, AX2, AY2, ADepth: Integer);
@ -190,9 +208,9 @@ begin
Result := Self; Result := Self;
end; end;
constructor TChartTextOut.Create(ADrawer: IChartDrawer); constructor TChartTextOut.Create(ASimpleTextOut: ISimpleTextOut);
begin begin
FDrawer := ADrawer; FSimpleTextOut := ASimpleTextOut;
FAlignment := taLeftJustify; FAlignment := taLeftJustify;
end; end;
@ -211,15 +229,15 @@ var
a: Double; a: Double;
lineExtent, p: TPoint; lineExtent, p: TPoint;
begin begin
a := -OrientToRad(FDrawer.Canvas.Font.Orientation); a := -FSimpleTextOut.GetFontAngle;
for i := 0 to FText2.Count - 1 do begin for i := 0 to FText2.Count - 1 do begin
lineExtent := FDrawer.Canvas.TextExtent(FText2[i]); lineExtent := FSimpleTextOut.SimpleTextExtent(FText2[i]);
p := FPos; p := FPos;
case FAlignment of case FAlignment of
taCenter: p += RotatePoint(Point((FWidth - lineExtent.X) div 2, 0), a); taCenter: p += RotatePoint(Point((FWidth - lineExtent.X) div 2, 0), a);
taRightJustify: p += RotatePoint(Point(FWidth - lineExtent.X, 0), a); taRightJustify: p += RotatePoint(Point(FWidth - lineExtent.X, 0), a);
end; end;
FDrawer.Canvas.TextOut(p.X, p.Y, FText2[i]); FSimpleTextOut.SimpleTextOut(p.X, p.Y, FText2[i]);
FPos += RotatePoint(Point(0, lineExtent.Y + LINE_INTERVAL), a); FPos += RotatePoint(Point(0, lineExtent.Y + LINE_INTERVAL), a);
end; end;
end; end;
@ -227,7 +245,7 @@ end;
procedure TChartTextOut.DoTextOutString; procedure TChartTextOut.DoTextOutString;
begin begin
if System.Pos(LineEnding, FText1) = 0 then begin if System.Pos(LineEnding, FText1) = 0 then begin
FDrawer.Canvas.TextOut(FPos.X, FPos.Y, FText1); FSimpleTextOut.SimpleTextOut(FPos.X, FPos.Y, FText1);
exit; exit;
end; end;
FText2 := TStringList.Create; FText2 := TStringList.Create;
@ -269,6 +287,40 @@ begin
Result := Self; Result := Self;
end; end;
{ TFPCanvasDrawer }
function TFPCanvasDrawer.TextExtent(const AText: String): TPoint;
var
sl: TStrings;
begin
if Pos(LineEnding, AText) = 0 then
exit(SimpleTextExtent(AText));
sl := TStringList.Create;
try
sl.Text := AText;
Result := TextExtent(sl);
finally
sl.Free;
end;
end;
function TFPCanvasDrawer.TextExtent(AText: TStrings): TPoint;
var
i: Integer;
begin
Result := Size(0, -LINE_INTERVAL);
for i := 0 to AText.Count - 1 do
with SimpleTextExtent(AText[i]) do begin
Result.X := Max(Result.X, X);
Result.Y += Y + LINE_INTERVAL;
end;
end;
function TFPCanvasDrawer.TextOut: TChartTextOut;
begin
Result := TChartTextOut.Create(Self);
end;
{ TCanvasDrawer } { TCanvasDrawer }
procedure TCanvasDrawer.AddToFontOrientation(ADelta: Integer); procedure TCanvasDrawer.AddToFontOrientation(ADelta: Integer);
@ -308,6 +360,11 @@ begin
Result := FCanvas; Result := FCanvas;
end; end;
function TCanvasDrawer.GetFontAngle: Double;
begin
Result := OrientToRad(FCanvas.Font.Orientation);
end;
function TCanvasDrawer.HasCanvas: Boolean; function TCanvasDrawer.HasCanvas: Boolean;
begin begin
Result := true; Result := true;
@ -384,36 +441,14 @@ begin
FCanvas.Pen.Color := AColor; FCanvas.Pen.Color := AColor;
end; end;
function TCanvasDrawer.TextExtent(const AText: String): TPoint; function TCanvasDrawer.SimpleTextExtent(const AText: String): TPoint;
var
sl: TStrings;
begin begin
if Pos(LineEnding, AText) = 0 then Result := FCanvas.TextExtent(AText);
exit(FCanvas.TextExtent(AText));
sl := TStringList.Create;
try
sl.Text := AText;
Result := TextExtent(sl);
finally
sl.Free;
end;
end; end;
function TCanvasDrawer.TextExtent(AText: TStrings): TPoint; procedure TCanvasDrawer.SimpleTextOut(AX, AY: Integer; const AText: String);
var
i: Integer;
begin begin
Result := Size(0, -LINE_INTERVAL); FCanvas.TextOut(AX, AY, AText);
for i := 0 to AText.Count - 1 do
with FCanvas.TextExtent(AText[i]) do begin
Result.X := Max(Result.X, cx);
Result.Y += cy + LINE_INTERVAL;
end;
end;
function TCanvasDrawer.TextOut: TChartTextOut;
begin
Result := TChartTextOut.Create(Self);
end; end;
{ TPenBrushFontRecall } { TPenBrushFontRecall }