Database Search

match allmatch any Look in all areasLook in current areas Check all datesPrevious dayPrevious 3 daysPrevious weekPrevious fortnightPrevious monthPrevious 2 monthsPrevious 3 monthsPrevious half-yearPrevious year

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.

Expandable Dialog

---

Question:

I am just starting to explore the dialog callback options (at long last!). Is it possible to have an expandable dialog box? In other words, if I have an 'Advanced' button, could I 'grow' the dialog and have some extra options visible or do I have to call up a new dialog?

Answer:

Design the dialog in the full size, then in the init routine reduce the size of the window to hide the optional portion. Make a button that enlarges/reduces the window size.

;to expand/contract, just use winplaceset on the dialog caption (which is the 
;title of that window).  
;
;you want to contract the dialog right within the callback init routine so 
;that when it appears, it appears in the smaller form.  IIRC, this is possible 
;because although the window is not yet visible, you can reference it.
;
;you can use dialogcontrolset to change the title on the button
;
GoSub localfuncs

MyDialogFormat=`WWWDLGED,6.1`

MyDialogCaption=`YammerFratz`
MyDialogX=140
MyDialogY=113
MyDialogWidth=164
MyDialogHeight=122
MyDialogNumControls=005
MyDialogProcedure=`callback`
MyDialogFont=`DEFAULT`
MyDialogTextColor=`DEFAULT`
MyDialogBackground=`DEFAULT,DEFAULT`
MyDialogConfig=4513660

MyDialog001=`011,029,036,012,PUSHBUTTON,DEFAULT,"OK",1,1,32,DEFAULT,DEFAULT,DEFAULT`
MyDialog002=`055,029,036,012,PUSHBUTTON,DEFAULT,"Cancel",0,2,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog003=`009,009,118,012,STATICTEXT,DEFAULT,"yatta yatta",DEFAULT,3,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog004=`099,029,036,012,PUSHBUTTON,DEFAULT,"More>>",2,4,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog005=`009,067,044,012,STATICTEXT,DEFAULT,"Blah Blah",DEFAULT,5,DEFAULT,DEFAULT,DEFAULT,DEFAULT`

ButtonPushed=Dialog("MyDialog")

Exit

:localfuncs
#DefineFunction callback(DH, EC, CN, un4, un5)
    winnam = "YammerFratz"
    smallersize = 150
    biggersize = 250

    Switch 1
      Case EC == 0
        DialogProcOptions(DH, 2, 1)
      Case EC == 2 && CN == 004
        GoSub change
        Return -2
    EndSwitch
    Return -1
    :change
        s = WinPlaceGet(@NORMAL,winnam)
        x0 = ItemExtract(1,s," ")
        y0 = ItemExtract(2,s," ")
        y1 = ItemExtract(4,s," ")
        If y1-y0 > smallersize
          s = ItemReplace(y0+smallersize, 4, s, " ")
          DialogControlSet(DH, 004, 4, "More")
        Else
          s = ItemReplace(y0+biggersize, 4, s, " ")
          DialogControlSet(DH, 004, 4, "Less")
        EndIf
        s = ItemReplace(y0+1, 2, s, " ") ; correct for bizarre creep behavior
        s = ItemReplace(x0+1, 1, s, " ") ; correct for bizarre creep behavior
        WinPlaceSet(@NORMAL,winnam,s)
        Return
#EndFunction
Return

---

Article ID:   W15915

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

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