mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Free Pascal 3.2.3 compatibility

Browse source
This commit is contained in:
Alexander Koblov 2024-02-22 19:53:31 +03:00
commit 4dbffb2748
1 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/uglobs.pas
View file

@ -2495,10 +2495,16 @@ procedure LoadXmlConfig;
end;
end;
procedure GetDCFont(Node: TXmlNode; var FontOptions: TDCFontOptions);
var
FontQuality: Integer;
begin
if Assigned(Node) then
gConfig.GetFont(Node, '', FontOptions.Name, FontOptions.Size, Integer(FontOptions.Style), Integer(FontOptions.Quality),
FontOptions.Name, FontOptions.Size, Integer(FontOptions.Style), Integer(FontOptions.Quality));
begin
FontQuality:= Integer(FontOptions.Quality);
gConfig.GetFont(Node, '', FontOptions.Name, FontOptions.Size, Integer(FontOptions.Style), FontQuality,
FontOptions.Name, FontOptions.Size, Integer(FontOptions.Style), FontQuality);
FontOptions.Quality:= TFontQuality(FontQuality);
end;
end;
procedure LoadOption(Node: TXmlNode; var Options: TDrivesListButtonOptions; Option: TDrivesListButtonOption; AName: String);
var