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

TAChart: Allow assignment of TFPCustomPen to Pen property of canvas drawer

Browse Source 
git-svn-id: trunk@41854 -
This commit is contained in:
ask 2013-06-23 19:46:21 +00:00
parent 8dda55133d
commit 698715cdc9
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/tachart/tadrawercanvas.pas
View File

@ -308,7 +308,15 @@ begin
Pen.Width := APen.Width; Pen.Width := APen.Width;
end end
else begin else begin
GetCanvas.Pen.Assign(APen); if APen is TPen then
GetCanvas.Pen.Assign(APen)
else
with GetCanvas.Pen do begin
Color := FPColorToChartColor(APen.FPColor);
Style := APen.Style;
Width := APen.Width;
Mode := APen.Mode;
end;
if FMonochromeColor <> clTAColor then if FMonochromeColor <> clTAColor then
GetCanvas.Pen.Color := FMonochromeColor; GetCanvas.Pen.Color := FMonochromeColor;
end; end;