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

* Setting empty should also work.

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-07-01 11:21:49 +02:00
parent 45d00abddc
commit 930e49590c
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); procedure TFontManager.SetExtension (AValue : string);
begin begin
if AValue <> '' then if AValue = '' then
FExtension:=''
else
if AValue[1] <> '.' then if AValue[1] <> '.' then
FExtension := '.' + AValue FExtension := '.' + AValue
else else