Michaël Van Canneyt преди 1 година
родител
ревизия
476780df77
променени са 1 файла, в които са добавени 2 реда и са изтрити 0 реда
  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,