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 OnCreate = FormCreate
OnShow = FormShow OnShow = FormShow
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '2.3.0.0'
object LblFormats: TLabel object LblFormats: TLabel
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner

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

@ -618,6 +618,8 @@ var
E: TVpPrintFormatElementItem; E: TVpPrintFormatElementItem;
Prn: TVpPrinter; Prn: TVpPrinter;
i, Idx: Integer; i, Idx: Integer;
t: TDateTime;
begin begin
if LbFormats.ItemIndex = -1 then if LbFormats.ItemIndex = -1 then
exit; exit;
@ -628,15 +630,17 @@ begin
Prn.CurFormat := Idx; Prn.CurFormat := Idx;
PrintPreview.ControlLink := ControlLink; if PrintPreview.ControlLink <> ControlLink then
RebuildPreview; PrintPreview.ControlLink := ControlLink
else
RebuildPreview;
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];
lbElements.Items.AddObject(E.ElementName, E); lbElements.Items.AddObject(E.ElementName, E);
end; end;
UpdatePreview; //UpdatePreview;
EnableElementButtons(False); EnableElementButtons(False);
btnNewElement.Enabled := True; btnNewElement.Enabled := True;