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: Quick view image

Browse source
This commit is contained in:
Alexander Koblov 2018-12-08 19:59:19 +00:00
commit 0afbdd55a3
1 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/fviewer.pas
View file

@ -2001,10 +2001,13 @@ begin
// Update scrollbars
// TODO: fix - calculations are correct but it seems like scroll bars
// are being updated only after a second call to Form.Resize
if (iLeft < 0) then
sboxImage.HorzScrollBar.Position:= -iLeft;
if (iTop < 0) then
sboxImage.VertScrollBar.Position:= -iTop;
if sboxImage.HandleAllocated then
begin
if (iLeft < 0) then
sboxImage.HorzScrollBar.Position:= -iLeft;
if (iTop < 0) then
sboxImage.VertScrollBar.Position:= -iTop;
end;
// Update status bar
Status.Panels[sbpCurrentResolution].Text:= Format(fmtImageInfo, [iWidth,iHeight, 100.0 * dScaleFactor]);