Browse Source

* Add TPageType

Michaël Van Canneyt 1 year ago
parent
commit
476780df77
1 changed files with 2 additions and 0 deletions
  1. 2 0
      packages/rtl-objpas/src/inc/system.uitypes.pp

+ 2 - 0
packages/rtl-objpas/src/inc/system.uitypes.pp

@@ -881,6 +881,8 @@ Type
   TPrintDialogOption = (poPrintToFile, poPageNums, poSelection, poWarning,
     poHelp, poDisablePrintToFile);
   TPrintDialogOptions = set of TPrintDialogOption;
+  TPageType = (ptEnvelope, ptPaper);
+  TPageTypes = set of TPageType;
 
   TPageSetupDialogOption = (psoDefaultMinMargins, psoDisableMargins,
       psoDisableOrientation, psoDisablePagePainting, psoDisablePaper, psoDisablePrinter,