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

TAChart: Fix occasional crash due to r64662 #d58c41bcad

Browse Source 
git-svn-id: trunk@64715 -
This commit is contained in:
wp 2021-03-01 17:13:56 +00:00
parent 6bdff78d46
commit 1ff32ae62f
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/tachart/tachartaxisutils.pas
View File

@ -368,7 +368,9 @@ end;
function TAxisDrawHelper.GetDefaultPenColor: TColor; function TAxisDrawHelper.GetDefaultPenColor: TColor;
begin begin
Result := TCustomChart(FAxis.Collection.Owner).GetDefaultColor(dctFont); Result := clWindowText;
// Not like this: (crashes)
// TCustomChart(FAxis.Collection.Owner).GetDefaultColor(dctFont);
end; end;
procedure TAxisDrawHelper.InternalAxisLine( procedure TAxisDrawHelper.InternalAxisLine(