paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-01 14:19:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Support chart title and footer rotation

Browse Source 
git-svn-id: trunk@29310 -
This commit is contained in:
ask 2011-02-02 05:46:25 +00:00
parent e122e92fcf
commit c41c6833e1
2 changed files with 43 additions and 53 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
components/tachart/tadrawutils.pas
View File

@ -49,7 +49,11 @@ procedure DrawLineDepth(ACanvas: TCanvas; AX1, AY1, AX2, AY2, ADepth: Integer);
procedure DrawLineDepth(ACanvas: TCanvas; const AP1, AP2: TPoint; ADepth: Integer);
function MultiLineTextExtent(ACanvas: TCanvas; const AText: String): TPoint;
function MultiLineTextExtent(ACanvas: TCanvas; AText: TStrings): TPoint;
procedure MultiLineTextOut(ACanvas: TCanvas; APos: TPoint; const AText: String);
procedure MultiLineTextOut(
ACanvas: TCanvas; APos: TPoint; AText: TStrings; AAlignment: TAlignment;
AWidth: Integer);
procedure PrepareSimplePen(ACanvas: TCanvas; AColor: TColor);
procedure PrepareXorPen(ACanvas: TCanvas);
@ -81,48 +85,68 @@ const
function MultiLineTextExtent(ACanvas: TCanvas; const AText: String): TPoint;
var
sl: TStrings;
i: Integer;
begin
if Pos(LineEnding, AText) = 0 then
exit(ACanvas.TextExtent(AText));
sl := TStringList.Create;
try
sl.Text := AText;
Result := Size(0, -LINE_INTERVAL);
for i := 0 to sl.Count - 1 do
with ACanvas.TextExtent(sl[i]) do begin
Result.X := Max(Result.X, cx);
Result.Y += cy + LINE_INTERVAL;
end;
MultiLineTextExtent(ACanvas, sl);
finally
sl.Free;
end;
end;
function MultiLineTextExtent(ACanvas: TCanvas; AText: TStrings): TPoint;
var
i: Integer;
begin
Result := Size(0, -LINE_INTERVAL);
for i := 0 to AText.Count - 1 do
with ACanvas.TextExtent(AText[i]) do begin
Result.X := Max(Result.X, cx);
Result.Y += cy + LINE_INTERVAL;
end;
end;
procedure MultiLineTextOut(ACanvas: TCanvas; APos: TPoint; const AText: String);
var
sl: TStrings;
i, h: Integer;
a: Double;
begin
if Pos(LineEnding, AText) = 0 then begin
ACanvas.TextOut(APos.X, APos.Y, AText);
exit;
end;
a := -OrientToRad(ACanvas.Font.Orientation);
sl := TStringList.Create;
try
sl.Text := AText;
for i := 0 to sl.Count - 1 do begin
ACanvas.TextOut(APos.X, APos.Y, sl[i]);
h := ACanvas.TextHeight(sl[i]) + LINE_INTERVAL;
APos += RotatePoint(Point(0, h), a);
end;
MultiLineTextOut(ACanvas, APos, sl, taLeftJustify, 0);
finally
sl.Free;
end;
end;
procedure MultiLineTextOut(
ACanvas: TCanvas; APos: TPoint; AText: TStrings; AAlignment: TAlignment;
AWidth: Integer);
var
i: Integer;
a: Double;
lineExtent, p: TPoint;
begin
a := -OrientToRad(ACanvas.Font.Orientation);
for i := 0 to AText.Count - 1 do begin
lineExtent := ACanvas.TextExtent(AText[i]);
p := APos;
case AAlignment of
taCenter: p += RotatePoint(Point((AWidth - lineExtent.X) div 2, 0), a);
taRightJustify: p += RotatePoint(Point(AWidth - lineExtent.X, 0), a);
end;
ACanvas.TextOut(p.X, p.Y, AText[i]);
APos += RotatePoint(Point(0, lineExtent.Y + LINE_INTERVAL), a);
end;
end;
procedure PrepareSimplePen(ACanvas: TCanvas; AColor: TColor);
begin
with ACanvas.Pen do begin

42
components/tachart/tagraph.pas
View File

@ -620,49 +620,15 @@ begin
end;
procedure TChart.DrawTitleFoot(ACanvas: TCanvas);
function AlignedTextPos(AAlign: TAlignment; const AText: String): TSize;
begin
Result := ACanvas.TextExtent(AText);
case AAlign of
taLeftJustify:
Result.cx := FClipRect.Left;
taCenter:
Result.cx := (FClipRect.Left + FClipRect.Right - Result.cx) div 2;
taRightJustify:
Result.cx := FClipRect.Right - Result.cx;
end;
end;
var
sz: TSize;
i: Integer;
c: Integer;
pbf: TPenBrushFontRecall;
begin
pbf := TPenBrushFontRecall.Create(ACanvas, [pbfBrush, pbfFont]);
try
with FTitle do
if Visible and (Text.Count > 0) then begin
ACanvas.Brush.Assign(Brush);
ACanvas.Font.Assign(Font);
for i := 0 to Text.Count - 1 do begin
sz := AlignedTextPos(Alignment, Text[i]);
ACanvas.TextOut(sz.cx, FClipRect.Top, Text[i]);
FClipRect.Top += sz.cy;
end;
FClipRect.Top += Margin;
end;
with FFoot do
if Visible and (Text.Count > 0) then begin
ACanvas.Brush.Assign(Brush);
ACanvas.Font.Assign(Font);
for i := Text.Count - 1 downto 0 do begin
sz := AlignedTextPos(Alignment, Text[i]);
FClipRect.Bottom -= sz.cy;
ACanvas.TextOut(sz.cx, FClipRect.Bottom, Text[i]);
end;
FClipRect.Bottom -= Margin;
end;
c := (FClipRect.Left + FClipRect.Right) div 2;
FTitle.Draw(ACanvas, 1, c, FClipRect.Top);
FFoot.Draw(ACanvas, -1, c, FClipRect.Bottom);
finally
pbf.Free;
end;