Database Search

TechHome

• Advancing Through a Series of Dialogs
• Align Dialog in Corner
• Animated GIF in Dialog
• Auto Configure Dialog
• Auto Resize Dialog Based on Size of Text
• Background Colors - Red Alert Heartbeat
• Background Colors - Slowly Shifting
• BeforeNavigate Event Sample Code
• Calculate Width of Given Text
• Calendar Popup
• Change a Control Color
• Change Dialog PushButton Text
• Check Value of Checkbox In Dialog Callback Procedure
• Colored Multi Line Dialog
• Custom AskItemList
• Date Range Selection
• Determine Which Dialog Control Previously Had Focus
• Dialog Grid Navigation
• Dialog Resize Demo
• Display Data in Columns
• Display Hyperlinks in Dialog
• DllCall Rich Edit Control
• Editbox Text Changed Event
• Expandable Dialog
• Field Validation Example
• Field validation with WinBatch Dialog
• File Copy Progress Bar In Winbatch Dialog
• File Save As Dialog
• Get Size of Dialog in Dialog Units
• Grid Navigate
• Grid Sample - Office Web Component
• GridNavigate
• Horizontal Scroll Bars
• Managing a pair of Dynamic ItemBoxes
• Menu Buttons in Dialog
• menubut
• Move Controls in Dialog
• MultilineButtonText
• Multiple Dependent Listboxes
• Only Use Mouse to Exit Dialog
• Panel Placement Manager.
• PushButton Causes Dialog to Minimize
• Resize Dialog and Move Controls
• Resize Dialog Toolbar with Buttonpush
• Resize Dialog
• Resize the Dialog Based on Length of Text and Font
• Scrollable Dialog using MSHTML
• Scrolling Listbox In Dialog
• Spiffy Progress Meter
• Trade Mark Symbol in Dialog
• Transparent Images in Dialogs
• Transparent Progress Dialog
• UDF - ItemBox ToolTips
• Using Standard Windows bitmaps in dialogs
• Viewing More than Bitmaps in Dialogs

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Dialog Grid Navigation

gosub initiate

ButtonPushed=Dialog("MyDialog")
exit


:initiate
MyDialogFormat=`WWWDLGED,6.1`

MyDialogCaption=`Urenstaat`
MyDialogX=124
MyDialogY=151
MyDialogWidth=372
MyDialogHeight=208
MyDialogNumControls=012
MyDialogProcedure=`DEFAULT`
MyDialogFont=`DEFAULT`
MyDialogTextColor=`DEFAULT`
MyDialogBackground=`DEFAULT,DEFAULT`

MyDialog001=`217,185,036,012,PUSHBUTTON,DEFAULT,"OK",1,99,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog002=`263,185,036,012,PUSHBUTTON,DEFAULT,"Cancel",0,99,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog003=`021,041,018,008,STATICTEXT,DEFAULT,"Dag",DEFAULT,99,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog004=`041,041,044,008,STATICTEXT,DEFAULT,"Project",DEFAULT,99,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog005=`121,031,026,008,STATICTEXT,DEFAULT,"Uren",DEFAULT,99,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog006=`091,041,026,008,STATICTEXT,DEFAULT,"Activiteit",DEFAULT,99,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog007=`151,041,026,008,STATICTEXT,DEFAULT,"150%%",DEFAULT,99,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog008=`181,041,026,008,STATICTEXT,DEFAULT,"113",DEFAULT,99,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog009=`211,041,108,008,STATICTEXT,DEFAULT,"Opmerking",DEFAULT,99,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog010=`021,011,042,012,STATICTEXT,DEFAULT,"Urenstaat week",DEFAULT,99,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog011=`065,011,018,012,EDITBOX,Weeknummer,DEFAULT,DEFAULT,11,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog012=`121,041,026,008,STATICTEXT,DEFAULT,"Normaal",DEFAULT,99,DEFAULT,DEFAULT,DEFAULT,DEFAULT`

;ButtonPushed=Dialog("MyDialog")

MyDialogTemplate=`[xvalue],[yvalue],[width],[height],EDITBOX,cel[nr],"",DEFAULT,1,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
height = 12
MyDialogTemplate= strReplace(MyDialogTemplate, '[height]',height)

xvalue_list = '20,40,90,120,150,180,210'
width_list = '22,52,32,32,32,32,122'

ctrlnum = 12
yvalue = 40
dlg = 'MyDialog'
for i=1 to 12 ;-- rows
yvalue = yvalue + 10
for j = 1 to 7 ;-- columns
ctrlnum = ctrlnum + 1
ctrlid = strFixLeft(ctrlnum,'0',3)
xvalue = ItemExtract(j,xvalue_list,',')
width = ItemExtract(j,width_list ,',')
thisline = strReplace(MyDialogTemplate, '[xvalue]',xvalue)
thisline = strReplace(thisline , '[yvalue]',yvalue)
thisline = strReplace(thisline , '[width]' ,width )
celnr = strCat(i,j)
thisline = strReplace(thisline , '[nr]' ,celnr )
DlgVar = strCat(dlg,ctrlid)
%DlgVar% = thisline
next j
next i

MyDialogNumControls=ctrlid

return

Article ID:   W15914

File Created: 2004:03:30:15:41:42

Last Updated: 2004:03:30:15:41:42