paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 06:49:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add TPageType

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-02-20 16:35:05 +01:00
parent dfa22fb53a
commit 476780df77
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/rtl-objpas/src/inc/system.uitypes.pp
View File

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