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

LCL: Use font name 'default' if it was empty. Issue #33809.

Browse Source 
git-svn-id: trunk@61344 -
This commit is contained in:
juha 2019-06-09 08:30:59 +00:00
parent 436ce8ff84
commit 8438d57672
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/canvas.inc
View File

@ -1241,6 +1241,10 @@ var
begin begin
//debugln(['TCanvas.TextRect ',DbgSName(Self),' Text="',Text,'" ',dbgs(ARect),' X=',X,',Y=',Y]); //debugln(['TCanvas.TextRect ',DbgSName(Self),' Text="',Text,'" ',dbgs(ARect),' X=',X,',Y=',Y]);
if Font.Name = '' then // Empty name is allowed in Delphi.
Font.Name := 'default';
Changing; Changing;
Options := 0; Options := 0;