paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 13:59:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazReport, fix preview scrolling broken in r36420 #c016e1b6ec, issue #21633

Browse Source 
git-svn-id: trunk@36887 -
This commit is contained in:
jesus 2012-04-17 20:51:14 +00:00
parent 3c8ab01a27
commit ef8cf9df31
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
components/lazreport/source/lr_view.pas
View File

@ -888,18 +888,19 @@ end;
procedure TfrPreviewForm.VScrollBarChange(Sender: TObject);
var
{$IFDEF WIN32}
p, pp: Integer;
r: TRect;
pp: Integer;
{$ENDIF}
p: Integer;
i: integer;
Pages: TfrEMFPages;
begin
if EMFPages = nil then Exit;
{$IFDEF WIN32}
p := VScrollBar.Position;
pp := OldV - p;
OldV := p;
ofy := -p;
{$IFDEF WIN32}
OldV := p;
pp := OldV - p;
r := Rect(0, 0, PBox.Width, PBox.Height);
ScrollWindowEx(PBox.Handle, 0, pp, @r, @r, 0, nil, SW_INVALIDATE);
UpdateWindow(Pbox.Handle);
@ -918,18 +919,19 @@ begin
end;
procedure TfrPreviewForm.HScrollBarChange(Sender: TObject);
{$IFDEF WIN32}
var
p, pp: Integer;
p: Integer;
{$IFDEF WIN32}
pp: Integer;
r: TRect;
{$ENDIF}
begin
if EMFPages = nil then Exit;
{$IFDEF WIN32}
p := HScrollBar.Position;
ofx := -p;
{$IFDEF WIN32}
pp := OldH - p;
OldH := p;
ofx := -p;
r := Rect(0, 0, PBox.Width, PBox.Height);
ScrollWindowEx(PBox.Handle, pp, 0, @r, @r, 0, nil, SW_INVALIDATE);
UpdateWindow(Pbox.Handle);