OpenEuphoria

RE: monthcalendar

• Posted by Jonas Temple <jktemple at yhti.net> Aug 24, 2001
• 460 views

George Walters wrote:
> There seem to be some bugs in monthcalendar. Only the top half of the
> buttons are sensitive to the mouse. When the window is opened portions 
> of
> the window are on top of the parent window and some portions are under 
> the
> parent window. If I window away and back the window shows up correctly. 
> Am I
> doing something wrong?? Here's my code.
> 
> global procedure pickDate()
>  wx = 261
>  wy = 120
>  wl = 250
>  wh = 200
>  winIdDate = create(MonthCalendar,"Date 
>  Selection",grpActive,wx,wy,wl,wh,0)
> procedure end
> 
> ...george
George,

I would suggest that you create the MonthCalendar control along with all 
your other controls.  In your example, is grpActive a group control?  
You might create a parent window with no title bar, set the window size 
to the same size as the calendar control and make the calendar control 
the only child.  For example:

global constant CalendarWin = create( Window, "", MainWin, Default, 
Default, 250, 200, {WS_POPUP} )
global constant CalendarCC = create( MonthCalendar, "", CalendarWin, 0, 
1, 250, 200, 0 )

Then when the user clicks the button to search for a date use:

procedure DateSearch_onClick()
    openWindow(CalendarWin, Modal)
end procedure
onClick[DateSearch] = routine_id("DateSearch_onClick")

Hope this helps...

Jonas