Database Search
If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.
TechHome
Dialog Editor version 6.X
 | |
|
- !!A How to Treatise on Dynamic Dialogs
- Add a Status Bar on your Dialog
- Adding CRLF to a Tooltip Message
- Ampersand in Button
- Arrays in Dialogs
- AutoComplete in WinBatch Editboxes
- Autotimeout Example
- Ballon Tool Tips on Dialogs
- Balloon Tool Tips on Dialogs II
- Balloon Tool Tips on Dialogs III
- Bitmap Resizing in Dialog
- Button Dialog With No Default Focus
- Cancel Handler Issues within Dialogs
- Center dialog for any screen resolution
- Change Font in Dialog Controls
- Change Title of Dialog in Call Back Procedure
- Checking Char By Char Input in Dialogs
- Close Dialog Box upon completion of installation
- COMCONTROL Licenses Explained
- De-Activating Dialog Windows
- Dealing with Alt-F4 in Dialog
- Determine Control That Mouse is Hovering Over
- Dialog - Both Single and Multiple Selection Listboxes
- Dialog - Floating Toolbar
- Dialog - ProgressBar example
- Dialog Coordinates
- Dialog Editor 6 and UDS Callbacks
- Dialog Events For Unsupported Controls
- Dialog Significance of Config Parameter
- Dialog Units Explained
- Dialog with No Title bar
- Dialog with two list boxes and buttons to move items
- Dialogs - Adding ToolTips to Controls
- Dialogs - Menus in dialogs
- Disable Entry into DropListBox
- Disable Using ESC Key to Close Dialogs
- Display Dialog Along with RunWait
- Dynamic Dialogs - Creating Controls On The Fly
- Dynamic dialogs and BoxOpen Issue
- Dynamic Dialogs
- EditBox Cursor Placement
- Editbox with Filelistbox
- Error 3220 Dialog Format Version Not Supported
- Event Handling Questions
- File Browser within Dialog
- Get Value of RadioButton in Dialog Callback Procedure
- Hide or Unhide a PICTUREBUTTON
- High CPU Usage and Dialogs
- How to get an Editbox to Appear based on Selection
- How to Use the Spinner Control
- Inherited Check Mark
- IniWrite is Slow in Dialog Callback Procedure
- Japanese Dialog
- Leading 0 in a Spinner Control
- Make WIL Dialog Modal
- Maximized Dialog Hides Taskbar
- More UDFs to Make a Progress Bar Control
- MultiLineBox Limits
- Multiple Dialog Boxes
- Negative numbers in Dialog
- Non rectangular dialogs
- Non Responsive Dialog
- Position Dialog
- Pre-Selected Itembox
- Radio Button Disable Not Working
- Radiobuttons and Tabs
- Remove Border From ItemBox Control
- Right Justify Static or Variable Text
- Setting Spinner Control
- Simple Timer Procedure Example
- Smooth - Rounded Dialog Edges
- Splash Screen - Several Examples
- Start with Focus on Edit with No Selected Text
- Synchronize Two Itemboxes
- Tab Order and GroupBox Controls
- Toolbar UDFs for Drop Down Menus
- Treeview UDFs
- Unable to Load Background Image in Dialog
- Update Font Style in Dialog
- Using a Dialog as a Please Wait Screen
- WaitForKey Inside a Dialog Callback
- WebBrowser Control HTML Dialog
- WebBrowser Inside Dialogs by Guido
- Where are the Bitmaps for Pushbuttons
- Word Wrap
Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
Dialogs - Menus in dialogs.wbt
Keywords: Dialogs - Menus in dialogs.wbt
Magic. Real Magic. Don't ask. Thanx to Guido for making it work.
The PopupMenu UDF takes a | delimited list of menu items and presents them to the user.
#DefineFunction PopupMenu(choices)
user32=StrCat(DirWindows(1),"User32.DLL")
hwnd=DllHwnd("")
DllCall(user32, long:"SetForegroundWindow", long:hwnd)
MF_STRING = 0
TPM_RETURNCMD = 256
TPM_LEFTBUTTON = 0
;create menu
hmenu = DllCall(user32,long:"CreatePopupMenu")
choicecount=ItemCount(choices,"|")
For xx=1 To choicecount
thischoice=ItemExtract(xx,choices,"|")
DllCall(user32,long:"AppendMenuA",long:hmenu, long:MF_STRING, long:xx, lpstr:thischoice)
Next
mc = MouseInfo(3)
mcx=ItemExtract(1,mc," ")
mcy=ItemExtract(2,mc," ")
wFlags=TPM_RETURNCMD|TPM_LEFTBUTTON
s=DllCall(user32,long:"TrackPopupMenu",long:hmenu, long:wFlags, long:mcx, long:mcy, long:0, long:hwnd, lpnull)
;Destroy Menu
DllCall(user32,long:"DestroyMenu",long:hmenu)
Return(s)
#EndFunction
#DefineFunction MyDialogProc(D_Handle,D_Message,D_ControlID,Reserved_0,Reserved_1)
MSG_INIT=0 ; The one-time initilization
MSG_BUTTONPUSHED=2 ; Pushbutton or Picturebutton
Switch D_Message
Case MSG_INIT
DialogProcOptions(D_Handle,MSG_BUTTONPUSHED,@TRUE)
Break
Case MSG_BUTTONPUSHED
Switch D_ControlID
Case 003
pick=PopupMenu("Notepad|Calc")
Switch pick
Case 1 ; notepad
Run("notepad.exe","")
Break
Case 2 ; calc
Run("calc.exe","")
Break
EndSwitch
Return (-2)
EndSwitch
Break
EndSwitch
Return (-1)
#EndFunction
MyDialogFormat=`WWWDLGED,6.1`
MyDialogCaption=`Menu Example`
MyDialogX=002
MyDialogY=030
MyDialogWidth=112
MyDialogHeight=078
MyDialogNumControls=004
MyDialogProcedure=`MyDialogProc`
MyDialogFont=`DEFAULT`
MyDialogTextColor=`DEFAULT`
MyDialogBackground=`DEFAULT,DEFAULT`
MyDialogConfig=0
MyDialog001=`026,033,034,011,PUSHBUTTON,DEFAULT,"OK",1,1,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog002=`001,001,107,011,STATICTEXT,DEFAULT,DEFAULT,DEFAULT,2,DEFAULT,DEFAULT,DEFAULT,"0|255|255"`
MyDialog003=`001,001,022,011,PUSHBUTTON,DEFAULT,"Run",2,3,128,"Microsoft Sans Serif|5325|70|34","0|0|0","0|255|255"`
MyDialog004=`025,001,022,011,PUSHBUTTON,DEFAULT,"Exit",0,4,128,"Microsoft Sans Serif|5325|70|34","0|0|0","0|255|255"`
ButtonPushed=Dialog("MyDialog")
Article ID: W15463
File Created: 2003:10:14:08:00:24
Last Updated: 2003:10:14:08:00:24