const.tph

在手机操作系统symbina上使用的一个脚本扩展语言的代码实现,可以参考用于自己的开发

CONST KMenuSymbolOn%=$2000
CONST KMenuSymbolIndeterminate%=$4000
CONST KMenuCheckBox%=$0800
CONST KMenuOptionStart%=$0900
CONST KMenuOptionMiddle%=$0a00
CONST KMenuOptionEnd%=$0b00

rem mPOPUP position type - Specifies which corner
rem of the popup is given by supplied coordinates
CONST KMPopupPosTopLeft%=0
CONST KMPopupPosTopRight%=1
CONST KMPopupPosBottomLeft%=2
CONST KMPopupPosBottomRight%=3

rem
rem GRAPHICS
rem

rem For DEFAULTWIN
CONST KDefaultWin2GrayMode%=0
CONST KDefaultWin4GrayMode%=1
CONST KDefaultWin16GrayMode%=2
CONST KDefaultWin256GrayMode%=3
CONST KDefaultWin16ColorMode%=4
CONST KDefaultWin256ColorMode%=5
CONST KDefaultWin64KMode%=6
CONST KDefaultWin16MMode%=7
CONST KDefaultWinRGBMode%=8
CONST KDefaultWin4KMode%=9

CONST KDefaultWin%=1
CONST KgModeSet%=0
CONST KgModeClear%=1
CONST KgModeInvert%=2
CONST KtModeSet%=0
CONST KtModeClear%=1
CONST KtModeInvert%=2
CONST KtModeReplace%=3

CONST KgStyleNormal%=0
CONST KgStyleBold%=1
CONST KgStyleUnder%=2
CONST KgStyleInverse%=4
CONST KgStyleDoubleHeight%=8
CONST KgStyleMonoFont%=16
CONST KgStyleItalic%=32

rem RGB color masking
CONST KRgbRedPosition&=&10000
CONST KRgbGreenPosition&=$100
CONST KRgbBluePosition&=$1
CONST KRgbColorMask&=$ff

rem RGB color values
CONST KRgbBlack&=&000000
CONST KRgbDarkGray&=&555555
CONST KRgbDarkRed&=&800000
CONST KRgbDarkGreen&=&008000
CONST KRgbDarkYellow&=&808000
CONST KRgbDarkBlue&=&000080
CONST KRgbDarkMagenta&=&800080
CONST KRgbDarkCyan&=&008080
CONST KRgbRed&=&ff0000
CONST KRgbGreen&=&00ff00
CONST KRgbYellow&=&ffff00
CONST KRgbBlue&=&0000ff
CONST KRgbMagenta&=&ff00ff
CONST KRgbCyan&=&00ffff
CONST KRgbGray&=&aaaaaa
CONST KRgbDitheredLightGray&=&cccccc
CONST KRgb1in4DitheredGray&=&ededed
CONST KRgbWhite&=&ffffff

rem Easy mappings to the above RGB color combinations
CONST KColorSettingBlack%=1
CONST KColorSettingDarkGrey%=2
CONST KColorSettingDarkRed%=3
CONST KColorSettingDarkGreen%=4
CONST KColorSettingDarkYellow%=5
CONST KColorSettingDarkBlue%=6
CONST KColorSettingDarkMagenta%=7
CONST KColorSettingDarkCyan%=8
CONST KColorSettingRed%=9
CONST KColorSettingGreen%=10
CONST KColorSettingYellow%=11
CONST KColorSettingBlue%=12
CONST KColorSettingMagenta%=13
CONST KColorSettingCyan%=14
CONST KColorSettingGrey%=15
CONST KColorSettingLightGrey%=16
CONST KColorSettingLighterGrey%=17
CONST KColorSettingWhite%=18

rem For gBORDER and gXBORDER
CONST KBordSglShadow%=1
CONST KBordSglGap%=2
CONST KBordDblShadow%=3
CONST KBordDblGap%=4
CONST KBordGapAllRound%=$100
CONST KBordRoundCorners%=$200
CONST KBordLosePixel%=$400

rem For gBUTTON
CONST KButtSinglePixel%=0
CONST KButtSinglePixelRaised%=0
CONST KButtSinglePixelPressed%=1
CONST KButtDoublePixel%=1
CONST KButtDoublePixelRaised%=0
CONST KButtDoublePixelSemiPressed%=1
CONST KButtDoublePixelSunken%=2
CONST KButtStandard%=2
CONST KButtStandardRaised%=0
CONST KButtStandardSemiPressed%=1

CONST KButtLayoutTextRightPictureLeft%=0
CONST KButtLayoutTextBottomPictureTop%=1
CONST KButtLayoutTextTopPictureBottom%=2
CONST KButtLayoutTextLeftPictureRight%=3
CONST KButtTextRight%=0
CONST KButtTextBottom%=1
CONST KButtTextTop%=2
CONST KButtTextLeft%=3
CONST KButtExcessShare%=$00
CONST KButtExcessToText%=$10
CONST KButtExcessToPicture%=$20

rem For gCLOCK
CONST KClockLocaleConformant%=6
CONST KClockSystemSetting%=KClockLocaleConformant%
CONST KClockAnalog%=7
CONST KClockDigital%=8
CONST KClockLargeAnalog%=9
rem gClock 10 no longer supported (use slightly changed gCLOCK 11)
CONST KClockFormattedDigital%=11

rem For gCREATE
CONST KgCreateInvisible%=0
CONST KgCreateVisible%=1
CONST KgCreateHasShadow%=$0010
rem Color mode constants
CONST KgCreate2GrayMode%=$0000
CONST KgCreate4GrayMode%=$0001
CONST KgCreate16GrayMode%=$0002
CONST KgCreate256GrayMode%=$0003
CONST KgCreate16ColorMode%=$0004
CONST KgCreate256ColorMode%=$0005
CONST KgCreate64KColorMode%=$0006
CONST KgCreate16MColorMode%=$0007
CONST KgCreateRGBColorMode%=$0008
CONST KgCreate4KColorMode%=$0009

rem gCOLORINFO array subscripts
CONST gColorInfoADisplayMode%=1
CONST gColorInfoANumColors%=2
CONST gColorInfoANumGrays%=3
rem DisplayMode constants
CONST KDisplayModeNone%=0
CONST KDisplayModeGray2%=1
CONST KDisplayModeGray4%=2
CONST KDisplayModeGray16%=3
CONST KDisplayModeGray256%=4
CONST KDisplayModeColor16%=5
CONST KDisplayModeColor256%=6
CONST KDisplayModeColor64K%=7
CONST KDisplayModeColor16M%=8
CONST KDisplayModeRGB%=9
CONST KDisplayModeColor4K%=10

rem For gINFO
CONST KgInfoSize%=32
CONST KgInfoLowestCharCode%=1
CONST KgInfoHighestCharCode%=2
CONST KgInfoFontHeight%=3
CONST KgInfoFontDescent%=4
CONST KgInfoFontAscent%=5
CONST KgInfoWidth0Char%=6
CONST KgInfoMaxCharWidth%=7
CONST KgInfoFontFlag%=8
CONST KgInfoFontName%=9
rem 9-17 Font name
CONST KgInfogGMode%=18
CONST KgInfogTMode%=19
CONST KgInfogStyle%=20
CONST KgInfoCursorState%=21
CONST KgInfoCursorWindowId%=22
CONST KgInfoCursorWidth%=23
CONST KgInfoCursorHeight%=24
CONST KgInfoCursorAscent%=25
CONST KgInfoCursorX%=26
CONST KgInfoCursorY%=27
CONST KgInfoDrawableBitmap%=28
CONST KgInfoCursorEffects%=29
CONST KgInfogGray%=30
CONST KgInfoDrawableId%=31

rem For gINFO32
CONST KgInfo32Size%=48
rem 1,2 reserved
CONST KgInfo32FontHeight%=KgInfoFontHeight%
CONST KgInfo32FontDescent%=KgInfoFontDescent%
CONST KgInfo32FontAscent%=KgInfoFontAscent%
CONST KgInfo32Width0Char%=KgInfoWidth0Char%
CONST KgInfo32MaxCharWidth%=KgInfoMaxCharWidth%
CONST KgInfo32FontFlag%=KgInfoFontFlag%
CONST KgInfo32FontUID%=9
rem 10-17 unused
CONST KgInfo32gGMode%=KgInfogGMode%
CONST KgInfo32gTMode%=KgInfogTMode%
CONST KgInfo32gStyle%=KgInfogStyle%
CONST KgInfo32CursorState%=KgInfoCursorState%
CONST KgInfo32CursorWindowId%=KgInfoCursorWindowId%
CONST KgInfo32CursorWidth%=KgInfoCursorWidth%
CONST KgInfo32CursorHeight%=KgInfoCursorHeight%
CONST KgInfo32CursorAscent%=KgInfoCursorAscent%
CONST KgInfo32CursorX%=KgInfoCursorX%
CONST KgInfo32CursorY%=KgInfoCursorY%
CONST KgInfo32DrawableBitmap%=KgInfoDrawableBitmap%
CONST KgInfo32CursorEffects%=KgInfoCursorEffects%
CONST KgInfo32GraphicsMode%=30
CONST KgInfo32ForegroundRed%=31
CONST KgInfo32ForegroundGreen%=32
CONST KgInfo32ForegroundBlue%=33
CONST KgInfo32BackgroundRed%=34
CONST KgInfo32BackgroundGreen%=35
CONST KgInfo32BackgroundBlue%=36

rem For gLOADBIT
CONST KgLoadBitReadOnly%=0
CONST KgLoadBitWriteable%=1

rem For gRANK
CONST KgRankForeground%=1
CONST KgRankBackGround%=KMaxInt%

rem gPOLY array subscripts
CONST KgPolyAStartX%=1
CONST KgPolyAStartY%=2
CONST KgPolyANumPairs%=3
CONST KgPolyANumDx1%=4
CONST KgPolyANumDy1%=5

rem For gPRINTB
CONST KgPrintBRightAligned%=1
CONST KgPrintBLeftAligned%=2
CONST KgPrintBCenteredAligned%=3
rem The defaults
CONST KgPrintBDefAligned%=KgPrintBLeftAligned%
CONST KgPrintBDefTop%=0
CONST KgPrintBDefBottom%=0
CONST KgPrintBDefMargin%=0

rem For gXBORDER
CONST KgXBorderSinglePixelType%=0
CONST KgXBorderDoublePixelType%=1
CONST KgXBorderStandardType%=2

rem For gXPRINT
CONST KgXPrintNormal%=0
CONST KgXPrintInverse%=1
CONST KgXPrintInverseRound%=2
CONST KgXPrintThinInverse%=3
CONST KgXPrintThinInverseRound%=4
CONST KgXPrintUnderlined%=5
CONST KgXPrintThinUnderlined%=6

rem For gFONT
rem (Only suitable for devices using EON14.GDR e.g. Series 5, 9210)
CONST KFontArialBold8&=		268435951
CONST KFontArialBold11&=	268435952
CONST KFontArialBold13&=	268435953
CONST KFontArialNormal8&=	268435954
CONST KFontArialNormal11&=	268435955
CONST KFontArialNormal13&=	268435956
CONST KFontArialNormal15&=	268435957
CONST KFontArialNormal18&=	268435958
CONST KFontArialNormal22&=	268435959
CONST KFontArialNormal27&=	268435960
CONST KFontArialNormal32&=	268435961

CONST KFontTimesBold8&=		268435962
CONST KFontTimesBold11&=	268435963
CONST KFontTimesBold13&=	268435964
CONST KFontTimesNormal8&=	268435965
CONST KFontTimesNormal11&=	268435966
CONST KFontTimesNormal13&=	268435967
CONST KFontTimesNormal15&=	268435968
CONST KFontTimesNormal18&=	268435969
CONST KFontTimesNormal22&=	268435970
CONST KFontTimesNormal27&=	268435971
CONST KFontTimesNormal32&=	268435972

CONST KFontCourierBold8&=	268436062
CONST KFontCourierBold11&=	268436063
CONST KFontCourierBold13&=	268436064
CONST KFontCourierNormal8&=	268436065
CONST KFontCourierNormal11&=	268436066
CONST KFontCourierNormal13&=	268436067
CONST KFontCourierNormal15&=	268436068
CONST KFontCourierNormal18&=	268436069
CONST KFontCourierNormal22&=	268436070
CONST KFontCourierNormal27&=	268436071
CONST KFontCourierNormal32&=	268436072

CONST KFontCalc13n&=		268435493
CONST KFontCalc18n&=		268435494
CONST KFontCalc24n&=		268435495

CONST KFontMon18n&=		268435497
CONST KFontMon18b&=		268435498
CONST KFontMon9n&=		268435499
CONST KFontMon9b&=		268435500

CONST KFontTiny1&=		268435501
CONST KFontTiny2&=		268435502
CONST KFontTiny3&=		268435503
CONST KFontTiny4&=		268435504

CONST KFontEiksym15&=		268435661

CONST KFontSquashed&=		268435701
CONST KFontDigital35&=		268435752

rem
rem The following font consts are for Series 60 devices only
rem e.g. Nokia 7650
rem

CONST KFontS60LatinPlain12&=&10000001
CONST KFontS60LatinBold12&=&10000002
CONST KFontS60LatinBold13&=&10000003
CONST KFontS60LatinBold17&=&10000004
CONST KFontS60LatinBold19&=&10000005
CONST KFontS60NumberPlain5&=&10000006
CONST KFontS60ClockBold30&=&10000007
CONST KFontS60LatinClock14&=&10000008
CONST KFontS60Custom&=&10000009
CONST KFontS60ApacPlain12&=&1000000c
CONST KFontS60ApacPlain16&=&1000000d

rem
rem The following font consts are for UIQ devices only
rem e.g. Sony Ericsson P800
rem

CONST KFontUiqSwissABeta&=&017B4B0D

rem
rem End of font info.
rem

rem
rem I/O ACCESS
rem

rem For IOOPEN
rem Mode category 1
CONST KIoOpenModeOpen%=$0000
CONST KIoOpenModeCreate%=$0001
CONST KIoOpenModeReplace%=$0002
CONST KIoOpenModeAppend%=$0003
CONST KIoOpenModeUnique%=$0004

rem Mode category 2
CONST KIoOpenFormatBinary%=$0000
CONST KIoOpenFormatText%=$0020

rem Mode category 3
CONST KIoOpenAccessUpdate%=$0100
CONST KIoOpenAccessRandom%=$0200
CONST KIoOpenAccessShare%=$0400

rem
rem APPLICATION CREATION
rem

rem For FLAGS
CONST KFlagsAppFileBased%=1
CONST KFlagsAppIsHidden%=2

rem Language code for CAPTION
CONST KMaxLangsSupported%=33
CONST KLangEnglish%=1
CONST KLangFrench%=2
CONST KLangGerman%=3
CONST KLangSpanish%=4
CONST KLangItalian%=5
CONST KLangSwedish%=6
CONST KLangDanish%=7
CONST KLangNorwegian%=8
CONST KLangFinnish%=9
CONST KLangAmerican%=10
CONST KLangSwissFrench%=11
CONST KLangSwissGerman%=12
CONST KLangPortuguese%=13
CONST KLangTurkish%=14
CONST KLangIcelandic%=15
CONST KLangRussian%=16
CONST KLangHungarian%=17
CONST KLangDutch%=18
CONST KLangBelgianFlemish%=19
CONST KLangAustralian%=20
CONST KLangBelgianFrench%=21
CONST KLangAustrian%=22
CONST KLangNewZealand%=23
CONST KLangInternationalFrench%=24
CONST KLangCzech%=25
CONST KLangSlovak%=26
CONST KLangPolish%=27
CONST KLangSolvenian%=28
CONST KLangTaiwanChinese%=29
CONST KLangHongKongChinese%=30
CONST KLangPRCChinest%=31
CONST KLangJapanese%=32
CONST KLangThai%=33

rem MIME priority values
CONST KDataTypePriorityUserSpecified%=KMaxInt%
CONST KDataTypePriorityHigh%=10000
CONST KDataTypePriorityNormal%=0
CONST KDataTypePriorityLow%=-10000
CONST KDataTypePriorityLastResort%=-20000
CONST KDataTypePriorityNotSupported%=KMinInt%

rem
rem END OF CONST.OPH
rem