paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 12:29:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Setting empty should also work.

Browse Source 
(cherry picked from commit 930e49590c)
This commit is contained in:
Michaël Van Canneyt 2023-07-01 11:21:49 +02:00 committed by marcoonthegit
parent 8095aa6ac4
commit 952b831580
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-image/src/freetype.pp
View File

@ -399,7 +399,9 @@ end;
procedure TFontManager.SetExtension (AValue : string);
begin
if AValue <> '' then
if AValue = '' then
FExtension:=''
else
if AValue[1] <> '.' then
FExtension := '.' + AValue
else