mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Error on open incorrect image in Viewer

Browse source
This commit is contained in:
Alexander Koblov 2009-01-17 17:12:49 +00:00
commit 7156cd3d2e
1 changed files with 11 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

15
fviewer.pas
View file

@ -588,20 +588,27 @@ var
fsFileStream: TFileStreamEx;
begin
// DebugLn('TfrmViewer.Load graphics');
bImage:= True;
sExt:= ExtractFileExt(sFilename);
System.Delete(sExt, 1, 1); // delete a dot
fsFileStream:= TFileStreamEx.Create(sFileName, fmOpenRead);
try
Image.Picture.LoadFromStreamWithFileExt(fsFileStream, sExt);
fsFileStream:= TFileStreamEx.Create(sFileName, fmOpenRead);
try
Image.Picture.LoadFromStreamWithFileExt(fsFileStream, sExt);
except
FreeAndNil(fsFileStream);
ReMmapIfNeed; // open as text
Exit;
end;
finally
fsFileStream.Free;
if Assigned(fsFileStream) then
fsFileStream.Free;
end;
miStretch.Checked:= not miStretch.Checked;
miStretchClick(nil);
nbPages.ActivePageComponent:= pgImage;
miImage.Visible:= True;
miEdit.Visible:= False;
bImage:= True;
end;
procedure TfrmViewer.DoSearch;