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.

Spiffy Progress Meter

Requires the (fairly common) Webdings font.

#DefineSubRoutine DlgCallback(DlgName,DlgEvent,DlgCtrl,rsvd1,rsvd2)
   ;DialogprocOptions Constants
   MSG_INIT=0                                              ; The one-time initilization
   MSG_TIMER=1                                             ; Timer event
   DC_BACKGROUNDCOLOR = 11                                 ; Initalize background colour
   dc_textcolor = 13 
   ;DialogControlSet / DialogControlGet Constants
   Switch DlgEvent
   Case MSG_INIT
      DialogProcOptions (DlgName,MSG_TIMER,75)            ; Adjust timer to suit
      Light = 1
      Direction = 1
      DialogControlSet(DlgName, 003, 11, "0|0|0")
      widx = 17
      Return (-1)
   Case 2
      Return 1
   Case MSG_TIMER
      If Light == widx-1 Then Direction=(-1)        ;-1 for Side to Side -10 for Left to Right
      If Light == 0 Then Direction=1
      Light = Light + Direction

      r = 255 - Int(Abs(light - widx/2)**2.5*1)              ; compute shade of red
      DialogControlSet(DlgName, 003, 13, "%r%|0|0")

      a = StrCat(StrFill(' ',light),'n')          ; pad with variable number of spaces
      DialogControlSet(DlgName, 003, 4, a)

      Return (-1)                                          ; Do default processing
   EndSwitch                                               ; DlgEvent
Return(-1)                                                 ; Do default processing
#EndSubRoutine                                             ; End of Dialog Callback

;IntControl (49,1,0,0,0)
MyDialogFormat=`WWWDLGED,6.1`

MyDialogCaption=`Please Wait...`
MyDialogX=-01
MyDialogY=-01
MyDialogWidth=110
MyDialogHeight=046
MyDialogNumControls=004
MyDialogProcedure=`DlgCallback`
MyDialogFont=`DEFAULT`
MyDialogTextColor=`DEFAULT`
MyDialogBackground=`DEFAULT,DEFAULT`
MyDialogConfig=4513660

MyDialog001=`021,007,068,010,STATICTEXT,DEFAULT,"Final Configuration",DEFAULT,9,512,"Microsoft Sans Serif|6144|70|34","0|0|0",DEFAULT`
MyDialog002=`019,017,072,020,GROUPBOX,DEFAULT,DEFAULT,DEFAULT,13,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog003=`023,023,064,010,STATICTEXT,DEFAULT,DEFAULT,DEFAULT,2,DEFAULT,"Webdings|6656|40|530","0|0|0","192|192|192"`
MyDialog004=`093,001,012,012,PUSHBUTTON,DEFAULT,"X",1,4,DEFAULT,DEFAULT,DEFAULT,DEFAULT`

ButtonPushed=Dialog("MyDialog")

Article ID:   W15923

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

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