calendar buildin dialog

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   Hi,

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

I�ve found no way do to it.

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
Ditte Members Profile Send Private Message Find Members Posts Add to Buddy List Groupie Joined: 28 October 2007 Status: Offline Points: 94	Post Options Post Reply Quote Ditte Report Post Thanks(0) Quote Reply Topic: calendar buildin dialog 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

Ian Smith Members Profile Send Private Message Find Members Posts Add to Buddy List Newbie Joined: 16 February 2009 Location: United Kingdom Status: Offline Points: 5	Post Options Post Reply Quote Ian Smith Report Post Thanks(0) Quote Reply Posted: 14 December 2009 at 6:28am
	Dittmar Have a look at OnComDblClick and Show_Built_In_Dialog. Ian

Ditte Members Profile Send Private Message Find Members Posts Add to Buddy List Groupie Joined: 28 October 2007 Status: Offline Points: 94	Post Options Post Reply Quote Ditte Report Post Thanks(0) Quote Reply 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

mdoubson Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 17 November 2008 Status: Offline Points: 1705	Post Options Post Reply Quote mdoubson Report Post Thanks(0) Quote Reply 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