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

TAChart: Allow assignment of TFPCustomFont to Font property of canvas drawer

Browse Source 
git-svn-id: trunk@41892 -
This commit is contained in:
ask 2013-06-25 12:42:39 +00:00
parent f918fa7475
commit b11380a102
1 changed files with 25 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
components/tachart/tadrawercanvas.pas
View File

@ -292,10 +292,32 @@ begin
end; end;
procedure TCanvasDrawer.SetFont(AFont: TFPCustomFont); procedure TCanvasDrawer.SetFont(AFont: TFPCustomFont);
var
st: TFontStyles = [];
begin begin
GetCanvas.Font.Assign(AFont); with GetCanvas.Font do begin
if AFont is TFont then
Assign(AFont)
else begin
BeginUpdate;
FPColor := AFont.FPColor;
Name := AFont.Name;
Size := AFont.Size;
Orientation := AFont.Orientation;
if AFont.Italic then
Include(st, fsItalic);
if AFont.Bold then
Include(st, fsBold);
if AFont.Underline then
Include(st, fsUnderline);
if AFont.StrikeTrough then
Include(st, fsStrikeOut);
Style := st;
EndUpdate;
end;
if FMonochromeColor <> clTAColor then if FMonochromeColor <> clTAColor then
GetCanvas.Font.Color := FMonochromeColor; Color := FMonochromeColor;
end;
end; end;
procedure TCanvasDrawer.SetPen(APen: TFPCustomPen); procedure TCanvasDrawer.SetPen(APen: TFPCustomPen);