paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 23:39:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Pascal Riekenberg to fix bug ID #32472 (when editing page no, page not redrawn correctly).

Browse Source 
git-svn-id: trunk@55933 -
This commit is contained in:
michael 2017-09-27 11:45:14 +00:00
parent f5a9fce989
commit b21af159d3
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/fpreport/fpreportpreview.pas
View File

@ -237,6 +237,7 @@ begin
PN:=StrToIntDef(EPage.Text,-1); PN:=StrToIntDef(EPage.Text,-1);
if (PN<1) or (PN>FRender.PageCount) then exit; if (PN<1) or (PN>FRender.PageCount) then exit;
FRender.PageIndex:=PN-1; FRender.PageIndex:=PN-1;
PBPreview.Invalidate;
end; end;