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

TChart: Fix axis title centering (issue #13832)

Browse Source 
git-svn-id: trunk@20313 -
This commit is contained in:
ask 2009-05-30 15:36:00 +00:00
parent b991035ee7
commit 56029b3100
1 changed files with 19 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
components/tachart/tagraph.pas
View File

@ -580,36 +580,33 @@ var
end;
procedure DrawAxisTitles;
const
DEGREES_TO_ORIENT = 10;
var
x, w: Integer;
c: TPoint;
sz: TSize;
s: String;
function PrepareAxis(AAxis: TChartAxis): Boolean;
const
DEGREES_TO_ORIENT = 10;
begin
if (AAxis = nil) or not AAxis.Visible then exit(false);
s := AAxis.Title.Caption;
if s = '' then exit(false);
sz := ACanvas.TextExtent(s);
ACanvas.Font.Orientation := AAxis.Title.Angle * DEGREES_TO_ORIENT;
Result := true;
end;
begin
// FIXME: Angle assumed to be around 0 for bottom and 90 for left axis.
c := CenterPoint(FClipRect);
if LeftAxis <> nil then begin
s := LeftAxis.Title.Caption;
if LeftAxis.Visible and (s <> '') then begin
w := ACanvas.TextHeight(LeftAxis.Title.Caption);
x := FClipRect.Left;
leftOffset := w + 4;
ACanvas.Font.Orientation := LeftAxis.Title.Angle * DEGREES_TO_ORIENT;
ACanvas.TextOut(x, c.Y - w div 2, s);
end;
if PrepareAxis(LeftAxis) then begin
ACanvas.TextOut(FClipRect.Left, c.Y + sz.cx div 2, s);
leftOffset := sz.cy + 4;
end;
if BottomAxis <> nil then begin
s := BottomAxis.Title.Caption;
if BottomAxis.Visible and (s <> '') then begin
sz := ACanvas.TextExtent(s);
ACanvas.Font.Orientation := BottomAxis.Title.Angle * DEGREES_TO_ORIENT;
ACanvas.TextOut(c.X - sz.cx div 2, FClipRect.Bottom - sz.cy, s);
bottomOffset := sz.cy + 4;
end;
if PrepareAxis(BottomAxis) then begin
ACanvas.TextOut(c.X - sz.cx div 2, FClipRect.Bottom - sz.cy, s);
bottomOffset := sz.cy + 4;
end;
ACanvas.Font.Orientation := 0;
end;