pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

LazEdit: picturedlgform.pp: convert filename from Utf-8 to system encoding when calling GetImageSize

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2596 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
lazarus-bart
2012-11-29 18:35:41 +00:00
parent c89df7e568
commit 785b7f964f
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
applications/lazedit/picturedlgform.pp
View File

@@ -86,7 +86,8 @@ begin
Fn := OpenPictureDialog.FileName; Fn := OpenPictureDialog.FileName;
FInitialDir := ExtractFileDir(Fn); FInitialDir := ExtractFileDir(Fn);
SrcEdit.Text := ExtractFileName(Fn); SrcEdit.Text := ExtractFileName(Fn);
if GetImageSize(Fn, W, H) then //GetImageSize uses system encoding
if GetImageSize(Utf8ToSys(Fn), W, H) then
begin begin
WidthEdit.Text := IntToStr(W); WidthEdit.Text := IntToStr(W);
HeightEdit.Text := IntToStr(H); HeightEdit.Text := IntToStr(H);