paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-06 23:20:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

synedit: LoadFromFile support for UTF-8 under Windows

Browse Source 
git-svn-id: trunk@41478 -
This commit is contained in:
mattias 2013-05-31 20:32:37 +00:00
parent 9ef980d63b
commit 9fe05b6fa9
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/synedit/syneditlines.pas
View File

@ -34,7 +34,7 @@ unit SynEditLines;
interface
uses
Classes, SysUtils, FileUtil, FPCAdds, SynEditTextBuffer;
Classes, SysUtils, FileUtil, LazUtf8Classes, FPCAdds, SynEditTextBuffer;
type
@ -98,7 +98,7 @@ type
fBuffer: PChar;
fBufPtr: Cardinal;
fBufSize: Cardinal;
fFiler: TFileStream;
fFiler: TFileStreamUtf8;
procedure Flush; virtual;
procedure SetBufferSize(NewSize: Cardinal);
public
@ -168,7 +168,7 @@ type
constructor TSynEditFileReader.Create(const FileName: string);
begin
inherited Create;
fFiler := TFileStream.Create(UTF8ToSys(FileName), fmOpenRead{ ToDo: or fmShareDenyWrite});
fFiler := TFileStreamUtf8.Create(FileName, fmOpenRead{ ToDo: or fmShareDenyWrite});
fFileSize := fFiler.Size;
fFiler.Seek(0, soFromBeginning);
end;
@ -261,7 +261,7 @@ type
constructor TSynEditFileWriter.Create(const FileName: string);
begin
inherited Create;
fFiler := TFileStream.Create(UTF8ToSys(FileName), fmCreate);
fFiler := TFileStreamUtf8.Create(FileName, fmCreate);
fFiler.Seek(0, soFromBeginning);
end;