pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tvplanit: Fix print format designer to react on selecting a different format.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4928 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-07-06 20:04:13 +00:00
parent 0422946129
commit ac3e014109
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/tvplanit/source/vpedfmtlst.pas
View File

@ -578,7 +578,10 @@ begin
Prn.CurFormat := Idx; Prn.CurFormat := Idx;
PrintPreview.ControlLink := ControlLink; PrintPreview.ControlLink := ControlLink;
PrintPreview.Invalidate; PrintPreview.ForceUpdate;
PrintPreview.FirstPage;
// PrintPreview.Invalidate;
for i := 0 to Pred(Prn.PrintFormats.Items[Idx].Elements.Count) do begin for i := 0 to Pred(Prn.PrintFormats.Items[Idx].Elements.Count) do begin
E := Prn.PrintFormats.Items[Idx].Elements.Items[i]; E := Prn.PrintFormats.Items[Idx].Elements.Items[i];