Calendar - calendar buildin dialog

Print Page | Close Window

calendar buildin dialog

Printed From: Codejock Forums
Category: Codejock Products
Forum Name: Calendar
Forum Description: Topics Related to Codejock Calendar
URL: http://forum.codejock.com/forum_posts.asp?TID=15826
Printed Date: 18 July 2025 at 9:44pm
Software Version: Web Wiz Forums 12.04 - http://www.webwizforums.com

Topic: calendar buildin dialog

Posted By: Ditte
Subject: calendar buildin dialog
Date Posted: 11 December 2009 at 10:08am

Hi,

I would like to fill some fields by opening the calendar buildin dialog.

I�ve found no way do to it.

-------------
Regards

Dittmar

Product: Xtreme SuitePro (ActiveX) 13.4.2

Platform: Win XP

Language: Visual Dataflex 16.1

Replies:

Posted By: Ian Smith
Date Posted: 14 December 2009 at 6:28am

Dittmar

Have a look at OnComDblClick and Show_Built_In_Dialog.

Ian

Posted By: Ditte
Date Posted: 17 December 2009 at 7:13pm

Hi Ian,

that�s the place where I looking to. I thought I can full the struct prior creating it. But I�m not found the right place.
A other place would be to write something in the event after creating it. There is a refresh of that event needed.
I found not the right command for that. After creating a new event (buildin dialog) I don�t get the variant of the event back?
I think it should not be to difficult, but I don�t found a solution at time.

-------------
Regards

Dittmar

Product: Xtreme SuitePro (ActiveX) 13.4.2

Platform: Win XP

Language: Visual Dataflex 16.1

Posted By: mdoubson
Date Posted: 18 December 2009 at 1:08pm

try smth like this:

    If g_bUseBuiltInCalendarDialogs Then
        Dim dlgCalendar As New CalendarDialogs
        dlgCalendar.ParentHWND = Me.hwnd
        dlgCalendar.Calendar = CalendarControl

        'dlgCalendar.ShowNewEvent

        Dim ModEvent As CalendarEvent
        Set ModEvent = CalendarControl.DataProvider.CreateEvent

        ModEvent.Subject = "MyInitialSubject"

........................................................................... all your predefined values
        ModEvent.StartTime = Now
        ModEvent.EndTime = Now

        CalendarControl.DataProvider.AddEvent ModEvent

        If Not dlgCalendar.ShowEditEvent(ModEvent) Then
           CalendarControl.DataProvider.DeleteEvent ModEvent
        End If
        Exit Sub
    End If

-------------
Mark Doubson, Ph.D.