mirror of
https://github.com/doublecmd/doublecmd.git
synced 2026-06-21 09:58:13 +00:00
FIX: Load and save highlighters under Windows
This commit is contained in:
parent
f383096230
commit
d24afab3cd
1 changed files with 4 additions and 4 deletions
|
|
@ -122,7 +122,7 @@ implementation
|
|||
|
||||
|
||||
uses
|
||||
uShowMsg, uLng, uFindEx;
|
||||
FileUtil, uShowMsg, uLng, uFindEx, uOSUtils;
|
||||
|
||||
procedure SetupColorOfHighlighter(var h: TSynCustomHighlighter);
|
||||
var
|
||||
|
|
@ -191,8 +191,8 @@ var
|
|||
f:TextFile;
|
||||
s, sValue:String;
|
||||
begin
|
||||
if Not FileExists(sFileName) Then Exit;
|
||||
assign(f,sFileName);
|
||||
if not mbFileExists(sFileName) then Exit;
|
||||
assign(f, UTF8ToSys(sFileName));
|
||||
reset(f);
|
||||
try
|
||||
while not eof(f) do
|
||||
|
|
@ -234,7 +234,7 @@ var
|
|||
i:Integer;
|
||||
f:TextFile;
|
||||
begin
|
||||
assign(f,sFileName);
|
||||
assign(f, UTF8ToSys(sFileName));
|
||||
rewrite(f);
|
||||
try
|
||||
writeln(f,'# color is $00bbggrr (in hex)');
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue