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.

Calendar Popup

 Keywords: Calendar Control Dialog Date Popup 

6.2 example

#DefineFunction CalendarPick(CalendarCaption, CalendarX, CalendarY, bOption)
   CalendarFormat=`WWWDLGED,6.2`
   CalendarWidth=100
   CalendarHeight=100
   CalendarNumControls=001
   CalendarProcedure=`CalendarCallbackProc`
   Calendar001=`001,001,99,99,CALENDAR,"Calendar",Date,DEFAULT,DEFAULT,3,DEFAULT,DEFAULT`
   ButtonPushed=Dialog("Calendar")
   :CANCEL
   Return date
#EndFunction

#DefineSubRoutine CalendarCallbackProc(Calendar_Handle,Calendar_Message,Calendar_ID,Calendar_EventInfo,rsvd)
   Switch Calendar_Message
      Case 0   ;-- MSG_INIT
         DialogProcOptions(Calendar_Handle, 9,@TRUE)
         DialogProcOptions(Calendar_Handle,11,@TRUE)
         If bOption
            DialogProcOptions(Calendar_Handle, 1002, 1)
         EndIf
           _mmm = ItemExtract(2,DialogControlGet(Calendar_Handle, 'Calendar', 7),':')
         Return(-1)
     Case 9  ;-- MSG_CALENDAR
           date = DialogControlGet(Calendar_Handle, 'Calendar', 7)
         _m = ItemExtract(2,date,':')
         If _m != _mmm
            _mmm = _m
         Else
           date = StrSub(date,1,10)
           DropWild('_*')
           Return  (0)
         EndIf
         Return(-1)
      Case 11 ;-- MSG_CLOSEVIA49
         date = ''
         Return(0)
   EndSwitch
   Return (-1)
#EndSubRoutine

date = CalendarPick('Pick a date',-1,-1,@TRUE)
Pause("date",date)
Exit

6.1 example

;-- Option for system menu added (Thanks Deana...)
;-- Other small changes

;-- Calendar Popup
;-- You can choose another month without picking a date
;-- No problems with underlying controls
;-- Call from your MainDlg
;--    CalendarPick(MainX + 50, MainY + 100, bOption)
;-- 2010-04-13 Lars M. Doornbos


#DefineFunction CalendarPick(CalendarCaption, CalendarX, CalendarY, bOption)
   ;------------------------------------------------------
   ;-- bOption: System Menu True/False
   ;-- 2010-04-13 Lars M.Doornbos
   ;------------------------------------------------------
   CalendarFormat=`WWWDLGED,6.1`
   CalendarWidth=080
   CalendarHeight=080
   CalendarNumControls=001
   CalendarProcedure=`CalendarCallbackProc`
   Calendar001=`001,001,078,078,CALENDAR,Date,DEFAULT,DEFAULT,3,DEFAULT,DEFAULT`
   ButtonPushed=Dialog("Calendar")
   :CANCEL
   Return date
#EndFunction

#DefineSubRoutine CalendarCallbackProc(Calendar_Handle,Calendar_Message,Calendar_ID,Calendar_EventInfo,rsvd)
   Switch Calendar_Message
      Case 0   ;-- MSG_INIT
         DialogProcOptions(Calendar_Handle, 9,@TRUE)
         DialogProcOptions(Calendar_Handle,11,@TRUE)
         If bOption
            DialogProcOptions(Calendar_Handle, 1002, 1)
         EndIf
           _mmm = ItemExtract(2,DialogControlGet(Calendar_Handle, 001, 7),':')
         Return(-1)
     Case 9  ;-- MSG_CALENDAR
           date = DialogControlGet(Calendar_Handle, 001, 7)
         _m = ItemExtract(2,date,':')
         If _m != _mmm
            _mmm = _m
         Else
           date = StrSub(date,1,10)
           DropWild('_*')
           Return  (0)
         EndIf
         Return(-1)
      Case 11 ;-- MSG_CLOSEVIA49
         date = ''
         Return(0)
   EndSwitch
   Return (-1)
#EndSubRoutine

date = CalendarPick('Pick a date',-1,-1,@TRUE)
Pause("date",date)
Exit

Article ID:   W17777

Filename:   Calendar Popup.txt

File Created: 2014:03:03:15:30:14

Last Updated: 2014:03:03:15:30:14