diff options
Diffstat (limited to 'gfx/keys.inc')
| -rw-r--r-- | gfx/keys.inc | 270 |
1 files changed, 270 insertions, 0 deletions
diff --git a/gfx/keys.inc b/gfx/keys.inc new file mode 100644 index 00000000..2d4eeb9f --- /dev/null +++ b/gfx/keys.inc @@ -0,0 +1,270 @@ +{ + fpGFX - Free Pascal Graphics Library + Copyright (C) 2000 - 2001 by + Areca Systems GmbH / Sebastian Guenther, sg@freepascal.org + Copyright (C) 2006 by Graeme Geldenhuys + member of the fpGFX development team. + + fpGFX Keyboard definitions + + See the file COPYING.modifiedLGPL, included in this distribution, + for details about the copyright. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + + **********************************************************************} + +{ + We use GGI's key definitions; the names just + have been somewhat pascalified... + GGI info at <http://www.ggi-project.org> + GII info at <http://www.ggi-project.org/packages/libgii.html> +} + +const + + // ASCII keys + + keyNul = $00; + keyBackSpace = $08; + keyTab = $09; + keyLinefeed = $0a; + keyReturn = $0d; + keyEscape = $1b; + keyDelete = $7f; + + // special keys + + keyVoid = $e000; + keyBreak = $e005; + keyScrollForw = $e00a; + keyScrollBack = $e00b; + keyBoot = $e00c; + keyCompose = $e00e; + keySAK = $e00f; + keyUndo = $e017; + keyRedo = $e018; + keyMenu = $e019; + keyCancel = $e01a; + keyPrintScreen = $e01b; + keyExecute = $e01c; + keyFind = $e01e; + keyBegin = $e01f; + keyClear = $e020; + keyInsert = $e022; + keySelect = $e023; + keyMacro = $e026; + keyHelp = $e027; + keyDo = $e028; + keyPause = $e029; + keyStop = keyPause; + keySysRq = $e02a; + keyModeSwitch = $e02b; + keyUp = $e032; + keyDown = $e033; + keyLeft = $e034; + keyRight = $e035; + keyPrior = $e036; + keyPageUp = keyPrior; + keyNext = $e037; + keyPageDown = keyNext; + keyHome = $e038; + keyEnd = $e039; + + + // function keys + + keyF0 = $e100; + keyF1 = $e101; + keyF2 = $e102; + keyF3 = $e103; + keyF4 = $e104; + keyF5 = $e105; + keyF6 = $e106; + keyF7 = $e107; + keyF8 = $e108; + keyF9 = $e109; + keyF10 = $e10a; + keyF11 = $e10b; + keyF12 = $e10c; + keyF13 = $e10d; + keyF14 = $e10e; + keyF15 = $e10f; + keyF16 = $e110; + keyF17 = $e111; + keyF18 = $e112; + keyF19 = $e113; + keyF20 = $e114; + keyF21 = $e115; + keyF22 = $e116; + keyF23 = $e117; + keyF24 = $e118; + keyF25 = $e119; + keyF26 = $e11a; + keyF27 = $e11b; + keyF28 = $e11c; + keyF29 = $e11d; + keyF30 = $e11e; + keyF31 = $e11f; + keyF32 = $e120; + keyF33 = $e121; + keyF34 = $e122; + keyF35 = $e123; + keyF36 = $e124; + keyF37 = $e125; + keyF38 = $e126; + keyF39 = $e127; + keyF40 = $e128; + keyF41 = $e129; + keyF42 = $e12a; + keyF43 = $e12b; + keyF44 = $e12c; + keyF45 = $e12d; + keyF46 = $e12e; + keyF47 = $e12f; + keyF48 = $e130; + keyF49 = $e131; + keyF50 = $e132; + keyF51 = $e133; + keyF52 = $e134; + keyF53 = $e135; + keyF54 = $e136; + keyF55 = $e137; + keyF56 = $e138; + keyF57 = $e139; + keyF58 = $e13a; + keyF59 = $e13b; + keyF60 = $e13c; + keyF61 = $e13d; + keyF62 = $e13e; + keyF63 = $e13f; + keyF64 = $e140; + + + // keys on the numeric keypad + keyP0 = $e230; + keyP1 = $e231; + keyP2 = $e232; + keyP3 = $e233; + keyP4 = $e234; + keyP5 = $e235; + keyP6 = $e236; + keyP7 = $e237; + keyP8 = $e238; + keyP9 = $e239; + keyPA = $e241; + keyPB = $e242; + keyPC = $e243; + keyPD = $e244; + keyPE = $e245; + keyPF = $e246; + keyPPlus = $e200 + Ord('+'); + keyPMinus = $e200 + Ord('-'); + keyPSlash = $e200 + Ord('/'); + keyPAsterisk = $e200 + Ord('*'); + keyPStar = keyPAsterisk; + keyPEqual = $e200 + Ord('='); + keyPSeparator = $e200 + Ord(','); + keyPDecimal = $e200 + Ord('.'); + keyPParenLeft = $e200 + Ord('('); + keyPParenRight = $e200 + Ord(')'); + keyPSpace = $e200 + Ord(' '); + keyPEnter = $e20d; + keyPTab = $e208; + keyPPlusMinus = $e280; + keyPBegin = $e281; + keyPF1 = $e291; + keyPF2 = $e292; + keyPF3 = $e293; + keyPF4 = $e294; + keyPF5 = $e295; + keyPF6 = $e296; + keyPF7 = $e297; + keyPF8 = $e298; + keyPF9 = $e299; + + + // modifier keys + + keyShift = $e300; + keyCtrl = $e301; + keyAlt = $e302; + keyMeta = $e303; + keySuper = $e304; + keyHyper = $e305; + keyAltGr = $e306; + keyCaps = $e307; + keyNum = $e308; + keyScroll = $e309; + + + // modifier _labels_ + + keyShiftL = $e300; + keyShiftR = $e340; + keyCtrlL = $e301; + keyCtrlR = $e341; + keyAltL = $e302; + keyAltR = $e342; + keyMetaL = $e303; + keyMetaR = $e343; + keySuperL = $e304; + keySuperR = $e344; + keyHyperL = $e305; + keyHyperR = $e345; + keyShiftLock = $e380; + keyCtrlLock = $e381; + keyAltLock = $e382; + keyMetaLock = $e383; + keySuperLock = $e384; + keyHyperLock = $e385; + keyAltGrLock = $e386; + keyCapsLock = $e387; + keyNumLock = $e388; + keyScrollLock = $e389; + + // Dead keys + keyDeadRing = $e400; + keyDeadCaron = $e401; + keyDeadOgonek = $e402; + keyDeadIota = $e403; + keyDeadDoubleAcute = $e404; + keyDeadBreve = $e405; + keyDeadAboveDot = $e406; + keyDeadBelowDot = $e407; + keyDeadVoicedSound = $e408; + keyDeadSemiVoicedSound = $e409; + + + keyDeadAcute = $e4b4; + keyDeadCedilla = $e4b8; + keyDeadCircumflex = $e45e; + keyDeadDiaeresis = $e4a8; + keyDeadGrave = $e460; + keyDeadTilde = $e47e; + keyDeadMacron = $e4af; + + // miscellaneous + keyNIL = $ffff; // used to indicate "not mapped yet" + + + // currencies (NOTE: These values are not defined in GGI/GII! + // !!!: Check if GII has got currency codes in the meantime + keyEcuSign = $e500; + keyColonSign = $e501; + keyCruzeiroSign = $e502; + keyFFrancSign = $e503; + keyLiraSign = $e504; + keyMillSign = $e505; + keyNairaSign = $e506; + keyPesetaSign = $e507; + keyRupeeSign = $e508; + keyWonSign = $e509; + keyNewSheqelSign = $e50a; + keyDongSign = $e50b; + keyEuroSign = $e50c; + + + |