|
325
|
Clear Undo/Redo queue (method 2)
Schedule1->BeginUpdate();
Schedule1->AllowUndoRedo = true;
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2001,1,10).operator double()));
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2001,1,10,10,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,11,30,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2001,1,10,9,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,12,30,00,0).operator double()));
long c = Schedule1->UndoRedoQueueLength;
Schedule1->UndoRedoQueueLength = 0;
Schedule1->UndoRedoQueueLength = c;
OutputDebugString( Schedule1->UndoListAction[TNoParam(),TNoParam()] );
Schedule1->EndUpdate();
|
|
324
|
Clear Undo/Redo queue (method 1)
Schedule1->BeginUpdate();
Schedule1->AllowUndoRedo = true;
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2001,1,10).operator double()));
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2001,1,10,10,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,11,30,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2001,1,10,9,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,12,30,00,0).operator double()));
Schedule1->AllowUndoRedo = true;
OutputDebugString( Schedule1->UndoListAction[TNoParam(),TNoParam()] );
Schedule1->EndUpdate();
|
|
323
|
Removes Redo operations
Schedule1->BeginUpdate();
Schedule1->AllowUndoRedo = true;
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2001,1,10).operator double()));
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2001,1,10,10,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,11,30,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2001,1,10,9,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,12,30,00,0).operator double()));
Schedule1->Undo();
Schedule1->RedoRemoveAction(TVariant(13),TNoParam());
OutputDebugString( Schedule1->RedoListAction[TNoParam(),TNoParam()] );
Schedule1->EndUpdate();
|
|
322
|
Removes Undo operations
Schedule1->BeginUpdate();
Schedule1->AllowUndoRedo = true;
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2001,1,10).operator double()));
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2001,1,10,10,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,11,30,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2001,1,10,9,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,12,30,00,0).operator double()));
Schedule1->UndoRemoveAction(TVariant(13),TNoParam());
OutputDebugString( Schedule1->UndoListAction[TNoParam(),TNoParam()] );
Schedule1->EndUpdate();
|
|
321
|
Record the UI operations as a block of undo/redo operations
Schedule1->BeginUpdate();
Schedule1->AllowUndoRedo = true;
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2001,1,10).operator double()));
Schedule1->StartBlockUndoRedo();
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2001,1,10,10,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,11,30,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2001,1,10,9,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,12,30,00,0).operator double()));
Schedule1->EndBlockUndoRedo();
OutputDebugString( Schedule1->UndoListAction[TNoParam(),TNoParam()] );
Schedule1->EndUpdate();
|
|
320
|
Groups the next to current Undo/Redo Actions in a single block
Schedule1->BeginUpdate();
Schedule1->AllowUndoRedo = true;
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2001,1,10).operator double()));
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2001,1,10,10,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,11,30,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2001,1,10,9,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,12,30,00,0).operator double()));
Schedule1->GroupUndoRedoActions(2);
OutputDebugString( Schedule1->UndoListAction[TNoParam(),TNoParam()] );
Schedule1->EndUpdate();
|
|
319
|
Limits the number of entries within the Undo/Redo queue
Schedule1->BeginUpdate();
Schedule1->AllowUndoRedo = true;
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2001,1,10).operator double()));
Schedule1->UndoRedoQueueLength = 1;
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2001,1,10,10,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,11,30,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2001,1,10,9,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,12,30,00,0).operator double()));
OutputDebugString( Schedule1->UndoListAction[TNoParam(),TNoParam()] );
Schedule1->EndUpdate();
|
|
318
|
Lists the Redo actions that can be performed on the control
Schedule1->BeginUpdate();
Schedule1->AllowUndoRedo = true;
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2001,1,10).operator double()));
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2001,1,10,10,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,11,30,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2001,1,10,9,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,12,30,00,0).operator double()));
Schedule1->Undo();
OutputDebugString( Schedule1->RedoListAction[TNoParam(),TNoParam()] );
Schedule1->EndUpdate();
|
|
317
|
Lists the Undo actions that can be performed on the control
Schedule1->BeginUpdate();
Schedule1->AllowUndoRedo = true;
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2001,1,10).operator double()));
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2001,1,10,10,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,11,30,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2001,1,10,9,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,12,30,00,0).operator double()));
OutputDebugString( Schedule1->UndoListAction[TNoParam(),TNoParam()] );
Schedule1->EndUpdate();
|
|
316
|
Checks whether the Undo operation is possible
Schedule1->BeginUpdate();
Schedule1->AllowUndoRedo = true;
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2001,1,10).operator double()));
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2001,1,10,10,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,11,30,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2001,1,10,9,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,12,30,00,0).operator double()));
Schedule1->Undo();
OutputDebugString( L"CanRedo" );
OutputDebugString( PChar(Schedule1->CanRedo) );
Schedule1->EndUpdate();
|
|
315
|
Call Redo by code
Schedule1->BeginUpdate();
Schedule1->AllowUndoRedo = true;
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2001,1,10).operator double()));
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2001,1,10,10,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,11,30,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2001,1,10,9,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,12,30,00,0).operator double()));
Schedule1->Undo();
Schedule1->Redo();
Schedule1->EndUpdate();
|
|
314
|
Checks whether the Undo operation is possible
Schedule1->BeginUpdate();
Schedule1->AllowUndoRedo = true;
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2001,1,10).operator double()));
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2001,1,10,10,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,11,30,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2001,1,10,9,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,12,30,00,0).operator double()));
OutputDebugString( L"CanUndo" );
OutputDebugString( PChar(Schedule1->CanUndo) );
Schedule1->EndUpdate();
|
|
313
|
Call Undo by code
Schedule1->BeginUpdate();
Schedule1->AllowUndoRedo = true;
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2001,1,10).operator double()));
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2001,1,10,10,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,11,30,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2001,1,10,9,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,12,30,00,0).operator double()));
Schedule1->Undo();
Schedule1->EndUpdate();
|
|
312
|
Save the calendar-event's properties for Undo/Redo operations, by code
Schedule1->BeginUpdate();
Schedule1->AllowUndoRedo = true;
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2001,1,10).operator double()));
Schedule1->Events->Add(TVariant(TDateTime(2001,1,10,10,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,11,30,00,0).operator double()));
Schedule1->StartBlockUndoRedo();
Exschedulelib_tlb::IEventPtr var_Event = Schedule1->Events->Add(TVariant(TDateTime(2001,1,10,9,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,12,30,00,0).operator double()));
long h = var_Event->StartUpdateEvent;
var_Event->BodyBackColor = RGB(0,0,1);
var_Event->BodyForeColor = RGB(255,255,255);
var_Event->StatusColor = RGB(255,0,0);
var_Event->EndUpdateEvent(h);
Schedule1->EndBlockUndoRedo();
Schedule1->EndUpdate();
|
|
311
|
No color is restored for the calendar-event when Undo/Redo operation is performed
Schedule1->BeginUpdate();
Schedule1->AllowUndoRedo = true;
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2001,1,10).operator double()));
Schedule1->Events->Add(TVariant(TDateTime(2001,1,10,10,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,11,30,00,0).operator double()));
Schedule1->StartBlockUndoRedo();
Exschedulelib_tlb::IEventPtr var_Event = Schedule1->Events->Add(TVariant(TDateTime(2001,1,10,9,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,12,30,00,0).operator double()));
long h = var_Event->StartUpdateEvent;
var_Event->BodyBackColor = RGB(0,0,1);
var_Event->BodyForeColor = RGB(255,255,255);
var_Event->StatusColor = RGB(255,0,0);
var_Event->EndUpdateEvent(h);
Schedule1->EndBlockUndoRedo();
Schedule1->EndUpdate();
|
|
310
|
How can I ensure that a specified calendar-event fits the control's visible area
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
Exschedulelib_tlb::IPatternPtr var_Pattern = var_Events->Add(TVariant(TDateTime(2001,1,10,9,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,12,30,00,0).operator double()))->BodyPattern;
var_Pattern->Type = Exschedulelib_tlb::PatternEnum::exPatternBDiagonal;
var_Pattern->Color = RGB(224,224,224);
var_Events->Add(TVariant(TDateTime(2001,1,10,9,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,12,30,00,0).operator double()))->EnsureVisible();
|
|
309
|
LayoutEndChanging(exUndo), LayoutEndChanging(exRedo) or LayoutEndChanging(exUndoRedoUpdate) notifiy your application once a Undo/Redo operation is executed (CTRL+Z, CTRL+Y) or updated
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
void __fastcall TForm1::Schedule1LayoutEndChanging(TObject *Sender,Exschedulelib_tlb::LayoutChangingEnum Operation)
{
OutputDebugString( L"LayoutEndChanging" );
OutputDebugString( L"Operation" );
}
Schedule1->BeginUpdate();
Schedule1->AllowUndoRedo = true;
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2001,1,10).operator double()));
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2001,1,10,9,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,12,30,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2001,1,10,9,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,12,30,00,0).operator double()));
Schedule1->EndUpdate();
|
|
308
|
Turn on the Undo/Redo feature
Schedule1->BeginUpdate();
Schedule1->AllowUndoRedo = true;
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2001,1,10).operator double()));
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2001,1,10,9,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,12,30,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2001,1,10,9,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,12,30,00,0).operator double()));
Schedule1->EndUpdate();
|
|
307
|
How can I make the header (date/group) always visible, so it stays on the top while the user scrolls the chart
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
void __fastcall TForm1::Schedule1LayoutEndChanging(TObject *Sender,Exschedulelib_tlb::LayoutChangingEnum Operation)
{
OutputDebugString( L"Operation" );
Schedule1->DayViewHeight = 2016;
}
Schedule1->BeginUpdate();
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_SelectDate(TDateTime(2012,5,20).operator double(),true);
var_Calendar->Select(Exschedulelib_tlb::SelectCalendarDateEnum::exSelectWeek);
Schedule1->ScrollBars = Exschedulelib_tlb::ScrollBarsEnum::exVertical;
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewSingleRowLockHeader;
Schedule1->DayViewHeight = 2016;
Schedule1->TimeScales->get_Item(TVariant(0))->MinorTimeRuler = L"00:10";
Schedule1->DayStartTime = L"00:00";
Schedule1->DayEndTime = L"24:00";
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exCalendarAutoHide | Exschedulelib_tlb::OnResizeControlEnum::exCalendarFit | Exschedulelib_tlb::OnResizeControlEnum::exResizePanelRight;
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2012,5,24).operator double()));
Schedule1->DisplayGroupingButton = true;
Schedule1->ShowGroupingEvents = true;
Schedule1->ApplyGroupingColors = false;
Exschedulelib_tlb::IGroupsPtr var_Groups = Schedule1->Groups;
Exschedulelib_tlb::IGroupPtr var_Group = var_Groups->Add(1,L"Group 1");
var_Group->Visible = true;
var_Group->EventBackColor = RGB(128,128,128);
var_Group->Title = L"1'st Group";
Exschedulelib_tlb::IGroupPtr var_Group1 = var_Groups->Add(2,L"Group 2");
var_Group1->Visible = true;
var_Group1->EventBackColor = RGB(255,0,0);
var_Group1->Title = L"2'nd Group";
Schedule1->DefaultEventLongLabel = L"<%=%256%><br>Group's Caption: <b><%=%262%></b><br>Group's Title: <b><%=%263%></b>";
Schedule1->DefaultEventShortLabel = Schedule1->DefaultEventLongLabel;
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2012,5,24,1,00,00,0).operator double()),TVariant(TDateTime(2012,5,24,2,00,00,0).operator double()))->GroupID = 1;
var_Events->Add(TVariant(TDateTime(2012,5,24,1,45,00,0).operator double()),TVariant(TDateTime(2012,5,24,2,30,00,0).operator double()))->GroupID = 2;
var_Events->Add(TVariant(TDateTime(2012,5,24,2,30,00,0).operator double()),TVariant(TDateTime(2012,5,24,4,30,00,0).operator double()))->GroupID = 1;
Schedule1->EndUpdate();
|
|
306
|
It appears that Width property of the Group does not what. What am I doing wrong
Schedule1->BeginUpdate();
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2001,1,10).operator double()));
Schedule1->DisplayGroupingButton = true;
Schedule1->ShowGroupingEvents = true;
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exCalendarAutoHide | Exschedulelib_tlb::OnResizeControlEnum::exCalendarFit | Exschedulelib_tlb::OnResizeControlEnum::exResizePanelRight;
Exschedulelib_tlb::IGroupsPtr var_Groups = Schedule1->Groups;
Exschedulelib_tlb::IGroupPtr var_Group = var_Groups->Add(1,L"Group 1");
var_Group->Title = L"First";
var_Group->Visible = true;
Exschedulelib_tlb::IGroupPtr var_Group1 = var_Groups->Add(2,L"Group 2");
var_Group1->Title = L"Second";
var_Group1->Visible = true;
Exschedulelib_tlb::IGroupPtr var_Group2 = var_Groups->Add(3,L"Group 3");
var_Group2->Title = L"Third";
var_Group2->Visible = true;
Schedule1->DayViewWidth = 144;
Schedule1->Groups->get_Item(TVariant(1))->Width = 48;
Schedule1->Groups->get_Item(TVariant(2))->Width = 48;
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2001,1,10,9,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,12,30,00,0).operator double()))->GroupID = 1;
var_Events->Add(TVariant(TDateTime(2001,1,10,10,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,13,00,00,0).operator double()))->GroupID = 2;
Schedule1->EndUpdate();
|
|
305
|
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)
Schedule1->BeginUpdate();
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2012,5,24).operator double()));
Schedule1->ImageSize = 32;
Schedule1->Font->Size = TVariant(long(16));
Schedule1->EventsFont->Size = TVariant(long(16));
Schedule1->TimeScaleFont->Size = TVariant(long(16));
Schedule1->TimeScales->get_Item(TVariant(0))->Width = 128;
Schedule1->Images(TVariant(String("gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOq") +
"NUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlw" +
"yV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+C" +
"MPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9" +
"FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5" +
"y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIk" +
"FgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMt" +
"NhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/Xi" +
"oW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X" +
"4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT" +
"6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUV" +
"DNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJy" +
"T8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5Wzlf" +
"fEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC" +
"6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8R" +
"gH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" +
"RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA=="));
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2012,5,24,11,30,00,0).operator double()),TVariant(TDateTime(2012,5,24,14,30,00,0).operator double()))->Pictures = L"1/2";
var_Events->Add(TVariant(TDateTime(2012,5,24,12,45,00,0).operator double()),TVariant(TDateTime(2012,5,24,15,45,00,0).operator double()))->Pictures = L"1,2";
Schedule1->EndUpdate();
|
|
304
|
ImageSize property on 16 (default) (specifies the size of control' icons)
Schedule1->BeginUpdate();
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2012,5,24).operator double()));
Schedule1->ImageSize = 16;
Schedule1->Images(TVariant(String("gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOq") +
"dSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVt" +
"tmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8a" +
"cvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtT" +
"GsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgP" +
"nwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg=="));
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2012,5,24,11,30,00,0).operator double()),TVariant(TDateTime(2012,5,24,14,30,00,0).operator double()))->Pictures = L"1/2";
var_Events->Add(TVariant(TDateTime(2012,5,24,12,45,00,0).operator double()),TVariant(TDateTime(2012,5,24,15,45,00,0).operator double()))->Pictures = L"1,2";
Schedule1->EndUpdate();
|
|
303
|
Is it possible to show a different background color for alternate days
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleDayHeaderBackColor] = RGB(0,0,0);
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleDayHeaderForeColor] = RGB(0,0,0);
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleDayBackColorAlternate] = RGB(240,240,240);
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleDayForeColorAlternate] = RGB(128,128,128);
Schedule1->Calendar->Select(Exschedulelib_tlb::SelectCalendarDateEnum::exSelectWeek);
|
|
302
|
How can I select all events
Schedule1->BeginUpdate();
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2012,5,24).operator double()));
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2012,5,24,10,00,00,0).operator double()),TVariant(TDateTime(2012,5,24,12,00,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2012,5,24,10,00,00,0).operator double()),TVariant(TDateTime(2012,5,24,12,00,00,0).operator double()));
Schedule1->SelectAll();
Schedule1->EndUpdate();
|
|
301
|
How can I unselect all events
Schedule1->BeginUpdate();
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2012,5,24).operator double()));
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2012,5,24,10,00,00,0).operator double()),TVariant(TDateTime(2012,5,24,12,00,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2012,5,24,10,00,00,0).operator double()),TVariant(TDateTime(2012,5,24,12,00,00,0).operator double()));
Schedule1->SelectAll();
Schedule1->set_Selection(TVariant(""));
Schedule1->EndUpdate();
|
|
300
|
How do I immediately select a newly added event
// AddEvent event - Notifies your application once the a new event is added.
void __fastcall TForm1::Schedule1AddEvent(TObject *Sender,Exschedulelib_tlb::IEvent *Ev)
{
// Ev.Selected = True
}
|
|
299
|
I would like to know if this allows me to setup a number of room(column). Let's say, i need to go up to 10 rooms is it possible. Also, the possibility to have a complete week of that 10 rooms.
Schedule1->BeginUpdate();
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exCalendarAutoHide;
Schedule1->DisplayGroupingButton = true;
Schedule1->ShowGroupingEvents = true;
Schedule1->BodyEventForeColor = RGB(255,255,255);
Schedule1->DayStartTime = L"09:00";
Schedule1->DayEndTime = L"14:00";
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_SelectDate(TDateTime(2012,5,24).operator double(),true);
var_Calendar->Select(Exschedulelib_tlb::SelectCalendarDateEnum::exSelectWeek);
Schedule1->ScrollBars = Exschedulelib_tlb::ScrollBarsEnum::exNoScroll;
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewSingleRow;
Exschedulelib_tlb::IGroupsPtr var_Groups = Schedule1->Groups;
Exschedulelib_tlb::IGroupPtr var_Group = var_Groups->Add(1,L"1");
var_Group->Visible = true;
var_Group->EventBackColor = RGB(255,0,0);
var_Group->HeaderBackColor = var_Group->EventBackColor;
var_Group->HeaderForeColor = RGB(255,255,255);
Exschedulelib_tlb::IGroupPtr var_Group1 = var_Groups->Add(2,L"2");
var_Group1->Visible = true;
var_Group1->EventBackColor = RGB(204,0,0);
var_Group1->HeaderBackColor = var_Group1->EventBackColor;
var_Group1->HeaderForeColor = RGB(255,255,255);
Exschedulelib_tlb::IGroupPtr var_Group2 = var_Groups->Add(3,L"3");
var_Group2->Visible = true;
var_Group2->EventBackColor = RGB(153,0,0);
var_Group2->HeaderBackColor = var_Group2->EventBackColor;
var_Group2->HeaderForeColor = RGB(255,255,255);
Exschedulelib_tlb::IGroupPtr var_Group3 = var_Groups->Add(4,L"4");
var_Group3->Visible = true;
var_Group3->EventBackColor = RGB(102,0,0);
var_Group3->HeaderBackColor = var_Group3->EventBackColor;
var_Group3->HeaderForeColor = RGB(255,255,255);
Exschedulelib_tlb::IGroupPtr var_Group4 = var_Groups->Add(5,L"5");
var_Group4->Visible = true;
var_Group4->EventBackColor = RGB(51,0,0);
var_Group4->HeaderBackColor = var_Group4->EventBackColor;
var_Group4->HeaderForeColor = RGB(255,255,255);
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2012,5,24,10,00,00,0).operator double()),TVariant(TDateTime(2012,5,24,12,00,00,0).operator double()))->GroupID = 1;
var_Events->Add(TVariant(TDateTime(2012,5,24,10,45,00,0).operator double()),TVariant(TDateTime(2012,5,24,12,30,00,0).operator double()))->GroupID = 2;
var_Events->Add(TVariant(TDateTime(2012,5,24,11,30,00,0).operator double()),TVariant(TDateTime(2012,5,24,13,30,00,0).operator double()))->GroupID = 3;
var_Events->Add(TVariant(TDateTime(2012,5,24,10,45,00,0).operator double()),TVariant(TDateTime(2012,5,24,12,30,00,0).operator double()))->GroupID = 4;
var_Events->Add(TVariant(TDateTime(2012,5,24,10,45,00,0).operator double()),TVariant(TDateTime(2012,5,24,12,30,00,0).operator double()))->GroupID = 5;
Schedule1->EndUpdate();
|
|
298
|
I would like to know if this allows me to setup a number of room(column). Let's say, i need to go up to 10 rooms is it possible
Schedule1->BeginUpdate();
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exCalendarAutoHide;
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2012,5,24).operator double()));
Schedule1->DisplayGroupingButton = true;
Schedule1->ShowGroupingEvents = true;
Schedule1->BodyEventForeColor = RGB(255,255,255);
Schedule1->DayStartTime = L"09:00";
Schedule1->DayEndTime = L"14:00";
Exschedulelib_tlb::IGroupsPtr var_Groups = Schedule1->Groups;
Exschedulelib_tlb::IGroupPtr var_Group = var_Groups->Add(1,L"Room1");
var_Group->Visible = true;
var_Group->EventBackColor = RGB(255,0,0);
var_Group->HeaderBackColor = var_Group->EventBackColor;
var_Group->HeaderForeColor = RGB(255,255,255);
Exschedulelib_tlb::IGroupPtr var_Group1 = var_Groups->Add(2,L"Room2");
var_Group1->Visible = true;
var_Group1->EventBackColor = RGB(204,0,0);
var_Group1->HeaderBackColor = var_Group1->EventBackColor;
var_Group1->HeaderForeColor = RGB(255,255,255);
Exschedulelib_tlb::IGroupPtr var_Group2 = var_Groups->Add(3,L"Room3");
var_Group2->Visible = true;
var_Group2->EventBackColor = RGB(153,0,0);
var_Group2->HeaderBackColor = var_Group2->EventBackColor;
var_Group2->HeaderForeColor = RGB(255,255,255);
Exschedulelib_tlb::IGroupPtr var_Group3 = var_Groups->Add(4,L"Room4");
var_Group3->Visible = true;
var_Group3->EventBackColor = RGB(102,0,0);
var_Group3->HeaderBackColor = var_Group3->EventBackColor;
var_Group3->HeaderForeColor = RGB(255,255,255);
Exschedulelib_tlb::IGroupPtr var_Group4 = var_Groups->Add(5,L"Room5");
var_Group4->Visible = true;
var_Group4->EventBackColor = RGB(51,0,0);
var_Group4->HeaderBackColor = var_Group4->EventBackColor;
var_Group4->HeaderForeColor = RGB(255,255,255);
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2012,5,24,10,00,00,0).operator double()),TVariant(TDateTime(2012,5,24,12,00,00,0).operator double()))->GroupID = 1;
var_Events->Add(TVariant(TDateTime(2012,5,24,10,45,00,0).operator double()),TVariant(TDateTime(2012,5,24,12,30,00,0).operator double()))->GroupID = 2;
var_Events->Add(TVariant(TDateTime(2012,5,24,11,30,00,0).operator double()),TVariant(TDateTime(2012,5,24,13,30,00,0).operator double()))->GroupID = 3;
var_Events->Add(TVariant(TDateTime(2012,5,24,10,45,00,0).operator double()),TVariant(TDateTime(2012,5,24,12,30,00,0).operator double()))->GroupID = 4;
var_Events->Add(TVariant(TDateTime(2012,5,24,10,45,00,0).operator double()),TVariant(TDateTime(2012,5,24,12,30,00,0).operator double()))->GroupID = 5;
Schedule1->EndUpdate();
|
|
297
|
Please could you let me know if it is possible to change the increment when the user scrolls the mouse wheel as its to slow by default
Schedule1->VerticalScrollWheel = 3;
|
|
296
|
I am using the DefaultEventLongLabel property to specify the event's label. Is it possible to change the way the event's label is displayed when it is an all day event (sample 2)
Schedule1->BeginUpdate();
Schedule1->SelectEventStyle = Exschedulelib_tlb::LinesStyleEnum::exLinesSolid;
Schedule1->AllowAllDayEventScroll = Exschedulelib_tlb::AllDayEventScrollEnum::exAllDayEventWheelScroll | Exschedulelib_tlb::AllDayEventScrollEnum::exAllDayEventMax4;
Schedule1->DefaultEventLongLabel = TVariant(String("<%=%><%= ( %3 = 0 ? (`Group's ID:` + %4 + `<br>Group's Caption:` + %262 + `<br>Group's Title: ` + %263 + `<br>` + %256 ) : ( (") +
"`Group's ID:` + %4 + ` , ` + %256 ) replace `<br>` with `,` ) ) %>");
Schedule1->DefaultEventShortLabel = TVariant(String("<%=%><%= ( %3 = 0 ? (`Group's ID:` + %4 + `<br>Group's Caption:` + %262 + `<br>Group's Title: ` + %263 + `<br>` + %256 ) : ( ") +
"(`Group's ID:` + %4 + ` , ` + %256 ) ) replace `<br>` with `\\r\\n` ) %>");
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2001,1,10).operator double()));
Schedule1->DisplayGroupingButton = true;
Schedule1->ShowGroupingEvents = true;
Schedule1->HeaderGroupHeight = 1;
Schedule1->ShowAllDayHeader = true;
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exCalendarAutoHide | Exschedulelib_tlb::OnResizeControlEnum::exCalendarFit | Exschedulelib_tlb::OnResizeControlEnum::exResizePanelRight;
Exschedulelib_tlb::IGroupsPtr var_Groups = Schedule1->Groups;
Exschedulelib_tlb::IGroupPtr var_Group = var_Groups->Add(1,L"Group 1");
var_Group->Title = L"First";
var_Group->Visible = true;
Exschedulelib_tlb::IGroupPtr var_Group1 = var_Groups->Add(2,L"Group 2");
var_Group1->Title = L"Second";
var_Group1->Visible = true;
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2001,1,10,9,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,12,30,00,0).operator double()))->GroupID = 1;
var_Events->Add(TVariant(TDateTime(2001,1,10,10,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,13,00,00,0).operator double()))->GroupID = 2;
Exschedulelib_tlb::IEventPtr var_Event = var_Events->Add(TVariant(TDateTime(2001,1,10).operator double()),TVariant(TDateTime(2001,1,10).operator double()));
var_Event->GroupID = 1;
var_Event->AllDayEvent = true;
Exschedulelib_tlb::IEventPtr var_Event1 = var_Events->Add(TVariant(TDateTime(2001,1,10).operator double()),TVariant(TDateTime(2001,1,10).operator double()));
var_Event1->GroupID = 2;
var_Event1->AllDayEvent = true;
Exschedulelib_tlb::IEventPtr var_Event2 = var_Events->Add(TVariant(TDateTime(2001,1,10).operator double()),TVariant(TDateTime(2001,1,10).operator double()));
var_Event2->GroupID = 2;
var_Event2->AllDayEvent = true;
Schedule1->EndUpdate();
|
|
295
|
I am using the DefaultEventLongLabel property to specify the event's label. Is it possible to change the way the event's label is displayed when it is an all day event (sample 1)
Schedule1->BeginUpdate();
Schedule1->SelectEventStyle = Exschedulelib_tlb::LinesStyleEnum::exLinesSolid;
Schedule1->DefaultEventLongLabel = TVariant(String("<%=%><%= %4 < 0 ? `<b>` + %256 + `</b> <off -4>(all)` : ( (`Group's ID:` + %4 + `<br>Group's Caption:` + %262 + `<br>Group's ") +
"Title: ` + %263 + `<br>` + %256 ) replace ( %3 ? `<br>` : ``) with `,` ) %>");
Schedule1->DefaultEventShortLabel = TVariant(String("<%=%><%= %4 < 0 ? %256 : ( %3 = 0 ? (`Group's ID:` + %4 + `<br>Group's Caption:` + %262 + `<br>Group's Title: ` + %263 + `<br") +
">` + %256 ) : ( (`Group's ID:` + %4 + ` , ` + %256 ) ) replace `<br>` with `\\r\\n` ) %>");
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2001,1,10).operator double()));
Schedule1->DisplayGroupingButton = true;
Schedule1->ShowGroupingEvents = true;
Schedule1->HeaderGroupHeight = 1;
Schedule1->ShowAllDayHeader = true;
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exCalendarAutoHide | Exschedulelib_tlb::OnResizeControlEnum::exCalendarFit | Exschedulelib_tlb::OnResizeControlEnum::exResizePanelRight;
Exschedulelib_tlb::IGroupsPtr var_Groups = Schedule1->Groups;
Exschedulelib_tlb::IGroupPtr var_Group = var_Groups->Add(1,L"Group 1");
var_Group->Title = L"First";
var_Group->Visible = true;
Exschedulelib_tlb::IGroupPtr var_Group1 = var_Groups->Add(2,L"Group 2");
var_Group1->Title = L"Second";
var_Group1->Visible = true;
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2001,1,10,9,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,12,30,00,0).operator double()))->GroupID = 1;
var_Events->Add(TVariant(TDateTime(2001,1,10,10,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,13,00,00,0).operator double()))->GroupID = 2;
Exschedulelib_tlb::IEventPtr var_Event = var_Events->Add(TVariant(TDateTime(2001,1,10).operator double()),TVariant(TDateTime(2001,1,10).operator double()));
var_Event->GroupID = 1;
var_Event->AllDayEvent = true;
Exschedulelib_tlb::IEventPtr var_Event1 = var_Events->Add(TVariant(TDateTime(2001,1,10).operator double()),TVariant(TDateTime(2001,1,10).operator double()));
var_Event1->GroupID = -1;
var_Event1->AllDayEvent = true;
Exschedulelib_tlb::IEventPtr var_Event2 = var_Events->Add(TVariant(TDateTime(2001,1,10).operator double()),TVariant(TDateTime(2001,1,10).operator double()));
var_Event2->GroupID = 2;
var_Event2->AllDayEvent = true;
Schedule1->EndUpdate();
|
|
294
|
The Event.Caption does not support HTML, and so if using in DefaultEventLongLabel/DefaultEventShortLabel no HTML is applied, instead HTML tags are displayed as plain text. What can be done
Schedule1->BeginUpdate();
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2012,5,24).operator double()));
Schedule1->DefaultEventLongLabel = L"<%=%><%=%5%><br><%=%256%>";
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2012,5,24,9,00,00,0).operator double()),TVariant(TDateTime(2012,5,24,10,00,00,0).operator double()))->Caption = L"textzeile1<br>textzeile2<br>textzeile3";
var_Events->Add(TVariant(TDateTime(2012,5,24,10,00,00,0).operator double()),TVariant(TDateTime(2012,5,24,11,00,00,0).operator double()))->Caption = L"textzeile1<br><fgcolor-FF0000><b>textzeile2</b></fgcolor>";
Schedule1->EndUpdate();
|
|
293
|
Please could you let me know how I can remove/hide the time scale/marks from the scheduler. I am creating a month view that only requires a box for the day and no time markers required
Schedule1->BeginUpdate();
Schedule1->TimeScales->get_Item(TVariant(0))->Visible = false;
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exCalendarAutoHide;
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewCalendarCompact;
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(2012,5,24).operator double()));
var_Calendar->Select(Exschedulelib_tlb::SelectCalendarDateEnum::exSelectMonth);
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2012,5,24,10,00,00,0).operator double()),TVariant(TDateTime(2012,5,24,12,00,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2012,5,24,10,45,00,0).operator double()),TVariant(TDateTime(2012,5,24,12,30,00,0).operator double()))->ShowStatus = false;
var_Events->Add(TVariant(TDateTime(2012,5,24,11,30,00,0).operator double()),TVariant(TDateTime(2012,5,24,13,30,00,0).operator double()));
Schedule1->EndUpdate();
|
|
292
|
Is it possible to lock down the view to allow resizing of the days column but not to allow the scrolling outside of the dictated time zone
Schedule1->BeginUpdate();
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(2012,5,21).operator double()));
var_Calendar->set_Selection(TVariant("value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"));
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exChangePanels | Exschedulelib_tlb::OnResizeControlEnum::exHideSplitter;
Schedule1->ScrollBars = Exschedulelib_tlb::ScrollBarsEnum::exVertical;
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewSingleRow;
Schedule1->AllowMoveSchedule = Exschedulelib_tlb::AllowKeysEnum::exDisallow;
Schedule1->AllowResizeSchedule = Exschedulelib_tlb::AllowKeysEnum::exDisallow;
Schedule1->AllowToggleSchedule = Exschedulelib_tlb::AllowKeysEnum::exDisallow;
Schedule1->AllowExchangePanels = Exschedulelib_tlb::AllowKeysEnum::exDisallow;
Schedule1->AllowMoveTimeScale = Exschedulelib_tlb::AllowKeysEnum::exDisallow;
Schedule1->AllowResizeTimeScale = Exschedulelib_tlb::AllowKeysEnum::exDisallow;
Schedule1->AllowMultiDaysEvent = false;
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleBorderSelColor] = Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleBorderSelColorUnFocus];
Schedule1->TimeScales->get_Item(TVariant(0))->MinorTimeRuler = L"00:10";
Schedule1->DayStartTime = L"10:00";
Schedule1->DayEndTime = L"14:00";
Schedule1->EndUpdate();
|
|
291
|
I would also like to control the column view to only show 5 days at a time with a side scroll, how would I achieve this please
Schedule1->BeginUpdate();
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exCalendarAutoHide;
Schedule1->ShowAllDayHeader = true;
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2012,5,21).operator double()));
Schedule1->Calendar->set_Selection(TVariant("value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"));
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewCalendarCompact;
Schedule1->ScrollBars = Exschedulelib_tlb::ScrollBarsEnum::exVertical;
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2012,5,22).operator double()),TVariant(TDateTime(2012,5,23).operator double()))->AllDayEvent = true;
var_Events->Add(TVariant(TDateTime(2012,5,21).operator double()),TVariant(TDateTime(2012,5,24).operator double()))->AllDayEvent = true;
var_Events->Add(TVariant(TDateTime(2012,5,22).operator double()),TVariant(TDateTime(2012,5,24).operator double()))->AllDayEvent = true;
Schedule1->EndUpdate();
|
|
290
|
Can I force the schedule grid to only show a single day and then to step through each day using either a custom button click or using the built in schedule calendar
Schedule1->BeginUpdate();
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_SelectDate(TDateTime(2012,5,20).operator double(),true);
var_Calendar->Select(Exschedulelib_tlb::SelectCalendarDateEnum::exSelectFocusDay);
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exChangePanels | Exschedulelib_tlb::OnResizeControlEnum::exHideSplitter;
Schedule1->ScrollBars = Exschedulelib_tlb::ScrollBarsEnum::exNoScroll;
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewSingleRow;
Schedule1->AllowMoveSchedule = Exschedulelib_tlb::AllowKeysEnum::exDisallow;
Schedule1->AllowResizeSchedule = Exschedulelib_tlb::AllowKeysEnum::exDisallow;
Schedule1->AllowToggleSchedule = Exschedulelib_tlb::AllowKeysEnum::exDisallow;
Schedule1->AllowExchangePanels = Exschedulelib_tlb::AllowKeysEnum::exDisallow;
Schedule1->AllowMoveTimeScale = Exschedulelib_tlb::AllowKeysEnum::exDisallow;
Schedule1->AllowResizeTimeScale = Exschedulelib_tlb::AllowKeysEnum::exDisallow;
Schedule1->AllowMultiDaysEvent = false;
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleBorderSelColor] = Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleBorderSelColorUnFocus];
Schedule1->EndUpdate();
|
|
289
|
Can I colour the background of the schedulers grid from a time point to another EG 9:00 to 12:00. This is to show users that they can only book appointments in this time zone
Schedule1->BeginUpdate();
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exChangePanels | Exschedulelib_tlb::OnResizeControlEnum::exHideSplitter;
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2012,6,27).operator double()));
Exschedulelib_tlb::IMarkZonePtr var_MarkZone = Schedule1->MarkZones->Add(L"zoneA",TVariant(TDateTime(2012,6,27,9,00,00,0).operator double()),TVariant(TDateTime(2012,6,27,11,00,00,0).operator double()));
var_MarkZone->Pattern->Type = Exschedulelib_tlb::PatternEnum::exPatternEmpty;
var_MarkZone->LongLabel = L"Yellow";
var_MarkZone->BackColor = RGB(255,255,0);
Exschedulelib_tlb::IMarkZonePtr var_MarkZone1 = Schedule1->MarkZones->Add(L"zoneB",TVariant(TDateTime(2012,6,27,12,00,00,0).operator double()),TVariant(TDateTime(2012,6,27,13,30,00,0).operator double()));
var_MarkZone1->Pattern->Type = Exschedulelib_tlb::PatternEnum::exPatternEmpty;
var_MarkZone1->LongLabel = L"Green";
var_MarkZone1->BackColor = RGB(0,255,0);
Schedule1->EndUpdate();
|
|
288
|
My programming language has the following format for date 2012-05-24-13.04.06.810000 every other format returns a compiler error. Is there a possibility to use a string for the date
Schedule1->BeginUpdate();
Schedule1->Calendar->set_Selection(TVariant(Schedule1->ExecuteTemplate(L"#5/24/2012#")));
Exschedulelib_tlb::IMarkTimesPtr var_MarkTimes = Schedule1->MarkTimes;
Exschedulelib_tlb::IMarkTimePtr var_MarkTime = var_MarkTimes->Add(L"timer",Schedule1->ExecuteTemplate(L"#5/24/2012 11:35#"));
var_MarkTime->Movable = true;
var_MarkTime->LineColor = RGB(0,0,255);
var_MarkTime->StatusEventBackColor = RGB(0,0,255);
var_MarkTime->TimeScaleLineColor = RGB(0,0,255);
var_MarkTime->TimeScaleLabel = L"<fgcolor=0000FF><b><%hh%>:<%nn%> <%AM/PM%>";
Schedule1->EndUpdate();
|
|
287
|
How do I display a picture with transparency
// PictureClick event - Occurs when the user clicks a picture within an event ( Event.Pictures/ExtraPictures ).
void __fastcall TForm1::Schedule1PictureClick(TObject *Sender,BSTR Key)
{
OutputDebugString( L"Key" );
}
Schedule1->BeginUpdate();
Schedule1->ShowSelectEvent = false;
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2012,5,24).operator double()));
Exschedulelib_tlb::IExPicturesPtr var_ExPictures = Schedule1->Pictures;
var_ExPictures->Add(L"pic1",TVariant(String("gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonN") +
"a2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRd" +
"PyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/Q" +
"Wk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDA" +
"W4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRBy" +
"EQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2Cyd" +
"hGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIi" +
"eRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0Dp" +
"PhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIia" +
"GwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrB" +
"MGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHx" +
"TAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+As" +
"fwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAK" +
"B4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0Hgf" +
"xniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUD" +
"QXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUC" +
"yEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfg" +
"Jh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6" +
"HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2" +
"DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgG" +
"o8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF" +
"0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5A" +
"gjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJY" +
"S43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmiXE0IsLY1gtip" +
"G0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBt" +
"AuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBK" +
"gFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZ" +
"BIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAn" +
"BdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAV" +
"B7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBPhSBTBSBjgyhv" +
"BPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAhhLA6ArAFBrAf" +
"AbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBp" +
"Big8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAGhvh7g0AgAahv" +
"A2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/gXh6B8hbh8B/" +
"hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sUhMh0gmh1hLg9" +
"hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4AfgZh/AVhdg/hz" +
"B7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BG" +
"gKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBA" +
"A/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAAChp" +
"AkgiAggqAsAEhigrAkgmASAygKB/BVhVB7hTBNg3BNA2hQBOg4BAAAgiBhB1BIA8BMgCAxBxAGAbhBAJgJgHBnAkhyhQBjBhgmAoBBgwgaAPBghJgLgShogYAxAIAZAZ" +
"AghLBhhQAEgPAEAwgBAwhIgkBBBwhwAYBhhsBoBhhtAbAqArgrh8hehLBVAqA7grgXhPA+Bkglh+h6i4hfh7hehygvgMB9hPhEh9gXh/AKgihUhBh/A1hwA1gwAdh8AS" +
"g4AEB+ADh8AAB+AFh8AThHBxg7B4BmhFBZABAABjgbgwh2gBg4A8grArB/3UgDgQBfgzhpBzhpgUhOYogKBlBZB+ARgAA+NxgDhZgWBcgKg9BfgjBRhogngj4zBCg6Af" +
"ApAzBwB+OiBtA2AbA/hHqYg6ADBZBMBNgfgfAfBfByh4g8BUAiAkgyBMBAg4AcA+BsgyAZBGgRgFA/gbAIh/h6h2AMh/huheg9hbB6h6g6hJhA1zAc5RhhgN5TBLASB3" +
"gIXagQAMAGBdAghJhUAvhahohBAiBshzBzBTB4A9AzhTgDh9AOAZBjBfAPAOAeA2ZlBKAJB61xhBE+gmhKATiWhnBvhlhrAcgMghhGg2hBAQA4B85xBWBQBQXiBIAcho" +
"hkhih/gN36hyBqhiDRgABQgoB0AJAKBvAbAkAxhlBzAVgVAVBJA2gbANg5gdAOAWBrh2gzAW6HBIiagwh9hRhiBTBGAVgAgNB3g5giB/grARBlA6B/gsBhhjaTB2A0Aa" +
"BQhahah6hWBVBVBlAUB+hNAEh2BVAtkNhSgFBxAAOjBOg2gxBhBTgnAzB9ADABAAh/BohRgjgzBPhrhVgaAaAagihWArSxA0gGhzB3gBhgAdhVPTgOhgA8gShjAsgcgj" +
"hUhcBdg+zcBshsgsgtgvAvAPA5hdguBWBUs1LxBbh7gsBahLhzBtjjBpg9AABDgjA6hVBtB0hygt7IAhAz7Jg3AkgkhEtvh5hYhRBhAhBzB6g9AsgwA3hng0AFgNB6hH" +
"B7hRBrgxAcBaAGVWhYgehXgjhLgcBvBththxhd7egugB7gBThoAzh57igHA5A3BYgsW8gshMgiAgBZgQh0AKghA3hLsfAGAwAWB0ARgagNBXhWBWAEB+7yBTga7zhpB6" +
"BqBKBmh0g6AZAxBdhuhnAvWAB6huA0BGhIhGBzuRgcgThpAZAABigYAUhThRhbcEgEBmgpgHgWcHgsAUh+g6B8AsBoA+B6gGgGgxBTB6hVA2h2ACZYAxhSAAhIASB0gn" +
"gQAphyg0hf3pAJgrAMBwg4BZAYgVAihihKgVhzgMBhg/h9AAAqBRh0BbgTsbgHhwAbhFATANhNBMhMhYgwhlhihRAThT6WBahYh6AzhZgLBAA7h6ALhJgLBZBnhzhthA" +
"hAhGB7h7htOfA0hzh4gxhJgBg6hThzBlg4hchyBFc/AsA0hIBihGEnB8BQgvAkgBggAhAmBvBrgngNBGhTgTAThWg1B5gsgAhABRBTgZB+AYAZBxBMBMhPBbJ9BohlhI" +
"B/Awh+g/gOAAAuBhhBhUB2gXBSgagKgXgXAXAtA5AXAdBvhCBJBKgrgqBEAHhjBjhO7dBthhBGh7B7BaAdgAzWgxBthXBTACAoAuAuAOBBBxgXgpF2AFhEhtgHgDACg1" +
"AfARAiVxAHA4Af9zhc0CB3BOAoATApBWhCp0gJA+hTA7gnAxhWgEhqgEgQB+BzBweFANBGBahVgZB6oehXBwBrAphiAkBCAhhbB0AEBLA3guBfg/AtArgvgXhVGUhfBP" +
"hwBlHFBYhcBlh0AxAYgb6phyA0A3g3hPgAAEA9ACgpgqBNAPAPAWBuB1B1BVBUgNBbgvBUhvgPhqgdheBoBxgUAFgiAsAPgN8VhvhxBWg4ANhRBSA+hNB8AwASAjh+B8" +
"B8AcAMhMg3A0DThhgxhRgGBahxhggBApBEWFBmhS+/BBBhhwgIB4BgAYAJhJgOA2BDARgAhmF6A4gGB8Bo/Jgrg/Bfh/hXBnA8gOAEAWgZAUAIH8ApAshmA8Bjgcg5/U" +
"gehh/WB3gxhNhugiAaA7AcBFgcgRADhSBWAThPBzgyBPALgSAABHABBRhCA72hBpBpApA/4BBrgBhKBFgnBfAZgYA2grgMhWBAgkAChgBBBWhzBiBkh0BghxeEZdALg9" +
"iNBvbw7whhhvBbgwgIhygrBfgrBTA6AhgvhjAYg+haBAF4vH4cze70OQyenwMnkQoiQrzCFQA9SUXGy9CMMAuywARTOoQYIFaLgw9RErSKcCginiCw7MHqeDoXjsuW69" +
"iWxWKDgAjGAaQQvTiMBuN1ugSmcgaaDsOSyDjA/Tm2FEN2E33AMEwTlUtAACAgAVAM2yhh0O0gVFuJCQHnogCO4QonwkVR4ShoaiOHmq/iCPTwiQmuBmgXGjgqjh2RA2" +
"HCUfHoiES4gi7EgcyU/xymE4UwSNCU3EMVA2YikFCiSycVCIBBGR2CdGQUBU9wqWVswAUgRIwGwIlkBFmImECyGcEUL3SESm1HIOFS9kgxRQsQIJCosyAmQg8HIslA+R" +
"YOEI6EwtS2cHyiiYJHAlAC0iiAUmEzEiksmHUrWUKBqAoih0OMyAIAAKSQFwnRTAEmS9Mwa36GQOhhCc5BcA8gAcFAfTJCEOSiDEsSaNEuC0EMrjRD8XB4LYziiOIJgN" +
"ACNAAEkRROEQrhCGAgkBA"));
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2012,5,24,10,00,00,0).operator double()),TVariant(TDateTime(2012,5,24,12,00,00,0).operator double()))->Pictures = L"pic1";
Schedule1->EndUpdate();
|
|
286
|
I need a border around each event/item on scheduler. Can you direct me to propery to use (to all)
// AddEvent event - Notifies your application once the a new event is added.
void __fastcall TForm1::Schedule1AddEvent(TObject *Sender,Exschedulelib_tlb::IEvent *Ev)
{
// Ev.BodyBackgroundExt = "[frame=RGB(0,0,0),framethick]"
}
Schedule1->SelectEventStyle = Exschedulelib_tlb::LinesStyleEnum::exLinesSolid;
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2001,1,10).operator double()));
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exCalendarAutoHide | Exschedulelib_tlb::OnResizeControlEnum::exCalendarFit | Exschedulelib_tlb::OnResizeControlEnum::exResizePanelRight;
Schedule1->StatusEventSize = 0;
Schedule1->DefaultEventPadding[Exschedulelib_tlb::PaddingEdgeEnum::exPaddingAll] = 4;
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2001,1,10,9,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,12,30,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2001,1,10,9,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,13,00,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2001,1,10,12,30,00,0).operator double()),TVariant(TDateTime(2001,1,10,13,00,00,0).operator double()));
|
|
285
|
I need a border around each event/item on scheduler. Can you direct me to propery to use (distinct)
Schedule1->SelectEventStyle = Exschedulelib_tlb::LinesStyleEnum::exLinesSolid;
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2001,1,10).operator double()));
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exCalendarAutoHide | Exschedulelib_tlb::OnResizeControlEnum::exCalendarFit | Exschedulelib_tlb::OnResizeControlEnum::exResizePanelRight;
Schedule1->StatusEventSize = 0;
Schedule1->DefaultEventPadding[Exschedulelib_tlb::PaddingEdgeEnum::exPaddingAll] = 4;
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2001,1,10,9,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,12,30,00,0).operator double()))->BodyBackgroundExt = L"[frame=RGB(0,0,0),framethick]";
var_Events->Add(TVariant(TDateTime(2001,1,10,9,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,13,00,00,0).operator double()))->BodyBackgroundExt = L"[frame=RGB(128,128,128),framethick]";
var_Events->Add(TVariant(TDateTime(2001,1,10,12,30,00,0).operator double()),TVariant(TDateTime(2001,1,10,13,00,00,0).operator double()))->BodyBackgroundExt = L"[frame=RGB(0,0,0),framethick]";
|
|
284
|
How can I change/specify the caption of the groups, when the user clicks the drop down button
Schedule1->BeginUpdate();
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2012,5,24).operator double()));
Schedule1->DisplayGroupingButton = true;
Schedule1->ShowGroupingEvents = true;
Exschedulelib_tlb::IGroupsPtr var_Groups = Schedule1->Groups;
Exschedulelib_tlb::IGroupPtr var_Group = var_Groups->Add(1,L"Group A");
var_Group->Caption = L"<fgcolor=808080><c><b>Group A</b><c><br><font ;6>France, Romania, Albania and Switzerland";
var_Group->Visible = true;
var_Group->EventBackColor = RGB(128,128,128);
Exschedulelib_tlb::IGroupPtr var_Group1 = var_Groups->Add(2,L"Group B");
var_Group1->Caption = L"<fgcolor=FF0000><c><b>Group B</b><c><br><font ;6>England, Russia, Wales and Slovakia";
var_Group1->Visible = true;
var_Group1->EventBackColor = RGB(255,0,0);
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2012,5,24,10,00,00,0).operator double()),TVariant(TDateTime(2012,5,24,12,00,00,0).operator double()))->GroupID = 1;
var_Events->Add(TVariant(TDateTime(2012,5,24,10,45,00,0).operator double()),TVariant(TDateTime(2012,5,24,12,30,00,0).operator double()))->GroupID = 2;
var_Events->Add(TVariant(TDateTime(2012,5,24,11,30,00,0).operator double()),TVariant(TDateTime(2012,5,24,13,30,00,0).operator double()))->GroupID = 1;
Schedule1->EndUpdate();
|
|
283
|
Is it possible to hide the group header, but still display the groups/captions
Schedule1->BeginUpdate();
Schedule1->HTMLPicture[L"pic1"] = TVariant(String("gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonN") +
"a2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRd" +
"PyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/Q" +
"Wk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDA" +
"W4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRBy" +
"EQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2Cyd" +
"hGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIi" +
"eRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0Dp" +
"PhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIia" +
"GwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrB" +
"MGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHx" +
"TAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+As" +
"fwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAK" +
"B4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0Hgf" +
"xniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUD" +
"QXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUC" +
"yEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfg" +
"Jh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6" +
"HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2" +
"DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgG" +
"o8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF" +
"0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5A" +
"gjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJY" +
"S43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmiXE0IsLY1gtip" +
"G0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBt" +
"AuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBK" +
"gFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZ" +
"BIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAn" +
"BdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAV" +
"B7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBPhSBTBSBjgyhv" +
"BPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAhhLA6ArAFBrAf" +
"AbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBp" +
"Big8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAGhvh7g0AgAahv" +
"A2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/gXh6B8hbh8B/" +
"hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sUhMh0gmh1hLg9" +
"hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4AfgZh/AVhdg/hz" +
"B7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BG" +
"gKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBA" +
"A/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAACB5" +
"gkgiAggqAsAEhigrglg0ASAqgKBWgng7hSg9gdBPyphph0gQgeoOgyBNBMBIBMBnhjBsgEBJgMACAIgSBhAQAzAwg7BXA6A4BKgUBHB8Agg4BJgIgBA3ASAQAFAIhkhh" +
"AEA/ABRgBIhQAFgTgQhFARAEgsgkhngmAMAdhJh6A3gdBUhXBHhzhaB5hFB1HEgNgasJAOB1Bq3OB3Aeh3vth3A9gSgkh/g5hJ01A/hthbB9hQB/gCB4DPgCA9BAAeBY" +
"AGh2AAhvgBAvhkBZBOBiB5gsB2gsACBwB8AFBWBegGA6AOLkgvgiBvAABIhvh/AnAvhUhShIBmgzBRhLAyg+gDABB3gBgOhAA6AmAuBDBvA7hTA0hfAagfgfhXhrB5A4" +
"gyACAHAHgHhdh+A/B/gTh8AcAvBlhgOnhfBngyAZK2A4BMAlgqBohVAJAUAKAFALgaAmgthBA7AlhigLh/ghBAA0LxBchch8g6A7g7hbh3B+heBBBgB3B3A3ARhtBLgs" +
"BfgXBXh5A/g+B/hqBzh5heh0BagohIgBg4B/ApAatAg6BdBBBWBrhMA8AbgGAhhlByg5AvB+gzhFhihxBxghAjgeBlgEByB5h8g5gMA8BQgtBRAGh6B7gjgTZzANArAr" +
"grh+hquoAlhSgpB5B6B6A6BYBb57g858hcghAHhbAvhWhMhKAkBeKBguh/hRgNAjAjgjh6h0BshZg7AWALBZhD6KvyAtgtg7husuhJhJh7gYAzAihRhohJBnBtBGgNg9" +
"h3A4hogfgcAcA8ApBmBPBnhZAEAwALBngwBtp5gYAZgZhJg9h6BpBSgxA1g1hVga6XgsA2A3g3wIA9AR6pA9ARBIgYBnhjhxgTBRBIB2h3B0gYhuBxhRAHhPgnhciZh1" +
"gCAzAEgGBWBdADgPgoA/gXgIAEAuAKBbA+hRBBhRBohSgUAygAgIghgTh+hGAYBrghBQhoA2gNA7AEAQB5hxgmBSBpg0B4AJhChPg5ABAIBUBTgi4jAHBEBEgdAIhAB5" +
"hhA0gIggAhB5ACAWgahDgABFBjh3hThKABgJB5B2gzAagBBfhwB4AIh5BFAThbhohjBjBDT3BIgXgSgoBEhtgkAyAHARhkAtBoBrBrAzAqgMBcAXhgBbgkh7hghyAiBQ" +
"BShSgShEgphFhzh7hIgzhgB2B2A2A4A0g0hUgXAMAGAlA6hNATB8k5gAgMgdBjBWB0BuBOBfA/AegBgBAjh8hTh3BZA9hoBUgBgKBRBvAvgChhhrhuAFBvA/AZBMgqB7" +
"B7h7hKh2h2g2gPg1A9hEgkANgOAjhhAwh9gxARAwg8B6heh3gQAdPFgiA/beAZABAd8lgQgKBEgPggBBAzhhBEgbhnAPBwg/hnA2hcBWB5AQBCA8gUBehjhIAfAABMAk" +
"B6BbhuhnBsgXgRggAAhhB5j+A/qYgEhbhrkOgqBuAIhVhuhrgyBuAuBLAdolAXBBggAGAyNFAABCgnhRALBUh9gdAFB6AOguhlAYB5hHhIByB3grB9hrAlhAAHBKBChC" +
"gCgNB8BdBf9XgngqhqhDgkAAAoAw7ShThwhsBrBoB7hRgvgBByg+AjhBBUgABkgJAuAjAMhEh+gggeAPA/gJg7BOhuh1ATBxBOgIvMAthpgv9wcYg1A1AFBnhmhmguh2" +
"77ZQhiAGcchkgIgOhcBGhYBXgUBZbABVc5gTB1BEgAhJBUha+BB0h4+Chng4hjgyBygd7agAA1hCAQUPgRg8A7hNAQBQBwhaAFBQh0BCB4g4h1hoeRBhgp+Shnhxi8hh" +
"gygagABrAZAWBcBkgtgQA0Ahr4gkhLgvdwB/hzBtBagrgfBfA6h1hnAmguAiA8ANgLACA8AUgagOg3h0d5iBgBBCBjbIhWAGgYANAggsBthwBQAOzogx+yBHr+AGAuA0" +
"A0A2AGBPZoBnBAAwAIgnB5hcBmB3BWhWBWB+BdBcBcB8AZhsU6hxBuBgh7g7gwgVgBhuABiEh1giAmgBASAiABBWBkhAgZg0AEA1BRhQgNAwhyAgAMA0hsAxBNg7BsAb" +
"BmgQBxAUJZB1hQgMBZAVAPrchOBYgyg8gPg0hYA3gUAzAtBpB6gaB2Qvhhg/gEBoA8gshMg7AlAYgDBsBcAbACAKg6hWCthtqBAAhXgvhDgsA9hDAZAygthLADAVgSAk" +
"hhBsANBLAAhZgdBTArhAAQBDgTh6gEBnBNBHAVhrAPBAFkUnmLgChRECkYhG03G4rBi83imysh3uoBMaTqulIkxwIyAHSCmCcCGclnAegWGTOzSSUVurCrHwKymKmBA5" +
"EeSAivxCGV8rEopTmNwCOnA+mkIQ6sSeiEQlkKHTkp36CVC7BWPDcJ3SmgBYAASSKTiIriEYEFAQ=");
Schedule1->HTMLPicture[L"pic2"] = TVariant(String("gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonN") +
"a2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRd" +
"PyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/Q" +
"Wk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDA" +
"W4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRBy" +
"EQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2Cyd" +
"hGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIi" +
"eRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0Dp" +
"PhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIia" +
"GwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrB" +
"MGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHx" +
"TAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+As" +
"fwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAK" +
"B4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0Hgf" +
"xniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUD" +
"QXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUC" +
"yEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfg" +
"Jh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6" +
"HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2" +
"DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgG" +
"o8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF" +
"0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5A" +
"gjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJY" +
"S43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmiXE0IsLY1gtip" +
"G0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBt" +
"AuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBK" +
"gFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZ" +
"BIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAn" +
"BdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAV" +
"B7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBPhSBTBSBjgyhv" +
"BPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAhhLA6ArAFBrAf" +
"AbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBp" +
"Big8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAGhvh7g0AgAahv" +
"A2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/gXh6B8hbh8B/" +
"hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sUhMh0gmh1hLg9" +
"hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4AfgZh/AVhdg/hz" +
"B7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BG" +
"gKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBA" +
"A/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAADBn" +
"gkgiAggqAsAEhiiig2AqUgBPA5hnB3Bshug3A9g7BbhthqALPBglN0gCgUoQh4AQAIgAgVgTAhBEAIBYACBIhEB4hggoASBiBKBsBJARRDhwBkgMABBrAQADA+AUAlAm" +
"hGBJBaAVALghgSgaA2gpApgpgEgigEBehTBAhLB2g7Bdhdgzhnhih3gvg9AbA9gWhUAHgnB5BPhMgZh5hnh/g/h5hvgzAMB9hPgNh7gnh6h1vtAIA9hVAggVggAbAoWr" +
"gAB1ABhGhBg/AAg+hng4huAAB9BjhbATiLhihNgQB2gegoBkgxrEgxAQAQBGgABpAdgJgfgfhpgRBWh8h+tWgmhpgXAABgAzuAYRAhAtAEhfBVhVBVA/BsLNAWAyBpAZ" +
"hRgChhBwg4BUjtB/LiAehMgCAeBwg+B9hiY9g7BThpgkgXAlA0AMgAgCBBhghshRAUBbBBBthOhYBxgvh/BgANAOgbg3hvAuAvgvAvAXBjhFgkB1hBADgHgPAkATBJh0" +
"gWAbBcgzgZA75YBbhUhWBaBqBegxhjgHAEg9hcBMg8BQg6V8h1gegPBXhOBjA0gAgkX2AFhggphNBmBOB+ZSgDBxBdAdAdhihWgagahXBdg7h3gzB6B6h6BvBmhIgkAy" +
"A6uihKAGhAggBQAoAIBCBJgwAZBigZhTANhz5+A1hs5/g9A3g3hXhEAgBygXAuhdAyAshaA0AohiX/A1h0h8BThzheAFgLAWAcA9h/B+A8hOh/ApgxAABAh7gIgHB6g7" +
"BeBABghggghfBWhWgmgCAYADBrgYAJg9AAhehgB5hGBj6KBbAbA1g/21gEgQBMBs40AHgOAeB0AV6oAphxAyhiBHhghbhuoEB/AgA5gUgAAhBQhoBPhMBHgCgPBpBEAq" +
"gqAqBcBIg9guArArALAZgEABBMBqlEAzAohGQ8gAgjACgASQq7hNAvBvhoBwBhhfAmAQBfKYg7gEAgBBAFhQBuBFhcg7g0s6gSMxhhAageBgB4BEAHgjBKBJhOhmh2A7" +
"V4jtBGAuAogcA1hLAlAQKehwBFhdBxgshXgrgUgUAUAkBzhHBhAhhDgHA+glAdAJAWAAASh1hQh4A5ghg8g5Bvg7h1hLB0h0BohRhJBVAUAeAshgApgqBSBeBbA4gxhQ" +
"BSBSASAxB4A7A6A6AsBnBOAfBOgegbAbOoYxAb5uBGgkgHAjhqBvgDAHh64bAOAHAYQPACh4BegTgpgVA68JhMh7h3hvh3hABKg8BqADvRBLhThqh3BvB2hBgICDA5hH" +
"APgdhzA2Bcg4BggHBZhlhdh7h2B4whAoBDgagIA2BbAGAZB5gEgkABAAB+AFh0hMAXgvhfZVhqBrglglASBhAQhkAMBVARg9hUhdA9AVARBlhuBkgJgTgOAe8zBLBwhQ" +
"gQhp7dhXhtBfTJBJBFBFhFhKhyhlhLhDgUAfBkARB0gyBhBpBrAKAAAwAGATAZhb9FBNhQgeFVgNBGhDgjhchnhzBmBMgJh0h1h1gZgngmgmhigHAAgFhZBthMAhhshy" +
"gEgCAygFnlB7AoBIAjgbg0BRACgKAihchLgGAwAvguguhHBGBJgzDtB9BzAWgtgBBwAwgiBJhAgAAyhChTAQglg0AHgfASAXhNBTAkArtGhLAAApgtATBlhSA/gAAMAS" +
"B/AMA9B9HUhPAyBzBzgrhWBIYwhVByBhgjhHB8ArBXgsgJgRAqhEABhrA4hxhDAygXBBBXheBRARAGAwgmBBgoBZBgBVh1hrAmgtAWALBO8sBkh5BnBPgPgkhLAEgqgB" +
"hjBihKAoB2goBgklgfBdBfgxgyhcBYhYg4hJBgAMg2hkhJAShwg1hrhXAsgog+A2VGBHhZA6htgbB/hOgdg7hBARhhhhgTBqB9BEAVgbgrh+hTBchsg/AHhCgUgBAlhe" +
"hcA1AqhkBsA1iOBqPEgJhpBIATA+gfAvgWgnApA3gYASB725he22BXgJh3gCAggiAQhVBWBWBKAog/ByhBBhAhA61gAvggBmAiBVgRLNgYAPhvAqgth1gnhLAAhFmbhc" +
"guBugaBPgBAwAyAyBiBHAOB/gGgQAFBJgbgNB/hR/fB+BjhDgHglghhETkgkgIgsgggyhNAuAgBXAgBbBYAygqgqhQhbg7B3BOBSB6h8AjBThDh8gvgbhzCIBoBhB8f0" +
"hNgIB7BEhghKBXBThdEpDkheg/B+hdB8Brh2htgzBVBAEADiS0kU52cjV4vDsbRgwy6gA0pl5EQke1MpQKMAa4iWgDwJU68n+MHuAScfxUfj+wi6EFuwHC5Wkhgkuwkc" +
"40G2qeE8elEOF8lHCNAeTwsMTwqWOyWeIGQjxIbyQB0AFHgLayJHARwI0iE+HuGQEAAlT0IR0KiDWW2I2EYcUoaE8/giYAEiGAEiijXAEGwpx4HmeAWQNXcBFGTwaQik" +
"DlE9Bo41iYTuOA4zjnB2qzk2NzeEy4YkGwlQIikAE8hGM805rEEAmAKmUtQEkHuO9yj2u1GofEONxMVR8SiSulw6EMjEESDOTgGgEQi2MjjU5mI5l4pSWl0s1e+vUCXC" +
"+iGQtjEIwOCXi+xqAGowVeoQU+jgeX63GgsHeq1CoTREEpAkL0hgNAA9AoFUQTRBYLzAJgIwAEQIhZAAZjNIEUAXMw+gUBQPCNHE0YFBsKgXC8Xg8DsRySGwhQFAWFQY" +
"IE0gAB4pjjFcrhcPk4ziMUiy/AMzQwAIZwUPsxwgGsAg0AUCiCOgkQyhEAhFAAzAgCs6h9BYjAqCkgjiEQDA4BEhhuF01SdLoqjaGARwjIY4APF44QEC4JBwNwhDOHED" +
"wRAYDwVF49QxFk9hBA4KQnPMh4BDw9hIEkKDFFgoBGL4IQiEYGS+OQZBdKYLDAIsSwLMM9xkMo+y4OsRRICEkAEBgqShCkEArOMeBBEwTCiCcPgiDoNQpE48A9P4owtJ" +
"0CxoMEsACFkQjIM0zQVCk8hRH4LT4LcoT2FkZAmBMeCyAA8QYIASQJBEnSWIg/BtMw0SpOkUDEBsayZAAEADK0GTrAYICzIsuTMLgkBNH45gnOU8QAEgAT5JcFCSCIGg" +
"TBkFiNJkHRzLE9g3CA5QJAk0CGBF7gAywSRFE4RCuEIYCCQE=");
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2012,5,24).operator double()));
Schedule1->DisplayGroupingButton = true;
Schedule1->ShowGroupingEvents = true;
Exschedulelib_tlb::IGroupsPtr var_Groups = Schedule1->Groups;
Exschedulelib_tlb::IGroupPtr var_Group = var_Groups->Add(1,L"<c><b>Group</b><br><c><img>pic1</img>");
var_Group->Visible = true;
var_Group->EventBackColor = RGB(128,128,128);
Exschedulelib_tlb::IGroupPtr var_Group1 = var_Groups->Add(2,L"<c><b>Group</b><br><c><img>pic2</img>");
var_Group1->Visible = true;
var_Group1->EventBackColor = RGB(255,0,0);
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2012,5,24,10,00,00,0).operator double()),TVariant(TDateTime(2012,5,24,12,00,00,0).operator double()))->GroupID = 1;
var_Events->Add(TVariant(TDateTime(2012,5,24,10,45,00,0).operator double()),TVariant(TDateTime(2012,5,24,12,30,00,0).operator double()))->GroupID = 2;
var_Events->Add(TVariant(TDateTime(2012,5,24,11,30,00,0).operator double()),TVariant(TDateTime(2012,5,24,13,30,00,0).operator double()))->GroupID = 1;
Schedule1->HeaderGroupHeight = -1;
Schedule1->EndUpdate();
|
|
282
|
When using the CopyTo method to print a range of dates the printed page is not showing the timescale, is there a way to make it appear (as is, without calendar, multiple-selection)
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exChangePanels | Exschedulelib_tlb::OnResizeControlEnum::exHideSplitter;
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant("#1/1/2016#"));
var_Calendar->set_Selection(TVariant("(int((yearday(value) -1- ((7-weekday(value - yearday(value) + 1)) mod 7) )/7) = int((yearday(#1/7/2016#))/7))"));
Schedule1->BorderSelStyle = Exschedulelib_tlb::LinesStyleEnum::exNoLines;
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewCalendarCompact;
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2016,1,10,8,30,00,0).operator double()),TVariant(TDateTime(2016,1,10,14,30,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2016,1,11,9,30,00,0).operator double()),TVariant(TDateTime(2016,1,11,11,30,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2016,1,15,10,30,00,0).operator double()),TVariant(TDateTime(2016,1,15,11,30,00,0).operator double()));
TVariant s = TVariant(Schedule1->Calendar->get_Selection());
Schedule1->Calendar->set_Selection(TVariant("0"));
TVariant var_CopyTo = TVariant(Schedule1->CopyTo[L"c:/temp/test.png"]);
OutputDebugString( L"Look for c:/temp/test.png file" );
Schedule1->Calendar->set_Selection(TVariant(s));
|
|
281
|
When using the CopyTo method to print a range of dates the printed page is not showing the timescale, is there a way to make it appear (as is, without calendar)
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exChangePanels | Exschedulelib_tlb::OnResizeControlEnum::exHideSplitter;
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(2012,1,1).operator double()));
var_Calendar->set_SelectDate(TDateTime(2012,1,1).operator double(),false);
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2012,1,1,8,30,00,0).operator double()),TVariant(TDateTime(2012,1,1,9,30,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2012,1,1,8,35,00,0).operator double()),TVariant(TDateTime(2012,1,1,9,35,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2012,1,1,10,30,00,0).operator double()),TVariant(TDateTime(2012,1,1,12,30,00,0).operator double()));
TVariant var_CopyTo = TVariant(Schedule1->CopyTo[L"c:/temp/test.png"]);
OutputDebugString( L"Look for c:/temp/test.png file" );
|
|
280
|
When using the CopyTo method to print a range of dates the printed page is not showing the timescale, is there a way to make it appear (as is, with calendar)
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(2012,1,1).operator double()));
var_Calendar->set_SelectDate(TDateTime(2012,1,1).operator double(),false);
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2012,1,1,8,30,00,0).operator double()),TVariant(TDateTime(2012,1,1,9,30,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2012,1,1,8,35,00,0).operator double()),TVariant(TDateTime(2012,1,1,9,35,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2012,1,1,10,30,00,0).operator double()),TVariant(TDateTime(2012,1,1,12,30,00,0).operator double()));
TVariant var_CopyTo = TVariant(Schedule1->CopyTo[L"c:/temp/test.png"]);
OutputDebugString( L"Look for c:/temp/test.png file" );
|
|
279
|
I've seen that all-day header can be limited up to 4, 8 or 12 events. Can I change that limit, for instance, 3 events only
Schedule1->BeginUpdate();
Schedule1->AllowSelectCreateEvent = Exschedulelib_tlb::SelectCreateEventEnum::exHighlightCreateEvent;
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exCalendarAutoHide;
Schedule1->ShowAllDayHeader = true;
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2012,5,21).operator double()));
Schedule1->Calendar->set_Selection(TVariant("value >= #5/20/2012# and value <= #5/26/2012#"));
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewCalendarCompact;
Schedule1->AllowAllDayEventScroll = Exschedulelib_tlb::AllDayEventScrollEnum(0x23 | Exschedulelib_tlb::AllDayEventScrollEnum::exAllDayEventWheelScroll | Exschedulelib_tlb::AllDayEventScrollEnum::exAllDayEventNoMax);
Schedule1->BodyEventBackColor = RGB(128,128,128);
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleAllDayEventScrollBackColor] = RGB(220,220,220);
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2012,5,21).operator double()),TVariant(TDateTime(2012,5,24).operator double()))->AllDayEvent = true;
var_Events->Add(TVariant(TDateTime(2012,5,22).operator double()),TVariant(TDateTime(2012,5,23).operator double()))->AllDayEvent = true;
var_Events->Add(TVariant(TDateTime(2012,5,22).operator double()),TVariant(TDateTime(2012,5,24).operator double()))->AllDayEvent = true;
var_Events->Add(TVariant(TDateTime(2012,5,22).operator double()),TVariant(TDateTime(2012,5,25).operator double()))->AllDayEvent = true;
var_Events->Add(TVariant(TDateTime(2012,5,22).operator double()),TVariant(TDateTime(2012,5,25).operator double()))->AllDayEvent = true;
var_Events->Add(TVariant(TDateTime(2012,5,23).operator double()),TVariant(TDateTime(2012,5,25).operator double()))->AllDayEvent = true;
var_Events->Add(TVariant(TDateTime(2012,5,24).operator double()),TVariant(TDateTime(2012,5,25).operator double()))->AllDayEvent = true;
Schedule1->EndUpdate();
|
|
278
|
Is it possible to highlight the newly created event ( runtime creation )
Schedule1->AllowSelectCreateEvent = Exschedulelib_tlb::SelectCreateEventEnum::exHighlightCreateEvent;
|
|
277
|
Is it possible to select the newly created event ( runtime creation )
Schedule1->AllowSelectCreateEvent = Exschedulelib_tlb::SelectCreateEventEnum::exSelectCreateEvent;
|
|
276
|
I have noticed that the all-day header change its background, if has scrolling events. Is it possible to change that (ebn)
Schedule1->BeginUpdate();
Schedule1->VisualAppearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAChABRUIQAAYAQGKIaBoAKBQAGaAoDDQMQ3QwAAwjSLEEwsACEIrjKCRShyCYZRrGQBQTCIZBqEqSZLiEZRQCWIAxATGchwHIEQgND6cIDmMAHf") +
"j2PI+RZKMoRZJUExZFyERhASQZZoyN40UzOc6vfL9KRDEAEIRKAyTDLQdRyGSMMgEVBJBCbMiNBqhESIJo+GI4BhFYSUZalGSnO6gIBAgIA=="));
Schedule1->AllowSelectCreateEvent = Exschedulelib_tlb::SelectCreateEventEnum::exHighlightCreateEvent;
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exCalendarAutoHide;
Schedule1->ShowAllDayHeader = true;
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2012,5,21).operator double()));
Schedule1->Calendar->set_Selection(TVariant("value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"));
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewCalendarCompact;
Schedule1->AllowAllDayEventScroll = Exschedulelib_tlb::AllDayEventScrollEnum::exAllDayEventWheelScroll | Exschedulelib_tlb::AllDayEventScrollEnum::exAllDayEventMax4;
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleAllDayEventScrollBackColor] = 0x1000000;
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2012,5,22).operator double()),TVariant(TDateTime(2012,5,23).operator double()))->AllDayEvent = true;
var_Events->Add(TVariant(TDateTime(2012,5,21).operator double()),TVariant(TDateTime(2012,5,24).operator double()))->AllDayEvent = true;
var_Events->Add(TVariant(TDateTime(2012,5,22).operator double()),TVariant(TDateTime(2012,5,24).operator double()))->AllDayEvent = true;
var_Events->Add(TVariant(TDateTime(2012,5,22).operator double()),TVariant(TDateTime(2012,5,25).operator double()))->AllDayEvent = true;
var_Events->Add(TVariant(TDateTime(2012,5,22).operator double()),TVariant(TDateTime(2012,5,25).operator double()))->AllDayEvent = true;
var_Events->Add(TVariant(TDateTime(2012,5,23).operator double()),TVariant(TDateTime(2012,5,25).operator double()))->AllDayEvent = true;
var_Events->Add(TVariant(TDateTime(2012,5,24).operator double()),TVariant(TDateTime(2012,5,26).operator double()))->AllDayEvent = true;
Schedule1->EndUpdate();
|
|
275
|
I have noticed that the all-day header change its background, if has scrolling events. Is it possible to change that (solid)
Schedule1->BeginUpdate();
Schedule1->AllowSelectCreateEvent = Exschedulelib_tlb::SelectCreateEventEnum::exHighlightCreateEvent;
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exCalendarAutoHide;
Schedule1->ShowAllDayHeader = true;
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2012,5,21).operator double()));
Schedule1->Calendar->set_Selection(TVariant("value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"));
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewCalendarCompact;
Schedule1->AllowAllDayEventScroll = Exschedulelib_tlb::AllDayEventScrollEnum::exAllDayEventWheelScroll | Exschedulelib_tlb::AllDayEventScrollEnum::exAllDayEventMax4;
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleAllDayEventScrollBackColor] = RGB(220,220,220);
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2012,5,22).operator double()),TVariant(TDateTime(2012,5,23).operator double()))->AllDayEvent = true;
var_Events->Add(TVariant(TDateTime(2012,5,21).operator double()),TVariant(TDateTime(2012,5,24).operator double()))->AllDayEvent = true;
var_Events->Add(TVariant(TDateTime(2012,5,22).operator double()),TVariant(TDateTime(2012,5,24).operator double()))->AllDayEvent = true;
var_Events->Add(TVariant(TDateTime(2012,5,22).operator double()),TVariant(TDateTime(2012,5,25).operator double()))->AllDayEvent = true;
var_Events->Add(TVariant(TDateTime(2012,5,22).operator double()),TVariant(TDateTime(2012,5,25).operator double()))->AllDayEvent = true;
var_Events->Add(TVariant(TDateTime(2012,5,23).operator double()),TVariant(TDateTime(2012,5,25).operator double()))->AllDayEvent = true;
var_Events->Add(TVariant(TDateTime(2012,5,24).operator double()),TVariant(TDateTime(2012,5,26).operator double()))->AllDayEvent = true;
Schedule1->EndUpdate();
|
|
274
|
I have noticed that the all-day header change its background, if has scrolling events. Is it possible to remove that
Schedule1->BeginUpdate();
Schedule1->AllowSelectCreateEvent = Exschedulelib_tlb::SelectCreateEventEnum::exHighlightCreateEvent;
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exCalendarAutoHide;
Schedule1->ShowAllDayHeader = true;
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2012,5,21).operator double()));
Schedule1->Calendar->set_Selection(TVariant("value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"));
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewCalendarCompact;
Schedule1->AllowAllDayEventScroll = Exschedulelib_tlb::AllDayEventScrollEnum::exAllDayEventWheelScroll | Exschedulelib_tlb::AllDayEventScrollEnum::exAllDayEventMax4;
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleAllDayEventScrollBackColor] = RGB(0,0,0);
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2012,5,22).operator double()),TVariant(TDateTime(2012,5,23).operator double()))->AllDayEvent = true;
var_Events->Add(TVariant(TDateTime(2012,5,21).operator double()),TVariant(TDateTime(2012,5,24).operator double()))->AllDayEvent = true;
var_Events->Add(TVariant(TDateTime(2012,5,22).operator double()),TVariant(TDateTime(2012,5,24).operator double()))->AllDayEvent = true;
var_Events->Add(TVariant(TDateTime(2012,5,22).operator double()),TVariant(TDateTime(2012,5,25).operator double()))->AllDayEvent = true;
var_Events->Add(TVariant(TDateTime(2012,5,22).operator double()),TVariant(TDateTime(2012,5,25).operator double()))->AllDayEvent = true;
var_Events->Add(TVariant(TDateTime(2012,5,23).operator double()),TVariant(TDateTime(2012,5,25).operator double()))->AllDayEvent = true;
var_Events->Add(TVariant(TDateTime(2012,5,24).operator double()),TVariant(TDateTime(2012,5,26).operator double()))->AllDayEvent = true;
Schedule1->EndUpdate();
|
|
273
|
The user scrolls through the all-day events, when mouse wheel is rotated. Can I disable that
Schedule1->BeginUpdate();
Schedule1->AllowSelectCreateEvent = Exschedulelib_tlb::SelectCreateEventEnum::exHighlightCreateEvent;
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exCalendarAutoHide;
Schedule1->ShowAllDayHeader = true;
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2012,5,21).operator double()));
Schedule1->Calendar->set_Selection(TVariant("value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"));
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewCalendarCompact;
Schedule1->AllowAllDayEventScroll = Exschedulelib_tlb::AllDayEventScrollEnum::exAllDayEventScroll | Exschedulelib_tlb::AllDayEventScrollEnum::exAllDayEventMax4;
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2012,5,22).operator double()),TVariant(TDateTime(2012,5,23).operator double()))->AllDayEvent = true;
var_Events->Add(TVariant(TDateTime(2012,5,21).operator double()),TVariant(TDateTime(2012,5,24).operator double()))->AllDayEvent = true;
var_Events->Add(TVariant(TDateTime(2012,5,22).operator double()),TVariant(TDateTime(2012,5,24).operator double()))->AllDayEvent = true;
var_Events->Add(TVariant(TDateTime(2012,5,22).operator double()),TVariant(TDateTime(2012,5,25).operator double()))->AllDayEvent = true;
var_Events->Add(TVariant(TDateTime(2012,5,22).operator double()),TVariant(TDateTime(2012,5,25).operator double()))->AllDayEvent = true;
var_Events->Add(TVariant(TDateTime(2012,5,23).operator double()),TVariant(TDateTime(2012,5,25).operator double()))->AllDayEvent = true;
var_Events->Add(TVariant(TDateTime(2012,5,24).operator double()),TVariant(TDateTime(2012,5,26).operator double()))->AllDayEvent = true;
Schedule1->EndUpdate();
|
|
272
|
Is it possible to specify the number of all-day events to be visible
Schedule1->BeginUpdate();
Schedule1->AllowSelectCreateEvent = Exschedulelib_tlb::SelectCreateEventEnum::exHighlightCreateEvent;
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exCalendarAutoHide;
Schedule1->ShowAllDayHeader = true;
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2012,5,21).operator double()));
Schedule1->Calendar->set_Selection(TVariant("value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"));
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewCalendarCompact;
Schedule1->AllowAllDayEventScroll = Exschedulelib_tlb::AllDayEventScrollEnum::exAllDayEventWheelScroll | Exschedulelib_tlb::AllDayEventScrollEnum::exAllDayEventMax4;
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2012,5,22).operator double()),TVariant(TDateTime(2012,5,23).operator double()))->AllDayEvent = true;
var_Events->Add(TVariant(TDateTime(2012,5,21).operator double()),TVariant(TDateTime(2012,5,24).operator double()))->AllDayEvent = true;
var_Events->Add(TVariant(TDateTime(2012,5,22).operator double()),TVariant(TDateTime(2012,5,24).operator double()))->AllDayEvent = true;
var_Events->Add(TVariant(TDateTime(2012,5,22).operator double()),TVariant(TDateTime(2012,5,25).operator double()))->AllDayEvent = true;
var_Events->Add(TVariant(TDateTime(2012,5,22).operator double()),TVariant(TDateTime(2012,5,25).operator double()))->AllDayEvent = true;
var_Events->Add(TVariant(TDateTime(2012,5,23).operator double()),TVariant(TDateTime(2012,5,25).operator double()))->AllDayEvent = true;
var_Events->Add(TVariant(TDateTime(2012,5,24).operator double()),TVariant(TDateTime(2012,5,26).operator double()))->AllDayEvent = true;
Schedule1->EndUpdate();
|
|
271
|
How do I disable scrolling the all-day header
Schedule1->BeginUpdate();
Schedule1->AllowSelectCreateEvent = Exschedulelib_tlb::SelectCreateEventEnum::exHighlightCreateEvent;
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exCalendarAutoHide;
Schedule1->ShowAllDayHeader = true;
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2012,5,21).operator double()));
Schedule1->Calendar->set_Selection(TVariant("value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"));
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewCalendarCompact;
Schedule1->AllowAllDayEventScroll = Exschedulelib_tlb::AllDayEventScrollEnum::exAllDayEventNoMin;
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2012,5,22).operator double()),TVariant(TDateTime(2012,5,23).operator double()))->AllDayEvent = true;
var_Events->Add(TVariant(TDateTime(2012,5,21).operator double()),TVariant(TDateTime(2012,5,24).operator double()))->AllDayEvent = true;
var_Events->Add(TVariant(TDateTime(2012,5,22).operator double()),TVariant(TDateTime(2012,5,24).operator double()))->AllDayEvent = true;
var_Events->Add(TVariant(TDateTime(2012,5,22).operator double()),TVariant(TDateTime(2012,5,25).operator double()))->AllDayEvent = true;
var_Events->Add(TVariant(TDateTime(2012,5,22).operator double()),TVariant(TDateTime(2012,5,25).operator double()))->AllDayEvent = true;
var_Events->Add(TVariant(TDateTime(2012,5,23).operator double()),TVariant(TDateTime(2012,5,25).operator double()))->AllDayEvent = true;
var_Events->Add(TVariant(TDateTime(2012,5,24).operator double()),TVariant(TDateTime(2012,5,26).operator double()))->AllDayEvent = true;
Schedule1->EndUpdate();
|
|
270
|
How can I display the current week only, when the user selects the date in the calendar panel
Schedule1->BeginUpdate();
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exDisableSplitter | Exschedulelib_tlb::OnResizeControlEnum::exResizePanelRight;
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->OnSelectDate = Exschedulelib_tlb::OnSelectDateEnum::exEnsureVisibleDate;
var_Calendar->set_Selection(TVariant(TDateTime(2001,1,10).operator double()));
var_Calendar->SingleSel = true;
Schedule1->Calendar->FirstWeekDay = Exschedulelib_tlb::WeekDayEnum::exMonday;
Schedule1->ScrollBars = Exschedulelib_tlb::ScrollBarsEnum::exNoScroll;
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewCalendarCompact;
Schedule1->AllowResizeSchedule = Exschedulelib_tlb::AllowKeysEnum::exDisallow;
Schedule1->AllowMoveSchedule = Exschedulelib_tlb::AllowKeysEnum::exDisallow;
Schedule1->AllowToggleSchedule = Exschedulelib_tlb::AllowKeysEnum::exDisallow;
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleBorderMonthColor] = Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleBorderDateColor];
Schedule1->TimeScales->get_Item(TVariant(0))->AllowResize = false;
Schedule1->DayViewWidth = 0;
Schedule1->EndUpdate();
|
|
269
|
How do I capture the control and save it as PDF (Method 2)
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(2001,6,1).operator double()));
var_Calendar->set_Selection(TVariant("value in (#6/11/2001#,#6/12/2001#)"));
Schedule1->DayViewWidth = 512;
Schedule1->DayViewHeight = 512;
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2001,6,11,10,00,00,0).operator double()),TVariant(TDateTime(2001,6,11,13,00,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2001,6,12,10,00,00,0).operator double()),TVariant(TDateTime(2001,6,12,13,00,00,0).operator double()));
TVariant var_CopyTo = TVariant(Schedule1->CopyTo[L"C:/Temp/test.pdf"]);
OutputDebugString( L"Look For: C:/Temp/test.pdf file" );
|
|
268
|
How do I capture the control and save it as PDF (Method 1)
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(2001,6,1).operator double()));
var_Calendar->set_Selection(TVariant("value in (#6/11/2001#,#6/12/2001#)"));
Schedule1->DayViewWidth = 512;
Schedule1->DayViewHeight = 512;
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2001,6,11,10,00,00,0).operator double()),TVariant(TDateTime(2001,6,11,13,00,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2001,6,12,10,00,00,0).operator double()),TVariant(TDateTime(2001,6,12,13,00,00,0).operator double()));
/*
Select the Component\Import Component...\Import a Type Library,
to import the following Type Library:
ExPrint 1.0 Control Library
TypeLib: ExPrint.dll
to define the namespace: Exprintlib_tlb
*/
//#include "EXPRINTLIB_TLB.h"
Exprintlib_tlb::IExPrintPtr var_Print = Variant::CreateObject(L"Exontrol.Print");
var_Print->set_Options(TVariant("FitToPage=On"));
var_Print->PrintExt = (IUnknown*)Schedule1->DefaultDispatch;
var_Print->CopyTo(L"C:/Temp/test.pdf");
OutputDebugString( L"Look For: C:/Temp/test.pdf file" );
|
|
267
|
How do I capture the control and save it as an image (JPG or BMP) (Method 2)
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(2001,6,1).operator double()));
var_Calendar->set_Selection(TVariant("value in (#6/11/2001#,#6/12/2001#)"));
Schedule1->DayViewWidth = 512;
Schedule1->DayViewHeight = 512;
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2001,6,11,10,00,00,0).operator double()),TVariant(TDateTime(2001,6,11,13,00,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2001,6,12,10,00,00,0).operator double()),TVariant(TDateTime(2001,6,12,13,00,00,0).operator double()));
TVariant var_CopyTo = TVariant(Schedule1->CopyTo[L"C:/Temp/test.bmp"]);
TVariant var_CopyTo1 = TVariant(Schedule1->CopyTo[L"C:/Temp/test.jpg"]);
OutputDebugString( L"Look For: C:/Temp/test.* file" );
|
|
266
|
How do I capture the control and save it as an image (JPG or BMP) (Method 1)
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(2001,6,1).operator double()));
var_Calendar->set_Selection(TVariant("value in (#6/11/2001#,#6/12/2001#)"));
Schedule1->DayViewWidth = 512;
Schedule1->DayViewHeight = 512;
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2001,6,11,10,00,00,0).operator double()),TVariant(TDateTime(2001,6,11,13,00,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2001,6,12,10,00,00,0).operator double()),TVariant(TDateTime(2001,6,12,13,00,00,0).operator double()));
/*
Select the Component\Import Component...\Import a Type Library,
to import the following Type Library:
ExPrint 1.0 Control Library
TypeLib: ExPrint.dll
to define the namespace: Exprintlib_tlb
*/
//#include "EXPRINTLIB_TLB.h"
Exprintlib_tlb::IExPrintPtr var_Print = Variant::CreateObject(L"Exontrol.Print");
var_Print->set_Options(TVariant("FitToPage=On"));
var_Print->PrintExt = (IUnknown*)Schedule1->DefaultDispatch;
var_Print->CopyTo(L"C:/Temp/test.bmp");
var_Print->CopyTo(L"C:/Temp/test.jpg");
OutputDebugString( L"Look For: C:/Temp/test.* file" );
|
|
265
|
Recurrence: The 2nd to last weekday of the month
Schedule1->BeginUpdate();
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(1997,9,29).operator double()));
var_Calendar->ShowNonMonthDays = false;
var_Calendar->MaxMonthY = 4;
var_Calendar->FirstWeekDay = Exschedulelib_tlb::WeekDayEnum::exMonday;
Exschedulelib_tlb::IHighlightPtr var_Highlight = var_Calendar->HighlightEvent;
var_Highlight->Pattern->Type = Exschedulelib_tlb::PatternEnum::exPatternFrame;
var_Highlight->Bold = false;
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewCalendarCompact;
Schedule1->BorderSelStyle = Exschedulelib_tlb::LinesStyleEnum::exNoLines;
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleMarkTodayBackColor] = RGB(240,240,240);
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(1997,9,29,9,00,00,0).operator double()),TVariant(TDateTime(1997,9,29,14,00,00,0).operator double()))->Repetitive = L"FREQ=MONTHLY;BYDAY=MO,TU,WE,TH,FR;BYSETPOS=-2";
Schedule1->EndUpdate();
|
|
264
|
Recurrence: The 3rd instance into the month of one of Tuesday, Wednesday or Thursday, for the next 3 months
Schedule1->BeginUpdate();
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(1997,9,4).operator double()));
var_Calendar->ShowNonMonthDays = false;
var_Calendar->MaxMonthY = 4;
var_Calendar->FirstWeekDay = Exschedulelib_tlb::WeekDayEnum::exMonday;
Exschedulelib_tlb::IHighlightPtr var_Highlight = var_Calendar->HighlightEvent;
var_Highlight->Pattern->Type = Exschedulelib_tlb::PatternEnum::exPatternFrame;
var_Highlight->Bold = false;
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewCalendarCompact;
Schedule1->BorderSelStyle = Exschedulelib_tlb::LinesStyleEnum::exNoLines;
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleMarkTodayBackColor] = RGB(240,240,240);
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(1997,9,4,9,00,00,0).operator double()),TVariant(TDateTime(1997,9,4,14,00,00,0).operator double()))->Repetitive = L"FREQ=MONTHLY;COUNT=3;BYDAY=TU,WE,TH;BYSETPOS=3";
Schedule1->EndUpdate();
|
|
263
|
Recurrence: The last work day of the month
Schedule1->BeginUpdate();
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(1997,9,30).operator double()));
var_Calendar->ShowNonMonthDays = false;
var_Calendar->MaxMonthY = 4;
var_Calendar->FirstWeekDay = Exschedulelib_tlb::WeekDayEnum::exMonday;
Exschedulelib_tlb::IHighlightPtr var_Highlight = var_Calendar->HighlightEvent;
var_Highlight->Pattern->Type = Exschedulelib_tlb::PatternEnum::exPatternFrame;
var_Highlight->Bold = false;
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewCalendarCompact;
Schedule1->BorderSelStyle = Exschedulelib_tlb::LinesStyleEnum::exNoLines;
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleMarkTodayBackColor] = RGB(240,240,240);
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(1997,8,5,9,00,00,0).operator double()),TVariant(TDateTime(1997,8,5,14,00,00,0).operator double()))->Repetitive = L"FREQ=MONTHLY;BYDAY=MO,TU,WE,TH,FR;BYSETPOS=-1";
Schedule1->EndUpdate();
|
|
262
|
Recurrence: An example where the days generated makes a difference because of WKST (Sample 2)
Schedule1->BeginUpdate();
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(1997,8,5).operator double()));
var_Calendar->ShowNonMonthDays = false;
var_Calendar->MaxMonthY = 4;
var_Calendar->FirstWeekDay = Exschedulelib_tlb::WeekDayEnum::exSunday;
Exschedulelib_tlb::IHighlightPtr var_Highlight = var_Calendar->HighlightEvent;
var_Highlight->Pattern->Type = Exschedulelib_tlb::PatternEnum::exPatternFrame;
var_Highlight->Bold = false;
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewCalendarCompact;
Schedule1->BorderSelStyle = Exschedulelib_tlb::LinesStyleEnum::exNoLines;
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleMarkTodayBackColor] = RGB(240,240,240);
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(1997,8,5,9,00,00,0).operator double()),TVariant(TDateTime(1997,8,5,14,00,00,0).operator double()))->Repetitive = L"FREQ=WEEKLY;INTERVAL=2;COUNT=4;BYDAY=TU,SU";
Schedule1->EndUpdate();
|
|
261
|
Recurrence: An example where the days generated makes a difference because of WKST (Sample 1)
Schedule1->BeginUpdate();
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(1997,8,5).operator double()));
var_Calendar->ShowNonMonthDays = false;
var_Calendar->MaxMonthY = 4;
var_Calendar->FirstWeekDay = Exschedulelib_tlb::WeekDayEnum::exMonday;
Exschedulelib_tlb::IHighlightPtr var_Highlight = var_Calendar->HighlightEvent;
var_Highlight->Pattern->Type = Exschedulelib_tlb::PatternEnum::exPatternFrame;
var_Highlight->Bold = false;
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewCalendarCompact;
Schedule1->BorderSelStyle = Exschedulelib_tlb::LinesStyleEnum::exNoLines;
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleMarkTodayBackColor] = RGB(240,240,240);
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(1997,8,5,9,00,00,0).operator double()),TVariant(TDateTime(1997,8,5,14,00,00,0).operator double()))->Repetitive = L"FREQ=WEEKLY;INTERVAL=2;COUNT=4;BYDAY=TU,SU";
Schedule1->EndUpdate();
|
|
260
|
Recurrence: Every four years, the first Tuesday after a Monday in November, forever (U.S. Presidential Election day)
Schedule1->BeginUpdate();
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(1996,11,5).operator double()));
var_Calendar->ShowNonMonthDays = false;
var_Calendar->MaxMonthY = 4;
var_Calendar->FirstWeekDay = Exschedulelib_tlb::WeekDayEnum::exMonday;
Exschedulelib_tlb::IHighlightPtr var_Highlight = var_Calendar->HighlightEvent;
var_Highlight->Pattern->Type = Exschedulelib_tlb::PatternEnum::exPatternFrame;
var_Highlight->Bold = false;
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewCalendarCompact;
Schedule1->BorderSelStyle = Exschedulelib_tlb::LinesStyleEnum::exNoLines;
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleMarkTodayBackColor] = RGB(240,240,240);
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(1996,11,5,9,00,00,0).operator double()),TVariant(TDateTime(1996,11,5,14,00,00,0).operator double()))->Repetitive = L"FREQ=YEARLY;INTERVAL=4;BYMONTH=11;BYDAY=TU;BYMONTHDAY=2,3,4,5,6,7,8";
Schedule1->EndUpdate();
|
|
259
|
Recurrence: The first Saturday that follows the first Sunday of the month, forever
Schedule1->BeginUpdate();
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(1997,9,13).operator double()));
var_Calendar->ShowNonMonthDays = false;
var_Calendar->MaxMonthY = 4;
var_Calendar->FirstWeekDay = Exschedulelib_tlb::WeekDayEnum::exMonday;
Exschedulelib_tlb::IHighlightPtr var_Highlight = var_Calendar->HighlightEvent;
var_Highlight->Pattern->Type = Exschedulelib_tlb::PatternEnum::exPatternFrame;
var_Highlight->Bold = false;
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewCalendarCompact;
Schedule1->BorderSelStyle = Exschedulelib_tlb::LinesStyleEnum::exNoLines;
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleMarkTodayBackColor] = RGB(240,240,240);
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(1997,9,13,9,00,00,0).operator double()),TVariant(TDateTime(1997,9,13,14,00,00,0).operator double()))->Repetitive = L"FREQ=MONTHLY;BYDAY=SA;BYMONTHDAY=7,8,9,10,11,12,13";
Schedule1->EndUpdate();
|
|
258
|
Recurrence: Every Friday the 13th, forever
Schedule1->BeginUpdate();
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(1998,2,13).operator double()));
var_Calendar->ShowNonMonthDays = false;
var_Calendar->MaxMonthY = 4;
var_Calendar->FirstWeekDay = Exschedulelib_tlb::WeekDayEnum::exMonday;
Exschedulelib_tlb::IHighlightPtr var_Highlight = var_Calendar->HighlightEvent;
var_Highlight->Pattern->Type = Exschedulelib_tlb::PatternEnum::exPatternFrame;
var_Highlight->Bold = false;
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewCalendarCompact;
Schedule1->BorderSelStyle = Exschedulelib_tlb::LinesStyleEnum::exNoLines;
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleMarkTodayBackColor] = RGB(240,240,240);
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(1997,9,2,9,00,00,0).operator double()),TVariant(TDateTime(1997,9,2,14,00,00,0).operator double()))->Repetitive = L"FREQ=MONTHLY;BYDAY=FR;BYMONTHDAY=13";
Schedule1->EndUpdate();
|
|
257
|
Recurrence: Every Thursday, but only during June, July, and August, forever
Schedule1->BeginUpdate();
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(1997,6,5).operator double()));
var_Calendar->ShowNonMonthDays = false;
var_Calendar->MaxMonthY = 4;
var_Calendar->FirstWeekDay = Exschedulelib_tlb::WeekDayEnum::exMonday;
Exschedulelib_tlb::IHighlightPtr var_Highlight = var_Calendar->HighlightEvent;
var_Highlight->Pattern->Type = Exschedulelib_tlb::PatternEnum::exPatternFrame;
var_Highlight->Bold = false;
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewCalendarCompact;
Schedule1->BorderSelStyle = Exschedulelib_tlb::LinesStyleEnum::exNoLines;
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleMarkTodayBackColor] = RGB(240,240,240);
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(1997,6,5,9,00,00,0).operator double()),TVariant(TDateTime(1997,6,5,14,00,00,0).operator double()))->Repetitive = L"FREQ=YEARLY;BYDAY=TH;BYMONTH=6,7,8";
Schedule1->EndUpdate();
|
|
256
|
Recurrence: Every Thursday in March, forever
Schedule1->BeginUpdate();
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(1997,3,13).operator double()));
var_Calendar->ShowNonMonthDays = false;
var_Calendar->MaxMonthY = 4;
var_Calendar->FirstWeekDay = Exschedulelib_tlb::WeekDayEnum::exMonday;
Exschedulelib_tlb::IHighlightPtr var_Highlight = var_Calendar->HighlightEvent;
var_Highlight->Pattern->Type = Exschedulelib_tlb::PatternEnum::exPatternFrame;
var_Highlight->Bold = false;
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewCalendarCompact;
Schedule1->BorderSelStyle = Exschedulelib_tlb::LinesStyleEnum::exNoLines;
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleMarkTodayBackColor] = RGB(240,240,240);
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(1997,3,13,9,00,00,0).operator double()),TVariant(TDateTime(1997,3,13,14,00,00,0).operator double()))->Repetitive = L"FREQ=YEARLY;BYMONTH=3;BYDAY=TH";
Schedule1->EndUpdate();
|
|
255
|
Recurrence: Monday of week number 20 (where the default start of the week is Monday), forever
Schedule1->BeginUpdate();
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(1997,5,12).operator double()));
var_Calendar->ShowNonMonthDays = false;
var_Calendar->MaxMonthY = 4;
var_Calendar->FirstWeekDay = Exschedulelib_tlb::WeekDayEnum::exMonday;
Exschedulelib_tlb::IHighlightPtr var_Highlight = var_Calendar->HighlightEvent;
var_Highlight->Pattern->Type = Exschedulelib_tlb::PatternEnum::exPatternFrame;
var_Highlight->Bold = false;
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewCalendarCompact;
Schedule1->BorderSelStyle = Exschedulelib_tlb::LinesStyleEnum::exNoLines;
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleMarkTodayBackColor] = RGB(240,240,240);
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(1997,5,12,9,00,00,0).operator double()),TVariant(TDateTime(1997,5,12,14,00,00,0).operator double()))->Repetitive = L"FREQ=YEARLY;BYWEEKNO=20;BYDAY=MO";
Schedule1->EndUpdate();
|
|
254
|
Recurrence: Every 20th Monday of the year, forever
Schedule1->BeginUpdate();
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(1997,5,19).operator double()));
var_Calendar->ShowNonMonthDays = false;
var_Calendar->MaxMonthY = 4;
var_Calendar->FirstWeekDay = Exschedulelib_tlb::WeekDayEnum::exMonday;
Exschedulelib_tlb::IHighlightPtr var_Highlight = var_Calendar->HighlightEvent;
var_Highlight->Pattern->Type = Exschedulelib_tlb::PatternEnum::exPatternFrame;
var_Highlight->Bold = false;
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewCalendarCompact;
Schedule1->BorderSelStyle = Exschedulelib_tlb::LinesStyleEnum::exNoLines;
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleMarkTodayBackColor] = RGB(240,240,240);
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(1997,1,1,9,00,00,0).operator double()),TVariant(TDateTime(1997,1,1,14,00,00,0).operator double()))->Repetitive = L"FREQ=YEARLY;BYDAY=20MO";
Schedule1->EndUpdate();
|
|
253
|
Recurrence: Every 3rd year on the 1st, 100th and 200th day for 10 occurrences
Schedule1->BeginUpdate();
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(1997,1,1).operator double()));
var_Calendar->ShowNonMonthDays = false;
var_Calendar->MaxMonthY = 4;
var_Calendar->FirstWeekDay = Exschedulelib_tlb::WeekDayEnum::exMonday;
Exschedulelib_tlb::IHighlightPtr var_Highlight = var_Calendar->HighlightEvent;
var_Highlight->Pattern->Type = Exschedulelib_tlb::PatternEnum::exPatternFrame;
var_Highlight->Bold = false;
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewCalendarCompact;
Schedule1->BorderSelStyle = Exschedulelib_tlb::LinesStyleEnum::exNoLines;
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleMarkTodayBackColor] = RGB(240,240,240);
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(1997,1,1,9,00,00,0).operator double()),TVariant(TDateTime(1997,1,1,14,00,00,0).operator double()))->Repetitive = L"FREQ=YEARLY;INTERVAL=3;COUNT=10;BYYEARDAY=1,100,200";
Schedule1->EndUpdate();
|
|
252
|
Recurrence: Every other year on January, February, and March for 10 occurrences
Schedule1->BeginUpdate();
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(1997,3,10).operator double()));
var_Calendar->ShowNonMonthDays = false;
var_Calendar->MaxMonthY = 4;
var_Calendar->FirstWeekDay = Exschedulelib_tlb::WeekDayEnum::exMonday;
Exschedulelib_tlb::IHighlightPtr var_Highlight = var_Calendar->HighlightEvent;
var_Highlight->Pattern->Type = Exschedulelib_tlb::PatternEnum::exPatternFrame;
var_Highlight->Bold = false;
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewCalendarCompact;
Schedule1->BorderSelStyle = Exschedulelib_tlb::LinesStyleEnum::exNoLines;
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleMarkTodayBackColor] = RGB(240,240,240);
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(1997,3,10,9,00,00,0).operator double()),TVariant(TDateTime(1997,3,10,14,00,00,0).operator double()))->Repetitive = L"FREQ=YEARLY;INTERVAL=2;COUNT=10;BYMONTH=1,2,3";
Schedule1->EndUpdate();
|
|
251
|
Recurrence: Yearly in June and July for 10 occurrences
Schedule1->BeginUpdate();
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(1997,6,10).operator double()));
var_Calendar->ShowNonMonthDays = false;
var_Calendar->MaxMonthX = 2;
var_Calendar->MaxMonthY = 2;
var_Calendar->FirstWeekDay = Exschedulelib_tlb::WeekDayEnum::exMonday;
Exschedulelib_tlb::IHighlightPtr var_Highlight = var_Calendar->HighlightEvent;
var_Highlight->Pattern->Type = Exschedulelib_tlb::PatternEnum::exPatternFrame;
var_Highlight->Bold = false;
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewCalendarCompact;
Schedule1->BorderSelStyle = Exschedulelib_tlb::LinesStyleEnum::exNoLines;
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleMarkTodayBackColor] = RGB(240,240,240);
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(1997,6,10,9,00,00,0).operator double()),TVariant(TDateTime(1997,6,10,14,00,00,0).operator double()))->Repetitive = L"FREQ=YEARLY;COUNT=10;BYMONTH=6,7";
Schedule1->EndUpdate();
|
|
250
|
Recurrence: Every Tuesday, every other month
Schedule1->BeginUpdate();
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(1997,9,2).operator double()));
var_Calendar->ShowNonMonthDays = false;
var_Calendar->MaxMonthY = 4;
var_Calendar->FirstWeekDay = Exschedulelib_tlb::WeekDayEnum::exMonday;
Exschedulelib_tlb::IHighlightPtr var_Highlight = var_Calendar->HighlightEvent;
var_Highlight->Pattern->Type = Exschedulelib_tlb::PatternEnum::exPatternFrame;
var_Highlight->Bold = false;
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewCalendarCompact;
Schedule1->BorderSelStyle = Exschedulelib_tlb::LinesStyleEnum::exNoLines;
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleMarkTodayBackColor] = RGB(240,240,240);
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(1997,9,2,9,00,00,0).operator double()),TVariant(TDateTime(1997,9,2,14,00,00,0).operator double()))->Repetitive = L"FREQ=MONTHLY;INTERVAL=2;BYDAY=TU";
Schedule1->EndUpdate();
|
|
249
|
Recurrence: Every 18 months on the 10th thru 15th of the month for 10 occurrences
Schedule1->BeginUpdate();
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(1997,9,10).operator double()));
var_Calendar->ShowNonMonthDays = false;
var_Calendar->MaxMonthY = 4;
var_Calendar->FirstWeekDay = Exschedulelib_tlb::WeekDayEnum::exMonday;
Exschedulelib_tlb::IHighlightPtr var_Highlight = var_Calendar->HighlightEvent;
var_Highlight->Pattern->Type = Exschedulelib_tlb::PatternEnum::exPatternFrame;
var_Highlight->Bold = false;
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewCalendarCompact;
Schedule1->BorderSelStyle = Exschedulelib_tlb::LinesStyleEnum::exNoLines;
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleMarkTodayBackColor] = RGB(240,240,240);
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(1997,9,10,9,00,00,0).operator double()),TVariant(TDateTime(1997,9,10,14,00,00,0).operator double()))->Repetitive = L"FREQ=MONTHLY;INTERVAL=18;COUNT=10;BYMONTHDAY=10,11,12,13,14,15";
Schedule1->EndUpdate();
|
|
248
|
Recurrence: Monthly on the first and last day of the month for 10 occurrences
Schedule1->BeginUpdate();
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(1997,9,30).operator double()));
var_Calendar->ShowNonMonthDays = false;
var_Calendar->MaxMonthY = 4;
var_Calendar->FirstWeekDay = Exschedulelib_tlb::WeekDayEnum::exMonday;
Exschedulelib_tlb::IHighlightPtr var_Highlight = var_Calendar->HighlightEvent;
var_Highlight->Pattern->Type = Exschedulelib_tlb::PatternEnum::exPatternFrame;
var_Highlight->Bold = false;
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewCalendarCompact;
Schedule1->BorderSelStyle = Exschedulelib_tlb::LinesStyleEnum::exNoLines;
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleMarkTodayBackColor] = RGB(240,240,240);
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(1997,9,3,9,00,00,0).operator double()),TVariant(TDateTime(1997,9,3,14,00,00,0).operator double()))->Repetitive = L"FREQ=MONTHLY;COUNT=10;BYMONTHDAY=1,-1";
Schedule1->EndUpdate();
|
|
247
|
Recurrence: Monthly on the 2nd and 15th of the month for 10 occurrences
Schedule1->BeginUpdate();
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(1997,9,2).operator double()));
var_Calendar->ShowNonMonthDays = false;
var_Calendar->MaxMonthY = 4;
var_Calendar->FirstWeekDay = Exschedulelib_tlb::WeekDayEnum::exMonday;
Exschedulelib_tlb::IHighlightPtr var_Highlight = var_Calendar->HighlightEvent;
var_Highlight->Pattern->Type = Exschedulelib_tlb::PatternEnum::exPatternFrame;
var_Highlight->Bold = false;
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewCalendarCompact;
Schedule1->BorderSelStyle = Exschedulelib_tlb::LinesStyleEnum::exNoLines;
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleMarkTodayBackColor] = RGB(240,240,240);
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(1997,9,2,9,00,00,0).operator double()),TVariant(TDateTime(1997,9,2,14,00,00,0).operator double()))->Repetitive = L"FREQ=MONTHLY;COUNT=10;BYMONTHDAY=2,15";
Schedule1->EndUpdate();
|
|
246
|
Recurrence: Monthly on the third to the last day of the month, forever
Schedule1->BeginUpdate();
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(1997,9,28).operator double()));
var_Calendar->ShowNonMonthDays = false;
var_Calendar->MaxMonthY = 4;
var_Calendar->FirstWeekDay = Exschedulelib_tlb::WeekDayEnum::exMonday;
Exschedulelib_tlb::IHighlightPtr var_Highlight = var_Calendar->HighlightEvent;
var_Highlight->Pattern->Type = Exschedulelib_tlb::PatternEnum::exPatternFrame;
var_Highlight->Bold = false;
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewCalendarCompact;
Schedule1->BorderSelStyle = Exschedulelib_tlb::LinesStyleEnum::exNoLines;
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleMarkTodayBackColor] = RGB(240,240,240);
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(1997,9,28,9,00,00,0).operator double()),TVariant(TDateTime(1997,9,28,14,00,00,0).operator double()))->Repetitive = L"FREQ=MONTHLY;BYMONTHDAY=-3";
Schedule1->EndUpdate();
|
|
245
|
Recurrence: Monthly on the second to last Monday of the month for 6 months
Schedule1->BeginUpdate();
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(1997,9,22).operator double()));
var_Calendar->ShowNonMonthDays = false;
var_Calendar->MaxMonthY = 4;
var_Calendar->FirstWeekDay = Exschedulelib_tlb::WeekDayEnum::exMonday;
Exschedulelib_tlb::IHighlightPtr var_Highlight = var_Calendar->HighlightEvent;
var_Highlight->Pattern->Type = Exschedulelib_tlb::PatternEnum::exPatternFrame;
var_Highlight->Bold = false;
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewCalendarCompact;
Schedule1->BorderSelStyle = Exschedulelib_tlb::LinesStyleEnum::exNoLines;
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleMarkTodayBackColor] = RGB(240,240,240);
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(1997,9,22,9,00,00,0).operator double()),TVariant(TDateTime(1997,9,22,14,00,00,0).operator double()))->Repetitive = L"FREQ=MONTHLY;COUNT=6;BYDAY=-2MO";
Schedule1->EndUpdate();
|
|
244
|
Recurrence: Every other month on the 1st and last Sunday of the month for 10 occurrences
Schedule1->BeginUpdate();
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(1997,9,7).operator double()));
var_Calendar->ShowNonMonthDays = false;
var_Calendar->MaxMonthY = 4;
var_Calendar->FirstWeekDay = Exschedulelib_tlb::WeekDayEnum::exMonday;
Exschedulelib_tlb::IHighlightPtr var_Highlight = var_Calendar->HighlightEvent;
var_Highlight->Pattern->Type = Exschedulelib_tlb::PatternEnum::exPatternFrame;
var_Highlight->Bold = false;
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewCalendarCompact;
Schedule1->BorderSelStyle = Exschedulelib_tlb::LinesStyleEnum::exNoLines;
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleMarkTodayBackColor] = RGB(240,240,240);
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(1997,9,7,9,00,00,0).operator double()),TVariant(TDateTime(1997,9,7,14,00,00,0).operator double()))->Repetitive = L"FREQ=MONTHLY;INTERVAL=2;COUNT=10;BYDAY=1SU,-1SU";
Schedule1->EndUpdate();
|
|
243
|
Recurrence: Monthly on the 1st Friday until December 24, 1997
Schedule1->BeginUpdate();
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(1997,9,5).operator double()));
var_Calendar->ShowNonMonthDays = false;
var_Calendar->MaxMonthY = 4;
var_Calendar->FirstWeekDay = Exschedulelib_tlb::WeekDayEnum::exMonday;
Exschedulelib_tlb::IHighlightPtr var_Highlight = var_Calendar->HighlightEvent;
var_Highlight->Pattern->Type = Exschedulelib_tlb::PatternEnum::exPatternFrame;
var_Highlight->Bold = false;
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewCalendarCompact;
Schedule1->BorderSelStyle = Exschedulelib_tlb::LinesStyleEnum::exNoLines;
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleMarkTodayBackColor] = RGB(240,240,240);
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(1997,9,5,9,00,00,0).operator double()),TVariant(TDateTime(1997,9,5,14,00,00,0).operator double()))->Repetitive = L"FREQ=MONTHLY;UNTIL=19971224T000000Z;BYDAY=1FR";
Schedule1->EndUpdate();
|
|
242
|
Recurrence: Monthly on the 1st Friday for ten occurrences
Schedule1->BeginUpdate();
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(1997,9,5).operator double()));
var_Calendar->ShowNonMonthDays = false;
var_Calendar->MaxMonthY = 4;
var_Calendar->FirstWeekDay = Exschedulelib_tlb::WeekDayEnum::exMonday;
Exschedulelib_tlb::IHighlightPtr var_Highlight = var_Calendar->HighlightEvent;
var_Highlight->Pattern->Type = Exschedulelib_tlb::PatternEnum::exPatternFrame;
var_Highlight->Bold = false;
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewCalendarCompact;
Schedule1->BorderSelStyle = Exschedulelib_tlb::LinesStyleEnum::exNoLines;
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleMarkTodayBackColor] = RGB(240,240,240);
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(1997,9,5,9,00,00,0).operator double()),TVariant(TDateTime(1997,9,5,14,00,00,0).operator double()))->Repetitive = L"FREQ=MONTHLY;COUNT=10;BYDAY=1FR";
Schedule1->EndUpdate();
|
|
241
|
Recurrence: Every other week on Tuesday and Thursday, for 8 occurrences
Schedule1->BeginUpdate();
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(1997,9,16).operator double()));
var_Calendar->ShowNonMonthDays = false;
var_Calendar->MaxMonthY = 4;
var_Calendar->FirstWeekDay = Exschedulelib_tlb::WeekDayEnum::exSunday;
Exschedulelib_tlb::IHighlightPtr var_Highlight = var_Calendar->HighlightEvent;
var_Highlight->Pattern->Type = Exschedulelib_tlb::PatternEnum::exPatternFrame;
var_Highlight->Bold = false;
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewCalendarCompact;
Schedule1->BorderSelStyle = Exschedulelib_tlb::LinesStyleEnum::exNoLines;
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleMarkTodayBackColor] = RGB(240,240,240);
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(1997,9,2,9,00,00,0).operator double()),TVariant(TDateTime(1997,9,2,14,00,00,0).operator double()))->Repetitive = L"FREQ=WEEKLY;INTERVAL=2;COUNT=8;WKST=SU;BYDAY=TU,TH";
Schedule1->EndUpdate();
|
|
240
|
Recurrence: Every other week on Monday, Wednesday and Friday until December 24, 1997, but starting on Tuesday, September 2, 1997
Schedule1->BeginUpdate();
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(1997,9,17).operator double()));
var_Calendar->ShowNonMonthDays = false;
var_Calendar->MaxMonthY = 4;
var_Calendar->FirstWeekDay = Exschedulelib_tlb::WeekDayEnum::exSunday;
Exschedulelib_tlb::IHighlightPtr var_Highlight = var_Calendar->HighlightEvent;
var_Highlight->Pattern->Type = Exschedulelib_tlb::PatternEnum::exPatternFrame;
var_Highlight->Bold = false;
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewCalendarCompact;
Schedule1->BorderSelStyle = Exschedulelib_tlb::LinesStyleEnum::exNoLines;
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleMarkTodayBackColor] = RGB(240,240,240);
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(1997,9,2,9,00,00,0).operator double()),TVariant(TDateTime(1997,9,2,14,00,00,0).operator double()))->Repetitive = L"FREQ=WEEKLY;INTERVAL=2;UNTIL=19971224T000000Z;WKST=SU;BYDAY=MO,WE,FR";
Schedule1->EndUpdate();
|
|
239
|
Recurrence: Weekly on Tuesday and Thursday for 5 weeks
Schedule1->BeginUpdate();
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(1997,9,16).operator double()));
var_Calendar->ShowNonMonthDays = false;
var_Calendar->MaxMonthY = 4;
var_Calendar->FirstWeekDay = Exschedulelib_tlb::WeekDayEnum::exSunday;
Exschedulelib_tlb::IHighlightPtr var_Highlight = var_Calendar->HighlightEvent;
var_Highlight->Pattern->Type = Exschedulelib_tlb::PatternEnum::exPatternFrame;
var_Highlight->Bold = false;
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewCalendarCompact;
Schedule1->BorderSelStyle = Exschedulelib_tlb::LinesStyleEnum::exNoLines;
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleMarkTodayBackColor] = RGB(240,240,240);
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(1997,9,2,9,00,00,0).operator double()),TVariant(TDateTime(1997,9,2,14,00,00,0).operator double()))->Repetitive = L"FREQ=WEEKLY;UNTIL=19971007T000000Z;WKST=SU;BYDAY=TU,TH";
Schedule1->EndUpdate();
|
|
238
|
Recurrence: Weekly on Tuesday and Thursday for 5 weeks
Schedule1->BeginUpdate();
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(1997,9,16).operator double()));
var_Calendar->ShowNonMonthDays = false;
var_Calendar->MaxMonthY = 4;
var_Calendar->FirstWeekDay = Exschedulelib_tlb::WeekDayEnum::exSunday;
Exschedulelib_tlb::IHighlightPtr var_Highlight = var_Calendar->HighlightEvent;
var_Highlight->Pattern->Type = Exschedulelib_tlb::PatternEnum::exPatternFrame;
var_Highlight->Bold = false;
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewCalendarCompact;
Schedule1->BorderSelStyle = Exschedulelib_tlb::LinesStyleEnum::exNoLines;
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleMarkTodayBackColor] = RGB(240,240,240);
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(1997,9,2,9,00,00,0).operator double()),TVariant(TDateTime(1997,9,2,14,00,00,0).operator double()))->Repetitive = L"FREQ=WEEKLY;COUNT=10;WKST=SU;BYDAY=TU,TH";
Schedule1->EndUpdate();
|
|
237
|
Recurrence: Every other day - forever
Schedule1->BeginUpdate();
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(1997,9,4).operator double()));
var_Calendar->ShowNonMonthDays = false;
var_Calendar->MaxMonthY = 4;
var_Calendar->FirstWeekDay = Exschedulelib_tlb::WeekDayEnum::exMonday;
Exschedulelib_tlb::IHighlightPtr var_Highlight = var_Calendar->HighlightEvent;
var_Highlight->Pattern->Type = Exschedulelib_tlb::PatternEnum::exPatternFrame;
var_Highlight->Bold = false;
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewCalendarCompact;
Schedule1->BorderSelStyle = Exschedulelib_tlb::LinesStyleEnum::exNoLines;
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleMarkTodayBackColor] = RGB(240,240,240);
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(1997,9,2,9,00,00,0).operator double()),TVariant(TDateTime(1997,9,2,14,00,00,0).operator double()))->Repetitive = L"FREQ=DAILY;INTERVAL=2";
Schedule1->EndUpdate();
|
|
236
|
Recurrence: Daily until December 24, 1997
Schedule1->BeginUpdate();
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(1997,9,17).operator double()));
var_Calendar->ShowNonMonthDays = false;
var_Calendar->MaxMonthY = 4;
var_Calendar->FirstWeekDay = Exschedulelib_tlb::WeekDayEnum::exMonday;
Exschedulelib_tlb::IHighlightPtr var_Highlight = var_Calendar->HighlightEvent;
var_Highlight->Pattern->Type = Exschedulelib_tlb::PatternEnum::exPatternFrame;
var_Highlight->Bold = false;
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewCalendarCompact;
Schedule1->BorderSelStyle = Exschedulelib_tlb::LinesStyleEnum::exNoLines;
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleMarkTodayBackColor] = RGB(240,240,240);
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(1997,9,2,9,00,00,0).operator double()),TVariant(TDateTime(1997,9,2,14,00,00,0).operator double()))->Repetitive = L"FREQ=DAILY;UNTIL=19971224T000000Z";
Schedule1->EndUpdate();
|
|
235
|
Recurrence: Daily for 10 occurrences
Schedule1->BeginUpdate();
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(1997,9,9).operator double()));
var_Calendar->ShowNonMonthDays = false;
var_Calendar->MaxMonthY = 4;
Exschedulelib_tlb::IHighlightPtr var_Highlight = var_Calendar->HighlightEvent;
var_Highlight->Pattern->Type = Exschedulelib_tlb::PatternEnum::exPatternFrame;
var_Highlight->Bold = false;
var_Calendar->FirstWeekDay = Exschedulelib_tlb::WeekDayEnum::exMonday;
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewCalendarCompact;
Schedule1->BorderSelStyle = Exschedulelib_tlb::LinesStyleEnum::exNoLines;
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleMarkTodayBackColor] = RGB(240,240,240);
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(1997,9,2,9,00,00,0).operator double()),TVariant(TDateTime(1997,9,2,14,00,00,0).operator double()))->Repetitive = L"FREQ=DAILY;COUNT=10";
Schedule1->EndUpdate();
|
|
234
|
How do I display the week number according, so the January 1st is in the first week
Schedule1->BeginUpdate();
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(2016,1,1).operator double()));
var_Calendar->FirstWeekDay = Exschedulelib_tlb::WeekDayEnum::exSunday;
var_Calendar->DisplayWeekNumberAs = Exschedulelib_tlb::WeekNumberAsEnum::exSimpleWeekNumber;
Schedule1->EndUpdate();
|
|
233
|
How do I display the week number according to ISO8601 standard
Schedule1->BeginUpdate();
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(2016,1,4).operator double()));
var_Calendar->FirstWeekDay = Exschedulelib_tlb::WeekDayEnum::exMonday;
var_Calendar->DisplayWeekNumberAs = Exschedulelib_tlb::WeekNumberAsEnum::exISO8601WeekNumber;
Schedule1->EndUpdate();
|
|
232
|
How do I hide the week number
Schedule1->BeginUpdate();
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->FirstWeekDay = Exschedulelib_tlb::WeekDayEnum::exMonday;
var_Calendar->ShowWeeks = false;
var_Calendar->ShowNonMonthDays = false;
Schedule1->EndUpdate();
|
|
231
|
How can I change the background color of the all day header
Schedule1->BeginUpdate();
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exCalendarAutoHide;
Schedule1->ShowAllDayHeader = true;
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->FirstWeekDay = Exschedulelib_tlb::WeekDayEnum::exMonday;
var_Calendar->set_SelectDate(TDateTime(2012,5,8).operator double(),true);
var_Calendar->Select(Exschedulelib_tlb::SelectCalendarDateEnum::exSelectWeek);
var_Calendar->set_SelectDate(TDateTime(2012,5,15).operator double(),false);
var_Calendar->Select(Exschedulelib_tlb::SelectCalendarDateEnum::exSelectToggle | Exschedulelib_tlb::SelectCalendarDateEnum::exSelectWeek);
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleAllDayHeaderBackColor] = RGB(240,240,240);
Schedule1->HeaderAllDayEventHeight = -20;
Schedule1->Events->Add(TVariant(TDateTime(2012,5,8).operator double()),TVariant(TDateTime(2012,5,17).operator double()))->AllDayEvent = true;
Schedule1->EndUpdate();
|
|
230
|
How can I display a single text on a specified date
Schedule1->BeginUpdate();
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2012,5,26).operator double()));
Schedule1->Calendar->set_Selection(TVariant("value in (#05/23/2012#,#05/24/2012#,#05/25/2012#)"));
Schedule1->NonworkingPatterns->Add(1234,Exschedulelib_tlb::PatternEnum::exPatternEmpty)->BackgroundExt = L"[text=`<font ;6><fgcolor 808080>just a notice`,align=0x11]";
Schedule1->NonworkingTimes->Add(L"value = #05/25/2012#",L"09:00",L"10:00",1234);
Schedule1->EndUpdate();
|
|
229
|
I am using the control's DataSource property, the question is how can I get the event's identifier Datafield(exEventID)
/*
Select the Component\Import Component...\Import a Type Library,
to import the following Type Library:
Microsoft ActiveX Data Objects 6.1 Library
TypeLib: msado15.dll
to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADOR.Recordset");
rs->Open(TVariant("Events"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExSchedule\\Sample\\Access2007\\datasource.accdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Schedule1->BeginUpdate();
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2013,11,11).operator double()));
Schedule1->DataField[Exschedulelib_tlb::EventKnownPropertyEnum::exEventStartDateTime] = TVariant("Start");
Schedule1->DataField[Exschedulelib_tlb::EventKnownPropertyEnum::exEventEndDateTime] = TVariant("End");
Schedule1->DataField[Exschedulelib_tlb::EventKnownPropertyEnum::exEventExtraLabel] = TVariant("Extra");
Schedule1->DataSource = (IDispatch*)rs;
OutputDebugString( PChar(Schedule1->Events->get_Item(TVariant(1))->get_KnownProperty(Exschedulelib_tlb::EventKnownPropertyEnum::exEventID)) );
Schedule1->EndUpdate();
|
|
228
|
Is it possible to display some text/image on the schedule's view background
Schedule1->BeginUpdate();
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2012,5,25).operator double()));
Schedule1->NonworkingPatterns->Add(1234,Exschedulelib_tlb::PatternEnum::exPatternBDiagonal)->BackgroundExt = L"[text=`<fgcolor 808080>just a caption`,align=0x11]";
Schedule1->NonworkingPatterns->Add(1235,Exschedulelib_tlb::PatternEnum::exPatternEmpty)->BackgroundExt = L"[text=`<fgcolor 808080>just another caption`,align=0x11]";
Schedule1->NonworkingTimes->Add(L"weekday(value) = 5",L"08:00",L"08:59:59",1234);
Schedule1->NonworkingTimes->Add(L"weekday(value) = 5",L"09:00",L"09:59:59",1235);
Schedule1->NonworkingTimes->Add(L"weekday(value) = 5",L"10:00",L"10:59:59",1234);
Schedule1->EndUpdate();
|
|
227
|
How can I display a text on the schedule's view background
Schedule1->BeginUpdate();
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2012,5,25).operator double()));
Schedule1->NonworkingPatterns->Add(1234,Exschedulelib_tlb::PatternEnum::exPatternEmpty)->BackgroundExt = L"[text=`<fgcolor 808080>just a caption`,align=0x11]";
Schedule1->NonworkingTimes->Add(L"weekday(value) = 5",L"12:00",L"13:00",1234);
Schedule1->EndUpdate();
|
|
226
|
Is it possible to change the visual appearance of the edit's context menu
Schedule1->VisualAppearance->Add(1,TVariant("c:\\exontrol\\images\\normal.ebn"));
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exContextMenuAppearance] = 0x1000000;
|
|
225
|
How do I customize the edit's context menu
Schedule1->Images(TVariant(String("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq") +
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="));
Schedule1->EditContextMenuItems = L"Insert[group=3](<img>1</img>[id=57763],<img>2</img>[id=57763])";
|
|
224
|
How can I lock/fix the date header, so it stays on the top while the user scrolls the chart
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
void __fastcall TForm1::Schedule1LayoutEndChanging(TObject *Sender,Exschedulelib_tlb::LayoutChangingEnum Operation)
{
OutputDebugString( L"Operation" );
Schedule1->DayViewHeight = 2016;
}
Schedule1->BeginUpdate();
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_SelectDate(TDateTime(2012,5,20).operator double(),true);
var_Calendar->Select(Exschedulelib_tlb::SelectCalendarDateEnum::exSelectWeek);
Schedule1->ScrollBars = Exschedulelib_tlb::ScrollBarsEnum::exVertical;
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewSingleRowLockHeader;
Schedule1->DayViewHeight = 2016;
Schedule1->AllowMoveSchedule = Exschedulelib_tlb::AllowKeysEnum::exDisallow;
Schedule1->AllowResizeSchedule = Exschedulelib_tlb::AllowKeysEnum::exDisallow;
Schedule1->AllowToggleSchedule = Exschedulelib_tlb::AllowKeysEnum::exDisallow;
Schedule1->AllowExchangePanels = Exschedulelib_tlb::AllowKeysEnum::exDisallow;
Schedule1->AllowMoveTimeScale = Exschedulelib_tlb::AllowKeysEnum::exDisallow;
Schedule1->AllowResizeTimeScale = Exschedulelib_tlb::AllowKeysEnum::exDisallow;
Schedule1->AllowMultiDaysEvent = false;
Schedule1->TimeScales->get_Item(TVariant(0))->MinorTimeRuler = L"00:10";
Schedule1->DayStartTime = L"00:00";
Schedule1->DayEndTime = L"24:00";
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exCalendarAutoHide | Exschedulelib_tlb::OnResizeControlEnum::exCalendarFit | Exschedulelib_tlb::OnResizeControlEnum::exResizePanelRight;
Schedule1->EndUpdate();
|
|
223
|
Is there any way to control the vertical size of each hour other than by the font and/or the minor time scale being changed
Schedule1->BeginUpdate();
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_SelectDate(TDateTime(2012,5,20).operator double(),true);
var_Calendar->Select(Exschedulelib_tlb::SelectCalendarDateEnum::exSelectWeek);
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exChangePanels | Exschedulelib_tlb::OnResizeControlEnum::exHideSplitter;
Schedule1->ScrollBars = Exschedulelib_tlb::ScrollBarsEnum::exVertical;
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewSingleRow;
Schedule1->DayViewHeight = 2016;
Schedule1->AllowMoveSchedule = Exschedulelib_tlb::AllowKeysEnum::exDisallow;
Schedule1->AllowResizeSchedule = Exschedulelib_tlb::AllowKeysEnum::exDisallow;
Schedule1->AllowToggleSchedule = Exschedulelib_tlb::AllowKeysEnum::exDisallow;
Schedule1->AllowExchangePanels = Exschedulelib_tlb::AllowKeysEnum::exDisallow;
Schedule1->AllowMoveTimeScale = Exschedulelib_tlb::AllowKeysEnum::exDisallow;
Schedule1->AllowResizeTimeScale = Exschedulelib_tlb::AllowKeysEnum::exDisallow;
Schedule1->AllowMultiDaysEvent = false;
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleBorderSelColor] = Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleBorderSelColorUnFocus];
Schedule1->TimeScales->get_Item(TVariant(0))->MinorTimeRuler = L"00:10";
Schedule1->DayStartTime = L"00:00";
Schedule1->DayEndTime = L"24:00";
Schedule1->EndUpdate();
|
|
222
|
How can I show a single week, no calendar
Schedule1->BeginUpdate();
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_SelectDate(TDateTime(2012,5,20).operator double(),true);
var_Calendar->Select(Exschedulelib_tlb::SelectCalendarDateEnum::exSelectWeek);
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exChangePanels | Exschedulelib_tlb::OnResizeControlEnum::exHideSplitter;
Schedule1->ScrollBars = Exschedulelib_tlb::ScrollBarsEnum::exNoScroll;
Schedule1->ShowViewCompact = Exschedulelib_tlb::ShowViewCompactEnum::exViewSingleRow;
Schedule1->AllowMoveSchedule = Exschedulelib_tlb::AllowKeysEnum::exDisallow;
Schedule1->AllowResizeSchedule = Exschedulelib_tlb::AllowKeysEnum::exDisallow;
Schedule1->AllowToggleSchedule = Exschedulelib_tlb::AllowKeysEnum::exDisallow;
Schedule1->AllowExchangePanels = Exschedulelib_tlb::AllowKeysEnum::exDisallow;
Schedule1->AllowMoveTimeScale = Exschedulelib_tlb::AllowKeysEnum::exDisallow;
Schedule1->AllowResizeTimeScale = Exschedulelib_tlb::AllowKeysEnum::exDisallow;
Schedule1->AllowMultiDaysEvent = false;
Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleBorderSelColor] = Schedule1->Background[Exschedulelib_tlb::BackgroundPartEnum::exScheduleBorderSelColorUnFocus];
Schedule1->EndUpdate();
|
|
221
|
How do I select the dates within a giving interval only
Schedule1->BeginUpdate();
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(2012,5,1).operator double()));
var_Calendar->set_Selection(TVariant("(value >= #5/13/2012#) and (value <= #5/26/2012#)"));
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2012,5,24,9,00,00,0).operator double()),TVariant(TDateTime(2012,5,24,12,00,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2012,5,24,10,45,00,0).operator double()),TVariant(TDateTime(2012,5,24,12,45,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2012,5,24,11,30,00,0).operator double()),TVariant(TDateTime(2012,5,24,14,30,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2012,5,24,12,45,00,0).operator double()),TVariant(TDateTime(2012,5,24,15,45,00,0).operator double()));
Schedule1->EndUpdate();
|
|
220
|
How do I display the dates within a giving interval only
Schedule1->BeginUpdate();
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->set_Selection(TVariant(TDateTime(2012,5,24).operator double()));
var_Calendar->MinDate = TDateTime(2012,5,13).operator double();
var_Calendar->MaxDate = TDateTime(2012,5,26).operator double();
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2012,5,24,9,00,00,0).operator double()),TVariant(TDateTime(2012,5,24,12,00,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2012,5,24,10,45,00,0).operator double()),TVariant(TDateTime(2012,5,24,12,45,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2012,5,24,11,30,00,0).operator double()),TVariant(TDateTime(2012,5,24,14,30,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2012,5,24,12,45,00,0).operator double()),TVariant(TDateTime(2012,5,24,15,45,00,0).operator double()));
Schedule1->EndUpdate();
|
|
219
|
Is it possible that the time is displayed starting from 00:00 to 24:00 00 instead of 08:00 AM to 04:00 PM
Schedule1->DayStartTime = L"00:00";
Schedule1->DayEndTime = L"24:00";
Exschedulelib_tlb::ITimeScalePtr var_TimeScale = Schedule1->TimeScales->get_Item(TVariant(0));
var_TimeScale->MajorTimeLabel = L"<%hh%>:<%nn%>";
var_TimeScale->Width = 32;
|
|
218
|
How do I show a double frame
Schedule1->SelectEventStyle = Exschedulelib_tlb::LinesStyleEnum::exLinesSolid;
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2001,1,10).operator double()));
Schedule1->DefaultEventLongLabel = L"";
Schedule1->DefaultEventShortLabel = L"";
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
Exschedulelib_tlb::IEventPtr var_Event = var_Events->Add(TVariant(TDateTime(2001,1,10,8,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,10,00,00,0).operator double()));
var_Event->BodyBackgroundExt = TVariant(String("top[25%,back=RGB(255,0,0),align=0x21,pattern=0x000,frame=RGB(0,0,0)],client[back=RGB(255,255,0),align=0x21,pattern=0x000,frame=") +
"RGB(0,0,0)]");
var_Event->set_BodyBackgroundExtValue(Exschedulelib_tlb::IndexExtEnum::exIndexExt1,Exschedulelib_tlb::BackgroundExtPropertyEnum::exBackColorExt,TVariant(255));
var_Event->set_BodyBackgroundExtValue(Exschedulelib_tlb::IndexExtEnum::exIndexExt1,Exschedulelib_tlb::BackgroundExtPropertyEnum::exClientExt,TVariant("35%"));
Exschedulelib_tlb::IEventPtr var_Event1 = var_Events->Add(TVariant(TDateTime(2001,1,10,10,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,12,00,00,0).operator double()));
var_Event1->BodyBackgroundExt = L"top[25%,back=RGB(255,0,0),align=0x22],client[back=RGB(255,255,0),align=0x22]";
var_Event1->set_BodyBackgroundExtValue(Exschedulelib_tlb::IndexExtEnum::exIndexExt1,Exschedulelib_tlb::BackgroundExtPropertyEnum::exClientExt,TVariant("35%"));
var_Event1->set_BodyBackgroundExtValue(Exschedulelib_tlb::IndexExtEnum::exIndexExt2,Exschedulelib_tlb::BackgroundExtPropertyEnum::exBackColorExt,TVariant(65535));
Exschedulelib_tlb::IEventPtr var_Event2 = var_Events->Add(TVariant(TDateTime(2001,1,10,12,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,14,00,00,0).operator double()));
var_Event2->ShowStatus = false;
var_Event2->BodyBackgroundExt = TVariant(String("left[4,back=RGB(128,128,128)],top[25%,back=RGB(255,0,0)],client[back=RGB(255,255,0)],none[(0%,0%,100%,100%),pattern=0x000,frame") +
"=RGB(0,0,0)]");
Exschedulelib_tlb::IEventPtr var_Event3 = var_Events->Add(TVariant(TDateTime(2001,1,10,14,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,16,00,00,0).operator double()));
var_Event3->ShowStatus = false;
var_Event3->BodyBackgroundExt = TVariant(String("left[4,back=RGB(128,128,128)],top[25%,back=RGB(255,0,0)],client[back=RGB(255,255,0)],none[(4,0%,100%-4,100%),pattern=0x000,fram") +
"e=RGB(0,0,0)]");
|
|
217
|
How can I add more colors on the event
Schedule1->SelectEventStyle = Exschedulelib_tlb::LinesStyleEnum::exLinesSolid;
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2001,1,10).operator double()));
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2001,1,10,9,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,12,30,00,0).operator double()))->BodyBackgroundExt = L"bottom[15%](left[65%,frame,back=RGB(128,255,255)],client[back=RGB(255,0,0),frame])";
var_Events->Add(TVariant(TDateTime(2001,1,10,10,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,13,00,00,0).operator double()))->BodyBackgroundExt = L"right[15%](bottom[35%,frame,back=RGB(128,255,255)],client[back=RGB(255,0,0),frame])";
var_Events->Add(TVariant(TDateTime(2001,1,10,11,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,14,00,00,0).operator double()))->BodyBackgroundExt = TVariant(String("left[33%,back=RGB(0,128,0)](top[50%,back=RGB(0,255,0)]),left[33%](top[33%,back=RGB(0,255,255)],top[33%,back=RGB(0,0,128)],clien") +
"t[back=RGB(0,0,255)]),client(top[25%,back=RGB(240,240,240)],top[25%,back=RGB(192,192,192)],top[25%,back=RGB(128,128,128)],client" +
"[back=RGB(0,0,0)])");
|
|
216
|
When I have 3 month visible in the calendar section, it seems I can only move back and forth through the months 3 months at a time. Is it possible to move back and forth through the months 1 month at a time
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->AlignDate = false;
var_Calendar->MinMonthY = 2;
var_Calendar->MaxMonthY = 2;
|
|
215
|
How can I bound the control to a data source
// Error event - Fired when an internal error occurs.
void __fastcall TForm1::Schedule1Error(TObject *Sender,long Error,BSTR Description)
{
OutputDebugString( L"Description" );
}
/*
Select the Component\Import Component...\Import a Type Library,
to import the following Type Library:
Microsoft ActiveX Data Objects 6.1 Library
TypeLib: msado15.dll
to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADOR.Recordset");
rs->Open(TVariant("Events"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExSchedule\\Sample\\Access2007\\datasource.accdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Schedule1->BeginUpdate();
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2013,11,11).operator double()));
Schedule1->DataField[Exschedulelib_tlb::EventKnownPropertyEnum::exEventStartDateTime] = TVariant("Start");
Schedule1->DataField[Exschedulelib_tlb::EventKnownPropertyEnum::exEventEndDateTime] = TVariant("End");
Schedule1->DataField[Exschedulelib_tlb::EventKnownPropertyEnum::exEventExtraLabel] = TVariant("Extra");
Schedule1->DataSource = (IDispatch*)rs;
Schedule1->EndUpdate();
|
|
214
|
How can I start drag and drop an event
// OLEStartDrag event - Occurs when the OLEDrag method is called.
void __fastcall TForm1::Schedule1OLEStartDrag(TObject *Sender,Exschedulelib_tlb::IExDataObject *Data,long * AllowedEffects)
{
// Data.SetData( "your data to be dragged" )
AllowedEffects = 1;
}
Schedule1->BeginUpdate();
Schedule1->OLEDropMode = Exschedulelib_tlb::exOLEDropModeEnum::exOLEDropManual;
Schedule1->SelectEventStyle = Exschedulelib_tlb::LinesStyleEnum::exLinesSolid;
Schedule1->DefaultEventLongLabel = L"<%=%256%><br><%=%5%>";
Schedule1->DefaultEventShortLabel = Schedule1->DefaultEventLongLabel;
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2001,1,10).operator double()));
Schedule1->OnResizeControl = Exschedulelib_tlb::OnResizeControlEnum::exCalendarAutoHide | Exschedulelib_tlb::OnResizeControlEnum::exCalendarFit | Exschedulelib_tlb::OnResizeControlEnum::exResizePanelRight;
Schedule1->Events->Add(TVariant(TDateTime(2001,1,10,9,00,00,0).operator double()),TVariant(TDateTime(2001,1,10,12,30,00,0).operator double()))->ExtraLabel = L"Click the event and wait to start dragging.";
Schedule1->EndUpdate();
|
|
213
|
I use the HighlightDate property to mark a date, instead the selection is not visible if I select the same date. What can be done
Schedule1->ShowHighlightDate = Exschedulelib_tlb::ShowHighlightDateEnum::exHighlightDateCalendarEllipticClip | Exschedulelib_tlb::ShowHighlightDateEnum::exHighlightDateCalendarGradient | Exschedulelib_tlb::ShowHighlightDateEnum::exShowHighlightDateCalendar;
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2001,1,1).operator double()));
Schedule1->HighlightDate[TDateTime(2001,1,9).operator double()] = TVariant(65280);
Schedule1->HighlightDate[TDateTime(2001,1,17).operator double()] = TVariant("65280,255");
Schedule1->HighlightDate[TDateTime(2001,1,25).operator double()] = TVariant("255,65280,16711680");
|
|
212
|
How can I arrange the colors to highlight the date vertically
Schedule1->ShowHighlightDate = Exschedulelib_tlb::ShowHighlightDateEnum::exHighlightDateVertical | Exschedulelib_tlb::ShowHighlightDateEnum::exShowHighlightDateCalendar;
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2001,1,1).operator double()));
Schedule1->HighlightDate[TDateTime(2001,1,9).operator double()] = TVariant(65280);
Schedule1->HighlightDate[TDateTime(2001,1,17).operator double()] = TVariant("65280,255");
Schedule1->HighlightDate[TDateTime(2001,1,25).operator double()] = TVariant("255,65280,16711680");
|
|
211
|
Is it possible to highlight a date in gradient
Schedule1->ShowHighlightDate = Exschedulelib_tlb::ShowHighlightDateEnum::exHighlightDateCalendarGradient | Exschedulelib_tlb::ShowHighlightDateEnum::exShowHighlightDateCalendar;
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2001,1,1).operator double()));
Schedule1->HighlightDate[TDateTime(2001,1,9).operator double()] = TVariant(65280);
Schedule1->HighlightDate[TDateTime(2001,1,17).operator double()] = TVariant("65280,255");
Schedule1->HighlightDate[TDateTime(2001,1,25).operator double()] = TVariant("255,65280,16711680");
|
|
210
|
Is it possible to highlight a date in the calendar panel only
Schedule1->ShowHighlightDate = Exschedulelib_tlb::ShowHighlightDateEnum::exShowHighlightDateCalendar;
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2001,1,1).operator double()));
Schedule1->HighlightDate[TDateTime(2001,1,9).operator double()] = TVariant(65280);
Schedule1->HighlightDate[TDateTime(2001,1,17).operator double()] = TVariant("65280,255");
Schedule1->HighlightDate[TDateTime(2001,1,25).operator double()] = TVariant("255,65280,16711680");
|
|
209
|
Is it possible to highlight a date in the control
Schedule1->ShowHighlightDate = Exschedulelib_tlb::ShowHighlightDateEnum::exShowHighlightDate;
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2001,1,25).operator double()));
Schedule1->HighlightDate[TDateTime(2001,1,9).operator double()] = TVariant(65280);
Schedule1->HighlightDate[TDateTime(2001,1,17).operator double()] = TVariant("65280,255");
Schedule1->HighlightDate[TDateTime(2001,1,25).operator double()] = TVariant("255,65280,16711680");
|
|
208
|
How we need to put "nonworking time" to each group, because staff A is working different times then staff B. Is this possible
Schedule1->BeginUpdate();
Schedule1->BodyEventBackColor = RGB(240,240,240);
Schedule1->ShowGroupingEvents = true;
Schedule1->DisplayGroupingButton = true;
Schedule1->Groups->Add(1,L"Group 1")->Visible = true;
Schedule1->Groups->Add(2,L"Group 2")->Visible = true;
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2012,5,25).operator double()));
Schedule1->NonworkingPatterns->Add(1234,Exschedulelib_tlb::PatternEnum::exPatternBrick);
Exschedulelib_tlb::INonworkingTimesPtr var_NonworkingTimes = Schedule1->NonworkingTimes;
var_NonworkingTimes->Add(L"1",L"00:00",L"08:45",1234);
var_NonworkingTimes->Add(L"weekday(value) = 5",L"10:00",L"11:45",1)->set_GroupID(TVariant(1));
var_NonworkingTimes->Add(L"weekday(value) = 5",L"12:00",L"13:00",1234)->set_GroupID(TVariant(2));
Schedule1->Events->Add(TVariant(TDateTime(2012,5,25,9,30,00,0).operator double()),TVariant(TDateTime(2012,5,25,13,00,00,0).operator double()))->GroupID = 1;
Schedule1->EndUpdate();
|
|
207
|
I have a double click event set to launch a window so the user can supply input. The problem is that double click changes the view. How do I change this behavior
// DblClick event - Occurs when the user dblclk the left mouse button over an object.
void __fastcall TForm1::Schedule1DblClick(TObject *Sender,short Shift,int X,int Y)
{
OutputDebugString( L"DblClick " );
OutputDebugString( L"X" );
OutputDebugString( L"Y" );
}
Schedule1->BeginUpdate();
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2012,5,24).operator double()));
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2012,5,24,10,00,00,0).operator double()),TVariant(TDateTime(2012,5,24,12,00,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2012,5,24,10,45,00,0).operator double()),TVariant(TDateTime(2012,5,24,12,30,00,0).operator double()))->StatusColor = RGB(255,0,0);
var_Events->Add(TVariant(TDateTime(2012,5,24,11,30,00,0).operator double()),TVariant(TDateTime(2012,5,24,13,30,00,0).operator double()));
Schedule1->AllowEditEvent = Exschedulelib_tlb::AllowKeysEnum::exDisallow;
Schedule1->AllowToggleSchedule = Exschedulelib_tlb::AllowKeysEnum::exDisallow;
Schedule1->EndUpdate();
|
|
206
|
I have two-time scales. How do I change the label while updating the events to show the date-time on the second time-scale
Schedule1->DayEndTime = L"13:00";
Exschedulelib_tlb::ITimeScalePtr var_TimeScale = Schedule1->TimeScales->Add(L"+3:00");
var_TimeScale->AlignLeft = true;
var_TimeScale->Caption = L"EST <b>+03";
Schedule1->BeginUpdate();
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2012,5,24).operator double()));
Schedule1->UpdateEventsLabel = L"Start: <%=date(%1+3/24)%><br>End: <%=date(%2+3/24)%>";
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2012,5,24,10,00,00,0).operator double()),TVariant(TDateTime(2012,5,24,12,00,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2012,5,24,10,45,00,0).operator double()),TVariant(TDateTime(2012,5,24,12,30,00,0).operator double()));
var_Events->Add(TVariant(TDateTime(2012,5,24,11,30,00,0).operator double()),TVariant(TDateTime(2012,5,24,13,30,00,0).operator double()));
Schedule1->EndUpdate();
|
|
205
|
Is there a way to add a hyperlink to the event that would run a report with parameters
// AnchorClick event - Occurs when an anchor element is clicked.
void __fastcall TForm1::Schedule1AnchorClick(TObject *Sender,BSTR AnchorID,BSTR Options)
{
OutputDebugString( L"AnchorID" );
OutputDebugString( L"Options" );
}
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2012,6,20).operator double()));
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2012,6,20,9,00,00,0).operator double()),TVariant(TDateTime(2012,6,20,11,00,00,0).operator double()))->LongLabel = L"<%=%256%><br><a 1234;option 1>more ...</a>";
var_Events->Add(TVariant(TDateTime(2012,6,20,11,00,00,0).operator double()),TVariant(TDateTime(2012,6,20,13,00,00,0).operator double()))->LongLabel = L"<%=%256%><br><a 1235;option 2>more ...</a>";
|
|
204
|
Can I have multiple months in the calendar section
Exschedulelib_tlb::ICalendarPtr var_Calendar = Schedule1->Calendar;
var_Calendar->MinMonthY = 2;
var_Calendar->MaxMonthY = 2;
|
|
203
|
I need to make sure that at least the order number stays visible when the event is resized. Is there a way during event modification (another event be added at the same time that makes the event size shrink) to adjust the caption location
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2012,6,20).operator double()));
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
Exschedulelib_tlb::IEventPtr var_Event = var_Events->Add(TVariant(TDateTime(2012,6,20,9,00,00,0).operator double()),TVariant(TDateTime(2012,6,20,11,00,00,0).operator double()));
var_Event->set_UserData(TVariant(1234));
var_Event->ShortLabel = L"<%=%256%><br>Order: <%=%6%>";
var_Event->LongLabel = var_Event->ShortLabel;
Exschedulelib_tlb::IEventPtr var_Event1 = var_Events->Add(TVariant(TDateTime(2012,6,20,11,00,00,0).operator double()),TVariant(TDateTime(2012,6,20,13,00,00,0).operator double()));
var_Event1->set_UserData(TVariant(1235));
var_Event1->ShortLabel = L"<%=%256%>, Order: <%=%6%>";
var_Event1->LongLabel = var_Event1->ShortLabel;
|
|
202
|
I need to make sure that at least the order number stays visible when the event is resized. Is there a way during event modification (another event be added at the same time that makes the event size shrink) to adjust the caption location
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2012,6,20).operator double()));
Schedule1->DefaultEventShortLabel = L"<%=%256%><br>Order: <b><%=%6%>";
Schedule1->DefaultEventLongLabel = Schedule1->DefaultEventShortLabel;
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
var_Events->Add(TVariant(TDateTime(2012,6,20,9,00,00,0).operator double()),TVariant(TDateTime(2012,6,20,11,00,00,0).operator double()))->set_UserData(TVariant(1234));
var_Events->Add(TVariant(TDateTime(2012,6,20,11,00,00,0).operator double()),TVariant(TDateTime(2012,6,20,13,00,00,0).operator double()))->set_UserData(TVariant(1235));
|
|
201
|
Can you add text with links in the event
// AnchorClick event - Occurs when an anchor element is clicked.
void __fastcall TForm1::Schedule1AnchorClick(TObject *Sender,BSTR AnchorID,BSTR Options)
{
OutputDebugString( L"AnchorID" );
OutputDebugString( L"Options" );
}
Schedule1->Calendar->set_Selection(TVariant(TDateTime(2012,6,20).operator double()));
Exschedulelib_tlb::IEventsPtr var_Events = Schedule1->Events;
Exschedulelib_tlb::IEventPtr var_Event = var_Events->Add(TVariant(TDateTime(2012,6,20,9,00,00,0).operator double()),TVariant(TDateTime(2012,6,20,11,00,00,0).operator double()));
var_Event->ShortLabel = L"<a 1><%=%256%></a>";
var_Event->LongLabel = var_Event->ShortLabel;
Exschedulelib_tlb::IEventPtr var_Event1 = var_Events->Add(TVariant(TDateTime(2012,6,20,11,00,00,0).operator double()),TVariant(TDateTime(2012,6,20,13,00,00,0).operator double()));
var_Event1->ShortLabel = L"<a 2><%=%256%></a>";
var_Event1->LongLabel = var_Event1->ShortLabel;
|