diff --git a/applications/lazedit/lazedit_picslib.pp b/applications/lazedit/lazedit_picslib.pp index 7cada6e0b..ca87efa24 100644 --- a/applications/lazedit/lazedit_picslib.pp +++ b/applications/lazedit/lazedit_picslib.pp @@ -4,7 +4,7 @@ unit LazEdit_PicsLib; interface -uses SysUtils, Classes, Math; +uses SysUtils, Classes, Math, LazUtf8Classes; type TImageFormat = (ifUnknown, ifBmp, ifPng, ifGif, ifJpg); @@ -325,13 +325,13 @@ end; function GetImageSizeAndFormat(const Fn: String; out Width, Height: dword): TImageFormat; var - ImgStream: TFileStream; + ImgStream: TFileStreamUtf8; ImgFormat: TImageFormat; begin Width := 0; Height := 0; try - ImgStream := TFileStream.Create(Fn,fmOpenRead or fmShareDenyNone); + ImgStream := TFileStreamUtf8.Create(Fn,fmOpenRead or fmShareDenyNone); try ImgStream.Position := 0; ImgFormat := GetImageFormatAndDimensions(ImgStream, ExtToImageFormat(ExtractFileExt(Fn)), Width, Height); diff --git a/applications/lazedit/picturedlgform.pp b/applications/lazedit/picturedlgform.pp index d8389a31d..f92a6b867 100644 --- a/applications/lazedit/picturedlgform.pp +++ b/applications/lazedit/picturedlgform.pp @@ -87,7 +87,7 @@ begin FInitialDir := ExtractFileDir(Fn); SrcEdit.Text := ExtractFileName(Fn); //GetImageSize uses system encoding - if GetImageSize(Utf8ToSys(Fn), W, H) then + if GetImageSize(Fn, W, H) then begin WidthEdit.Text := IntToStr(W); HeightEdit.Text := IntToStr(H);