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.

Grid Navigate

;-------------------------------------------------------------------------------
gosub initiate

column_list = '20,50,30,30,30,30,120'
xvalue      = 20
yvalue      = 40
height      = 10
nrrows      = 15
CreateGrid('MyDialog', xvalue, yvalue, column_list, nrrows, height)

ButtonPushed=Dialog("MyDialog")
exit
;-------------------------------------------------------------------------------

:initiate

#definefunction GetKeyboardState(buf)
   sDLLName = StrCat(DirWindows(1), "user32.dll")
   DLLCall(sDLLName, long:"GetKeyboardState", lpbinary:buf)
   BinaryEodSet(buf, 256) 
   return buf
#endfunction

#definefunction NextCell(cell, direction, grid)
	vgrid = ArrInfo(grid,1)-1
	hgrid = ArrInfo(grid,2)-1
	idir  = ItemLocate(direction,'L,R,U,D',',')
	istep = ItemExtract(idir,' 0, 0,-1, 1',',')
	jstep = ItemExtract(idir,'-1, 1, 0, 0',',')
	
	for i=1 to vgrid
		for j=1 to hgrid
		   if cell == grid[i,j] 
				i = i+istep
				j = j+jstep
				if (i>0) && (i0) && (j0 && x<>1 
					    focus = DialogControlState(MyDialog_Handle,  0, 5, 0)
						 direction = strSub('LURD',count,1)
						 focus = nextcell(focus, direction, grid)
						 DialogControlState(MyDialog_Handle,  focus, 1, 0)
					endif
				next
		   endif
        return(-1)      ;  Do default processing
   endswitch       ; MyDialog_Message
   return(-1)      ;  Do default processing
#EndSubroutine       ;End of Dialog Callback MyDialogCallbackProc

MyDialogFormat=`WWWDLGED,6.1`

MyDialogCaption=`Grid Navigate`
MyDialogX=124
MyDialogY=151
MyDialogWidth=372
MyDialogHeight=208
MyDialogNumControls=012
MyDialogProcedure=`MyDialogCallbackProc`
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`

return
;***************************************************************************

Article ID:   W15917

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

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