Contributed works of Danny A. del Pilar
How to build menu like old ACHOICE function?
KPI (Key Performance Indicator) Dashboard
Tag Archives: menu
MOL (Marek Olszewski)
Contributed samples by MOL (Marek Olszewski)
Dr. Claudio Soto
Contributed samples and applications by Dr. Claudio Soto
A simple way to modify the cursor …
HMG 3.3.1 (Stable) Released
File Name: HMG.3.3.1.exe
File Size: 46.91 MB
Date: 15. July 2014
Description:
-HMG 3.3.1 (Stable) 2014/07/15
– Updated to latest Harbour Nightly Build (2014-07-15)
– New property in Label control
– NoPrefix
– New New property in DatePicker control
– FORMAT <cFormatDate> (see demo)
– New Now all controls (Button, CheckButton, ToolBarButton, ComboBox, Grid, Tab, Tree, Menu, etc) loaded images: BMP, GIF, TIF, JPG and PNG
– New Now all controls (Button, CheckButton, ToolBarButton, ComboBox, Grid, Tab, Tree, Menu, etc) support the NOTRANSPARENT property
– New Grid control support the NOTRANSPARENTHEADER property
– New Print images in formats: BMP, GIF, JPG, TIF, WMF, EMF, CUR and PNG.
- @ <nRow> , <nCol> PRINT IMAGE <cImageFileName> | <cImageResourcename> WIDTH <nWidth> HEIGHT <nHeight> [ STRETCH ] [ TRANSPARENT ] [ TRANSPARENTCOLOR anTransparentColor ]
– New functions for read Keyboard and Mouse (see doc)
– SET CONTROL <ControlName> OF <FormName> ONKEYEVENT <FuncName> | NIL
– SET CONTROL <ControlName> OF <FormName> ONMOUSEEVENT <FuncName> | NIL
– HMG_GetOnKeyControlIndex ( [ @nSubIndex ] ) –> nIndex
– HMG_GetOnMouseControlIndex ( [ @nSubIndex ] ) –> nIndex
– New functions for control edge (see doc)
– SET CONTROL <ControlName> OF <FormName> CLIENTEDGE
– SET CONTROL <ControlName> OF <FormName> STATICEDGE
– SET CONTROL <ControlName> OF <FormName> NOTEDGE
– New Functions:
– GetKeyboardLayoutName()
– ActivateKeyboardLayout()
– GetKeyboardLayout()
– GetKeyboardLayoutList()
– LoadKeyboardLayout ()
– UnloadKeyboardLayout()
– TerminateProcess ( [ nProcessID ] , [ nExitCode ] )
– GetWindowThreadProcessId (hWnd, @nThread, @nProcessID)
– IsWow64Process ( [ nProcessID ] ) –> return lBoolean
– return TRUE if a 32-bit application is running under 64-bit Windows (WOW64)
– return FALSE if a 32-bit application is running under 32-bit Windows
– return FALSE if a 64-bit application is running under 64-bit Windows
– WOW64 is the x86 emulator that allows 32-bit Windows-based applications to running on 64-bit Windows
– New: VirtualKeyboard (see doc)
– VirtualKeyboard.OPEN [ SHOW ]
– VirtualKeyboard.OPEN HIDE
– VirtualKeyboard.Show
– VirtualKeyboard.Hide
– VirtualKeyboard.Release
– VirtualKeyboard.IsRelease
– VirtualKeyboard.IsOpen
– VirtualKeyboard.IsVisible
– VirtualKeyboard.IsMinimize
– VirtualKeyboard.IsMaximize
– VirtualKeyboard.Handle
– VirtualKeyboard.Title [ := | –> ] cTitle
– VirtualKeyboard.Row [ := | –> ] nRow
– VirtualKeyboard.Col [ := | –> ] nCol
– VirtualKeyboard.Width [ := | –> ] nWidth
– VirtualKeyboard.Height [ := | –> ] nHeight
– VirtualKeyboard.FileName –> “OSK.EXE”
– VirtualKeyboard.FullFileName –> GetSystemDir()+”\OSK.EXE”
– Fixed Numeric Textbox bug –> http://hmgforum.com/viewtopic.php?p=34890#p34890
– Fixed bug in Grid control build in 64-bits –> http://hmgforum.com/viewtopic.php?p=34946#p34946
– Fixed bug in FocusedControl Property (reported by Tiampei)
– Fixed Windows problem of overlap between ToolBar Bottom and StatusBar
– HMG IDE
-Fixed when not found the text editor calls notepad.exe of windows (reported by Roberto Lopez)
-Updated Polish language in Unicode (contributed by Marek)
HMG.3.3.1 Portable : ( Patch 3 (Unicode) applied )
HMG.3.3.1 DOC.zip 2.02 MB
HMG.3.3.1 HARBOUR.zip 21.17 MB
HMG.3.3.1 hfcl.zip 85.50 KB
HMG.3.3.1 IDE.zip 1.75 MB
HMG.3.3.1 IDE_ANSI.zip 1.74 MB
HMG.3.3.1 INCLUDE.zip 207.78 KB
HMG.3.3.1 lib.zip 588.89 KB
HMG.3.3.1 MINGW.zip 80.84 MB
HMG.3.3.1 RESOURCES.zip 97.55 KB
HMG.3.3.1 SAMPLES.zip 9.99 MB
HMG.3.3.1 SOURCE.zip 697.39 KB
Harbour Menu Functions
MENU TO
MENU TO
Invoked a menu defined by set of @…PROMPT
Syntax
MENU TO <cVariable>
Arguments
<cVariable> is a character string that contain the name of the variable to hold the menu choices, if this variable does not exist a PRIVATE variable with the name <cVariable> would be created to hold the result.
Description
Menu To() invoked the menu define by previous __AtPrompt() call and display a highlight bar that the user can move to select an option from the menu. If <cVariable> does not exist or not visible, a PRIVATE variable named <cVariable> is created and hold the current menu selection. If there is a variable named <cVariable>, its value is used to select the first highlighted item.
Menu prompts and messages are displayed in current Standard color, highlighted bar is displayed using current Enhanced color.
Pressing the arrow keys move the highlighted bar. When a menu item is highlighted the message associated with it is displayed on the line specified with SET MESSAGE. If SET WRAP is ON and the user press UP arrow while on the first selection the last menu item is highlighted, if the user press Down arrow while on the last item, the first item is highlighted.
Following are active keys that handled by Menu To:
key Meaning
-------------- ---------------------------------
Up Move to previous item
Down Move to next item
Left Move to previous item
Right Move to next item
Home Move to the first item
End Move to the last item
Page-Up Select menu item, return position
Page-Down Select menu item, return position
Enter Select menu item, return position
Esc Abort selection, return 0
First letter Select next menu with the same first letter,
return this item position.
Upon exit the cursor is placed at MaxRow()-1, 0 Menu To can be nested without loosing the previous prompts.
MENU TO command is preprocessed into __MenuTo() function during compile time.
Examples
// display menu item on each screen corner and let user select one
CLS
SET MESSAGE TO MaxRow() / 2 CENTER
SET WRAP ON
@ 0 , 0 PROMPT "1. Upper left" MESSAGE " One "
@ 0 , MaxCol() - 16 PROMPT "2. Upper right" MESSAGE " Two "
@ MaxRow() - 1, MaxCol() - 16 PROMPT "3. Bottom right" MESSAGE "Three"
@ MaxRow() - 1, 0 PROMPT "4. Bottom left" MESSAGE "Four "
MENU TO nChoice
SetPos( MaxRow() / 2, MaxCol() / 2 - 10 )
IF nChoice == 0
?? "Esc was pressed"
ELSE
?? "Selected option is", nChoice
ENDIF
Compliance
Clipper
Seealso
@…PROMPT, ACHOICE(), SET MESSAGE, SET INTENSITY, SET WRAP, __ATPROMPT()
AChoice()
ACHOICE()
Allows selection of an element from an array
Syntax
ACHOICE(<nTop>, <nLeft>, <nBottom>, <nRight>,;
<acMenuItems>, [<alSelableItems> | <lSelableItems>],;
[<cUserFunction> | <bUserBlock>], [<nInitialItem>],;
[<nWindowRow>]) --> nPosition
Arguments
<nTop> – topmost row used to display array (default 0)
<nLeft> – leftmost row used to display array (default 0)
<nBottom> – bottommost row used to display array (default MaxRow())
<nRight> – rightmost row used to display array (default MaxCol())
<acMenuItems> – the character array of items from which to select
<alSelableItems> – an array of items, either logical or character, which is used to determine if a particular item may be selected. If the type of a given item is character, it is macro evaluated, and the result is expected to be a logical. A value of .T. means that the item may be selected, .F. that it may not. (See next argument: lSelectableItems)
<lSelableItems> – a logical value which is used to apply to all items in acMenuItems. If .T., all items may be selected; if .F., none may be selected. (See previous argument: alSelectableItems) Default .T.
<cUserFunction> – the name of a function to be called which may affect special processing of keystrokes. It is specified without parentheses or parameters. When it is called, it will be supplied with the parameters: nMode, nCurElement, and nRowPos. Default NIL.
<bUserBlock> – a codeblock to be called which may affect special processing of keystrokes. It should be specified in the form {| nMode, nCurElemenet, nRowPos | ; MyFunc( nMode, nCurElemenet, nRowPos ) }. Default NIL.
<nInitialItem> – the number of the element to be highlighted as the current item when the array is initially displayed. 1 origin. Default 1.
<nWindowRow> – the number of the window row on which the initial item is to be displayed. 0 origin. Default 0.
Returns
<nPosition> – the number of the item to be selected, or 0 if the selection was aborted.
Description
Allows selection of an element from an array. Please see standard CA-Cl*pper documentation for ACHOICE for additional detail.
Examples
aItems := { "One", "Two", "Three" }
nChoice := AChoice( 10, 10, 20, 20, aItems )
IF nChoice == 0
? "You did not choose an item"
ELSE
? "You chose element " + hb_ntos( nChoice )
?? " which has a value of " + aItems[ nChoice ]
ENDIF
Files
Library is rtl
Compliance
Clipper
Seealso
MENU TO
__MenuTo()
Template
Function
Name
__MenuTo()
Category
API
Subcategory
User interface
Oneliner
Invoked a menu defined by set of @…PROMPT
Syntax
__MenuTo( <bBlock>, <cVariable> ) --> nChoice
Arguments
<bBlock> is a set/get code block for variable named <cVariable>.
<cVariable> is a character string that contain the name of the variable to hold the menu choices, if this variable does not exist a PRIVATE variable with the name <cVariable> would be created to hold the result.
Returns
__MenuTo() return the number of select menu item, or 0 if there was no item to select from or if the user pressed the Esc key.
Description
__MenuTo() invoked the menu define by previous __AtPrompt() call and display a highlight bar that the user can move to select an option from the menu. If <cVariable> does not exist or not visible, a PRIVATE variable named <cVariable> is created and hold the current menu selection. If there is a variable named <cVariable>, its value is used to select the first highlighted item.
Menu prompts and messages are displayed in current Standard color, highlighted bar is displayed using current Enhanced color.
Pressing the arrow keys move the highlighted bar. When a menu item is highlighted the message associated with it is displayed on the line specified with SET MESSAGE. If SET WRAP is ON and the user press UP arrow while on the first selection the last menu item is highlighted, if the user press Down arrow while on the last item, the first item is highlighted.
Following are active keys that handled by __MenuTo():
key Meaning
------------- ---------------------------------
Up Move to previous item
Down Move to next item
Left Move to previous item
Right Move to next item
Home Move to the first item
End Move to the last item
Page-Up Select menu item, return position
Page-Down Select menu item, return position
Enter Select menu item, return position
Esc Abort selection, return 0
First letter Select next menu with the same first letter, |return this item position.
Upon exit the cursor is placed at MaxRow()-1, 0 __MenuTo() can be nested without loosing the previous prompts.
MENU TO command is preprocessed into __MenuTo() function during compile time.
Examples
// display menu item on each screen corner and let user select one
CLS
SET MESSAGE TO MaxRow() / 2 CENTER
SET WRAP ON
@ 0 , 0 PROMPT "1. Upper left" MESSAGE " One "
@ 0 , MaxCol() - 16 PROMPT "2. Upper right" MESSAGE " Two "
@ MaxRow() - 1, MaxCol() - 16 PROMPT "3. Bottom right" MESSAGE "Three"
@ MaxRow() - 1, 0 PROMPT "4. Bottom left" MESSAGE "Four "
MENU TO nChoice
SetPos( MaxRow() / 2, MaxCol() / 2 - 10 )
IF nChoice == 0
?? "Esc was pressed"
ELSE
?? "Selected option is", nChoice
ENDIF
Compliance
Clipper
Files
Library is core
Seealso
@…PROMPT, AChoice(), SET MESSAGE, SET INTENSITY, SET WRAP, __AtPrompt()
__AtPrompt()
Template
Function
Name
__AtPrompt()
Category
API
Subcategory
User interface
Oneliner
Display a menu item on screen and define a message
Syntax
__AtPrompt( <nRow>, <nCol>, <cPrompt>, [<xMsg>] ) --> .F.
Arguments
<nRow> is the row number to display the menu <cPrompt>. Value could range from zero to MaxRow().
<nCol> is the column number to display the menu <cPrompt>. Value could range from zero to MaxCol().
<cPrompt> is the menu item character string to display.
<xMsg> define a message to display each time this menu item is highlighted. <xMsg> could be a character string or code block that is evaluated to a character string. If <xMsg> is not specified or of the wrong type, an empty string (“”) would be used.
Returns
__AtPrompt() always return .F.
Description
With __AtPrompt() you define and display a menu item, each call to __AtPrompt() add another item to the menu, to start the menu itself you should call the __MenuTo() function (MENU TO command). You can define any row and column combination and they will be displayed at the order of definition. After each call to __AtPrompt(), the cursor is placed one column to the right of the last text displayed, and Row() and Col() are updated.
@…PROMPT command is preprocessed into __AtPrompt() function during compile time.
Examples
// display a two line menu with status line at the bottom
// let the user select favorite day
SET MESSAGE TO 24 CENTER
@ 10, 2 PROMPT "Sunday" MESSAGE "This is the 1st item"
@ 11, 2 PROMPT "Monday" MESSAGE "Now we're on the 2nd item"
MENU TO nChoice
DO CASE
CASE nChoice == 0 // user press Esc key
QUIT
CASE nChoice == 1 // user select 1st menu item
? "Guess you don't like Mondays"
CASE nChoice == 2 // user select 2nd menu item
? "Just another day for some"
ENDCASE
Compliance
C (menu)
Files
Library is core
Seealso
AChoice(), MENU TO, SET MESSAGE, SET INTENSITY, SET WRAP, __MenuTo()
@…PROMPT
@…PROMPT
Display a menu item on screen and define a message
Syntax
@ <nRow>, <nCol> PROMPT <cPrompt> [MESSAGE <xMsg>]
Arguments
<nRow> is the row number to display the menu <cPrompt>. Value could range from zero to MaxRow().
<nCol> is the column number to display the menu <cPrompt>. Value could range from zero to MaxCol().
<cPrompt> is the menu item character string to display.
<xMsg> define a message to display each time this menu item is highlighted. <xMsg> could be a character string or code block that is evaluated to a character string. If <xMsg> is not specified or of the wrong type, an empty string (“”) would be used.
Description
With @…Prompt you define and display a menu item, each call to @…Prompt add another item to the menu, to start the menu itself you should call the __MenuTo() function (MENU TO command). You can define any row and column combination and they will be displayed at the order of definition. After each call to @…Prompt, the cursor is placed one column to the right of the last text displayed, and ROW() and COL() are updated.
@…PROMPT command is preprocessed into __AtPrompt() function during compile time.
Examples
// display a two line menu with status line at the bottom
// let the user select favorite day
SET MESSAGE TO 24 CENTER
@ 10, 2 PROMPT "Sunday" MESSAGE "This is the 1st item"
@ 11, 2 PROMPT "Monday" MESSAGE "Now we're on the 2nd item"
MENU TO nChoice
DO CASE
CASE nChoice == 0 // user press Esc key
QUIT
CASE nChoice == 1 // user select 1st menu item
? "Guess you don't like Mondays"
CASE nChoice == 2 // user select 2nd menu item
? "Just another day for some"
ENDCASE
Compliance
Clipper (menu)
Seealso
ACHOICE(), MENU TO, SET MESSAGE, SET INTENSITY, SET WRAP, __MENUTO()
Viva Clipper ! 