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.

Field Validation Example

 Dialg field validation numeric number range indicate hilight hilite validate  

Example of a Dialog Callback doing field validation.

#DefineFunction IsFloatValid(DaNum,low,high)
   If IsNumber(DaNum)==@FALSE Then Return @FALSE
   If DaNum < low || DaNum > high Then Return @FALSE
   Return @TRUE
#EndFunction


#DefineFunction MyDialogCallbackProc(MyDialog_Handle,MyDialog_Message,MyDialog_ID,rsvd1,rsvd2)
   ;DialogprocOptions Constants
   MSG_INIT=0                ; The one-time initilization
   MSG_BUTTONPUSHED=2        ; Pushbutton or Picturebutton
   MSG_EDITBOX=5             ; Editbox or Multilinebox
   DC_EDITBOX=3              ; EDITBOX MULTILINEBOX
   DC_BACKGROUNDCOLOR=11     ; RADIOBUTTON CHECKBOX VARYTEXT STATICTEXT GROUPBOX PUSHBUTTON ITEMBOX FILELISTBOX DROPLISTBOX SPINNER EDITBOX MULTILINEBOX


   Switch MyDialog_Message
      Case MSG_INIT
         DialogProcOptions(MyDialog_Handle,MSG_BUTTONPUSHED,@TRUE)
         DialogProcOptions(MyDialog_Handle,MSG_EDITBOX,@TRUE)
         Return(-1)

     Case MSG_BUTTONPUSHED
        Switch MyDialog_ID
           Case 001   ; OK
              DaNum=DialogControlGet(MyDialog_Handle,003,DC_EDITBOX)
              If IsFloatValid(DaNum,0.099999999,5.000000001) == @FALSE
                 Message("Number range error","Hilighted number invalid")
                 Return(-2)
              EndIf
              Return(-1)
        EndSwitch    ;MyDialog_ID
        Return(-1)      ;  Do default processing

        Case MSG_EDITBOX  ;ID 003
        DaNum=DialogControlGet(MyDialog_Handle,003,DC_EDITBOX)
        DaColor="255|100|100"
        If IsFloatValid(DaNum,0.099999999,5.000000001) == @TRUE Then  DaColor="255|255|255"  ;avoid FP Rounding issues
        DialogControlSet(MyDialog_Handle,003,DC_BACKGROUNDCOLOR,DaColor)
        Return(-1)      ;  Do default processing

   EndSwitch       ; MyDialog_Message
   Return(-1)      ;  Do default processing
#EndFunction       ;End of Dialog Callback MyDialogCallbackProc


RealDaNum=0.1
MyDialogFormat=`WWWDLGED,6.1`

MyDialogCaption=`WIL Dialog 1`
MyDialogX=-1
MyDialogY=-1
MyDialogWidth=108
MyDialogHeight=062
MyDialogNumControls=004
MyDialogProcedure=`MyDialogCallbackProc`
MyDialogFont=`DEFAULT`
MyDialogTextColor=`DEFAULT`
MyDialogBackground=`DEFAULT,DEFAULT`
MyDialogConfig=0

MyDialog001=`014,038,033,010,PUSHBUTTON,DEFAULT,"OK",1,1,32,DEFAULT,DEFAULT,DEFAULT`
MyDialog002=`054,038,033,010,PUSHBUTTON,DEFAULT,"Cancel",0,2,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog003=`014,010,033,011,EDITBOX,RealDaNum,"",DEFAULT,3,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog004=`055,007,043,021,STATICTEXT,DEFAULT,"Enter a number from 0.1 and 5.0",DEFAULT,4,DEFAULT,DEFAULT,DEFAULT,DEFAULT`

ButtonPushed=Dialog("MyDialog")

Message("Answer",RealDaNum)

Article ID:   W15916

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

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