Using the BuildPageSetupMenu method with the standard Delphi menu system
Standard Delphi menu system is used in the Print Preview dialog when Standard is assigned to the PreviewDialogStyle property of the currently active engine controller or dxPSEngine global object. This topic demonstrates how to populate a TPopupMenu with print styles available via the Print Preview dialog’s File | Print Styles sub menu.
Drop a TdxPrintStyleManager component on a form.
Assign the following code to the OnChangeCurrentStyle event handler:
var
PopupMenu: TPopupMenu;
//...
procedure TMyForm.dxPrintStyleManager1ChangeCurrentStyle(Sender: TObject)
var
I: Integer;
begin
for I := 0; to PopupMenu.Items.Count - 1 do
PopupMenu.Items[I].Checked := TBasedxPrintStyle(PopupMenu.Items[I].Tag) = dxPrintStyleManager1.CurrentStyle;
end;
Assign the following code to the OnStyleListChanged event handler: