Fichier   CONST.OPH

rem CONST.OPH 6.00
rem CONSTantes pour OPL – Dernière mise-à-jour 26 Février 2002.
rem Copyright © 1997–2002 Symbian Ltd. Tous droits réservés.


rem ****************************
rem *** CONSTANTES GENERALES ***
rem ****************************
  CONST KTrue%=-1
  CONST KFalse%=0
rem Valeurs limites des Types de données
  CONST KMaxStringLen%=255
  CONST KMaxFloat=1.7976931348623157E+308
  CONST KMinFloat=2.2250738585072015E-308 rem Minimum avec mantisse en double précision
  CONST KMinFloatDenorm=5e-324 rem Dénormalisé (avec juste un bit de précision)
  CONST KMinInt%=$8000 rem -32768 (l'interpréteur se sert de la valeur hexadécimale)
  CONST KMaxInt%=32767
  CONST KMinLong&=&80000000 rem -2147483648 (en hexadécimal pour l'interpréteur)
  CONST KMaxLong&=2147483647
  CONST KMaxdTIMEValue&=86399

rem Taille des Types de données

  CONST KShortIntWidth&=2
  CONST KLongIntWidth&=4
  CONST KFloatWidth&=8

rem Codes d'erreur
  CONST KErrNone%=0
  CONST KErrGenFail%=-1
  CONST KErrInvalidArgs%=-2
  CONST KErrOs%=-3
  CONST KErrNotSupported%=-4
  CONST KErrUnderflow%=-5
  CONST KErrOverflow%=-6
  CONST KErrOutOfRange%=-7
  CONST KErrDivideByZero%=-8
  CONST KErrInUse%=-9
  CONST KErrNoMemory%=-10
  CONST KErrNoSegments%=-11
  CONST KErrNoSemaphore%=-12
  CONST KErrNoProcess%=-13
  CONST KErrAlreadyOpen%=-14
  CONST KErrNotOpen%=-15
  CONST KErrImage%=-16
  CONST KErrNoReceiver%=-17
  CONST KErrNoDevices%=-18
  CONST KErrNoFileSystem%=-19
  CONST KErrFailedToStart%=-20
  CONST KErrFontNotLoaded%=-21
  CONST KErrTooWide%=-22
  CONST KErrTooManyItems%=-23
  CONST KErrBatLowSound%=-24
  CONST KErrBatLowFlash%=-25
  CONST KErrExists%=-32
  CONST KErrNotExists%=-33
  CONST KErrWrite%=-34
  CONST KErrRead%=-35
  CONST KErrEof%=-36
  CONST KErrFull%=-37
  CONST KErrName%=-38
  CONST KErrAccess%=-39
  CONST KErrLocked%=-40
  CONST KErrDevNotExist%=-41
  CONST KErrDir%=-42
  CONST KErrRecord%=-43
  CONST KErrReadOnly%=-44
  CONST KErrInvalidIO%=-45
  CONST KErrFilePending%=-46
  CONST KErrVolume%=-47
  CONST KErrIOCancelled%=-48

rem Erreurs spécifiques à l'OPL
  CONST KErrSyntax%=-77
  CONST KOplStructure%=-85
  CONST KErrIllegal%=-96
  CONST KErrNumArg%=-97
  CONST KErrUndef%=-98
  CONST KErrNoProc%=-99
  CONST KErrNoFld%=-100
  CONST KErrOpen%=-101
  CONST KErrClosed%=-102
  CONST KErrRecSize%=-103
  CONST KErrModLoad%=-104
  CONST KErrMaxLoad%=-105
  CONST KErrNoMod%=-106
  CONST KErrNewVer%=-107
  CONST KErrModNotLoaded%=-108
  CONST KErrBadFileType%=-109
  CONST KErrTypeViol%=-110
  CONST KErrSubs%=-111
  CONST KErrStrTooLong%=-112
  CONST KErrDevOpen%=-113
  CONST KErrEsc%=-114
  CONST KErrMaxDraw%=-117
  CONST KErrDrawNotOpen%=-118
  CONST KErrInvalidWindow%=-119
  CONST KErrScreenDenied%=-120
  CONST KErrOpxNotFound%=-121
  CONST KErrOpxVersion%=-122
  CONST KErrOpxProcNotFound%=-123
  CONST KErrStopInCallback%=-124
  CONST KErrIncompUpdateMode%=-125
  CONST KErrInTransaction%=-126

rem -127 à -133 Erreurs de l'intrepréteur
  CONST KErrBadAlignment%=-134

rem Mois de l'année
  CONST KJanuary%=1
  CONST KFebruary%=2
  CONST KMarch%=3
  CONST KApril%=4
  CONST KMay%=5
  CONST KJune%=6
  CONST KJuly%=7
  CONST KAugust%=8
  CONST KSeptember%=9
  CONST KOctober%=10
  CONST KNovember%=11
  CONST KDecember%=12

rem Jours de la semaine
  CONST KMonday%=1
  CONST KTuesday%=2
  CONST KWednesday%=3
  CONST KThursday%=4
  CONST KFriday%=5
  CONST KSaturday%=6
  CONST KSunday%=7

rem DATIM$ offsets
  CONST KDatimOffDayName%=1
  CONST KDatimOffDay%=5
  CONST KDatimOffMonth%=8
  CONST KDatimOffYear%=12
  CONST KDatimOffHour%=17
  CONST KDatimOffMinute%=20
  CONST KDatimOffSecond%=23

rem Valeurs pour localisation de l'AIDE
  CONST KHelpView%=0
  CONST KHelpDialog%=1
  CONST KHelpMenu%=2

rem Pour BUSY et GIPRINT
  CONST KBusyTopLeft%=0
  CONST KBusyBottomLeft%=1
  CONST KBusyTopRight%=2
  CONST KBusyBottomRight%=3
  CONST KBusyMaxText%=80

rem Pour CMD$
  CONST KCmdAppName%=1 rem Chemin d'accès complet utilisé pour démarrer une application
  CONST KCmdUsedFile%=2
  CONST KCmdLetter%=3

rem Pour CMD$(3)
  CONST KCmdLetterCreate$="C"
  CONST KCmdLetterOpen$="O"
  CONST KCmdLetterRun$="R"
  CONST KCmdLetterBackground$="B"
  CONST KCmdLetterViewActivate$="V"
  CONST KCmdLetterRunWithoutViews$="W"

rem Pour GETCMD$
  CONST KGetCmdLetterCreate$="C"
  CONST KGetCmdLetterOpen$="O"
  CONST KGetCmdLetterExit$="X"
  CONST KGetCmdLetterBroughtToFGround$="F"
  CONST KGetCmdLetterBackup$="S"
  CONST KGetCmdLetterRestart$="R"
  CONST KGetCmdLetterUnknown$="U"

rem Réservations de tableau PARSE$
  CONST KParseAOffFSys%=1
  CONST KParseAOffDev%=2
  CONST KParseAOffPath%=3
  CONST KParseAOffFilename%=4
  CONST KParseAOffExt%=5
  CONST KParseAOffWild%=6

rem Wild-card flags
  CONST KParseWildNone%=0
  CONST KParseWildFilename%=1
  CONST KParseWildExt%=2
  CONST KParseWildBoth%=3

rem Pour CURSOR
  CONST KCursorTypeNotFlashing%=2
  CONST KCursorTypeGray%=4

rem Pour FINDFIELD
  CONST KFindCaseDependent%=16
  CONST KFindBackwards%=0
  CONST KFindForwards%=1
  CONST KFindBackwardsFromEnd%=2
  CONST KFindForwardsFromStart%=3

rem Réservation de tableau SCREENINFO
  CONST KSInfoALeft%=1
  CONST KSInfoATop%=2
  CONST KSInfoAScrW%=3
  CONST KSInfoAScrH%=4
  CONST KSInfoAReserved1%=5
  CONST KSInfoAFont%=6
  CONST KSInfoAPixW%=7
  CONST KSInfoAPixH%=8
  CONST KSInfoAReserved2%=9
  CONST KSInfoAReserved3%=10

rem Unicode d'ellipse, nouvelle ligne (LF)et retour charriot (CR)
  CONST KEllipsis&=&2026
  CONST KLineFeed&=10
  CONST KCarriageReturn&=13

rem Pour SETFLAGS
  CONST KRestrictTo64K&=&0001
  CONST KAutoCompact&=&0002
  CONST KTwoDigitExponent&=&0004
  CONST KMenuCancelCompatibility&=&0008
  CONST KAlwaysWriteAsciiTextFiles&=&0016
  CONST KSendSwitchOnMessage&=&10000

rem Pour faciliter le portage vers l'Unicode OPL
  CONST KOplAlignment%=1
  CONST KOplStringSizeFactor%=2

rem ******************************
rem *** GESTION DES EVENEMENTS ***
rem ******************************


rem Touches spéciales
  CONST KKeyDel%=8
  CONST KKeyTab%=9
  CONST KKeyEnter%=13
  CONST KKeyEsc%=27
  CONST KKeySpace%=32

rem Valeur du code scanné
  CONST KScanDel%=1
  CONST KScanTab%=2
  CONST KScanEnter%=3
  CONST KScanEsc%=4
  CONST KScanSpace%=5

rem Index du tableau GETEVENT32
  CONST KEvAType%=1
  CONST KEvATime%=2
  CONST KEvAScan%=3
  CONST KEvAKMod%=4
  CONST KEvAKRep%=5

rem Réservations du tableau de Pointeur d'événements
  CONST KEvAPtrOplWindowId%=3
  CONST KEvAPtrWindowId%=3
  CONST KEvAPtrType%=4
  CONST KEvAPtrModifiers%=5
  CONST KEvAPtrPositionX%=6
  CONST KEvAPtrPositionY%=7
  CONST KEvAPtrScreenPosX%=8
  CONST KEvAPtrScreenPosY%=9

rem Types d'événements
  CONST KEvNotKeyMask&=&400
  CONST KEvFocusGained&=&401
  CONST KEvFocusLost&=&402
  CONST KEvSwitchOn&=&403
  CONST KEvCommand&=&404
  CONST KEvDateChanged&=&405
  CONST KEvKeyDown&=&406
  CONST KEvKeyUp&=&407
  CONST KEvPtr&=&408
  CONST KEvPtrEnter&=&409
  CONST KEvPtrExit&=&40A

rem Types de pointeurs d'événements
  CONST KEvPtrPenDown&=0
  CONST KEvPtrPenUp&=1
  CONST KEvPtrButton1Down&=KEvPtrPenDown&
  CONST KEvPtrButton1Up&=KEvPtrPenUp&
  CONST KEvPtrButton2Down&=2
  CONST KEvPtrButton2Up&=3
  CONST KEvPtrButton3Down&=4
  CONST KEvPtrButton3Up&=5
  CONST KEvPtrDrag&=6
  CONST KEvPtrMove&=7
  CONST KEvPtrButtonRepeat&=8
  CONST KEvPtrSwitchOn&=9

rem Pour Pointer Filter?
  CONST KPointerFilterEnterExit%=$1
  CONST KPointerFilterMove%=$2
  CONST KPointerFilterDrag%=$4

rem   CONSTantes de Clavier (pour les mots-clés 32-bits tels que GETEVENT32)
  CONST KKeyHelp32&=&f83a
  CONST KKeyMenu32&=&f836
  CONST KKeySidebarMenu32&=&f700
  CONST KKeyPageLeft32&=&f802
  CONST KKeyPageRight32&=&f803
  CONST KKeyPageUp32&=&f804
  CONST KKeyPageDown32&=&f805
  CONST KKeyLeftArrow32&=&f807
  CONST KKeyRightArrow32&=&f808
  CONST KKeyUpArrow32&=&f809
  CONST KKeyDownArrow32&=&f80a

rem Pour le tableau de touches de commande
  CONST KKeyCBA1&=&f842
  CONST KKeyCBA2&=&f843
  CONST KKeyCBA3&=&f844
  CONST KKeyCBA4&=&f845

rem Touches spéciales
  CONST KKeyZoomIn32&=&f703
  CONST KKeyZoomOut32&=&f704
  CONST KKeyIncBrightness32&=&f864

rem Pour les mots d'état de 32 bits IOWAIT et IOWAITSTAT32
rem Utiliser KErrFilePending% (-46) pour les mots d'état de 16 bits
  CONST KStatusPending32&=&80000001

rem Pour KMOD
  CONST KKmodShift%=2
  CONST KKmodControl%=4
  CONST KKmodCaps%=16
  CONST KKmodFn%=32

rem *****************
rem *** DIALOGUES ***
rem *****************

rem Pour ALERT
  CONST KAlertEsc%=1
  CONST KAlertEnter%=2
  CONST KAlertSpace%=3

rem Pour dBUTTON
  CONST KDButtonNoLabel%=$100
  CONST KDButtonPlainKey%=$200
  CONST KDButtonBlank$=
  CONST KDButtonBlank%=0
  CONST KDButtonDel%=8
  CONST KDButtonTab%=9
  CONST KDButtonEnter%=13
  CONST KDButtonEsc%=27
  CONST KDButtonSpace%=32

rem Valeurs retournées par DIALOG
  CONST KDlgCancel%=0

rem Pour dEDITMULTI et impression
  CONST KParagraphDelimiter&=$2029 rem $06 en code ASCII
  CONST KLineBreak&=$2028 rem $07 en code ASCII
  CONST KPageBreak&=$000c rem $08 en code ASCII
  CONST KTabCharacter&=$0009 rem $09 en code ASCII
  CONST KNonBreakingHyphen&=$2011 rem $0b en code ASCII
  CONST KPotentialHyphen&=$00ad rem $0c en code ASCII
  CONST KNonBreakingSpace&=$00a0 rem $10 en code ASCII
  CONST KPictureCharacter&=$fffc rem $0e en code ASCII
  CONST KVisibleSpaceCharacter&=$0020 rem $0f en code ASCII

rem Pour dFILE
  CONST KDFileNameLen%=255
  rem attributs
  CONST KDFileEditBox%=$0001
  CONST KDFileAllowFolders%=$0002
  CONST KDFileFoldersOnly%=$0004
  CONST KDFileEditorDisallowExisting%=$0008
  CONST KDFileEditorQueryExisting%=$0010
  CONST KDFileAllowNullStrings%=$0020
  CONST KDFileAllowWildCards%=$0080
  CONST KDFileSelectorWithRom%=$0100
  CONST KDFileSelectorWithSystem%=$0200
  CONST KDFileSelectorAllowNewFolder%=$0400
  CONST KDFileSelectorShowHidden%=$0800
  rem Current OPL-related UIDs (pour les restrictions de dFILE UID)
  CONST KUidDirectFileStore&=&10000037
  CONST KUidOplInterpreter&=&10005D2E
  CONST KUidOpo&=&100055C0
  CONST KUidOplApp&=&100055C1
  CONST KUidOplDoc&=&100055C2
  CONST KUidOplFile&=&1000008A
  CONST KUidOpxDll&=&10003A7B

rem Attributs de dINIT
  CONST KDlgButRight%=1
  CONST KDlgNoTitle%=2
  CONST KDlgFillScreen%=4
  CONST KDlgNoDrag%=8
  CONST KDlgDensePack%=16

rem Pour dPOSITION
  CONST KDPositionLeft%=-1
  CONST KDPositionCenter%=0
  CONST KDPositionRight%=1
  CONST KDPositionTop%=-1
  CONST KDPositionBottom%=1

rem Pour dTEXT
  CONST KDTextLeft%=0
  CONST KDTextRight%=1
  CONST KDTextCenter%=2
  CONST KDTextBold%=$100 rem Actuellement ignoré
  CONST KDTextLineBelow%=$200
  CONST KDTextAllowSelection%=$400
  CONST KDTextSeparator%=$800

rem Pour dTIME
  CONST KDTimeAbsNoSecs%=0
  CONST KDTimeAbsWithSecs%=1
  CONST KDTimeDurationNoSecs%=2
  CONST KDTimeDurationWithSecs%=3
  rem attributs de dTIME (pour combinaisons de ORing)
  CONST KDTimeWithSeconds%=1
  CONST KDTimeDuration%=2
  CONST KDTimeNoHours%=4
  CONST KDTime24Hour%=8

rem Pour dXINPUT
  CONST KDXInputMaxLen%=32

rem Pour dCHOICE standard Oui/Non ?
  CONST KNoYesChoiceNo%=1
  CONST KNoYesChoiceYes%=2

rem *************
rem *** MENUS ***
rem *************

rem Pour mCARD et mCASC
  CONST KMenuDimmed%=$1000
  CONST KMenuSymbolOn%=$2000
  CONST KMenuSymbolIndeterminate%=$4000
  CONST KMenuCheckBox%=$0800
  CONST KMenuOptionStart%=$0900
  CONST KMenuOptionMiddle%=$0a00
  CONST KMenuOptionEnd%=$0b00

rem type de position de mPOPUP – Spécifie quel coin
rem du menu popup est pointé par les coordonnées spécifiées
  CONST KMPopupPosTopLeft%=0
  CONST KMPopupPosTopRight%=1
  CONST KMPopupPosBottomLeft%=2
  CONST KMPopupPosBottomRight%=3

rem **************
rem *** IMAGES ***
rem **************

rem Pour 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 Masque des couleurs RGB
  CONST KRgbRedPosition&=&10000
  CONST KRgbGreenPosition&=$100
  CONST KRgbBluePosition&=$1
  CONST KRgbColorMask&=$ff

rem Valeur des couleurs RGB
  CONST KRgbBlack&=&000000 rem noir
  CONST KRgbDarkGray&=&555555 rem gris foncé
  CONST KRgbDarkRed&=&800000 rem rouge foncé
  CONST KRgbDarkGreen&=&008000 rem vert foncé
  CONST KRgbDarkYellow&=&808000 rem jaune foncé
  CONST KRgbDarkBlue&=&000080 rem bleu foncé
  CONST KRgbDarkMagenta&=&800080 rem magenta foncé
  CONST KRgbDarkCyan&=&008080 rem cyan foncé
  CONST KRgbRed&=&ff0000 rem rouge
  CONST KRgbGreen&=&00ff00 rem vert
  CONST KRgbYellow&=&ffff00 rem jaune
  CONST KRgbBlue&=&0000ff rem bleu
  CONST KRgbMagenta&=&ff00ff rem magenta
  CONST KRgbCyan&=&00ffff rem cyan
  CONST KRgbGray&=&aaaaaa rem gris
  CONST KRgbDitheredLightGray&=&cccccc rem gris clair
  CONST KRgb1in4DitheredGray&=&ededed rem gris très clair
  CONST KRgbWhite&=&ffffff rem blanc
  rem Pointage facile des combinaisons de couleur RGB ci-dessus
  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 Pour gBORDER et gXBORDER
  CONST KBordSglShadow%=1 rem ombré
  CONST KBordSglGap%=2 rem discontinu
  CONST KBordDblShadow%=3 rem ombre double
  CONST KBordDblGap%=4 rem double discontinu
  CONST KBordGapAllRound%=$100
  CONST KBordRoundCorners%=$200 rem coin arrondis
  CONST KBordLosePixel%=$400

rem Pour 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 Pour gCLOCK
  CONST KClockLocaleConformant%=6
  CONST KClockSystemSetting%=KClockLocaleConformant%
  CONST KClockAnalog%=7 rem horloge à aiguilles
  CONST KClockDigital%=8 rem horloge digitale
  CONST KClockLargeAnalog%=9 rem grande horloge à aiguille
  rem gClock 10 n'est plus supporté (utiliser à la place gCLOCK 11)
  CONST KClockFormattedDigital%=11 rem horloge digitale formatée

rem Pour gCREATE
  CONST KgCreateInvisible%=0
  CONST KgCreateVisible%=1
  CONST KgCreateHasShadow%=$0010
  rem Constantes des modes de couleur
  CONST KgCreate2GrayMode%=$0000 rem noir/blanc
  CONST KgCreate4GrayMode%=$0001 rem noir/gris/blanc 4 couleurs
  CONST KgCreate16GrayMode%=$0002 rem noir/gris/blanc 16 couleurs
  CONST KgCreate256GrayMode%=$0003 rem noir/gris/blanc 256 couleurs
  CONST KgCreate16ColorMode%=$0004 rem 16 couleurs
  CONST KgCreate256ColorMode%=$0005 rem 256 couleurs
  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 Constantes de mode d'affichage
  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 Pour 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 noms de Fontes
  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 Pour gINFO32
  CONST KgInfo32Size%=48
rem 1,2 réservés
  CONST KgInfo32FontHeight%=KgInfoFontHeight%
  CONST KgInfo32FontDescent%=KgInfoFontDescent%
  CONST KgInfo32FontAscent%=KgInfoFontAscent%
  CONST KgInfo32Width0Char%=KgInfoWidth0Char%
  CONST KgInfo32MaxCharWidth%=KgInfoMaxCharWidth%
  CONST KgInfo32FontFlag%=KgInfoFontFlag%
  CONST KgInfo32FontUID%=9
rem 10–17 inutilisé
  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 Pour gLOADBIT
  CONST KgLoadBitReadOnly%=0
  CONST KgLoadBitWriteable%=1

rem Pour 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 Valeurs par défaut
  CONST KgPrintBDefAligned%=KgPrintBLeftAligned%
  CONST KgPrintBDefTop%=0
  CONST KgPrintBDefBottom%=0
  CONST KgPrintBDefMargin%=0

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

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

rem Pour gFONT
  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 *** Entrées / Sorties? ACCESS"" ***
rem ***********************************

rem Pour IOOPEN
rem Mode catégorie 1
  CONST KIoOpenModeOpen%=$0000
  CONST KIoOpenModeCreate%=$0001
  CONST KIoOpenModeReplace%=$0002
  CONST KIoOpenModeAppend%=$0003
  CONST KIoOpenModeUnique%=$0004
rem Mode catégorie 2
  CONST KIoOpenFormatBinary%=$0000
  CONST KIoOpenFormatText%=$0020
rem Mode catégorie 3
  CONST KIoOpenAccessUpdate%=$0100
  CONST KIoOpenAccessRandom%=$0200
  CONST KIoOpenAccessShare%=$0400

rem ******************************
rem *** Création d'APPLICATION ***
rem ******************************


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

rem Code des Langues pour 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 Valeurs de priorité MIME
  CONST KDataTypePriorityUserSpecified%=KMaxInt%
  CONST KDataTypePriorityHigh%=10000
  CONST KDataTypePriorityNormal%=0
  CONST KDataTypePriorityLow%=-10000
  CONST KDataTypePriorityLastResort%=-20000
  CONST KDataTypePriorityNotSupported%=KMinInt%

rem ************************
rem *** FIN de CONST.OPH ***
rem ************************