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

tvplanit: Some speedup of print preview generation.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8547 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-10-12 21:34:23 +00:00
parent c314f5b5f3
commit a42b9d4515
2 changed files with 8 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
components/tvplanit/source/vpedfmtlst.lfm
View File

@ -10,6 +10,7 @@ object frmPrnFormat: TfrmPrnFormat
OnCreate = FormCreate
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '2.3.0.0'
object LblFormats: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner

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

@ -618,6 +618,8 @@ var
E: TVpPrintFormatElementItem;
Prn: TVpPrinter;
i, Idx: Integer;
t: TDateTime;
begin
if LbFormats.ItemIndex = -1 then
exit;
@ -628,15 +630,17 @@ begin
Prn.CurFormat := Idx;
PrintPreview.ControlLink := ControlLink;
RebuildPreview;
if PrintPreview.ControlLink <> ControlLink then
PrintPreview.ControlLink := ControlLink
else
RebuildPreview;
for i := 0 to Pred(Prn.PrintFormats.Items[Idx].Elements.Count) do begin
E := Prn.PrintFormats.Items[Idx].Elements.Items[i];
lbElements.Items.AddObject(E.ElementName, E);
end;
UpdatePreview;
//UpdatePreview;
EnableElementButtons(False);
btnNewElement.Enabled := True;