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: Bug [0001477] Fullscreen image view mode isn't really fullscreen #2

Browse source
This commit is contained in:
Alexander Koblov 2017-09-01 20:54:21 +00:00
commit 26eaf2de20
1 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/fviewer.pas
View file

@ -1417,15 +1417,24 @@ begin
if (miFullScreen.Checked) then
begin
if (PanelEditImage.Visible) and (i_timer > 60) and (not PanelEditImage.MouseEntered) then
PanelEditImage.Visible:= False
begin
PanelEditImage.Visible:= False;
AdjustImageSize;
end
else if (not PanelEditImage.Visible) and (sboxImage.ScreenToClient(Mouse.CursorPos).Y < PanelEditImage.Height div 2) then
begin
PanelEditImage.Visible:= True;
AdjustImageSize;
end;
end;
Inc(i_timer);
if (cbSlideShow.Checked) and (i_timer = 60 * seTimeShow.Value) then
begin
if (PanelEditImage.Visible) and (not PanelEditImage.MouseEntered) then
begin
PanelEditImage.Visible:= False;
AdjustImageSize;
end;
cm_LoadNextFile([]);
i_timer:= 0;
end;