paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 09:26:15 +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);
begin
if AValue <> '' then
if AValue = '' then
FExtension:=''
else
if AValue[1] <> '.' then
FExtension := '.' + AValue
else