; Color constants (Some duplications) using RGB color scheme. Three byte constant, each byte value range 0-FF. First byte is Blue value, second is Green value third is Red value. ; These bytes are swapped by the $ZH function to give RGB. The total number of available colors is 16777216. (Depending on display settings) #define clBlack $ZH("000000") #define clMaroon $ZH("000080") #define clGreen $ZH("008000") #define clLtGreen $ZH("C0FFC0") #define clMedGreen $ZH("80FF80") #define clOlive $ZH("008080") #define clNavy $ZH("800000") #define clPurple $ZH("800080") #define clTeal $ZH("808000") #define clGray $ZH("808080") #define clSilver $ZH("C0C0C0") #define clRed $ZH("0000FF") #define clMedRed $ZH("8080FF") #define clLtRed $ZH("C0C0FF") #define clOrange $ZH("0080FF") #define clMedOrange $ZH("80C0FF") #define clLtOrange $ZH("C0E0FF") #define clLime $ZH("00FF00") #define clYellow $ZH("00FFFF") #define clMedYellow $ZH("80FFFF") #define clLtYellow $ZH("C0FFFF") #define clBlue $ZH("FF0000") #define clMedBlue $ZH("FF8080") #define clLtBlue $ZH("FFC0C0") #define clFuchsia $ZH("FF00FF") #define clPink $ZH("FF00FF") #define clMedPink $ZH("FF80FF") #define clLtPink $ZH("FFC0FF") #define clAqua $ZH("FFFF00") #define clMedAqua $ZH("FFFF80") #define clLtAqua $ZH("FFC0C0") #define clLtGray $ZH("C0C0C0") #define clDkGray $ZH("808080") #define clFocus $ZH("8080FF") #define clWhite $ZH("FFFFFF") #define clNone $ZH("1FFFFFFF") #define clDefault $ZH("20000000") #define clScrollBar -2147483648 #define clBackground -2147483647 #define clActiveCaption -2147483646 #define clInactiveCaption -2147483645 #define clMenu -2147483644 #define clWindow -2147483643 #define clWindowFrame -2147483642 #define clMenuText -2147483641 #define clWindowText -2147483640 #define clCaptionText -2147483639 #define clActiveBorder -2147483638 #define clInactiveBorder -2147483637 #define clAppWorkSpace -2147483636 #define clHighlight -2147483635 #define clHighlightText -2147483634 #define clBtnFace -2147483633 #define clBtnShadow -2147483632 #define clGrayText -2147483631 #define clBtnText -2147483630 #define clInactiveCaptionText -2147483629 #define clBtnHighlight -2147483628 #define cl3DDkShadow -2147483627 #define cl3DLight -2147483626 #define clInfoText -2147483625 #define clInfoBk -2147483624 ;CHARSETS constants #define ANSICHARSET 0 ; ANSI characters. #define DEFAULTCHARSET 1 ; Font is chosen based solely on Name and Size. If the described font is not available on the system, Windows will substitute another font. #define SYMBOLCHARSET 2 ; Standard symbol set. #define MACCHARSET 77 ; Macintosh characters. Not available on NT 3.51. #define SHIFTJISCHARSET 128 ; Japanese shift-jis characters. #define HANGEULCHARSET 129 ; Korean characters (Wansung). #define JOHABCHARSET 130 ; Korean characters (Johab). Not available on NT 3.51 #define GB2312CHARSET 134 ; Simplified Chinese characters (mainland china). #define CHINESEBIG5CHARSET 136 ; Traditional Chinese characters (taiwanese). #define GREEKCHARSET 161 ; Greek characters. Not available on NT 3.51. #define TURKISHCHARSET 162 ; Turkish characters. Not available on NT 3.51 #define VIETNAMESECHARSET 163 ; Vietnamese characters. Not available on NT 3.51. #define HEBREWCHARSET 177 ; Hebrew characters. Not available on NT 3.51 #define ARABICCHARSET 178 ; Arabic characters. Not available on NT 3.51 #define BALTICCHARSET 186 ; Baltic characters. Not available on NT 3.51. #define RUSSIANCHARSET 204 ; Cyrillic characters. Not available on NT 3.51. #define THAICHARSET 222 ; Thai characters. Not available on NT 3.51 #define EASTEUROPECHARSET 238 ; Includes diacritical marks for eastern european countries. Not available on NT 3.51. #define OEMCHARSET 255 ; Depends on the codepage of the operating system. #define crDefault 0 #define crNone -1 #define crArrow -2 #define crCross -3 #define crIBeam -4 #define crSize -22 #define crSizeNESW -6 #define crSizeNS -7 #define crSizeNWSE -8 #define crSizeWE -9 #define crUpArrow -10 #define crHourGlass -11 #define crDrag -12 #define crNoDrop -13 #define crHSplit -14 #define crVSplit -15 #define crMultiDrag -16 #define crSQLWait -17 #define crNo -18 #define crAppStart -19 #define crHelp -20 #define crHandPoint -21 #define crSizeAll -22 #define ETOOPAQUE 2 #define ETOCLIPPED 4 #define ETOGLYPHINDEX $ZH("10") #define ETORTLREADING $ZH("80") #define ETONUMERICSLOCAL $ZH("400") #define ETONUMERICSLATIN $ZH("800") #define ETOIGNORELANGUAGE $ZH("1000") #define ETOPDY $ZH("2000") ; %TMApplication.MessageBox() flags #define MBOK $ZH("00000000") #define MBOKCANCEL $ZH("00000001") #define MBABORTRETRYIGNORE $ZH("00000002") #define MBYESNOCANCEL $ZH("00000003") #define MBYESNO $ZH("00000004") #define MBRETRYCANCEL $ZH("00000005") #define MBICONHAND $ZH("00000010") #define MBICONQUESTION $ZH("00000020") #define MBICONEXCLAMATION $ZH("00000030") #define MBICONASTERISK $ZH("00000040") #define MBUSERICON $ZH("00000080") #define MBICONWARNING $ZH("00000030") #define MBICONERROR $ZH("00000010") #define MBICONINFORMATION $ZH("00000040") #define MBICONSTOP $ZH("00000010") #define MBDEFBUTTON1 $ZH("00000000") #define MBDEFBUTTON2 $ZH("00000100") #define MBDEFBUTTON3 $ZH("00000200") #define MBDEFBUTTON4 $ZH("00000300") #define MBAPPLMODAL $ZH("00000000") #define MBSYSTEMMODAL $ZH("00001000") #define MBTASKMODAL $ZH("00002000") #define MBHELP $ZH("00004000") #define MBNOFOCUS $ZH("00008000") #define MBSETFOREGROUND $ZH("00010000") #define MBDEFAULTDESKTOPONLY $ZH("00020000") #define MBTOPMOST $ZH("00040000") #define MBRIGHT $ZH("00080000") #define MBRTLREADING $ZH("00100000") #define MBSERVICENOTIFICATION $ZH("00200000") #define MBSERVICENOTIFICATIONNT3X $ZH("00040000") #define MBTYPEMASK $ZH("0000000F") #define MBICONMASK $ZH("000000F0") #define MBDEFMASK $ZH("00000F00") #define MBMODEMASK $ZH("00003000") #define MBMISCMASK $ZH("0000C000") ;const { Dialog Box Command IDs } #define IDOK 1 #define IDCANCEL 2 #define IDABORT 3 #define IDRETRY 4 #define IDIGNORE 5 #define IDYES 6 #define IDNO 7 #define IDCLOSE 8 #define IDHELP 9 ;const { ModalResult IDs } #define mrNone 0 #define mrOk 1 #define mrCancel 2 #define mrAbort 3 #define mrRetry 4 #define mrIgnore 5 #define mrYes 6 #define mrNo 7 #define mrAll 8 #define mrNoToAll 9 #define mrYesToAll 10 #define fmCreate $ZH("FFFF") #define fmOpenRead $ZH("0000") #define fmOpenWrite $ZH("0001") #define fmOpenReadWrite $ZH("0002") #define fmShareCompat $ZH("0000") #define fmShareExclusive $ZH("0010") #define fmShareDenyWrite $ZH("0020") #define fmShareDenyRead $ZH("0030") #define fmShareDenyNone $ZH("0040") #define faReadOnly $ZH("00000001") #define faHidden $ZH("00000002") #define faSysFile $ZH("00000004") #define faVolumeID $ZH("00000008") #define faDirectory $ZH("00000010") #define faArchive $ZH("00000020") #define faAnyFile $ZH("0000003F") ; declare OLE Automation constants #define varEmpty $ZH("0000") #define varNull $ZH("0001") #define varSmallint $ZH("0002") #define varInteger $ZH("0003") #define varSingle $ZH("0004") #define varDouble $ZH("0005") #define varCurrency $ZH("0006") #define varDate $ZH("0007") #define varOleStr $ZH("0008") #define varDispatch $ZH("0009") #define varError $ZH("000A") #define varBoolean $ZH("000B") #define varVariant $ZH("000C") #define varUnknown $ZH("000D") #define varByte $ZH("0011") #define varString $ZH("0100") #define varTypeMask $ZH("0FFF") #define varArray $ZH("2000") #define varByRef $ZH("4000") ; declare SMWrap component's constants #define sbHorizontal "sbHorizontal" #define sbVertical "sbVertical" #define trHorizontal "trHorizontal" #define trVertical "trVertical" #define tmBottomRight "tmBottomRight" #define tmTopLeft "tmTopLeft" #define tmBoth "tmBoth" #define tsNone "tsNone" #define tsAuto "tsAuto" #define tsManual "tsManual" #define scLineUp "scLineUp" #define scLineDown "scLineDown" #define scPageUp "scPageUp" #define scPageDown "scPageDown" #define scPosition "scPosition" #define scTrack "scTrack" #define scTop "scTop" #define scBottom "scBottom" #define scEndScroll "scEndScroll" #define bsBox "bsBox" #define bsFrame "bsFrame" #define bsTopLine "bsTopLine" #define bsBottomLine "bsBottomLine" #define bsLeftLine "bsLeftLine" #define bsRightLine "bsRightLine" #define bsSpacer "bsSpacer" #define bsLowered "bsLowered" #define bsRaised "bsRaised" #define bsSolid "bsSolid" #define bsClear "bsClear" #define bsHorizontal "bsHorizontal" #define bsVertical "bsVertical" #define bsFDiagonal "bsFDiagonal" #define bsCross "bsCross" #define bsDiagCross "bsDiagCross" #define taLeftJustify "taLeftJustify" #define taRightJustify "taRightJustify" #define taCenter "taCenter" #define csRead "csRead" #define csWrite "csWrite" #define ctString "ctString" #define ctInteger "ctInteger" #define ctDouble "ctDouble" #define ctDate "ctDate" #define ctCurrency "ctCurrency" #define ieSimple "ieSimple" #define ieEllipsis "ieEllipsis" #define iePickList "iePickList" #define gdSelected "gdSelected" #define gdFocused "gdFocused" #define gdFixed "gdFixed" #define goFixedVertLine "goFixedVertLine" #define goFixedHorzLine "goFixedHorzLine" #define goVertLine "goVertLine" #define goHorzLine "goHorzLine" #define goRangeSelect "goRangeSelect" #define goDrawFocusSelected "goDrawFocusSelected" #define goRowSizing "goRowSizing" #define goColSizing "goColSizing" #define goRowMoving "goRowMoving" #define goColMoving "goColMoving" #define goEditing "goEditing" #define goTabs "goTabs" #define goRowSelect "goRowSelect" #define goAlwaysShowEditor "goAlwaysShowEditor" #define goThumbTracking "goThumbTracking" #define ssNone "ssNone" #define ssHorizontal "ssHorizontal" #define ssVertical "ssVertical" #define ssBoth "ssBoth" #define cbUnchecked "cbUnchecked" #define cbChecked "cbChecked" #define cbGrayed "cbGrayed" #define ecNormal "ecNormal" #define ecUpperCase "ecUpperCase" #define ecLowerCase "ecLowerCase" #define csDropDown "csDropDown" #define csSimple "csSimple" #define csDropDownList "csDropDownList" #define csOwnerDrawFixed "csOwnerDrawFixed" #define csOwnerDrawVariable "csOwnerDrawVariable" #define odSelected "odSelected" #define odGrayed "odGrayed" #define odDisabled "odDisabled" #define odChecked "odChecked" #define odFocused "odFocused" #define htAbove "htAbove" #define htNowhere "htNowhere" #define htBelow "htBelow" #define htOnItem "htOnItem" #define htOnButton "htOnButton" #define htOnIcon "htOnIcon" #define htOnIndent "htOnIndent" #define htOnLabel "htOnLabel" #define htOnRight "htOnRight" #define htOnStateIcon "htOnStateIcon" #define htToLeft "htToLeft" #define htToRight "htToRight" #define cdsSelected "cdsSelected" #define cdsGrayed "cdsGrayed" #define cdsDisabled "cdsDisabled" #define cdsChecked "cdsChecked" #define cdsFocused "cdsFocused" #define cdsDefault "cdsDefault" #define cdsHot "cdsHot" #define cdsMarked "cdsMarked" #define cdsIndeterminate "cdsIndeterminate" #define isNone "isNone" #define isCut "isCut" #define isDropHilited "isDropHilited" #define isFocused "isFocused" #define isSelected "isSelected" #define isActivating "isActivating" #define stWholeWord "stWholeWord" #define stMatchCase "stMatchCase" #define csCTS "csCTS" #define csDSR "csDSR" #define csRing "csRing" #define csRLSD "csRLSD" #define fCtlHold "fCtlHold" #define fDsrHold "fDsrHold" #define fRlsHold "fRlsHold" #define fXoffHold "fXoffHold" #define fXOffSent "fXOffSent" #define fEof "fEof" #define fTxim "fTxim" #define ceFrame "ceFrame" #define ceRxParity "ceRxParity" #define ceOverrun "ceOverrun" #define ceBreak "ceBreak" #define ceIO "ceIO" #define ceMode "ceMode" #define ceRxOver "ceRxOver" #define ceTxFull "ceTxFull" #define ssShift "ssShift" #define ssAlt "ssAlt" #define ssCtrl "ssCtrl" #define ssLeft "ssLeft" #define ssRight "ssRight" #define ssMiddle "ssMiddle" #define ssDouble "ssDouble" #define mbLeft "mbLeft" #define mbRight "mbRight" #define mbMiddle "mbMiddle" #define dsDragEnter "dsDragEnter" #define dsDragLeave "dsDragLeave" #define dsDragMove "dsDragMove" #define caNone "caNone" #define caHide "caHide" #define caFree "caFree" #define caMinimize "caMinimize" #define fsSurface "fsSurface" #define fsBorder "fsBorder" #define psStarting "psStarting" #define psRunning "psRunning" #define psEnding "psEnding" #define okWrite "okWrite" #define okRead "okRead" #define dtrDisable "dtrDisable" #define dtrEnable "dtrEnable" #define dtrHandshake "dtrHandshake" #define rtsDisable "rtsDisable" #define rtsEnable "rtsEnable" #define rtsHandshake "rtsHandshake" #define rtsToggle "rtsToggle" #define fcHardware "fcHardware" #define fcSoftware "fcSoftware" #define fcNone "fcNone" #define fcCustom "fcCustom" #define prNone "prNone" #define prOdd "prOdd" #define prEven "prEven" #define prMark "prMark" #define prSpace "prSpace" #define brCustom "brCustom" #define br110 "br110" #define br300 "br300" #define br600 "br600" #define br1200 "br1200" #define br2400 "br2400" #define br4800 "br4800" #define br9600 "br9600" #define br14400 "br14400" #define br19200 "br19200" #define br38400 "br38400" #define br56000 "br56000" #define br57600 "br57600" #define br115200 "br115200" #define br128000 "br128000" #define br256000 "br256000" #define dbFive "dbFive" #define dbSix "dbSix" #define dbSeven "dbSeven" #define dbEight "dbEight" #define smThreadSync "smThreadSync" #define smWindowSync "smWindowSync" #define smNone "smNone" #define evRxChar "evRxChar" #define evTxEmpty "evTxEmpty" #define evRxFlag "evRxFlag" #define evRing "evRing" #define evBreak "evBreak" #define evCTS "evCTS" #define evDSR "evDSR" #define evError "evError" #define evRLSD "evRLSD" #define evRx80Full "evRx80Full" #define dmManual "dmManual" #define dmAutomatic "dmAutomatic" #define dkDrag "dkDrag" #define dkDock "dkDock" #define akLeft "akLeft" #define akTop "akTop" #define akRight "akRight" #define akBottom "akBottom" #define alNone "alNone" #define alTop "alTop" #define alBottom "alBottom" #define alLeft "alLeft" #define alRight "alRight" #define alClient "alClient" #define doNoOrient "doNoOrient" #define doHorizontal "doHorizontal" #define doVertical "doVertical" #define beLeft "beLeft" #define beTop "beTop" #define beRight "beRight" #define beBottom "beBottom" #define bvNone "bvNone" #define bvLowered "bvLowered" #define bvRaised "bvRaised" #define bvSpace "bvSpace" #define bkNone "bkNone" #define bkTile "bkTile" #define bkSoft "bkSoft" #define bkFlat "bkFlat" #define ftUnknown "ftUnknown" #define ftString "ftString" #define ftSmallint "ftSmallint" #define ftInteger "ftInteger" #define ftWord "ftWord" #define ftBoolean "ftBoolean" #define ftFloat "ftFloat" #define ftCurrency "ftCurrency" #define ftBCD "ftBCD" #define ftDate "ftDate" #define ftTime "ftTime" #define ftDateTime "ftDateTime" #define ftBytes "ftBytes" #define ftVarBytes "ftVarBytes" #define ftAutoInc "ftAutoInc" #define ftBlob "ftBlob" #define ftMemo "ftMemo" #define tGraphic "tGraphic" #define ftFmtMemo "ftFmtMemo" #define ftParadoxOle "ftParadoxOle" #define ftDBaseOle "ftDBaseOle" #define ftTypedBinary "ftTypedBinary" #define ftCursor "ftCursor" #define ftFixedChar "ftFixedChar" #define ftWideString "ftWideString" #define ftLargeint "ftLargeint" #define ftADT "ftADT" #define ftArray "ftArray" #define ftReference "ftReference" #define ftDataSet "ftDataSet" #define csPopup "csPopup" #define csDialog "csDialog" #define gkCustom "gkCustom" #define gkDefault "gkDefault" #define gkDropDown "gkDropDown" #define gkEllipsis "gkEllipsis" #define epaRight "epaRight" #define epaLeft "epaLeft" #define Sun "Sun" #define Mon "Mon" #define Tue "Tue" #define Wed "Wed" #define Fri "Fri" #define Sat "Sat" #define dyDefault "dyDefault" #define dyFour "dyFour" #define dyTwo "dyTwo" #define fdAnsiOnly "fdAnsiOnly" #define fdTrueTypeOnly "fdTrueTypeOnly" #define fdEffects "fdEffects" #define fdFixedPitchOnly "fdFixedPitchOnly" #define fdForceFontExist "fdForceFontExist" #define fdNoFaceSel "fdNoFaceSel" #define fdNoOEMFonts "fdNoOEMFonts" #define fdNoSimulations "fdNoSimulations" #define fdNoSizeSel "fdNoSizeSel" #define dNoStyleSel "dNoStyleSel" #define fdNoVectorFonts "fdNoVectorFonts" #define fdShowHelp "fdShowHelp" #define fdWysiwyg "fdWysiwyg" #define fdLimitSize "fdLimitSize" #define fdScalableOnly "fdScalableOnly" #define fdApplyButton "fdApplyButton" #define cdFullOpen "cdFullOpen" #define cdPreventFullOpen "cdPreventFullOpen" #define cdShowHelp "cdShowHelp" #define cdSolidColor "cdSolidColor" #define cdAnyColor "cdAnyColor" #define bsNone "bsNone" #define bsSingle "bsSingle" #define bsSizeable "bsSizeable" #define bsDialog "bsDialog" #define bsToolWindow "bsToolWindow" #define bsSizeToolWin "bsSizeToolWin" #define fsEdit "fsEdit" #define fsComboBox "fsComboBox" #define ofReadOnly "ofReadOnly" #define ofOverwritePrompt "ofOverwritePrompt" #define ofHideReadOnly "ofHideReadOnly" #define ofNoChangeDir "ofNoChangeDir" #define ofShowHelp "ofShowHelp" #define ofNoValidate "ofNoValidate" #define ofAllowMultiSelect "ofAllowMultiSelect" #define ofExtensionDifferent "ofExtensionDifferent" #define fPathMustExist "fPathMustExist" #define ofFileMustExist "ofFileMustExist" #define ofCreatePrompt "ofCreatePrompt" #define ofShareAware "ofShareAware" #define ofNoReadOnlyReturn "ofNoReadOnlyReturn" #define ofNoTestFileCreate "ofNoTestFileCreate" #define ofNoNetworkButton "ofNoNetworkButton" #define ofNoLongNames "ofNoLongNames" #define ofOldStyleDialog "ofOldStyleDialog" #define ofNoDereferenceLinks "ofNoDereferenceLinks" #define ofEnableIncludeNotify "ofEnableIncludeNotify" #define ofEnableSizing "ofEnableSizing" #define fsBold "fsBold" #define fsItalic "fsItalic" #define fsUnderline "fsUnderline" #define fsStrikeOut "fsStrikeOut" #define fpDefault "fpDefault" #define fpVariable "fpVariable" #define fpFixed "fpFixed" #define fsNormal "fsNormal" #define fsMDIChild "fsMDIChild" #define fsMDIForm "fsMDIForm" #define fsStayOnTop "fsStayOnTop" #define poDesigned "poDesigned" #define poDefault "poDefault" #define poDefaultPosOnly "poDefaultPosOnly" #define poDefaultSizeOnly "poDefaultSizeOnly" #define poScreenCenter "poScreenCenter" #define poDesktopCenter "poDesktopCenter" #define poNone "poNone" #define poProportional "poProportional" #define poPrintToFit "poPrintToFit" #define wsNormal "wsNormal" #define wsMinimized "wsMinimized" #define wsMaximized "wsMaximized" #define biSystemMenu "biSystemMenu" #define biMinimize "biMinimize" #define biMaximize "biMaximize" #define biHelp "biHelp" #define tbHorizontal "tbHorizontal" #define tbVertical "tbVertical" #define dsNormal "dsNormal" #define dsTransparent "dsTransparent" #define itImage "itImage" #define itMask "itMask" #define tlTop "tlTop" #define tlCenter "tlCenter" #define tlBottom "tlBottom" #define lbStandard "lbStandard" #define lbOwnerDrawFixed "lbOwnerDrawFixed" #define lbOwnerDrawVariable "lbOwnerDrawVariable" #define iaTop "iaTop" #define iaLeft "iaLeft" #define sdLeft "sdLeft" #define sdRight "sdRight" #define sdAbove "sdAbove" #define sdBelow "sdBelow" #define sdAll "sdAll" #define htHandPoint "htHandPoint" #define htUnderlineCold "htUnderlineCold" #define htUnderlineHot "htUnderlineHot" #define drBounds "drBounds" #define drIcon "drIcon" #define drLabel "drLabel" #define drSelectBounds "drSelectBounds" #define ctText "ctText" #define ctImage "ctImage" #define ctState "ctState" #define arAlignBottom "arAlignBottom" #define arAlignLeft "arAlignLeft" #define arAlignRight "arAlignRight" #define arAlignTop "arAlignTop" #define arDefault "arDefault" #define arSnapToGrid "arSnapToGrid" #define mbNone "mbNone" #define mbBreak "mbBreak" #define mbBarBreak "mbBarBreak" #define paCenter "paCenter" #define aaManual "aaManual" #define aaGetFocus "aaGetFocus" #define aaDoubleClick "aaDoubleClick" #define smClip "smClip" #define smCenter "smCenter" #define smScale "smScale" #define smStretch "smStretch" #define smAutoSize "smAutoSize" #define osEmpty "osEmpty" #define osLoaded "osLoaded" #define osRunning "osRunning" #define osOpen "osOpen" #define osInPlaceActive "osInPlaceActive" #define osUIActive "osUIActive" #define pcCopies "pcCopies" #define pcOrientation "pcOrientation" #define pcCollation "pcCollation" #define poPortrait "poPortrait" #define poLandscape "poLandscape" #define nsNone "nsNone" #define nsBullet "nsBullet" #define caBold "caBold" #define caColor "caColor" #define caFace "caFace" #define caItalic "caItalic" #define caSize "caSize" #define caStrikeOut "caStrikeOut" #define caUnderline "caUnderline" #define caProtected "caProtected" #define ssRegular "ssRegular" #define ssFlat "ssFlat" #define ssHotTrack "ssHotTrack" #define dmBoth "dmBoth" #define dmGlyphOnly "dmGlyphOnly" #define dmTextOnly "dmTextOnly" #define blGlyphLeft "blGlyphLeft" #define blGlyphRight "blGlyphRight" #define blGlyphTop "blGlyphTop" #define blGlyphBottom "blGlyphBottom" #define rsNone "rsNone" #define rsLine "rsLine" #define rsUpdate "rsUpdate" #define rsPattern "rsPattern" #define sptNormal "sptNormal" #define sptCapsLock "sptCapsLock" #define sptNumLock "sptNumLock" #define sptScrollLock "sptScrollLock" #define sptDate "sptDate" #define sptTime "sptTime" #define sptDateTime "sptDateTime" #define sptEllipsisText "sptEllipsisText" #define sptEllipsisPath "sptEllipsisPath" #define sptGlyph "sptGlyph" #define sptGauge "sptGauge" #define sptOwnerDraw "sptOwnerDraw" #define tpTop "tpTop" #define tpBottom "tpBottom" #define tpLeft "tpLeft" #define tpRight "tpRight" #define tsTabs "tsTabs" #define tsButtons "tsButtons" #define tsFlatButtons "tsFlatButtons" #define blTop "blTop" #define blBottom "blBottom" #define blLeft "blLeft" #define blRight "blRight" #define dpTop "dpTop" #define dpBottom "dpBottom" #define dpLeft "dpLeft" #define dpRight "dpRight" #define dmCanFloat "dmCanFloat" #define dmCannotFloat "dmCannotFloat" #define dmCannotFloatOrChangeDocks "dmCannotFloatOrChangeDocks" #define dhDouble "dhDouble" #define dhNone "dhNone" #define dhSingle "dhSingle" #define stNone "stNone" #define stData "stData" #define stText "stText" #define stBoth "stBoth" #define naAdd "naAdd" #define naAddFirst "naAddFirst" #define naAddChild "naAddChild" #define naAddChildFirst "naAddChildFirst" #define naInsert "naInsert" #define sbOneStopBit "sbOneStopBit" #define sbOne5StopBits "sbOne5StopBits" #define sbTwoStopBits "sbTwoStopBits" #define SMWOREF(%s) ##class(%TMPersistent).GetObjOref(+%s) #define CvtSMWOREF(%s) Set %s=$$$SMWOREF(%s)