mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Scrolling in Viewer under Qt

Browse source
This commit is contained in:
Alexander Koblov 2013-02-09 07:21:06 +00:00
commit b484ca3020
1 changed files with 21 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

22
components/viewer/viewercontrol.pas
View file

@ -31,7 +31,7 @@
contributors:
Copyright (C) 2006-2012 Alexander Koblov (alexx2000@mail.ru)
Copyright (C) 2006-2013 Alexander Koblov (alexx2000@mail.ru)
TODO:
@ -1450,7 +1450,17 @@ begin
if FUpdateScrollBarPos then
begin
if FScrollBarHorz.Position <> FHScrollBarPosition then
begin
// Workaround for bug: http://bugs.freepascal.org/view.php?id=23815
{$IF DEFINED(LCLQT) and (LCL_FULLVERSION < 1010000)}
FScrollBarHorz.OnScroll := nil;
FScrollBarHorz.Position := FHScrollBarPosition;
Application.ProcessMessages; // Skip message
FScrollBarHorz.OnScroll := @ScrollBarHorzScroll;
{$ELSE}
FScrollBarHorz.Position := FHScrollBarPosition;
{$ENDIF}
end;
end;
// else the scrollbar position will be updated in ScrollBarVertScroll
Invalidate;
@ -1496,7 +1506,17 @@ begin
if FUpdateScrollBarPos then
begin
if FScrollBarVert.Position <> FScrollBarPosition then
begin
// Workaround for bug: http://bugs.freepascal.org/view.php?id=23815
{$IF DEFINED(LCLQT) and (LCL_FULLVERSION < 1010000)}
FScrollBarVert.OnScroll := nil;
FScrollBarVert.Position := FScrollBarPosition;
Application.ProcessMessages; // Skip message
FScrollBarVert.OnScroll := @ScrollBarVertScroll;
{$ELSE}
FScrollBarVert.Position := FScrollBarPosition;
{$ENDIF}
end;
end;
// else the scrollbar position will be updated in ScrollBarVertScroll
end;