John.Wiley.and.Sons.Rapid.Mobile.Enterprise.Development.for.Symbian.OS.An.Introduction.to.OPL.Application.Design.and.Programming.May.2005.eBook-LinG (779881), страница 43
Текст из файла (страница 43)
It may precedeany of these commands:Trapping data file commandsAPPEND, UPDATE, BACK, NEXT, LAST, FIRST, POSITION, USE, CREATE, OPEN, OPENR, CLOSE, DELETE,MODIFY, INSERT, PUT, CANCELTrapping file commandsCOPY, ERASE, RENAME, LOPEN, LCLOSE, LOADM,UNLOADMTrapping directory commandsMKDIR, RMDIRTrapping data entry commandsEDIT, INPUTTrapping graphics commandsgSAVEBIT, gCLOSE, gUSE, gUNLOADFONT, gFONT,gPATT, gCOPYFor example, TRAP FIRST.Any error resulting from the execution of the command will be trapped. Program execution will continueat the statement after the TRAP statement, but ERR willbe set to the error code.TRAP overrides any ONERR.TRAP RAISEClears the trap flagUsage: TRAP RAISE x%Sets the value of ERR to x% and clears the trap flag.UADDAdds two unsigned integersUsage: i%=UADD(val1%, val2%)Add val1% and val2%, as if both were unsigned integerswith values from 0 to 65535.
Prevents integer overflowfor pointer arithmetic when the 64K memory restriction is set (see SETFLAGS), e.g. UADD(ADDR(text$),1)should be used instead of ADDR(text$)+1.258OPL COMMAND LISTOne argument would normally be a pointer and theother an offset expression.Note that UADD and USUB should not be used forpointer arithmetic unless SETFLAGS has been used toenforce the 64K memory limit. In general, long integerarithmetic should be used for pointer arithmetic.See also USUB.UNLOADMUnloads a moduleUsage: UNLOADM module$Removes from memory the module module$ loadedwith LOADM.module$ is a string containing the name of thetranslated module.The procedures in an unloaded module cannot thenbe called by another procedure.UNLOADM causes any procedures in the modulethat are not still running to be unloaded from memorytoo. Running procedures are unloaded on return.
It isconsidered bad practice, however, to use UNLOADMon a module with procedures that are still running.Once LOADM has been called, procedures loadedstay in memory until the module is unloaded. Modulesare not flushed automatically.UNTILSee DOSee DO.PDATEDeletes the current record and saves as a new recordat the end of the fileUsage: UPDATEWarning: This function is deprecated and included onlyfor compatibility with older versions of the OPL language. INSERT, PUT, and CANCEL should be usedin preference to APPEND and UPDATE, althoughAPPEND and UPDATE are still supported.
However,note that APPEND can generate a lot of extra (intermediate) erased records. COMPACT should be usedto remove them, or alternatively use SETFLAGS to setauto-compaction on.Deletes the current record in the current data fileand saves the current field values as a new record atthe end of the file.OPL COMMAND LIST259This record, now the last in the file, remains thecurrent record.Example:A.count=129A.name$="Brown"UPDATEUse APPEND to save the current field values as anew record.UPPER$Converts a string to uppercaseUsage: u$=UPPER$(a$)Converts any lowercase characters in a$ to uppercase,and returns the completely uppercase string. Example:...CLS :PRINT "Y to continue"PRINT "or N to stop."g$=UPPER$(GET$)IF g$="Y"nextproc:ELSEIF g$="N"RETURNENDIF...Use LOWER$ to convert to lowercase.USESelects a data fileUsage: USE logical nameSelects the data file with the given logical name (A–Z).The file must previously have been opened with OPEN,OPENR, or CREATE, and not yet be closed.All the record handling commands (such as POSITION and UPDATE, and GOTOMARK, INSERT, MODIFY, CANCEL and PUT) then operate on this file.USUBSubtracts two unsigned integersUsage: i%=USUB(val1%,val2%)Subtract val2% from val1%, as if both were unsignedintegers with values from 0 to 65535.
Prevents integer260OPL COMMAND LISToverflow for pointer arithmetic when the 64K memoryrestriction is set (see SETFLAGS).Note that UADD and USUB should not be used forpointer arithmetic unless SETFLAGS has been used toenforce a 64K memory limit. In general long integerarithmetic should be used.See also UADD.VALConverts numeric string to floating point numberUsage: v=VAL(numeric string)Returns the floating point number corresponding to anumeric string.The string must be a valid number, e.g.
not "5.6.7" or"196f". Expressions such as "45.6*3.1" are not allowed.Scientific notation such as "1.3E10" is OK.E.g. VAL("470.0") returns 470.See also EVAL.VARGets variance of a list of itemsUsage: v=VAR(list)orv=VAR(array(),element)Returns the variance of a list of numeric items.The list can be either:A list of variables, values, and expressions, separatedby commasorThe elements of a floating point array.When operating on an array, the first argument mustbe the array name followed by (). The second argument,separated from the first by a comma, is the number ofarray elements you wish to operate on.
For example,m=VAR(arr(),3) would return the variance of elementsarr(1), arr(2), and arr(3).This function gives the sample variance.VECTORJumps to a numbered labelUsage:VECTOR i%label1,label2,...,labelNENDVOPL COMMAND LIST261VECTOR i% jumps to label number i% in the list. If i%is 1 this will be the first label, and so on. The list isterminated by the ENDV statement. The list may spreadover several lines, with a comma separating labels inany one line but no comma at the end of each line.If i% is not in the range 1 to N, where N is the numberof labels, the program continues with the statement afterthe ENDV statement.See also GOTO.WEEKGets the week in which a specified day fallsUsage: w%=WEEK(day%,month%,year%)Returns the week number in which the specified dayfalls, as an integer between 1 and 53.day% must be between 1 and 31, month% between1 and 12, year% between 0 and 9999.Each week is taken to begin on the ‘Start of week’day, as specified in the Control Panel.
When a yearbegins on a different day to the start of the week, itcounts as week 1 if there are four or more days beforethe next week starts.The System setting of the ‘Start of week’may be checked from inside OPL by using theLCSTARTOFWEEK&: procedure in the Date OPX. Theweek number in the year may also be calculated bydifferent rules and also with your own choice of the startof year by using the procedure DTWEEKNOINYEAR&:in Date OPX.HILE...ENDWHConditional loopUsage:WHILE expression...ENDWHRepeatedly performs the set of instructions betweenthe WHILE and the ENDWH statement, so long asexpression returns true (non-zero).If expression is not true, the program jumps to theline after the ENDWH statement.Every WHILE must be closed with a matchingENDWH.262OPL COMMAND LISTSee also DO...UNTIL.YEARGets the current yearUsage: y%=YEARReturns the current year as an integer from the system clock.For example, on 5th May 1997 YEAR returns 1997.Appendix 2Const.oph Listingrem CONST.OPH 6.01rem Constants for OPL - Last updated 31 May 2004remrem GENERAL CONSTANTSremCONST KTrue%=-1CONST KFalse%=0rem Data type rangesCONST KMaxStringLen%=255CONST KMaxFloat=1.7976931348623157E+308CONST KMinFloat=2.2250738585072015E-308 rem Minimum with full precision inmantissaCONST KMinFloatDenorm=5e-324 rem Denormalised (just one bit of precisionleft)CONST KMinInt%=$8000 rem -32768 (translator needs hex for maximum ints)CONST KMaxInt%=32767CONST KMinLong&=&80000000 rem -2147483648 (hex for translator)CONST KMaxLong&=2147483647CONST KMaxdTIMEValue&=86399rem Data type sizesCONST KShortIntWidth&=2CONST KLongIntWidth&=4CONST KFloatWidth&=8rem Error codesCONST KErrNone%=0CONST KErrGenFail%=-1CONST KErrInvalidArgs%=-2CONST KErrOs%=-3CONST KErrNotSupported%=-4CONST KErrUnderflow%=-5CONST KErrOverflow%=-6CONST KErrOutOfRange%=-7CONST KErrDivideByZero%=-8CONST KErrInUse%=-9CONST KErrNoMemory%=-10CONST KErrNoSegments%=-11CONST KErrNoSemaphore%=-12CONST KErrNoProcess%=-13CONST KErrAlreadyOpen%=-14264CONST.OPH LISTINGCONST KErrNotOpen%=-15CONST KErrImage%=-16CONST KErrNoReceiver%=-17CONST KErrNoDevices%=-18CONST KErrNoFileSystem%=-19CONST KErrFailedToStart%=-20CONST KErrFontNotLoaded%=-21CONST KErrTooWide%=-22CONST KErrTooManyItems%=-23CONST KErrBatLowSound%=-24CONST KErrBatLowFlash%=-25CONST KErrExists%=-32CONST KErrNotExists%=-33CONST KErrWrite%=-34CONST KErrRead%=-35CONST KErrEof%=-36CONST KErrFull%=-37CONST KErrName%=-38CONST KErrAccess%=-39CONST KErrLocked%=-40CONST KErrDevNotExist%=-41CONST KErrDir%=-42CONST KErrRecord%=-43CONST KErrReadOnly%=-44CONST KErrInvalidIO%=-45CONST KErrFilePending%=-46CONST KErrVolume%=-47CONST KErrIOCancelled%=-48rem OPL specific errorsCONST KErrSyntax%=-77CONST KOplStructure%=-85CONST KErrIllegal%=-96CONST KErrNumArg%=-97CONST KErrUndef%=-98CONST KErrNoProc%=-99CONST KErrNoFld%=-100CONST KErrOpen%=-101CONST KErrClosed%=-102CONST KErrRecSize%=-103CONST KErrModLoad%=-104CONST KErrMaxLoad%=-105CONST KErrNoMod%=-106CONST KErrNewVer%=-107CONST KErrModNotLoaded%=-108CONST KErrBadFileType%=-109CONST KErrTypeViol%=-110CONST KErrSubs%=-111CONST KErrStrTooLong%=-112CONST KErrDevOpen%=-113CONST KErrEsc%=-114CONST KErrMaxDraw%=-117CONST KErrDrawNotOpen%=-118CONST KErrInvalidWindow%=-119CONST KErrScreenDenied%=-120CONST KErrOpxNotFound%=-121CONST KErrOpxVersion%=-122CONST KErrOpxProcNotFound%=-123CONST KErrStopInCallback%=-124CONST KErrIncompUpdateMode%=-125CONST KErrInTransaction%=-126CONST.OPH LISTINGrem -127 to -133 translator errorsCONST KErrBadAlignment%=-134rem Month numbersCONST KJanuary%=1CONST KFebruary%=2CONST KMarch%=3CONST KApril%=4CONST KMay%=5CONST KJune%=6CONST KJuly%=7CONST KAugust%=8CONST KSeptember%=9CONST KOctober%=10CONST KNovember%=11CONST KDecember%=12rem For DOWCONST KMonday%=1CONST KTuesday%=2CONST KWednesday%=3CONST KThursday%=4CONST KFriday%=5CONST KSaturday%=6CONST KSunday%=7rem DATIM$ offsetsCONST KDatimOffDayName%=1CONST KDatimOffDay%=5CONST KDatimOffMonth%=8CONST KDatimOffYear%=12CONST KDatimOffHour%=17CONST KDatimOffMinute%=20CONST KDatimOffSecond%=23rem Help location valuesCONST KHelpView%=0CONST KHelpDialog%=1CONST KHelpMenu%=2rem For BUSY and GIPRINTCONST KBusyTopLeft%=0CONST KBusyBottomLeft%=1CONST KBusyTopRight%=2CONST KBusyBottomRight%=3CONST KBusyMaxText%=80rem For CMD$CONST KCmdAppName%=1 rem Full path name used to start programCONST KCmdUsedFile%=2CONST KCmdLetter%=3rem For CMD$(3)CONST KCmdLetterCreate$="C"CONST KCmdLetterOpen$="O"CONST KCmdLetterRun$="R"CONST KCmdLetterBackground$="B"CONST KCmdLetterViewActivate$="V"CONST KCmdLetterRunWithoutViews$="W"rem For GETCMD$265266CONSTCONSTCONSTCONSTCONSTCONSTCONSTCONST.OPH LISTINGKGetCmdLetterCreate$="C"KGetCmdLetterOpen$="O"KGetCmdLetterExit$="X"KGetCmdLetterBroughtToFGround$="F"KGetCmdLetterBackup$="S"KGetCmdLetterRestart$="R"KGetCmdLetterUnknown$="U"rem PARSE$ array subscriptsCONST KParseAOffFSys%=1CONST KParseAOffDev%=2CONST KParseAOffPath%=3CONST KParseAOffFilename%=4CONST KParseAOffExt%=5CONST KParseAOffWild%=6rem Wild-card flagsCONST KParseWildNone%=0CONST KParseWildFilename%=1CONST KParseWildExt%=2CONST KParseWildBoth%=3rem For CURSORCONST KCursorTypeNotFlashing%=2CONST KCursorTypeGray%=4rem For FINDFIELDCONST KFindCaseDependent%=16CONST KFindBackwards%=0CONST KFindForwards%=1CONST KFindBackwardsFromEnd%=2CONST KFindForwardsFromStart%=3rem SCREENINFO array subscriptsCONST KSInfoALeft%=1CONST KSInfoATop%=2CONST KSInfoAScrW%=3CONST KSInfoAScrH%=4CONST KSInfoAReserved1%=5CONST KSInfoAFont%=6CONST KSInfoAPixW%=7CONST KSInfoAPixH%=8CONST KSInfoAReserved2%=9CONST KSInfoAReserved3%=10rem Unicode ellipsis, linefeed and carriage-returnCONST KEllipsis&=&2026CONST KLineFeed&=10CONST KCarriageReturn&=13rem For SETFLAGSCONST KRestrictTo64K&=&0001CONST KAutoCompact&=&0002CONST KTwoDigitExponent&=&0004CONST KMenuCancelCompatibility&=&0008CONST KAlwaysWriteAsciiTextFiles&=&0016CONST KSendSwitchOnMessage&=&10000rem To aid porting to Unicode OPLCONST KOplAlignment%=1CONST KOplStringSizeFactor%=2CONST.OPH LISTINGremrem EVENT HANDLINGremrem Special keysCONST KKeyDel%=8CONST KKeyTab%=9CONST KKeyEnter%=13CONST KKeyEsc%=27CONST KKeySpace%=32rem Scan code valuesCONST KScanDel%=1CONST KScanTab%=2CONST KScanEnter%=3CONST KScanEsc%=4CONST KScanSpace%=5rem GETEVENT32 array indexesCONST KEvAType%=1CONST KEvATime%=2CONST KEvAScan%=3CONST KEvAKMod%=4CONST KEvAKRep%=5rem Pointer event array subscriptsCONST KEvAPtrOplWindowId%=3CONST KEvAPtrWindowId%=3CONST KEvAPtrType%=4CONST KEvAPtrModifiers%=5CONST KEvAPtrPositionX%=6CONST KEvAPtrPositionY%=7CONST KEvAPtrScreenPosX%=8CONST KEvAPtrScreenPosY%=9rem Event typesCONST KEvNotKeyMask&=&400CONST KEvFocusGained&=&401CONST KEvFocusLost&=&402CONST KEvSwitchOn&=&403CONST KEvCommand&=&404CONST KEvDateChanged&=&405CONST KEvKeyDown&=&406CONST KEvKeyUp&=&407CONST KEvPtr&=&408CONST KEvPtrEnter&=&409CONST KEvPtrExit&=&40Arem Pointer event typesCONST KEvPtrPenDown&=0CONST KEvPtrPenUp&=1CONST KEvPtrButton1Down&=KEvPtrPenDown&CONST KEvPtrButton1Up&=KEvPtrPenUp&CONST KEvPtrButton2Down&=2CONST KEvPtrButton2Up&=3CONST KEvPtrButton3Down&=4CONST KEvPtrButton3Up&=5CONST KEvPtrDrag&=6CONST KEvPtrMove&=7CONST KEvPtrButtonRepeat&=8267268CONST.OPH LISTINGCONST KEvPtrSwitchOn&=9rem For PointerFilterCONST KPointerFilterEnterExit%=$1CONST KPointerFilterMove%=$2CONST KPointerFilterDrag%=$4rem Key constants (for 32-bit keywords like GETEVENT32)CONST KKeyHelp32&=&f83aCONST KKeyMenu32&=&f836CONST KKeySidebarMenu32&=&f700CONST KKeyPageLeft32&=&f802CONST KKeyPageRight32&=&f803CONST KKeyPageUp32&=&f804CONST KKeyPageDown32&=&f805CONST KKeyLeftArrow32&=&f807CONST KKeyRightArrow32&=&f808CONST KKeyUpArrow32&=&f809CONST KKeyDownArrow32&=&f80arem For the command button arrayCONST KKeyCBA1&=&f842CONST KKeyCBA2&=&f843CONST KKeyCBA3&=&f844CONST KKeyCBA4&=&f845rem Special keysCONST KKeyZoomIn32&=&f703CONST KKeyZoomOut32&=&f704CONST KKeyIncBrightness32&=&f864rem For 32-bit status words IOWAIT and IOWAITSTAT32rem Use KErrFilePending% (-46) for 16-bit status wordsCONST KStatusPending32&=&80000001rem For KMODCONST KKmodShift%=2CONST KKmodControl%=4CONST KKmodCaps%=16CONST KKmodFn%=32remrem DIALOGSremrem For ALERTCONST KAlertEsc%=1CONST KAlertEnter%=2CONST KAlertSpace%=3rem For dBUTTONCONST KDButtonNoLabel%=$100CONST KDButtonPlainKey%=$200CONST KDButtonBlank$=""CONST KDButtonBlank%=0CONST KDButtonDel%=8CONST KDButtonTab%=9CONST KDButtonEnter%=13CONST KDButtonEsc%=27CONST KDButtonSpace%=32rem DIALOG return valuesCONST KDlgCancel%=0CONST.OPH LISTINGrem For dEDITMULTI and printingCONST KParagraphDelimiter&=$2029 rem $06 under ASCIICONST KLineBreak&=$2028rem $07 under ASCIICONST KPageBreak&=$000crem $08 under ASCIICONST KTabCharacter&=$0009rem $09 under ASCIICONST KNonBreakingHyphen&=$2011rem $0b under ASCIICONST KPotentialHyphen&=$00adrem $0c under ASCIICONST KNonBreakingSpace&=$00a0rem $10 under ASCIICONST KPictureCharacter&=$fffcrem $0e under ASCIICONST KVisibleSpaceCharacter&=$0020rem $0f under ASCIIrem For dFILECONST KDFileNameLen%=255rem flagsCONST KDFileEditBox%=$0001CONST KDFileAllowFolders%=$0002CONST KDFileFoldersOnly%=$0004CONST KDFileEditorDisallowExisting%=$0008CONST KDFileEditorQueryExisting%=$0010CONST KDFileAllowNullStrings%=$0020CONST KDFileAllowWildCards%=$0080CONST KDFileSelectorWithRom%=$0100CONST KDFileSelectorWithSystem%=$0200CONST KDFileSelectorAllowNewFolder%=$0400CONST KDFileSelectorShowHidden%=$0800rem Current OPL-related UIDs (for dFILE UID restriction)CONST KUidDirectFileStore&=&10000037CONST KUidOplInterpreter&=&10005D2ECONST KUidOpo&=&100055C0CONST KUidOplApp&=&100055C1CONST KUidOplDoc&=&100055C2CONST KUidOplFile&=&1000008ACONST KUidOpxDll&=&10003A7Brem dINIT flagsCONST KDlgButRight%=1CONST KDlgNoTitle%=2CONST KDlgFillScreen%=4CONST KDlgNoDrag%=8CONST KDlgDensePack%=16rem For dPOSITIONCONST KDPositionLeft%=-1CONST KDPositionCenter%=0CONST KDPositionRight%=1CONST KDPositionTop%=-1CONST KDPositionBottom%=1rem For dTEXTCONST KDTextLeft%=0CONST KDTextRight%=1CONST KDTextCenter%=2CONST KDTextBold%=$100 rem Currently ignoredCONST KDTextLineBelow%=$200CONST KDTextAllowSelection%=$400CONST KDTextSeparator%=$800rem For dTIMECONST KDTimeAbsNoSecs%=0CONST KDTimeAbsWithSecs%=1269270CONST.OPH LISTINGCONST KDTimeDurationNoSecs%=2CONST KDTimeDurationWithSecs%=3rem Flags for dTIME (for ORing combinations)CONST KDTimeWithSeconds%=1CONST KDTimeDuration%=2CONST KDTimeNoHours%=4CONST KDTime24Hour%=8rem For dXINPUTCONST KDXInputMaxLen%=32rem For Standard No/Yes dCHOICEsCONST KNoYesChoiceNo%=1CONST KNoYesChoiceYes%=2remrem MENUSremrem For mCARD and mCASCCONST KMenuDimmed%=$1000CONST KMenuSymbolOn%=$2000CONST KMenuSymbolIndeterminate%=$4000CONST KMenuCheckBox%=$0800CONST KMenuOptionStart%=$0900CONST KMenuOptionMiddle%=$0a00CONST KMenuOptionEnd%=$0b00rem mPOPUP position type - Specifies which cornerrem of the popup is given by supplied coordinatesCONST KMPopupPosTopLeft%=0CONST KMPopupPosTopRight%=1CONST KMPopupPosBottomLeft%=2CONST KMPopupPosBottomRight%=3remrem GRAPHICSremrem For DEFAULTWINCONST KDefaultWin2GrayMode%=0CONST KDefaultWin4GrayMode%=1CONST KDefaultWin16GrayMode%=2CONST KDefaultWin256GrayMode%=3CONST KDefaultWin16ColorMode%=4CONST KDefaultWin256ColorMode%=5CONST KDefaultWin64KMode%=6CONST KDefaultWin16MMode%=7CONST KDefaultWinRGBMode%=8CONST KDefaultWin4KMode%=9CONSTCONSTCONSTCONSTCONSTCONSTCONSTCONSTKDefaultWin%=1KgModeSet%=0KgModeClear%=1KgModeInvert%=2KtModeSet%=0KtModeClear%=1KtModeInvert%=2KtModeReplace%=3CONST.OPH LISTINGCONSTCONSTCONSTCONSTCONSTCONSTCONSTKgStyleNormal%=0KgStyleBold%=1KgStyleUnder%=2KgStyleInverse%=4KgStyleDoubleHeight%=8KgStyleMonoFont%=16KgStyleItalic%=32rem RGB color maskingCONST KRgbRedPosition&=&10000CONST KRgbGreenPosition&=$100CONST KRgbBluePosition&=$1CONST KRgbColorMask&=$ffrem RGB color valuesCONST KRgbBlack&=&000000CONST KRgbDarkGray&=&555555CONST KRgbDarkRed&=&800000CONST KRgbDarkGreen&=&008000CONST KRgbDarkYellow&=&808000CONST KRgbDarkBlue&=&000080CONST KRgbDarkMagenta&=&800080CONST KRgbDarkCyan&=&008080CONST KRgbRed&=&ff0000CONST KRgbGreen&=&00ff00CONST KRgbYellow&=&ffff00CONST KRgbBlue&=&0000ffCONST KRgbMagenta&=&ff00ffCONST KRgbCyan&=&00ffffCONST KRgbGray&=&aaaaaaCONST KRgbDitheredLightGray&=&ccccccCONST KRgb1in4DitheredGray&=&edededCONST KRgbWhite&=&ffffffrem Easy mappings to the above RGB color combinationsCONST KColorSettingBlack%=1CONST KColorSettingDarkGrey%=2CONST KColorSettingDarkRed%=3CONST KColorSettingDarkGreen%=4CONST KColorSettingDarkYellow%=5CONST KColorSettingDarkBlue%=6CONST KColorSettingDarkMagenta%=7CONST KColorSettingDarkCyan%=8CONST KColorSettingRed%=9CONST KColorSettingGreen%=10CONST KColorSettingYellow%=11CONST KColorSettingBlue%=12CONST KColorSettingMagenta%=13CONST KColorSettingCyan%=14CONST KColorSettingGrey%=15CONST KColorSettingLightGrey%=16CONST KColorSettingLighterGrey%=17CONST KColorSettingWhite%=18rem For gBORDER and gXBORDERCONST KBordSglShadow%=1CONST KBordSglGap%=2CONST KBordDblShadow%=3CONST KBordDblGap%=4CONST KBordGapAllRound%=$100271272CONST.OPH LISTINGCONST KBordRoundCorners%=$200CONST KBordLosePixel%=$400rem For gBUTTONCONST KButtSinglePixel%=0CONST KButtSinglePixelRaised%=0CONST KButtSinglePixelPressed%=1CONST KButtDoublePixel%=1CONST KButtDoublePixelRaised%=0CONST KButtDoublePixelSemiPressed%=1CONST KButtDoublePixelSunken%=2CONST KButtStandard%=2CONST KButtStandardRaised%=0CONST KButtStandardSemiPressed%=1CONSTCONSTCONSTCONSTCONSTCONSTCONSTCONSTCONSTCONSTCONSTKButtLayoutTextRightPictureLeft%=0KButtLayoutTextBottomPictureTop%=1KButtLayoutTextTopPictureBottom%=2KButtLayoutTextLeftPictureRight%=3KButtTextRight%=0KButtTextBottom%=1KButtTextTop%=2KButtTextLeft%=3KButtExcessShare%=$00KButtExcessToText%=$10KButtExcessToPicture%=$20rem For gCLOCKCONST KClockLocaleConformant%=6CONST KClockSystemSetting%=KClockLocaleConformant%CONST KClockAnalog%=7CONST KClockDigital%=8CONST KClockLargeAnalog%=9rem gClock 10 no longer supported (use slightly changed gCLOCK 11)CONST KClockFormattedDigital%=11rem For gCREATECONST KgCreateInvisible%=0CONST KgCreateVisible%=1CONST KgCreateHasShadow%=$0010rem Color mode constantsCONST KgCreate2GrayMode%=$0000CONST KgCreate4GrayMode%=$0001CONST KgCreate16GrayMode%=$0002CONST KgCreate256GrayMode%=$0003CONST KgCreate16ColorMode%=$0004CONST KgCreate256ColorMode%=$0005CONST KgCreate64KColorMode%=$0006CONST KgCreate16MColorMode%=$0007CONST KgCreateRGBColorMode%=$0008CONST KgCreate4KColorMode%=$0009rem gCOLORINFO array subscriptsCONST gColorInfoADisplayMode%=1CONST gColorInfoANumColors%=2CONST gColorInfoANumGrays%=3rem DisplayMode constantsCONST KDisplayModeNone%=0CONST KDisplayModeGray2%=1CONST KDisplayModeGray4%=2CONST.OPH LISTINGCONSTCONSTCONSTCONSTCONSTCONSTCONSTCONSTKDisplayModeGray16%=3KDisplayModeGray256%=4KDisplayModeColor16%=5KDisplayModeColor256%=6KDisplayModeColor64K%=7KDisplayModeColor16M%=8KDisplayModeRGB%=9KDisplayModeColor4K%=10rem For gINFOCONST KgInfoSize%=32CONST KgInfoLowestCharCode%=1CONST KgInfoHighestCharCode%=2CONST KgInfoFontHeight%=3CONST KgInfoFontDescent%=4CONST KgInfoFontAscent%=5CONST KgInfoWidth0Char%=6CONST KgInfoMaxCharWidth%=7CONST KgInfoFontFlag%=8CONST KgInfoFontName%=9rem 9-17 Font nameCONST KgInfogGMode%=18CONST KgInfogTMode%=19CONST KgInfogStyle%=20CONST KgInfoCursorState%=21CONST KgInfoCursorWindowId%=22CONST KgInfoCursorWidth%=23CONST KgInfoCursorHeight%=24CONST KgInfoCursorAscent%=25CONST KgInfoCursorX%=26CONST KgInfoCursorY%=27CONST KgInfoDrawableBitmap%=28CONST KgInfoCursorEffects%=29CONST KgInfogGray%=30CONST KgInfoDrawableId%=31rem For gINFO32CONST KgInfo32Size%=48rem 1,2 reservedCONST KgInfo32FontHeight%=KgInfoFontHeight%CONST KgInfo32FontDescent%=KgInfoFontDescent%CONST KgInfo32FontAscent%=KgInfoFontAscent%CONST KgInfo32Width0Char%=KgInfoWidth0Char%CONST KgInfo32MaxCharWidth%=KgInfoMaxCharWidth%CONST KgInfo32FontFlag%=KgInfoFontFlag%CONST KgInfo32FontUID%=9rem 10-17 unusedCONST 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%=30273274CONSTCONSTCONSTCONSTCONSTCONSTCONST.OPH LISTINGKgInfo32ForegroundRed%=31KgInfo32ForegroundGreen%=32KgInfo32ForegroundBlue%=33KgInfo32BackgroundRed%=34KgInfo32BackgroundGreen%=35KgInfo32BackgroundBlue%=36rem For gLOADBITCONST KgLoadBitReadOnly%=0CONST KgLoadBitWriteable%=1rem For gRANKCONST KgRankForeground%=1CONST KgRankBackGround%=KMaxInt%rem gPOLY array subscriptsCONST KgPolyAStartX%=1CONST KgPolyAStartY%=2CONST KgPolyANumPairs%=3CONST KgPolyANumDx1%=4CONST KgPolyANumDy1%=5rem For gPRINTBCONST KgPrintBRightAligned%=1CONST KgPrintBLeftAligned%=2CONST KgPrintBCenteredAligned%=3rem The defaultsCONST KgPrintBDefAligned%=KgPrintBLeftAligned%CONST KgPrintBDefTop%=0CONST KgPrintBDefBottom%=0CONST KgPrintBDefMargin%=0rem For gXBORDERCONST KgXBorderSinglePixelType%=0CONST KgXBorderDoublePixelType%=1CONST KgXBorderStandardType%=2rem For gXPRINTCONST KgXPrintNormal%=0CONST KgXPrintInverse%=1CONST KgXPrintInverseRound%=2CONST KgXPrintThinInverse%=3CONST KgXPrintThinInverseRound%=4CONST KgXPrintUnderlined%=5CONST KgXPrintThinUnderlined%=6rem For gFONTrem (Only suitable for devices using EON14.GDR e.g.
![](https://s.studizba.com/z.php?f=/templates/si/i/noavatar.png&w=100&h=100&t=1"){kind=avatar}
