Skip to content

Commit 79ffe93

Browse files
committed
Improvement: UTF8 application name
1 parent 99a3ddc commit 79ffe93

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

Source/Unit1.pas

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -46,7 +46,7 @@ procedure TMain.FormCreate(Sender: TObject);
4646
EdgeBrowser.SetUserDataFolder(ExtractFilePath(ParamStr(0)) + 'Data');
4747

4848
Ini:=TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'Config.ini');
49-
Main.Caption:=Ini.ReadString('Main', 'Title', '');
49+
Main.Caption:=UTF8ToAnsi(Ini.ReadString('Main', 'Title', ''));
5050
LocalFile:=Ini.ReadString('Main', 'File', '');
5151
LocalFile:=StringReplace(LocalFile, '%FULLPATH%/', ExtractFilePath(ParamStr(0)), []);
5252
LocalFile:=StringReplace(LocalFile, '\', '/', [rfReplaceAll]);

0 commit comments

Comments
 (0)