Key
Previous topic  First topic  Next topic





Define and Properties

Note: You can see the KeyName list below

Properties
Status
Default
Planned
Started
Ready
Comments
CREATE KEY cKeyName 
      [ ; OF cWindow | (cVarName) | &(cExpression) ]
Parent.Name
  
A reference to the Parent Window
      [ PLUSCONTROL .T. | .F. ]
.F.
  
The control need that user press the CONTROL key too for detect
      [ PLUSALT .T. | .F. ]
.F.
  
The control need that user press the ALT key too for detect
      [ PLUSSHIFT .T. | .F. ]
.F.
  
The control need that user press the SHIFT key too for detect
      [ PLUSMETA .T. | .F. ]
.F.
  
The control need that user press the META key too for detect (Ex: WINDOWS KEY is a meta KEY)
      [ ENABLED .T. | .F. ]
.T.
  
Enable or Disable control
      [ FORCEACTION .T. | .F. ]
.F.
  
It force the execution of the actions defined by methods like ACTION, ONENTER, ONCLICK, ONDBLCLICK, etc. when NOTABSTOP property was set '.T.'. This property is useful when application focus is over a control when a VALID clause and it doesn't permit lostfocus.
      [ ACTION cOnClick | {BOnClick} ]
NIL
  
An action to be performed when KEY was pressed
END KEY 



Methods


Methods
Status
Default
Planned
Started
Ready
Comments
    ACTION
n/a
  
Execute ACTION block coded in CREATE or seted by mg_Set
    RELEASE
n/a
  
This method is used to destroy the control.



NOTE: Key name 'ALL' will be trap ANY keys pressed

Valid Keys:

All
Escape
Tab
Backtab
Backspace
Return
Enter
Insert
Delete
Pause
Print
SysReq
Clear
Home
End
Left
Up
Right
Down
PageUp
PageDown
Shift
Control
Meta
Alt
AltGr
CapsLock
NumLock
ScrollLock
F1
F2
F3
F4
F5
F6
F7
F8
F9
F10
F11
F12
F13
F14
F15
F16
F17
F18
F19
F20
F21
F22
F23
F24
F25
F26
F27
F28
F29
F30
F31
F32
F33
F34
F35
Super_L
Super_R
Menu
Hyper_L
Hyper_R
Help
Direction_L
Direction_R
?????
Space
Any
Exclam
QuoteDbl
NumberSign
Dollar
Percent
Ampersand
Apostrophe
ParenLeft
ParenRight
Asterisk
Plus
Comma
Minus
Period
Slash
0
1
2
3
4
5
6
7
8
9
Colon
Semicolon
Less
Equal
Greater
Question
At
A
B
C
D
E
F
G
H
I
J
K
L
M
N
O
P
Q
R
S
T
U
V
W
X
Y
Z
BracketLeft
Backslash
BracketRight
AsciiCircum
Underscore
QuoteLeft
BraceLeft
Bar
BraceRight
AsciiTilde
nobreakspace
exclamdown
cent
sterling
currency
yen
brokenbar
section
diaeresis
copyright
ordfeminine
guillemotleft
notsign
hyphen
registered
macron
degree
plusminus
twosuperior
threesuperior
acute
mu
paragraph
periodcentered
cedilla
onesuperior
masculine
guillemotright
onequarter
onehalf
threequarters
questiondown
Agrave
Aacute
Acircumflex
Atilde
Adiaeresis
Aring
AE
Ccedilla
Egrave
Eacute
Ecircumflex
Ediaeresis
Igrave
Iacute
Icircumflex
Idiaeresis
ETH
Ntilde
Ograve
Oacute
Ocircumflex
Otilde
Odiaeresis
multiply
Ooblique
Ugrave
Uacute
Ucircumflex
Udiaeresis
Yacute
THORN
ssharp
division
ydiaeresis
Multi_key
Codeinput
SingleCandidate
MultipleCandidate
PreviousCandidate
Mode_switch
Kanji
Muhenkan
Henkan
Romaji
Hiragana
Katakana
Hiragana_Katakana
Zenkaku
Hankaku
Zenkaku_Hankaku
Touroku
Massyo
Kana_Lock
Kana_Shift
Eisu_Shift
Eisu_toggle
Hangul
Hangul_Start
Hangul_End
Hangul_Hanja
Hangul_Jamo
Hangul_Romaja
Hangul_Jeonja
Hangul_Banja
Hangul_PreHanja
Hangul_PostHanja
Hangul_Special
Dead_Grave
Dead_Acute
Dead_Circumflex
Dead_Tilde
Dead_Macron
Dead_Breve
Dead_Abovedot
Dead_Diaeresis
Dead_Abovering
Dead_Doubleacute
Dead_Caron
Dead_Cedilla
Dead_Ogonek
Dead_Iota
Dead_Voiced_Sound
Dead_Semivoiced_Sound
Dead_Belowdot
Dead_Hook
Dead_Horn
Back
Forward
Stop
Refresh
VolumeDown
VolumeMute
VolumeUp
BassBoost
BassUp
BassDown
TrebleUp
TrebleDown
MediaPlay
MediaStop
MediaPrevious
MediaNext
MediaRecord
HomePage
Favorites
Search
Standby
OpenUrl
LaunchMail
LaunchMedia
Launch0
Launch1
Launch2
Launch3
Launch4
Launch5
Launch6
Launch7
Launch8
Launch9
LaunchA
LaunchB
LaunchC
LaunchD
LaunchE
LaunchF
MediaLast
unknown
Call
Context1
Context2
Context3
Context4
Flip
Hangup
No
Select
Yes
Execute
Printer
Play
Sleep
Zoom
Cancel


Example:

File: d_key.prg


#include "marinas-gui.ch"

Function main()

   SET APPLSTYLE TO "MarinasLooks"

   CREATE WINDOW d_window
      ROW 0 ; COL 0
      WIDTH 820 ; HEIGHT 480
      CAPTION "Marinas-GUI Sample for Key Control"
      ICON "../resource/d_test.ico"
      BACKCOLOR {223,242,253}
      MAIN .T.

      d_key_def()

   END WINDOW

   mg_Do( "d_window" , "center" )

   mg_Do( "d_window" , "activate" )

Return .T.


File: d_key_def.prg

#include "marinas-gui.ch"

MEMVAR cSampleKeyLastKeyAnt

Function d_key_def()

    PUBLIC cSampleKeyLastKeyAnt := ""

    if !mg_IsControlCreated( "d_window" , "MainDemo_Tab" )
       CREATE KEY ALL
           ACTION {|| ButtonRefresh() }
       END KEY
    endif

    CREATE KEY F1
           ACTION {|| mg_MsgInfo( "Help Key Pressed" )}
    END KEY

    CREATE KEY Control+P
           ACTION {|| mg_MsgInfo( "Control+P Keys Pressed" )}
    END KEY

    CREATE KEY Shift+X
           ACTION {|| mg_MsgInfo( "Shift+X Keys Pressed" )}
    END KEY

    CREATE KEY Alt+M
           ACTION {|| mg_MsgInfo( "Alt+M Keys Pressed" )}
    END KEY

    CREATE KEY Control+Alt+R
           ACTION {|| mg_MsgInfo( "Control+Alt+R Keys Pressed" )}
    END KEY

    CREATE KEY Meta+H
           ACTION {|| mg_MsgInfo( "Meta+H Keys Pressed" )}
    END KEY

    CREATE BUTTON B_Key_F1
           ROW    70
           COL    250
           WIDTH  28
           HEIGHT 28
           CAPTION "F1"
           FONTBOLD .T.
     END BUTTON

    CREATE BUTTON B_Key_F2
           ROW    70
           COL    280
           WIDTH  28
           HEIGHT 28
           CAPTION "F2"
           FONTBOLD .T.
     END BUTTON

    CREATE BUTTON B_Key_F3
           ROW    70
           COL    310
           WIDTH  28
           HEIGHT 28
           CAPTION "F3"
           FONTBOLD .T.
     END BUTTON

    CREATE BUTTON B_Key_F4
           ROW    70
           COL    340
           WIDTH  28
           HEIGHT 28
           CAPTION "F4"
           FONTBOLD .T.
     END BUTTON

    CREATE BUTTON B_Key_F5
           ROW    70
           COL    380
           WIDTH  28
           HEIGHT 28
           CAPTION "F5"
           FONTBOLD .T.
     END BUTTON

    CREATE BUTTON B_Key_F6
           ROW    70
           COL    410
           WIDTH  28
           HEIGHT 28
           CAPTION "F6"
           FONTBOLD .T.
     END BUTTON

    CREATE BUTTON B_Key_F7
           ROW    70
           COL    440
           WIDTH  28
           HEIGHT 28
           CAPTION "F7"
           FONTBOLD .T.
     END BUTTON

    CREATE BUTTON B_Key_F8
           ROW    70
           COL    470
           WIDTH  28
           HEIGHT 28
           CAPTION "F8"
           FONTBOLD .T.
     END BUTTON

    CREATE BUTTON B_Key_F9
           ROW    70
           COL    510
           WIDTH  28
           HEIGHT 28
           CAPTION "F9"
           FONTBOLD .T.
     END BUTTON

    CREATE BUTTON B_Key_F10
           ROW    70
           COL    540
           WIDTH  28
           HEIGHT 28
           CAPTION "F10"
           FONTBOLD .T.
     END BUTTON

    CREATE BUTTON B_Key_F11
           ROW    70
           COL    570
           WIDTH  28
           HEIGHT 28
           CAPTION "F11"
           FONTBOLD .T.
     END BUTTON

    CREATE BUTTON B_Key_F12
           ROW    70
           COL    600
           WIDTH  28
           HEIGHT 28
           CAPTION "F12"
           FONTBOLD .T.
     END BUTTON

    CREATE BUTTON B_Key_1
           ROW    110
           COL    250
           WIDTH  28
           HEIGHT 28
           CAPTION "1"
           FONTBOLD .T.
     END BUTTON

    CREATE BUTTON B_Key_2
           ROW    110
           COL    280
           WIDTH  28
           HEIGHT 28
           CAPTION "2"
           FONTBOLD .T.
     END BUTTON

    CREATE BUTTON B_Key_3
           ROW    110
           COL    310
           WIDTH  28
           HEIGHT 28
           CAPTION "3"
           FONTBOLD .T.
     END BUTTON

    CREATE BUTTON B_Key_4
           ROW    110
           COL    340
           WIDTH  28
           HEIGHT 28
           CAPTION "4"
           FONTBOLD .T.
     END BUTTON

    CREATE BUTTON B_Key_5
           ROW    110
           COL    370
           WIDTH  28
           HEIGHT 28
           CAPTION "5"
           FONTBOLD .T.
     END BUTTON

    CREATE BUTTON B_Key_6
           ROW    110
           COL    400
           WIDTH  28
           HEIGHT 28
           CAPTION "6"
           FONTBOLD .T.
     END BUTTON

    CREATE BUTTON B_Key_7
           ROW    110
           COL    430
           WIDTH  28
           HEIGHT 28
           CAPTION "7"
           FONTBOLD .T.
     END BUTTON

    CREATE BUTTON B_Key_8
           ROW    110
           COL    460
           WIDTH  28
           HEIGHT 28
           CAPTION "8"
           FONTBOLD .T.
     END BUTTON

    CREATE BUTTON B_Key_9
           ROW    110
           COL    490
           WIDTH  28
           HEIGHT 28
           CAPTION "9"
           FONTBOLD .T.
     END BUTTON

    CREATE BUTTON B_Key_0
           ROW    110
           COL    520
           WIDTH  28
           HEIGHT 28
           CAPTION "0"
           FONTBOLD .T.
     END BUTTON

    CREATE BUTTON B_Key_Q
           ROW    140
           COL    260
           WIDTH  28
           HEIGHT 28
           CAPTION "Q"
           FONTBOLD .T.
     END BUTTON

    CREATE BUTTON B_Key_W
           ROW    140
           COL    290
           WIDTH  28
           HEIGHT 28
           CAPTION "W"
           FONTBOLD .T.
     END BUTTON

    CREATE BUTTON B_Key_E
           ROW    140
           COL    320
           WIDTH  28
           HEIGHT 28
           CAPTION "E"
           FONTBOLD .T.
     END BUTTON

    CREATE BUTTON B_Key_R
           ROW    140
           COL    350
           WIDTH  28
           HEIGHT 28
           CAPTION "R"
           FONTBOLD .T.
     END BUTTON

    CREATE BUTTON B_Key_T
           ROW    140
           COL    380
           WIDTH  28
           HEIGHT 28
           CAPTION "T"
           FONTBOLD .T.
     END BUTTON

    CREATE BUTTON B_Key_Y
           ROW    140
           COL    410
           WIDTH  28
           HEIGHT 28
           CAPTION "Y"
           FONTBOLD .T.
     END BUTTON

    CREATE BUTTON B_Key_U
           ROW    140
           COL    440
           WIDTH  28
           HEIGHT 28
           CAPTION "U"
           FONTBOLD .T.
     END BUTTON

    CREATE BUTTON B_Key_I
           ROW    140
           COL    470
           WIDTH  28
           HEIGHT 28
           CAPTION "I"
           FONTBOLD .T.
     END BUTTON

    CREATE BUTTON B_Key_O
           ROW    140
           COL    500
           WIDTH  28
           HEIGHT 28
           CAPTION "O"
           FONTBOLD .T.
     END BUTTON

    CREATE BUTTON B_Key_P
           ROW    140
           COL    530
           WIDTH  28
           HEIGHT 28
           CAPTION "P"
           FONTBOLD .T.
     END BUTTON

    CREATE BUTTON B_Key_A
           ROW    170
           COL    270
           WIDTH  28
           HEIGHT 28
           CAPTION "A"
           FONTBOLD .T.
     END BUTTON

    CREATE BUTTON B_Key_S
           ROW    170
           COL    300
           WIDTH  28
           HEIGHT 28
           CAPTION "S"
           FONTBOLD .T.
     END BUTTON

    CREATE BUTTON B_Key_D
           ROW    170
           COL    330
           WIDTH  28
           HEIGHT 28
           CAPTION "D"
           FONTBOLD .T.
     END BUTTON

    CREATE BUTTON B_Key_F
           ROW    170
           COL    360
           WIDTH  28
           HEIGHT 28
           CAPTION "F"
           FONTBOLD .T.
     END BUTTON

    CREATE BUTTON B_Key_G
           ROW    170
           COL    390
           WIDTH  28
           HEIGHT 28
           CAPTION "G"
           FONTBOLD .T.
     END BUTTON

    CREATE BUTTON B_Key_H
           ROW    170
           COL    420
           WIDTH  28
           HEIGHT 28
           CAPTION "H"
           FONTBOLD .T.
     END BUTTON

    CREATE BUTTON B_Key_J
           ROW    170
           COL    450
           WIDTH  28
           HEIGHT 28
           CAPTION "J"
           FONTBOLD .T.
     END BUTTON

    CREATE BUTTON B_Key_K
           ROW    170
           COL    480
           WIDTH  28
           HEIGHT 28
           CAPTION "K"
           FONTBOLD .T.
     END BUTTON

    CREATE BUTTON B_Key_L
           ROW    170
           COL    510
           WIDTH  28
           HEIGHT 28
           CAPTION "L"
           FONTBOLD .T.
     END BUTTON

    CREATE BUTTON B_Key_Z
           ROW    200
           COL    280
           WIDTH  28
           HEIGHT 28
           CAPTION "Z"
           FONTBOLD .T.
     END BUTTON

    CREATE BUTTON B_Key_X
           ROW    200
           COL    310
           WIDTH  28
           HEIGHT 28
           CAPTION "X"
           FONTBOLD .T.
     END BUTTON

    CREATE BUTTON B_Key_C
           ROW    200
           COL    340
           WIDTH  28
           HEIGHT 28
           CAPTION "C"
           FONTBOLD .T.
     END BUTTON

    CREATE BUTTON B_Key_V
           ROW    200
           COL    370
           WIDTH  28
           HEIGHT 28
           CAPTION "V"
           FONTBOLD .T.
     END BUTTON

    CREATE BUTTON B_Key_B
           ROW    200
           COL    400
           WIDTH  28
           HEIGHT 28
           CAPTION "B"
           FONTBOLD .T.
     END BUTTON

    CREATE BUTTON B_Key_N
           ROW    200
           COL    430
           WIDTH  28
           HEIGHT 28
           CAPTION "N"
           FONTBOLD .T.
     END BUTTON

    CREATE BUTTON B_Key_M
           ROW    200
           COL    460
           WIDTH  28
           HEIGHT 28
           CAPTION "M"
           FONTBOLD .T.
     END BUTTON

    CREATE BUTTON B_Key_BackSpace
           ROW    110
           COL    550
           WIDTH  79
           HEIGHT 28
           CAPTION "Back"
     END BUTTON

    CREATE BUTTON B_Key_Escape
           ROW    70
           COL    210
           WIDTH  33
           HEIGHT 28
           CAPTION "Esc"
     END BUTTON

    CREATE BUTTON B_Key_Tab
           ROW    140
           COL    210
           WIDTH  44
           HEIGHT 28
           CAPTION "Tab"
     END BUTTON

    CREATE BUTTON B_Key_CapsLock
           ROW    170
           COL    210
           WIDTH  55
           HEIGHT 28
           CAPTION "C. Lock"
     END BUTTON

    CREATE BUTTON B_Key_Shift
           ROW    200
           COL    210
           WIDTH  65
           HEIGHT 28
           CAPTION "Shift"
     END BUTTON

    CREATE BUTTON B_Key_ShiftR
           ROW    200
           COL    490
           WIDTH  78
           HEIGHT 28
           CAPTION "Shift"
     END BUTTON

    CREATE BUTTON B_Key_Space
           ROW    230
           COL    310
           WIDTH  237
           HEIGHT 28
           CAPTION "Space"
     END BUTTON

    CREATE BUTTON B_Key_Button1
           ROW    110
           COL    210
           WIDTH  37
           HEIGHT 28
           CAPTION ""
     END BUTTON

    CREATE BUTTON B_Key_Return
           ROW    140
           COL    570
           WIDTH  58
           HEIGHT 88
           CAPTION "Return"
     END BUTTON

    CREATE BUTTON B_Key_Control
           ROW    230
           COL    210
           WIDTH  57
           HEIGHT 28
           CAPTION "Ctrl"
     END BUTTON

    CREATE BUTTON B_Key_Alt
           ROW    230
           COL    270
           WIDTH  38
           HEIGHT 28
           CAPTION "Alt"
     END BUTTON

    CREATE BUTTON B_Key_Button2
           ROW    170
           COL    540
           WIDTH  28
           HEIGHT 28
           CAPTION ""
     END BUTTON

    CREATE BUTTON B_Key_AltR
           ROW    230
           COL    550
           WIDTH  39
           HEIGHT 28
           CAPTION "Alt Gr"
     END BUTTON

    CREATE BUTTON B_Key_ControlR
           ROW    230
           COL    590
           WIDTH  38
           HEIGHT 28
           CAPTION "Ctrl"
     END BUTTON

     CREATE LABEL Key_Label_1
            ROW    20
            COL    210
            WIDTH  467
            HEIGHT 24
            VALUE "Press any key (or combinated with Alt, Ctrl, Shift)"
            FONTSIZE 14
            FONTCOLOR {5,171,10}
     END LABEL

     CREATE LABEL
            ROW    265
            COL    150
            AUTOSIZE .T.
            VALUE "Key returned by mg_LastKey() function:"
            FONTSIZE 14
     END LABEL

     CREATE LABEL Key_Label_LastKey
            ROW    262
            COL    520
            HEIGHT 28
            WIDTH  250
            VALUE "*NONE*"
            FONTSIZE 14
            FONTCOLOR {11,35,251}
     END LABEL

     CREATE LABEL
            ROW    295
            COL    150
            AUTOSIZE .T.
            VALUE "KeyMod returned by mg_LastKeyMod() function:"
            FONTSIZE 12
     END LABEL

     CREATE LABEL Key_Label_LastKeyMod
            ROW    292
            COL    520
            HEIGHT 28
            WIDTH  250
            VALUE "*NONE*"
            FONTSIZE 12
            FONTCOLOR {0,151,75}
     END LABEL

     CREATE LABEL
            ROW    325
            COL    150
            AUTOSIZE .T.
            VALUE "Key returned by mg_LastKeyInvalid() function:"
            FONTSIZE 12
     END LABEL

     CREATE LABEL Key_Label_LastKeyInvalid
            ROW    322
            COL    520
            HEIGHT 28
            WIDTH  250
            VALUE "*NONE*"
            FONTSIZE 12
            FONTCOLOR {0,151,75}
     END LABEL

     CREATE LABEL Key_Label_4
            ROW    140
            COL    654
            AUTOSIZE .T.
            VALUE "Other"
            FONTSIZE 14
     END LABEL

     CREATE LABEL Key_Label_5
            ROW    170
            COL    660
            AUTOSIZE .T.
            VALUE "Key"
            FONTSIZE 14
     END LABEL
/*
     CREATE FRAMEBOX Key_FrameBox_1
            ROW    340
            COL    150
            WIDTH  457
            HEIGHT 81
            FLAT .T.
     END FRAMEBOX
  */
     CREATE LABEL Key_Label_6
            ROW    390
            COL    210
            AUTOSIZE .T.
            VALUE "Other Test"
            FONTBOLD .T.
     END LABEL

     CREATE LABEL Key_Label_7
            ROW    360
            COL    320
            AUTOSIZE .T.
            VALUE "Press Key F1"
            FONTBOLD .T.
            FONTCOLOR {150,168,216}
     END LABEL

     CREATE LABEL Key_Label_8
            ROW    390
            COL    320
            AUTOSIZE .T.
            VALUE "Press Alt+M"
            FONTBOLD .T.
            FONTCOLOR {255,128,128}
     END LABEL

     CREATE LABEL Key_Label_9
            ROW    420
            COL    320
            AUTOSIZE .T.
            VALUE "Press Control+P"
            FONTBOLD .T.
            FONTCOLOR {150,168,216}
     END LABEL

     CREATE LABEL Key_Label_10
            ROW    360
            COL    480
            AUTOSIZE .T.
            VALUE "Press Shift+X"
            FONTBOLD .T.
            FONTCOLOR {128,0,64}
     END LABEL

     CREATE LABEL Key_Label_11
            ROW    390
            COL    480
            AUTOSIZE .T.
            VALUE "Press Meta+H (e.g. Meta: Window Key)"
            FONTBOLD .T.
            FONTCOLOR {64,128,128}
     END LABEL

     CREATE LABEL Key_Label_12
            ROW    420
            COL    480
            AUTOSIZE .T.
            VALUE "Press Control+Alt+R"
            FONTBOLD .T.
            FONTCOLOR {128,0,64}
     END LABEL

Return .T.

Function ButtonRefresh()
   mg_Set( "d_window" , "Key_Label_LastKey" , "value" , mg_LastKey( "d_window" ) )
   mg_Set( "d_window" , "Key_Label_LastKeyMod" , "value" , if( mg_LastKeyMod( "d_window" ) == "" , "*NONE*" , mg_LastKeyMod( "d_window" ) ) )
   mg_Set( "d_window" , "Key_Label_LastKeyInvalid" , "value" , if( mg_LastKeyInvalid( "d_window" ) == "" , "*NONE*" , mg_LastKeyInvalid( "d_window" ) ) )
   if mg_IsControlCreated( "d_window" , "B_Key_" + M->cSampleKeyLastKeyAnt )
      mg_Set( "d_window" , "B_Key_" + M->cSampleKeyLastKeyAnt , "backcolor" , {-1,-1,-1} )
      mg_Set( "d_window" , "B_Key_" + M->cSampleKeyLastKeyAnt , "fontcolor" , {0,0,0} )
      if upper( M->cSampleKeyLastKeyAnt ) == "ALT" .or. ;
         upper( M->cSampleKeyLastKeyAnt ) == "CONTROL" .or. ;
         upper( M->cSampleKeyLastKeyAnt ) == "SHIFT"
         mg_Set( "d_window" , "B_Key_" + M->cSampleKeyLastKeyAnt + "R" , "backcolor" , {-1,-1,-1} )
         mg_Set( "d_window" , "B_Key_" + M->cSampleKeyLastKeyAnt + "R" , "fontcolor" , {0,0,0} )
      endif
   endif
   if mg_IsControlCREATEd( "d_window" , "B_Key_" + mg_LastKey( "d_window" ) )
      mg_Do( "d_window" , "Key_Label_4" , "hide" )
      mg_Do( "d_window" , "Key_Label_5" , "hide" )
      if upper( mg_LastKey( "d_window" ) ) == "ALT" .or. ;
         upper( mg_LastKey( "d_window" ) ) == "CONTROL" .or. ;
         upper( mg_LastKey( "d_window" ) ) == "SHIFT"
         mg_Set( "d_window" , "B_Key_" + mg_LastKey( "d_window" ) , "backcolor" , {0,151,75} )
         mg_Set( "d_window" , "B_Key_" + mg_LastKey( "d_window" ) , "fontcolor" , {255,255,255} )
         mg_Set( "d_window" , "B_Key_" + mg_LastKey( "d_window" ) + "R" , "backcolor" , {0,151,75} )
         mg_Set( "d_window" , "B_Key_" + mg_LastKey( "d_window" ) + "R" , "fontcolor" , {255,255,255} )
      else
         mg_Set( "d_window" , "B_Key_" + mg_LastKey( "d_window" ) , "backcolor" , {0,0,255} )
         mg_Set( "d_window" , "B_Key_" + mg_LastKey( "d_window" ) , "fontcolor" , {255,255,255} )
      endif
   else
      mg_Do( "d_window" , "Key_Label_4" , "show" )
      mg_Do( "d_window" , "Key_Label_5" , "show" )
   endif
   M->cSampleKeyLastKeyAnt := mg_LastKey( "d_window" )
Return __MG_KEY_NO_PROPAGATE



Marinas-GUI Version 03.06 and
Marinas-IDE Version 05.06 and
LEX Files Version 02.06


---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
last update: April 27
2017
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------




A Harbour/QT framework to make multiplatform programs

(©) Copyright 2009-2017 by Fernando Santolin (aka CarozoDeQuilmes)
CarozoDeQuilmes@gmail.com

2009-2017 Beta tester and full English translator: Bruno Luciani
Bruno.Luciani@gmail.com

2014-2015 Final English corrector: David Worboys
DavidWorboys@hotmail.com

---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

www.marinas-gui.org


www.marinas-gui.org  

Previous topic  First topic  Next topic