|
325
|
Clear Undo/Redo queue (method 2)
with AxSchedule1 do
begin
BeginUpdate();
AllowUndoRedo := True;
Calendar.Selection := '1/10/2001';
with Events do
begin
Add('1/10/2001 10:00:00 AM','1/10/2001 11:30:00 AM');
Add('1/10/2001 9:00:00 AM','1/10/2001 12:30:00 PM');
end;
c := UndoRedoQueueLength;
UndoRedoQueueLength := 0;
UndoRedoQueueLength := c;
OutputDebugString( get_UndoListAction(Nil,Nil) );
EndUpdate();
end
|
|
324
|
Clear Undo/Redo queue (method 1)
with AxSchedule1 do
begin
BeginUpdate();
AllowUndoRedo := True;
Calendar.Selection := '1/10/2001';
with Events do
begin
Add('1/10/2001 10:00:00 AM','1/10/2001 11:30:00 AM');
Add('1/10/2001 9:00:00 AM','1/10/2001 12:30:00 PM');
end;
AllowUndoRedo := True;
OutputDebugString( get_UndoListAction(Nil,Nil) );
EndUpdate();
end
|
|
323
|
Removes Redo operations
with AxSchedule1 do
begin
BeginUpdate();
AllowUndoRedo := True;
Calendar.Selection := '1/10/2001';
with Events do
begin
Add('1/10/2001 10:00:00 AM','1/10/2001 11:30:00 AM');
Add('1/10/2001 9:00:00 AM','1/10/2001 12:30:00 PM');
end;
Undo();
RedoRemoveAction(TObject(13),Nil);
OutputDebugString( get_RedoListAction(Nil,Nil) );
EndUpdate();
end
|
|
322
|
Removes Undo operations
with AxSchedule1 do
begin
BeginUpdate();
AllowUndoRedo := True;
Calendar.Selection := '1/10/2001';
with Events do
begin
Add('1/10/2001 10:00:00 AM','1/10/2001 11:30:00 AM');
Add('1/10/2001 9:00:00 AM','1/10/2001 12:30:00 PM');
end;
UndoRemoveAction(TObject(13),Nil);
OutputDebugString( get_UndoListAction(Nil,Nil) );
EndUpdate();
end
|
|
321
|
Record the UI operations as a block of undo/redo operations
with AxSchedule1 do
begin
BeginUpdate();
AllowUndoRedo := True;
Calendar.Selection := '1/10/2001';
StartBlockUndoRedo();
with Events do
begin
Add('1/10/2001 10:00:00 AM','1/10/2001 11:30:00 AM');
Add('1/10/2001 9:00:00 AM','1/10/2001 12:30:00 PM');
end;
EndBlockUndoRedo();
OutputDebugString( get_UndoListAction(Nil,Nil) );
EndUpdate();
end
|
|
320
|
Groups the next to current Undo/Redo Actions in a single block
with AxSchedule1 do
begin
BeginUpdate();
AllowUndoRedo := True;
Calendar.Selection := '1/10/2001';
with Events do
begin
Add('1/10/2001 10:00:00 AM','1/10/2001 11:30:00 AM');
Add('1/10/2001 9:00:00 AM','1/10/2001 12:30:00 PM');
end;
GroupUndoRedoActions(2);
OutputDebugString( get_UndoListAction(Nil,Nil) );
EndUpdate();
end
|
|
319
|
Limits the number of entries within the Undo/Redo queue
with AxSchedule1 do
begin
BeginUpdate();
AllowUndoRedo := True;
Calendar.Selection := '1/10/2001';
UndoRedoQueueLength := 1;
with Events do
begin
Add('1/10/2001 10:00:00 AM','1/10/2001 11:30:00 AM');
Add('1/10/2001 9:00:00 AM','1/10/2001 12:30:00 PM');
end;
OutputDebugString( get_UndoListAction(Nil,Nil) );
EndUpdate();
end
|
|
318
|
Lists the Redo actions that can be performed on the control
with AxSchedule1 do
begin
BeginUpdate();
AllowUndoRedo := True;
Calendar.Selection := '1/10/2001';
with Events do
begin
Add('1/10/2001 10:00:00 AM','1/10/2001 11:30:00 AM');
Add('1/10/2001 9:00:00 AM','1/10/2001 12:30:00 PM');
end;
Undo();
OutputDebugString( get_RedoListAction(Nil,Nil) );
EndUpdate();
end
|
|
317
|
Lists the Undo actions that can be performed on the control
with AxSchedule1 do
begin
BeginUpdate();
AllowUndoRedo := True;
Calendar.Selection := '1/10/2001';
with Events do
begin
Add('1/10/2001 10:00:00 AM','1/10/2001 11:30:00 AM');
Add('1/10/2001 9:00:00 AM','1/10/2001 12:30:00 PM');
end;
OutputDebugString( get_UndoListAction(Nil,Nil) );
EndUpdate();
end
|
|
316
|
Checks whether the Undo operation is possible
with AxSchedule1 do
begin
BeginUpdate();
AllowUndoRedo := True;
Calendar.Selection := '1/10/2001';
with Events do
begin
Add('1/10/2001 10:00:00 AM','1/10/2001 11:30:00 AM');
Add('1/10/2001 9:00:00 AM','1/10/2001 12:30:00 PM');
end;
Undo();
OutputDebugString( 'CanRedo' );
OutputDebugString( CanRedo );
EndUpdate();
end
|
|
315
|
Call Redo by code
with AxSchedule1 do
begin
BeginUpdate();
AllowUndoRedo := True;
Calendar.Selection := '1/10/2001';
with Events do
begin
Add('1/10/2001 10:00:00 AM','1/10/2001 11:30:00 AM');
Add('1/10/2001 9:00:00 AM','1/10/2001 12:30:00 PM');
end;
Undo();
Redo();
EndUpdate();
end
|
|
314
|
Checks whether the Undo operation is possible
with AxSchedule1 do
begin
BeginUpdate();
AllowUndoRedo := True;
Calendar.Selection := '1/10/2001';
with Events do
begin
Add('1/10/2001 10:00:00 AM','1/10/2001 11:30:00 AM');
Add('1/10/2001 9:00:00 AM','1/10/2001 12:30:00 PM');
end;
OutputDebugString( 'CanUndo' );
OutputDebugString( CanUndo );
EndUpdate();
end
|
|
313
|
Call Undo by code
with AxSchedule1 do
begin
BeginUpdate();
AllowUndoRedo := True;
Calendar.Selection := '1/10/2001';
with Events do
begin
Add('1/10/2001 10:00:00 AM','1/10/2001 11:30:00 AM');
Add('1/10/2001 9:00:00 AM','1/10/2001 12:30:00 PM');
end;
Undo();
EndUpdate();
end
|
|
312
|
Save the calendar-event's properties for Undo/Redo operations, by code
with AxSchedule1 do
begin
BeginUpdate();
AllowUndoRedo := True;
Calendar.Selection := '1/10/2001';
Events.Add('1/10/2001 10:00:00 AM','1/10/2001 11:30:00 AM');
StartBlockUndoRedo();
with Events.Add('1/10/2001 9:00:00 AM','1/10/2001 12:30:00 PM') do
begin
h := StartUpdateEvent;
BodyBackColor := $10000;
BodyForeColor := $ffffff;
StatusColor := $ff;
EndUpdateEvent(h);
end;
EndBlockUndoRedo();
EndUpdate();
end
|
|
311
|
No color is restored for the calendar-event when Undo/Redo operation is performed
with AxSchedule1 do
begin
BeginUpdate();
AllowUndoRedo := True;
Calendar.Selection := '1/10/2001';
Events.Add('1/10/2001 10:00:00 AM','1/10/2001 11:30:00 AM');
StartBlockUndoRedo();
with Events.Add('1/10/2001 9:00:00 AM','1/10/2001 12:30:00 PM') do
begin
h := StartUpdateEvent;
BodyBackColor := $10000;
BodyForeColor := $ffffff;
StatusColor := $ff;
EndUpdateEvent(h);
end;
EndBlockUndoRedo();
EndUpdate();
end
|
|
310
|
How can I ensure that a specified calendar-event fits the control's visible area
with AxSchedule1 do
begin
with Events do
begin
with Add('1/10/2001 9:00:00 AM','1/10/2001 12:30:00 PM').BodyPattern do
begin
Type := EXSCHEDULELib.PatternEnum.exPatternBDiagonal;
Color := $e0e0e0;
end;
Add('1/10/2001 9:00:00 AM','1/10/2001 12:30:00 PM').EnsureVisible();
end;
end
|
|
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.
procedure TWinForm1.AxSchedule1_LayoutEndChanging(sender: System.Object; e: AxEXSCHEDULELib._IScheduleEvents_LayoutEndChangingEvent);
begin
with AxSchedule1 do
begin
OutputDebugString( 'LayoutEndChanging' );
OutputDebugString( e.operation );
end
end;
with AxSchedule1 do
begin
BeginUpdate();
AllowUndoRedo := True;
Calendar.Selection := '1/10/2001';
with Events do
begin
Add('1/10/2001 9:00:00 AM','1/10/2001 12:30:00 PM');
Add('1/10/2001 9:00:00 AM','1/10/2001 12:30:00 PM');
end;
EndUpdate();
end
|
|
308
|
Turn on the Undo/Redo feature
with AxSchedule1 do
begin
BeginUpdate();
AllowUndoRedo := True;
Calendar.Selection := '1/10/2001';
with Events do
begin
Add('1/10/2001 9:00:00 AM','1/10/2001 12:30:00 PM');
Add('1/10/2001 9:00:00 AM','1/10/2001 12:30:00 PM');
end;
EndUpdate();
end
|
|
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.
procedure TWinForm1.AxSchedule1_LayoutEndChanging(sender: System.Object; e: AxEXSCHEDULELib._IScheduleEvents_LayoutEndChangingEvent);
begin
with AxSchedule1 do
begin
OutputDebugString( e.operation );
DayViewHeight := 2016;
end
end;
with AxSchedule1 do
begin
BeginUpdate();
with Calendar do
begin
SelectDate['5/20/2012'] := True;
Select(EXSCHEDULELib.SelectCalendarDateEnum.exSelectWeek);
end;
ScrollBars := EXSCHEDULELib.ScrollBarsEnum.exVertical;
ShowViewCompact := EXSCHEDULELib.ShowViewCompactEnum.exViewSingleRowLockHeader;
DayViewHeight := 2016;
TimeScales.Item[TObject(0)].MinorTimeRuler := '00:10';
DayStartTime := '00:00';
DayEndTime := '24:00';
OnResizeControl := Integer(EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide) Or Integer(EXSCHEDULELib.OnResizeControlEnum.exCalendarFit) Or Integer(EXSCHEDULELib.OnResizeControlEnum.exResizePanelRight);
Calendar.Selection := '5/24/2012';
DisplayGroupingButton := True;
ShowGroupingEvents := True;
ApplyGroupingColors := False;
with Groups do
begin
with Add(1,'Group 1') do
begin
Visible := True;
EventBackColor := $808080;
Title := '1''st Group';
end;
with Add(2,'Group 2') do
begin
Visible := True;
EventBackColor := $ff;
Title := '2''nd Group';
end;
end;
DefaultEventLongLabel := '<%=%256%><br>Group''s Caption: <b><%=%262%></b><br>Group''s Title: <b><%=%263%></b>';
DefaultEventShortLabel := DefaultEventLongLabel;
with Events do
begin
Add('5/24/2012 1:00:00 AM','5/24/2012 2:00:00 AM').GroupID := 1;
Add('5/24/2012 1:45:00 AM','5/24/2012 2:30:00 AM').GroupID := 2;
Add('5/24/2012 2:30:00 AM','5/24/2012 4:30:00 AM').GroupID := 1;
end;
EndUpdate();
end
|
|
306
|
It appears that Width property of the Group does not what. What am I doing wrong
with AxSchedule1 do
begin
BeginUpdate();
Calendar.Selection := '1/10/2001';
DisplayGroupingButton := True;
ShowGroupingEvents := True;
OnResizeControl := Integer(EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide) Or Integer(EXSCHEDULELib.OnResizeControlEnum.exCalendarFit) Or Integer(EXSCHEDULELib.OnResizeControlEnum.exResizePanelRight);
with Groups do
begin
with Add(1,'Group 1') do
begin
Title := 'First';
Visible := True;
end;
with Add(2,'Group 2') do
begin
Title := 'Second';
Visible := True;
end;
with Add(3,'Group 3') do
begin
Title := 'Third';
Visible := True;
end;
end;
DayViewWidth := 144;
Groups.Item[TObject(1)].Width := 48;
Groups.Item[TObject(2)].Width := 48;
with Events do
begin
Add('1/10/2001 9:00:00 AM','1/10/2001 12:30:00 PM').GroupID := 1;
Add('1/10/2001 10:00:00 AM','1/10/2001 1:00:00 PM').GroupID := 2;
end;
EndUpdate();
end
|
|
305
|
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)
with AxSchedule1 do
begin
BeginUpdate();
Calendar.Selection := '5/24/2012';
ImageSize := 32;
Font.Size := 16;
EventsFont.Size := 16;
TimeScaleFont.Size := 16;
TimeScales.Item[TObject(0)].Width := 128;
Images('gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOqN' +
'UqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlwy' +
'V21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+CM' +
'Po9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9F' +
'EKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5y' +
'7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIkF' +
'gTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMtN' +
'hCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/Xio' +
'W5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X4' +
'VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT6' +
'/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUVD' +
'NKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJyT' +
'8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5Wzlff' +
'EkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC6' +
'I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8Rg' +
'H5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVWR' +
'JNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==');
with Events do
begin
Add('5/24/2012 11:30:00 AM','5/24/2012 2:30:00 PM').Pictures := '1/2';
Add('5/24/2012 12:45:00 PM','5/24/2012 3:45:00 PM').Pictures := '1,2';
end;
EndUpdate();
end
|
|
304
|
ImageSize property on 16 (default) (specifies the size of control' icons)
with AxSchedule1 do
begin
BeginUpdate();
Calendar.Selection := '5/24/2012';
ImageSize := 16;
Images('gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOqd' +
'SqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVtt' +
'mp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8ac' +
'vQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtTG' +
'sbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgPn' +
'wD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg==');
with Events do
begin
Add('5/24/2012 11:30:00 AM','5/24/2012 2:30:00 PM').Pictures := '1/2';
Add('5/24/2012 12:45:00 PM','5/24/2012 3:45:00 PM').Pictures := '1,2';
end;
EndUpdate();
end
|
|
303
|
Is it possible to show a different background color for alternate days
with AxSchedule1 do
begin
set_Background(EXSCHEDULELib.BackgroundPartEnum.exScheduleDayHeaderBackColor,$0);
set_Background(EXSCHEDULELib.BackgroundPartEnum.exScheduleDayHeaderForeColor,$0);
set_Background(EXSCHEDULELib.BackgroundPartEnum.exScheduleDayBackColorAlternate,$f0f0f0);
set_Background(EXSCHEDULELib.BackgroundPartEnum.exScheduleDayForeColorAlternate,$808080);
Calendar.Select(EXSCHEDULELib.SelectCalendarDateEnum.exSelectWeek);
end
|
|
302
|
How can I select all events
with AxSchedule1 do
begin
BeginUpdate();
Calendar.Selection := '5/24/2012';
with Events do
begin
Add('5/24/2012 10:00:00 AM','5/24/2012 12:00:00 PM');
Add('5/24/2012 10:00:00 AM','5/24/2012 12:00:00 PM');
end;
SelectAll();
EndUpdate();
end
|
|
301
|
How can I unselect all events
with AxSchedule1 do
begin
BeginUpdate();
Calendar.Selection := '5/24/2012';
with Events do
begin
Add('5/24/2012 10:00:00 AM','5/24/2012 12:00:00 PM');
Add('5/24/2012 10:00:00 AM','5/24/2012 12:00:00 PM');
end;
SelectAll();
Selection := '';
EndUpdate();
end
|
|
300
|
How do I immediately select a newly added event
// AddEvent event - Notifies your application once the a new event is added.
procedure TWinForm1.AxSchedule1_AddEvent(sender: System.Object; e: AxEXSCHEDULELib._IScheduleEvents_AddEventEvent);
begin
// Ev.Selected = True
end;
|
|
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.
with AxSchedule1 do
begin
BeginUpdate();
OnResizeControl := EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide;
DisplayGroupingButton := True;
ShowGroupingEvents := True;
BodyEventForeColor := Color.FromArgb(255,255,255);
DayStartTime := '09:00';
DayEndTime := '14:00';
with Calendar do
begin
SelectDate['5/24/2012'] := True;
Select(EXSCHEDULELib.SelectCalendarDateEnum.exSelectWeek);
end;
ScrollBars := EXSCHEDULELib.ScrollBarsEnum.exNoScroll;
ShowViewCompact := EXSCHEDULELib.ShowViewCompactEnum.exViewSingleRow;
with Groups do
begin
with Add(1,'1') do
begin
Visible := True;
EventBackColor := $ff;
HeaderBackColor := EventBackColor;
HeaderForeColor := $ffffff;
end;
with Add(2,'2') do
begin
Visible := True;
EventBackColor := $cc;
HeaderBackColor := EventBackColor;
HeaderForeColor := $ffffff;
end;
with Add(3,'3') do
begin
Visible := True;
EventBackColor := $99;
HeaderBackColor := EventBackColor;
HeaderForeColor := $ffffff;
end;
with Add(4,'4') do
begin
Visible := True;
EventBackColor := $66;
HeaderBackColor := EventBackColor;
HeaderForeColor := $ffffff;
end;
with Add(5,'5') do
begin
Visible := True;
EventBackColor := $33;
HeaderBackColor := EventBackColor;
HeaderForeColor := $ffffff;
end;
end;
with Events do
begin
Add('5/24/2012 10:00:00 AM','5/24/2012 12:00:00 PM').GroupID := 1;
Add('5/24/2012 10:45:00 AM','5/24/2012 12:30:00 PM').GroupID := 2;
Add('5/24/2012 11:30:00 AM','5/24/2012 1:30:00 PM').GroupID := 3;
Add('5/24/2012 10:45:00 AM','5/24/2012 12:30:00 PM').GroupID := 4;
Add('5/24/2012 10:45:00 AM','5/24/2012 12:30:00 PM').GroupID := 5;
end;
EndUpdate();
end
|
|
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
with AxSchedule1 do
begin
BeginUpdate();
OnResizeControl := EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide;
Calendar.Selection := '5/24/2012';
DisplayGroupingButton := True;
ShowGroupingEvents := True;
BodyEventForeColor := Color.FromArgb(255,255,255);
DayStartTime := '09:00';
DayEndTime := '14:00';
with Groups do
begin
with Add(1,'Room1') do
begin
Visible := True;
EventBackColor := $ff;
HeaderBackColor := EventBackColor;
HeaderForeColor := $ffffff;
end;
with Add(2,'Room2') do
begin
Visible := True;
EventBackColor := $cc;
HeaderBackColor := EventBackColor;
HeaderForeColor := $ffffff;
end;
with Add(3,'Room3') do
begin
Visible := True;
EventBackColor := $99;
HeaderBackColor := EventBackColor;
HeaderForeColor := $ffffff;
end;
with Add(4,'Room4') do
begin
Visible := True;
EventBackColor := $66;
HeaderBackColor := EventBackColor;
HeaderForeColor := $ffffff;
end;
with Add(5,'Room5') do
begin
Visible := True;
EventBackColor := $33;
HeaderBackColor := EventBackColor;
HeaderForeColor := $ffffff;
end;
end;
with Events do
begin
Add('5/24/2012 10:00:00 AM','5/24/2012 12:00:00 PM').GroupID := 1;
Add('5/24/2012 10:45:00 AM','5/24/2012 12:30:00 PM').GroupID := 2;
Add('5/24/2012 11:30:00 AM','5/24/2012 1:30:00 PM').GroupID := 3;
Add('5/24/2012 10:45:00 AM','5/24/2012 12:30:00 PM').GroupID := 4;
Add('5/24/2012 10:45:00 AM','5/24/2012 12:30:00 PM').GroupID := 5;
end;
EndUpdate();
end
|
|
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
with AxSchedule1 do
begin
VerticalScrollWheel := 3;
end
|
|
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)
with AxSchedule1 do
begin
BeginUpdate();
SelectEventStyle := EXSCHEDULELib.LinesStyleEnum.exLinesSolid;
AllowAllDayEventScroll := Integer(EXSCHEDULELib.AllDayEventScrollEnum.exAllDayEventWheelScroll) Or Integer(EXSCHEDULELib.AllDayEventScrollEnum.exAllDayEventMax4);
DefaultEventLongLabel := '<%=%><%= ( %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 `,` ) ) %>';
DefaultEventShortLabel := '<%=%><%= ( %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` ) %>';
Calendar.Selection := '1/10/2001';
DisplayGroupingButton := True;
ShowGroupingEvents := True;
HeaderGroupHeight := 1;
ShowAllDayHeader := True;
OnResizeControl := Integer(EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide) Or Integer(EXSCHEDULELib.OnResizeControlEnum.exCalendarFit) Or Integer(EXSCHEDULELib.OnResizeControlEnum.exResizePanelRight);
with Groups do
begin
with Add(1,'Group 1') do
begin
Title := 'First';
Visible := True;
end;
with Add(2,'Group 2') do
begin
Title := 'Second';
Visible := True;
end;
end;
with Events do
begin
Add('1/10/2001 9:00:00 AM','1/10/2001 12:30:00 PM').GroupID := 1;
Add('1/10/2001 10:00:00 AM','1/10/2001 1:00:00 PM').GroupID := 2;
with Add('1/10/2001','1/10/2001') do
begin
GroupID := 1;
AllDayEvent := True;
end;
with Add('1/10/2001','1/10/2001') do
begin
GroupID := 2;
AllDayEvent := True;
end;
with Add('1/10/2001','1/10/2001') do
begin
GroupID := 2;
AllDayEvent := True;
end;
end;
EndUpdate();
end
|
|
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)
with AxSchedule1 do
begin
BeginUpdate();
SelectEventStyle := EXSCHEDULELib.LinesStyleEnum.exLinesSolid;
DefaultEventLongLabel := '<%=%><%= %4 < 0 ? `<b>` + %256 + `</b> <off -4>(all)` : ( (`Group''s ID:` + %4 + `<br>Group''s Caption:` + %262 + `<br>Group''s T' +
'itle: ` + %263 + `<br>` + %256 ) replace ( %3 ? `<br>` : ``) with `,` ) %>';
DefaultEventShortLabel := '<%=%><%= %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` ) %>';
Calendar.Selection := '1/10/2001';
DisplayGroupingButton := True;
ShowGroupingEvents := True;
HeaderGroupHeight := 1;
ShowAllDayHeader := True;
OnResizeControl := Integer(EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide) Or Integer(EXSCHEDULELib.OnResizeControlEnum.exCalendarFit) Or Integer(EXSCHEDULELib.OnResizeControlEnum.exResizePanelRight);
with Groups do
begin
with Add(1,'Group 1') do
begin
Title := 'First';
Visible := True;
end;
with Add(2,'Group 2') do
begin
Title := 'Second';
Visible := True;
end;
end;
with Events do
begin
Add('1/10/2001 9:00:00 AM','1/10/2001 12:30:00 PM').GroupID := 1;
Add('1/10/2001 10:00:00 AM','1/10/2001 1:00:00 PM').GroupID := 2;
with Add('1/10/2001','1/10/2001') do
begin
GroupID := 1;
AllDayEvent := True;
end;
with Add('1/10/2001','1/10/2001') do
begin
GroupID := -1;
AllDayEvent := True;
end;
with Add('1/10/2001','1/10/2001') do
begin
GroupID := 2;
AllDayEvent := True;
end;
end;
EndUpdate();
end
|
|
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
with AxSchedule1 do
begin
BeginUpdate();
Calendar.Selection := '5/24/2012';
DefaultEventLongLabel := '<%=%><%=%5%><br><%=%256%>';
with Events do
begin
Add('5/24/2012 9:00:00 AM','5/24/2012 10:00:00 AM').Caption := 'textzeile1<br>textzeile2<br>textzeile3';
Add('5/24/2012 10:00:00 AM','5/24/2012 11:00:00 AM').Caption := 'textzeile1<br><fgcolor-FF0000><b>textzeile2</b></fgcolor>';
end;
EndUpdate();
end
|
|
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
with AxSchedule1 do
begin
BeginUpdate();
TimeScales.Item[TObject(0)].Visible := False;
OnResizeControl := EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide;
ShowViewCompact := EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact;
with Calendar do
begin
Selection := '5/24/2012';
Select(EXSCHEDULELib.SelectCalendarDateEnum.exSelectMonth);
end;
with Events do
begin
Add('5/24/2012 10:00:00 AM','5/24/2012 12:00:00 PM');
Add('5/24/2012 10:45:00 AM','5/24/2012 12:30:00 PM').ShowStatus := False;
Add('5/24/2012 11:30:00 AM','5/24/2012 1:30:00 PM');
end;
EndUpdate();
end
|
|
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
with AxSchedule1 do
begin
BeginUpdate();
with Calendar do
begin
Selection := '5/21/2012';
Selection := 'value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)';
end;
OnResizeControl := Integer(EXSCHEDULELib.OnResizeControlEnum.exChangePanels) Or Integer(EXSCHEDULELib.OnResizeControlEnum.exHideSplitter);
ScrollBars := EXSCHEDULELib.ScrollBarsEnum.exVertical;
ShowViewCompact := EXSCHEDULELib.ShowViewCompactEnum.exViewSingleRow;
AllowMoveSchedule := EXSCHEDULELib.AllowKeysEnum.exDisallow;
AllowResizeSchedule := EXSCHEDULELib.AllowKeysEnum.exDisallow;
AllowToggleSchedule := EXSCHEDULELib.AllowKeysEnum.exDisallow;
AllowExchangePanels := EXSCHEDULELib.AllowKeysEnum.exDisallow;
AllowMoveTimeScale := EXSCHEDULELib.AllowKeysEnum.exDisallow;
AllowResizeTimeScale := EXSCHEDULELib.AllowKeysEnum.exDisallow;
AllowMultiDaysEvent := False;
set_Background(EXSCHEDULELib.BackgroundPartEnum.exScheduleBorderSelColor,get_Background(EXSCHEDULELib.BackgroundPartEnum.exScheduleBorderSelColorUnFocus));
TimeScales.Item[TObject(0)].MinorTimeRuler := '00:10';
DayStartTime := '10:00';
DayEndTime := '14:00';
EndUpdate();
end
|
|
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
with AxSchedule1 do
begin
BeginUpdate();
OnResizeControl := EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide;
ShowAllDayHeader := True;
Calendar.Selection := '5/21/2012';
Calendar.Selection := 'value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)';
ShowViewCompact := EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact;
ScrollBars := EXSCHEDULELib.ScrollBarsEnum.exVertical;
with Events do
begin
Add('5/22/2012','5/23/2012').AllDayEvent := True;
Add('5/21/2012','5/24/2012').AllDayEvent := True;
Add('5/22/2012','5/24/2012').AllDayEvent := True;
end;
EndUpdate();
end
|
|
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
with AxSchedule1 do
begin
BeginUpdate();
with Calendar do
begin
SelectDate['5/20/2012'] := True;
Select(EXSCHEDULELib.SelectCalendarDateEnum.exSelectFocusDay);
end;
OnResizeControl := Integer(EXSCHEDULELib.OnResizeControlEnum.exChangePanels) Or Integer(EXSCHEDULELib.OnResizeControlEnum.exHideSplitter);
ScrollBars := EXSCHEDULELib.ScrollBarsEnum.exNoScroll;
ShowViewCompact := EXSCHEDULELib.ShowViewCompactEnum.exViewSingleRow;
AllowMoveSchedule := EXSCHEDULELib.AllowKeysEnum.exDisallow;
AllowResizeSchedule := EXSCHEDULELib.AllowKeysEnum.exDisallow;
AllowToggleSchedule := EXSCHEDULELib.AllowKeysEnum.exDisallow;
AllowExchangePanels := EXSCHEDULELib.AllowKeysEnum.exDisallow;
AllowMoveTimeScale := EXSCHEDULELib.AllowKeysEnum.exDisallow;
AllowResizeTimeScale := EXSCHEDULELib.AllowKeysEnum.exDisallow;
AllowMultiDaysEvent := False;
set_Background(EXSCHEDULELib.BackgroundPartEnum.exScheduleBorderSelColor,get_Background(EXSCHEDULELib.BackgroundPartEnum.exScheduleBorderSelColorUnFocus));
EndUpdate();
end
|
|
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
with AxSchedule1 do
begin
BeginUpdate();
OnResizeControl := Integer(EXSCHEDULELib.OnResizeControlEnum.exChangePanels) Or Integer(EXSCHEDULELib.OnResizeControlEnum.exHideSplitter);
Calendar.Selection := '6/27/2012';
with MarkZones.Add('zoneA','6/27/2012 9:00:00 AM','6/27/2012 11:00:00 AM') do
begin
Pattern.Type := EXSCHEDULELib.PatternEnum.exPatternEmpty;
LongLabel := 'Yellow';
BackColor := $ffff;
end;
with MarkZones.Add('zoneB','6/27/2012 12:00:00 PM','6/27/2012 1:30:00 PM') do
begin
Pattern.Type := EXSCHEDULELib.PatternEnum.exPatternEmpty;
LongLabel := 'Green';
BackColor := $ff00;
end;
EndUpdate();
end
|
|
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
with AxSchedule1 do
begin
BeginUpdate();
Calendar.Selection := AxSchedule1.ExecuteTemplate('#5/24/2012#');
with MarkTimes do
begin
with Add('timer',AxSchedule1.ExecuteTemplate('#5/24/2012 11:35#')) do
begin
Movable := True;
LineColor := $ff0000;
StatusEventBackColor := $ff0000;
TimeScaleLineColor := $ff0000;
TimeScaleLabel := '<fgcolor=0000FF><b><%hh%>:<%nn%> <%AM/PM%>';
end;
end;
EndUpdate();
end
|
|
287
|
How do I display a picture with transparency
// PictureClick event - Occurs when the user clicks a picture within an event ( Event.Pictures/ExtraPictures ).
procedure TWinForm1.AxSchedule1_PictureClick(sender: System.Object; e: AxEXSCHEDULELib._IScheduleEvents_PictureClickEvent);
begin
with AxSchedule1 do
begin
OutputDebugString( e.key );
end
end;
with AxSchedule1 do
begin
BeginUpdate();
ShowSelectEvent := False;
Calendar.Selection := '5/24/2012';
with Pictures do
begin
Add('pic1','gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonNa' +
'2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRdP' +
'yyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/QW' +
'k4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDAW' +
'4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRByE' +
'QGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2Cydh' +
'Gg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIie' +
'RIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0DpP' +
'hyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaG' +
'wnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBM' +
'GQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxT' +
'AmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+Asf' +
'wMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB' +
'4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0Hgfx' +
'niuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQ' +
'XQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUCy' +
'EkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfgJ' +
'h4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6H' +
'sXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2D' +
'eE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgGo' +
'8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF0' +
'CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5Ag' +
'jtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJYS' +
'43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmiXE0IsLY1gtipG' +
'0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBtA' +
'uBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBKg' +
'FBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZB' +
'IAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAnB' +
'dAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAVB' +
'7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBPhSBTBSBjgyhvB' +
'PlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAhhLA6ArAFBrAfA' +
'bAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBpB' +
'ig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAGhvh7g0AgAahvA' +
'2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/gXh6B8hbh8B/h' +
'EhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sUhMh0gmh1hLg9h' +
'IgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4AfgZh/AVhdg/hzB' +
'7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BGg' +
'KBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBAA' +
'/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAAChpA' +
'kgiAggqAsAEhigrAkgmASAygKB/BVhVB7hTBNg3BNA2hQBOg4BAAAgiBhB1BIA8BMgCAxBxAGAbhBAJgJgHBnAkhyhQBjBhgmAoBBgwgaAPBghJgLgShogYAxAIAZAZA' +
'ghLBhhQAEgPAEAwgBAwhIgkBBBwhwAYBhhsBoBhhtAbAqArgrh8hehLBVAqA7grgXhPA+Bkglh+h6i4hfh7hehygvgMB9hPhEh9gXh/AKgihUhBh/A1hwA1gwAdh8ASg' +
'4AEB+ADh8AAB+AFh8AThHBxg7B4BmhFBZABAABjgbgwh2gBg4A8grArB/3UgDgQBfgzhpBzhpgUhOYogKBlBZB+ARgAA+NxgDhZgWBcgKg9BfgjBRhogngj4zBCg6AfA' +
'pAzBwB+OiBtA2AbA/hHqYg6ADBZBMBNgfgfAfBfByh4g8BUAiAkgyBMBAg4AcA+BsgyAZBGgRgFA/gbAIh/h6h2AMh/huheg9hbB6h6g6hJhA1zAc5RhhgN5TBLASB3g' +
'IXagQAMAGBdAghJhUAvhahohBAiBshzBzBTB4A9AzhTgDh9AOAZBjBfAPAOAeA2ZlBKAJB61xhBE+gmhKATiWhnBvhlhrAcgMghhGg2hBAQA4B85xBWBQBQXiBIAchoh' +
'khih/gN36hyBqhiDRgABQgoB0AJAKBvAbAkAxhlBzAVgVAVBJA2gbANg5gdAOAWBrh2gzAW6HBIiagwh9hRhiBTBGAVgAgNB3g5giB/grARBlA6B/gsBhhjaTB2A0AaB' +
'Qhahah6hWBVBVBlAUB+hNAEh2BVAtkNhSgFBxAAOjBOg2gxBhBTgnAzB9ADABAAh/BohRgjgzBPhrhVgaAaAagihWArSxA0gGhzB3gBhgAdhVPTgOhgA8gShjAsgcgjh' +
'UhcBdg+zcBshsgsgtgvAvAPA5hdguBWBUs1LxBbh7gsBahLhzBtjjBpg9AABDgjA6hVBtB0hygt7IAhAz7Jg3AkgkhEtvh5hYhRBhAhBzB6g9AsgwA3hng0AFgNB6hHB' +
'7hRBrgxAcBaAGVWhYgehXgjhLgcBvBththxhd7egugB7gBThoAzh57igHA5A3BYgsW8gshMgiAgBZgQh0AKghA3hLsfAGAwAWB0ARgagNBXhWBWAEB+7yBTga7zhpB6B' +
'qBKBmh0g6AZAxBdhuhnAvWAB6huA0BGhIhGBzuRgcgThpAZAABigYAUhThRhbcEgEBmgpgHgWcHgsAUh+g6B8AsBoA+B6gGgGgxBTB6hVA2h2ACZYAxhSAAhIASB0gng' +
'QAphyg0hf3pAJgrAMBwg4BZAYgVAihihKgVhzgMBhg/h9AAAqBRh0BbgTsbgHhwAbhFATANhNBMhMhYgwhlhihRAThT6WBahYh6AzhZgLBAA7h6ALhJgLBZBnhzhthAh' +
'AhGB7h7htOfA0hzh4gxhJgBg6hThzBlg4hchyBFc/AsA0hIBihGEnB8BQgvAkgBggAhAmBvBrgngNBGhTgTAThWg1B5gsgAhABRBTgZB+AYAZBxBMBMhPBbJ9BohlhIB' +
'/Awh+g/gOAAAuBhhBhUB2gXBSgagKgXgXAXAtA5AXAdBvhCBJBKgrgqBEAHhjBjhO7dBthhBGh7B7BaAdgAzWgxBthXBTACAoAuAuAOBBBxgXgpF2AFhEhtgHgDACg1A' +
'fARAiVxAHA4Af9zhc0CB3BOAoATApBWhCp0gJA+hTA7gnAxhWgEhqgEgQB+BzBweFANBGBahVgZB6oehXBwBrAphiAkBCAhhbB0AEBLA3guBfg/AtArgvgXhVGUhfBPh' +
'wBlHFBYhcBlh0AxAYgb6phyA0A3g3hPgAAEA9ACgpgqBNAPAPAWBuB1B1BVBUgNBbgvBUhvgPhqgdheBoBxgUAFgiAsAPgN8VhvhxBWg4ANhRBSA+hNB8AwASAjh+B8B' +
'8AcAMhMg3A0DThhgxhRgGBahxhggBApBEWFBmhS+/BBBhhwgIB4BgAYAJhJgOA2BDARgAhmF6A4gGB8Bo/Jgrg/Bfh/hXBnA8gOAEAWgZAUAIH8ApAshmA8Bjgcg5/Ug' +
'ehh/WB3gxhNhugiAaA7AcBFgcgRADhSBWAThPBzgyBPALgSAABHABBRhCA72hBpBpApA/4BBrgBhKBFgnBfAZgYA2grgMhWBAgkAChgBBBWhzBiBkh0BghxeEZdALg9i' +
'NBvbw7whhhvBbgwgIhygrBfgrBTA6AhgvhjAYg+haBAF4vH4cze70OQyenwMnkQoiQrzCFQA9SUXGy9CMMAuywARTOoQYIFaLgw9RErSKcCginiCw7MHqeDoXjsuW69i' +
'WxWKDgAjGAaQQvTiMBuN1ugSmcgaaDsOSyDjA/Tm2FEN2E33AMEwTlUtAACAgAVAM2yhh0O0gVFuJCQHnogCO4QonwkVR4ShoaiOHmq/iCPTwiQmuBmgXGjgqjh2RA2H' +
'CUfHoiES4gi7EgcyU/xymE4UwSNCU3EMVA2YikFCiSycVCIBBGR2CdGQUBU9wqWVswAUgRIwGwIlkBFmImECyGcEUL3SESm1HIOFS9kgxRQsQIJCosyAmQg8HIslA+RY' +
'OEI6EwtS2cHyiiYJHAlAC0iiAUmEzEiksmHUrWUKBqAoih0OMyAIAAKSQFwnRTAEmS9Mwa36GQOhhCc5BcA8gAcFAfTJCEOSiDEsSaNEuC0EMrjRD8XB4LYziiOIJgNA' +
'CNAAEkRROEQrhCGAgkBA');
end;
with Events do
begin
Add('5/24/2012 10:00:00 AM','5/24/2012 12:00:00 PM').Pictures := 'pic1';
end;
EndUpdate();
end
|
|
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.
procedure TWinForm1.AxSchedule1_AddEvent(sender: System.Object; e: AxEXSCHEDULELib._IScheduleEvents_AddEventEvent);
begin
// Ev.BodyBackgroundExt = "[frame=RGB(0,0,0),framethick]"
end;
with AxSchedule1 do
begin
SelectEventStyle := EXSCHEDULELib.LinesStyleEnum.exLinesSolid;
Calendar.Selection := '1/10/2001';
OnResizeControl := Integer(EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide) Or Integer(EXSCHEDULELib.OnResizeControlEnum.exCalendarFit) Or Integer(EXSCHEDULELib.OnResizeControlEnum.exResizePanelRight);
StatusEventSize := 0;
set_DefaultEventPadding(EXSCHEDULELib.PaddingEdgeEnum.exPaddingAll,4);
with Events do
begin
Add('1/10/2001 9:00:00 AM','1/10/2001 12:30:00 PM');
Add('1/10/2001 9:00:00 AM','1/10/2001 1:00:00 PM');
Add('1/10/2001 12:30:00 PM','1/10/2001 1:00:00 PM');
end;
end
|
|
285
|
I need a border around each event/item on scheduler. Can you direct me to propery to use (distinct)
with AxSchedule1 do
begin
SelectEventStyle := EXSCHEDULELib.LinesStyleEnum.exLinesSolid;
Calendar.Selection := '1/10/2001';
OnResizeControl := Integer(EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide) Or Integer(EXSCHEDULELib.OnResizeControlEnum.exCalendarFit) Or Integer(EXSCHEDULELib.OnResizeControlEnum.exResizePanelRight);
StatusEventSize := 0;
set_DefaultEventPadding(EXSCHEDULELib.PaddingEdgeEnum.exPaddingAll,4);
with Events do
begin
Add('1/10/2001 9:00:00 AM','1/10/2001 12:30:00 PM').BodyBackgroundExt := '[frame=RGB(0,0,0),framethick]';
Add('1/10/2001 9:00:00 AM','1/10/2001 1:00:00 PM').BodyBackgroundExt := '[frame=RGB(128,128,128),framethick]';
Add('1/10/2001 12:30:00 PM','1/10/2001 1:00:00 PM').BodyBackgroundExt := '[frame=RGB(0,0,0),framethick]';
end;
end
|
|
284
|
How can I change/specify the caption of the groups, when the user clicks the drop down button
with AxSchedule1 do
begin
BeginUpdate();
Calendar.Selection := '5/24/2012';
DisplayGroupingButton := True;
ShowGroupingEvents := True;
with Groups do
begin
with Add(1,'Group A') do
begin
Caption := '<fgcolor=808080><c><b>Group A</b><c><br><font ;6>France, Romania, Albania and Switzerland';
Visible := True;
EventBackColor := $808080;
end;
with Add(2,'Group B') do
begin
Caption := '<fgcolor=FF0000><c><b>Group B</b><c><br><font ;6>England, Russia, Wales and Slovakia';
Visible := True;
EventBackColor := $ff;
end;
end;
with Events do
begin
Add('5/24/2012 10:00:00 AM','5/24/2012 12:00:00 PM').GroupID := 1;
Add('5/24/2012 10:45:00 AM','5/24/2012 12:30:00 PM').GroupID := 2;
Add('5/24/2012 11:30:00 AM','5/24/2012 1:30:00 PM').GroupID := 1;
end;
EndUpdate();
end
|
|
283
|
Is it possible to hide the group header, but still display the groups/captions
with AxSchedule1 do
begin
BeginUpdate();
set_HTMLPicture('pic1','gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonNa' +
'2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRdP' +
'yyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/QW' +
'k4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDAW' +
'4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRByE' +
'QGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2Cydh' +
'Gg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIie' +
'RIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0DpP' +
'hyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaG' +
'wnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBM' +
'GQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxT' +
'AmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+Asf' +
'wMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB' +
'4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0Hgfx' +
'niuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQ' +
'XQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUCy' +
'EkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfgJ' +
'h4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6H' +
'sXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2D' +
'eE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgGo' +
'8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF0' +
'CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5Ag' +
'jtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJYS' +
'43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmiXE0IsLY1gtipG' +
'0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBtA' +
'uBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBKg' +
'FBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZB' +
'IAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAnB' +
'dAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAVB' +
'7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBPhSBTBSBjgyhvB' +
'PlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAhhLA6ArAFBrAfA' +
'bAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBpB' +
'ig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAGhvh7g0AgAahvA' +
'2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/gXh6B8hbh8B/h' +
'EhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sUhMh0gmh1hLg9h' +
'IgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4AfgZh/AVhdg/hzB' +
'7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BGg' +
'KBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBAA' +
'/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAACB5g' +
'kgiAggqAsAEhigrglg0ASAqgKBWgng7hSg9gdBPyphph0gQgeoOgyBNBMBIBMBnhjBsgEBJgMACAIgSBhAQAzAwg7BXA6A4BKgUBHB8Agg4BJgIgBA3ASAQAFAIhkhhA' +
'EA/ABRgBIhQAFgTgQhFARAEgsgkhngmAMAdhJh6A3gdBUhXBHhzhaB5hFB1HEgNgasJAOB1Bq3OB3Aeh3vth3A9gSgkh/g5hJ01A/hthbB9hQB/gCB4DPgCA9BAAeBYA' +
'Gh2AAhvgBAvhkBZBOBiB5gsB2gsACBwB8AFBWBegGA6AOLkgvgiBvAABIhvh/AnAvhUhShIBmgzBRhLAyg+gDABB3gBgOhAA6AmAuBDBvA7hTA0hfAagfgfhXhrB5A4g' +
'yACAHAHgHhdh+A/B/gTh8AcAvBlhgOnhfBngyAZK2A4BMAlgqBohVAJAUAKAFALgaAmgthBA7AlhigLh/ghBAA0LxBchch8g6A7g7hbh3B+heBBBgB3B3A3ARhtBLgsB' +
'fgXBXh5A/g+B/hqBzh5heh0BagohIgBg4B/ApAatAg6BdBBBWBrhMA8AbgGAhhlByg5AvB+gzhFhihxBxghAjgeBlgEByB5h8g5gMA8BQgtBRAGh6B7gjgTZzANArArg' +
'rh+hquoAlhSgpB5B6B6A6BYBb57g858hcghAHhbAvhWhMhKAkBeKBguh/hRgNAjAjgjh6h0BshZg7AWALBZhD6KvyAtgtg7husuhJhJh7gYAzAihRhohJBnBtBGgNg9h' +
'3A4hogfgcAcA8ApBmBPBnhZAEAwALBngwBtp5gYAZgZhJg9h6BpBSgxA1g1hVga6XgsA2A3g3wIA9AR6pA9ARBIgYBnhjhxgTBRBIB2h3B0gYhuBxhRAHhPgnhciZh1g' +
'CAzAEgGBWBdADgPgoA/gXgIAEAuAKBbA+hRBBhRBohSgUAygAgIghgTh+hGAYBrghBQhoA2gNA7AEAQB5hxgmBSBpg0B4AJhChPg5ABAIBUBTgi4jAHBEBEgdAIhAB5h' +
'hA0gIggAhB5ACAWgahDgABFBjh3hThKABgJB5B2gzAagBBfhwB4AIh5BFAThbhohjBjBDT3BIgXgSgoBEhtgkAyAHARhkAtBoBrBrAzAqgMBcAXhgBbgkh7hghyAiBQB' +
'ShSgShEgphFhzh7hIgzhgB2B2A2A4A0g0hUgXAMAGAlA6hNATB8k5gAgMgdBjBWB0BuBOBfA/AegBgBAjh8hTh3BZA9hoBUgBgKBRBvAvgChhhrhuAFBvA/AZBMgqB7B' +
'7h7hKh2h2g2gPg1A9hEgkANgOAjhhAwh9gxARAwg8B6heh3gQAdPFgiA/beAZABAd8lgQgKBEgPggBBAzhhBEgbhnAPBwg/hnA2hcBWB5AQBCA8gUBehjhIAfAABMAkB' +
'6BbhuhnBsgXgRggAAhhB5j+A/qYgEhbhrkOgqBuAIhVhuhrgyBuAuBLAdolAXBBggAGAyNFAABCgnhRALBUh9gdAFB6AOguhlAYB5hHhIByB3grB9hrAlhAAHBKBChCg' +
'CgNB8BdBf9XgngqhqhDgkAAAoAw7ShThwhsBrBoB7hRgvgBByg+AjhBBUgABkgJAuAjAMhEh+gggeAPA/gJg7BOhuh1ATBxBOgIvMAthpgv9wcYg1A1AFBnhmhmguh27' +
'7ZQhiAGcchkgIgOhcBGhYBXgUBZbABVc5gTB1BEgAhJBUha+BB0h4+Chng4hjgyBygd7agAA1hCAQUPgRg8A7hNAQBQBwhaAFBQh0BCB4g4h1hoeRBhgp+Shnhxi8hhg' +
'ygagABrAZAWBcBkgtgQA0Ahr4gkhLgvdwB/hzBtBagrgfBfA6h1hnAmguAiA8ANgLACA8AUgagOg3h0d5iBgBBCBjbIhWAGgYANAggsBthwBQAOzogx+yBHr+AGAuA0A' +
'0A2AGBPZoBnBAAwAIgnB5hcBmB3BWhWBWB+BdBcBcB8AZhsU6hxBuBgh7g7gwgVgBhuABiEh1giAmgBASAiABBWBkhAgZg0AEA1BRhQgNAwhyAgAMA0hsAxBNg7BsAbB' +
'mgQBxAUJZB1hQgMBZAVAPrchOBYgyg8gPg0hYA3gUAzAtBpB6gaB2Qvhhg/gEBoA8gshMg7AlAYgDBsBcAbACAKg6hWCthtqBAAhXgvhDgsA9hDAZAygthLADAVgSAkh' +
'hBsANBLAAhZgdBTArhAAQBDgTh6gEBnBNBHAVhrAPBAFkUnmLgChRECkYhG03G4rBi83imysh3uoBMaTqulIkxwIyAHSCmCcCGclnAegWGTOzSSUVurCrHwKymKmBA5E' +
'eSAivxCGV8rEopTmNwCOnA+mkIQ6sSeiEQlkKHTkp36CVC7BWPDcJ3SmgBYAASSKTiIriEYEFAQ=');
set_HTMLPicture('pic2','gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonNa' +
'2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRdP' +
'yyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/QW' +
'k4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDAW' +
'4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRByE' +
'QGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2Cydh' +
'Gg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIie' +
'RIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0DpP' +
'hyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaG' +
'wnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBM' +
'GQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxT' +
'AmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+Asf' +
'wMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB' +
'4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0Hgfx' +
'niuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQ' +
'XQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUCy' +
'EkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfgJ' +
'h4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6H' +
'sXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2D' +
'eE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgGo' +
'8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF0' +
'CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5Ag' +
'jtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJYS' +
'43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmiXE0IsLY1gtipG' +
'0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBtA' +
'uBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBKg' +
'FBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZB' +
'IAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAnB' +
'dAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAVB' +
'7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBPhSBTBSBjgyhvB' +
'PlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAhhLA6ArAFBrAfA' +
'bAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBpB' +
'ig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAGhvh7g0AgAahvA' +
'2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/gXh6B8hbh8B/h' +
'EhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sUhMh0gmh1hLg9h' +
'IgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4AfgZh/AVhdg/hzB' +
'7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BGg' +
'KBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBAA' +
'/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAADBng' +
'kgiAggqAsAEhiiig2AqUgBPA5hnB3Bshug3A9g7BbhthqALPBglN0gCgUoQh4AQAIgAgVgTAhBEAIBYACBIhEB4hggoASBiBKBsBJARRDhwBkgMABBrAQADA+AUAlAmh' +
'GBJBaAVALghgSgaA2gpApgpgEgigEBehTBAhLB2g7Bdhdgzhnhih3gvg9AbA9gWhUAHgnB5BPhMgZh5hnh/g/h5hvgzAMB9hPgNh7gnh6h1vtAIA9hVAggVggAbAoWrg' +
'AB1ABhGhBg/AAg+hng4huAAB9BjhbATiLhihNgQB2gegoBkgxrEgxAQAQBGgABpAdgJgfgfhpgRBWh8h+tWgmhpgXAABgAzuAYRAhAtAEhfBVhVBVA/BsLNAWAyBpAZh' +
'RgChhBwg4BUjtB/LiAehMgCAeBwg+B9hiY9g7BThpgkgXAlA0AMgAgCBBhghshRAUBbBBBthOhYBxgvh/BgANAOgbg3hvAuAvgvAvAXBjhFgkB1hBADgHgPAkATBJh0g' +
'WAbBcgzgZA75YBbhUhWBaBqBegxhjgHAEg9hcBMg8BQg6V8h1gegPBXhOBjA0gAgkX2AFhggphNBmBOB+ZSgDBxBdAdAdhihWgagahXBdg7h3gzB6B6h6BvBmhIgkAyA' +
'6uihKAGhAggBQAoAIBCBJgwAZBigZhTANhz5+A1hs5/g9A3g3hXhEAgBygXAuhdAyAshaA0AohiX/A1h0h8BThzheAFgLAWAcA9h/B+A8hOh/ApgxAABAh7gIgHB6g7B' +
'eBABghggghfBWhWgmgCAYADBrgYAJg9AAhehgB5hGBj6KBbAbA1g/21gEgQBMBs40AHgOAeB0AV6oAphxAyhiBHhghbhuoEB/AgA5gUgAAhBQhoBPhMBHgCgPBpBEAqg' +
'qAqBcBIg9guArArALAZgEABBMBqlEAzAohGQ8gAgjACgASQq7hNAvBvhoBwBhhfAmAQBfKYg7gEAgBBAFhQBuBFhcg7g0s6gSMxhhAageBgB4BEAHgjBKBJhOhmh2A7V' +
'4jtBGAuAogcA1hLAlAQKehwBFhdBxgshXgrgUgUAUAkBzhHBhAhhDgHA+glAdAJAWAAASh1hQh4A5ghg8g5Bvg7h1hLB0h0BohRhJBVAUAeAshgApgqBSBeBbA4gxhQB' +
'SBSASAxB4A7A6A6AsBnBOAfBOgegbAbOoYxAb5uBGgkgHAjhqBvgDAHh64bAOAHAYQPACh4BegTgpgVA68JhMh7h3hvh3hABKg8BqADvRBLhThqh3BvB2hBgICDA5hHA' +
'PgdhzA2Bcg4BggHBZhlhdh7h2B4whAoBDgagIA2BbAGAZB5gEgkABAAB+AFh0hMAXgvhfZVhqBrglglASBhAQhkAMBVARg9hUhdA9AVARBlhuBkgJgTgOAe8zBLBwhQg' +
'Qhp7dhXhtBfTJBJBFBFhFhKhyhlhLhDgUAfBkARB0gyBhBpBrAKAAAwAGATAZhb9FBNhQgeFVgNBGhDgjhchnhzBmBMgJh0h1h1gZgngmgmhigHAAgFhZBthMAhhshyg' +
'EgCAygFnlB7AoBIAjgbg0BRACgKAihchLgGAwAvguguhHBGBJgzDtB9BzAWgtgBBwAwgiBJhAgAAyhChTAQglg0AHgfASAXhNBTAkArtGhLAAApgtATBlhSA/gAAMASB' +
'/AMA9B9HUhPAyBzBzgrhWBIYwhVByBhgjhHB8ArBXgsgJgRAqhEABhrA4hxhDAygXBBBXheBRARAGAwgmBBgoBZBgBVh1hrAmgtAWALBO8sBkh5BnBPgPgkhLAEgqgBh' +
'jBihKAoB2goBgklgfBdBfgxgyhcBYhYg4hJBgAMg2hkhJAShwg1hrhXAsgog+A2VGBHhZA6htgbB/hOgdg7hBARhhhhgTBqB9BEAVgbgrh+hTBchsg/AHhCgUgBAlheh' +
'cA1AqhkBsA1iOBqPEgJhpBIATA+gfAvgWgnApA3gYASB725he22BXgJh3gCAggiAQhVBWBWBKAog/ByhBBhAhA61gAvggBmAiBVgRLNgYAPhvAqgth1gnhLAAhFmbhcg' +
'uBugaBPgBAwAyAyBiBHAOB/gGgQAFBJgbgNB/hR/fB+BjhDgHglghhETkgkgIgsgggyhNAuAgBXAgBbBYAygqgqhQhbg7B3BOBSB6h8AjBThDh8gvgbhzCIBoBhB8f0h' +
'NgIB7BEhghKBXBThdEpDkheg/B+hdB8Brh2htgzBVBAEADiS0kU52cjV4vDsbRgwy6gA0pl5EQke1MpQKMAa4iWgDwJU68n+MHuAScfxUfj+wi6EFuwHC5Wkhgkuwkc4' +
'0G2qeE8elEOF8lHCNAeTwsMTwqWOyWeIGQjxIbyQB0AFHgLayJHARwI0iE+HuGQEAAlT0IR0KiDWW2I2EYcUoaE8/giYAEiGAEiijXAEGwpx4HmeAWQNXcBFGTwaQikD' +
'lE9Bo41iYTuOA4zjnB2qzk2NzeEy4YkGwlQIikAE8hGM805rEEAmAKmUtQEkHuO9yj2u1GofEONxMVR8SiSulw6EMjEESDOTgGgEQi2MjjU5mI5l4pSWl0s1e+vUCXC+' +
'iGQtjEIwOCXi+xqAGowVeoQU+jgeX63GgsHeq1CoTREEpAkL0hgNAA9AoFUQTRBYLzAJgIwAEQIhZAAZjNIEUAXMw+gUBQPCNHE0YFBsKgXC8Xg8DsRySGwhQFAWFQYI' +
'E0gAB4pjjFcrhcPk4ziMUiy/AMzQwAIZwUPsxwgGsAg0AUCiCOgkQyhEAhFAAzAgCs6h9BYjAqCkgjiEQDA4BEhhuF01SdLoqjaGARwjIY4APF44QEC4JBwNwhDOHEDw' +
'RAYDwVF49QxFk9hBA4KQnPMh4BDw9hIEkKDFFgoBGL4IQiEYGS+OQZBdKYLDAIsSwLMM9xkMo+y4OsRRICEkAEBgqShCkEArOMeBBEwTCiCcPgiDoNQpE48A9P4owtJ0' +
'CxoMEsACFkQjIM0zQVCk8hRH4LT4LcoT2FkZAmBMeCyAA8QYIASQJBEnSWIg/BtMw0SpOkUDEBsayZAAEADK0GTrAYICzIsuTMLgkBNH45gnOU8QAEgAT5JcFCSCIGgT' +
'BkFiNJkHRzLE9g3CA5QJAk0CGBF7gAywSRFE4RCuEIYCCQE=');
Calendar.Selection := '5/24/2012';
DisplayGroupingButton := True;
ShowGroupingEvents := True;
with Groups do
begin
with Add(1,'<c><b>Group</b><br><c><img>pic1</img>') do
begin
Visible := True;
EventBackColor := $808080;
end;
with Add(2,'<c><b>Group</b><br><c><img>pic2</img>') do
begin
Visible := True;
EventBackColor := $ff;
end;
end;
with Events do
begin
Add('5/24/2012 10:00:00 AM','5/24/2012 12:00:00 PM').GroupID := 1;
Add('5/24/2012 10:45:00 AM','5/24/2012 12:30:00 PM').GroupID := 2;
Add('5/24/2012 11:30:00 AM','5/24/2012 1:30:00 PM').GroupID := 1;
end;
HeaderGroupHeight := -1;
EndUpdate();
end
|
|
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)
with AxSchedule1 do
begin
OnResizeControl := Integer(EXSCHEDULELib.OnResizeControlEnum.exChangePanels) Or Integer(EXSCHEDULELib.OnResizeControlEnum.exHideSplitter);
with Calendar do
begin
Selection := '#1/1/2016#';
Selection := '(int((yearday(value) -1- ((7-weekday(value - yearday(value) + 1)) mod 7) )/7) = int((yearday(#1/7/2016#))/7))';
end;
BorderSelStyle := EXSCHEDULELib.LinesStyleEnum.exNoLines;
ShowViewCompact := EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact;
with Events do
begin
Add('1/10/2016 8:30:00 AM','1/10/2016 2:30:00 PM');
Add('1/11/2016 9:30:00 AM','1/11/2016 11:30:00 AM');
Add('1/15/2016 10:30:00 AM','1/15/2016 11:30:00 AM');
end;
s := Calendar.Selection;
Calendar.Selection := '0';
var_CopyTo := get_CopyTo('c:/temp/test.png');
OutputDebugString( 'Look for c:/temp/test.png file' );
Calendar.Selection := TObject(s);
end
|
|
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)
with AxSchedule1 do
begin
OnResizeControl := Integer(EXSCHEDULELib.OnResizeControlEnum.exChangePanels) Or Integer(EXSCHEDULELib.OnResizeControlEnum.exHideSplitter);
with Calendar do
begin
Selection := '1/1/2012';
SelectDate['1/1/2012'] := False;
end;
with Events do
begin
Add('1/1/2012 8:30:00 AM','1/1/2012 9:30:00 AM');
Add('1/1/2012 8:35:00 AM','1/1/2012 9:35:00 AM');
Add('1/1/2012 10:30:00 AM','1/1/2012 12:30:00 PM');
end;
var_CopyTo := get_CopyTo('c:/temp/test.png');
OutputDebugString( 'Look for c:/temp/test.png file' );
end
|
|
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)
with AxSchedule1 do
begin
with Calendar do
begin
Selection := '1/1/2012';
SelectDate['1/1/2012'] := False;
end;
with Events do
begin
Add('1/1/2012 8:30:00 AM','1/1/2012 9:30:00 AM');
Add('1/1/2012 8:35:00 AM','1/1/2012 9:35:00 AM');
Add('1/1/2012 10:30:00 AM','1/1/2012 12:30:00 PM');
end;
var_CopyTo := get_CopyTo('c:/temp/test.png');
OutputDebugString( 'Look for c:/temp/test.png file' );
end
|
|
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
with AxSchedule1 do
begin
BeginUpdate();
AllowSelectCreateEvent := EXSCHEDULELib.SelectCreateEventEnum.exHighlightCreateEvent;
OnResizeControl := EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide;
ShowAllDayHeader := True;
Calendar.Selection := '5/21/2012';
Calendar.Selection := 'value >= #5/20/2012# and value <= #5/26/2012#';
ShowViewCompact := EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact;
AllowAllDayEventScroll := EXSCHEDULELib.AllDayEventScrollEnum($23 Or Integer(EXSCHEDULELib.AllDayEventScrollEnum.exAllDayEventWheelScroll) Or Integer(EXSCHEDULELib.AllDayEventScrollEnum.exAllDayEventNoMax));
BodyEventBackColor := Color.FromArgb(128,128,128);
set_Background(EXSCHEDULELib.BackgroundPartEnum.exScheduleAllDayEventScrollBackColor,$dcdcdc);
with Events do
begin
Add('5/21/2012','5/24/2012').AllDayEvent := True;
Add('5/22/2012','5/23/2012').AllDayEvent := True;
Add('5/22/2012','5/24/2012').AllDayEvent := True;
Add('5/22/2012','5/25/2012').AllDayEvent := True;
Add('5/22/2012','5/25/2012').AllDayEvent := True;
Add('5/23/2012','5/25/2012').AllDayEvent := True;
Add('5/24/2012','5/25/2012').AllDayEvent := True;
end;
EndUpdate();
end
|
|
278
|
Is it possible to highlight the newly created event ( runtime creation )
with AxSchedule1 do
begin
AllowSelectCreateEvent := EXSCHEDULELib.SelectCreateEventEnum.exHighlightCreateEvent;
end
|
|
277
|
Is it possible to select the newly created event ( runtime creation )
with AxSchedule1 do
begin
AllowSelectCreateEvent := EXSCHEDULELib.SelectCreateEventEnum.exSelectCreateEvent;
end
|
|
276
|
I have noticed that the all-day header change its background, if has scrolling events. Is it possible to change that (ebn)
with AxSchedule1 do
begin
BeginUpdate();
VisualAppearance.Add(1,'gBFLBCJwBAEHhEJAAChABRUIQAAYAQGKIaBoAKBQAGaAoDDQMQ3QwAAwjSLEEwsACEIrjKCRShyCYZRrGQBQTCIZBqEqSZLiEZRQCWIAxATGchwHIEQgND6cIDmMAHfj' +
'2PI+RZKMoRZJUExZFyERhASQZZoyN40UzOc6vfL9KRDEAEIRKAyTDLQdRyGSMMgEVBJBCbMiNBqhESIJo+GI4BhFYSUZalGSnO6gIBAgIA==');
AllowSelectCreateEvent := EXSCHEDULELib.SelectCreateEventEnum.exHighlightCreateEvent;
OnResizeControl := EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide;
ShowAllDayHeader := True;
Calendar.Selection := '5/21/2012';
Calendar.Selection := 'value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)';
ShowViewCompact := EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact;
AllowAllDayEventScroll := Integer(EXSCHEDULELib.AllDayEventScrollEnum.exAllDayEventWheelScroll) Or Integer(EXSCHEDULELib.AllDayEventScrollEnum.exAllDayEventMax4);
set_Background(EXSCHEDULELib.BackgroundPartEnum.exScheduleAllDayEventScrollBackColor,$1000000);
with Events do
begin
Add('5/22/2012','5/23/2012').AllDayEvent := True;
Add('5/21/2012','5/24/2012').AllDayEvent := True;
Add('5/22/2012','5/24/2012').AllDayEvent := True;
Add('5/22/2012','5/25/2012').AllDayEvent := True;
Add('5/22/2012','5/25/2012').AllDayEvent := True;
Add('5/23/2012','5/25/2012').AllDayEvent := True;
Add('5/24/2012','5/26/2012').AllDayEvent := True;
end;
EndUpdate();
end
|
|
275
|
I have noticed that the all-day header change its background, if has scrolling events. Is it possible to change that (solid)
with AxSchedule1 do
begin
BeginUpdate();
AllowSelectCreateEvent := EXSCHEDULELib.SelectCreateEventEnum.exHighlightCreateEvent;
OnResizeControl := EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide;
ShowAllDayHeader := True;
Calendar.Selection := '5/21/2012';
Calendar.Selection := 'value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)';
ShowViewCompact := EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact;
AllowAllDayEventScroll := Integer(EXSCHEDULELib.AllDayEventScrollEnum.exAllDayEventWheelScroll) Or Integer(EXSCHEDULELib.AllDayEventScrollEnum.exAllDayEventMax4);
set_Background(EXSCHEDULELib.BackgroundPartEnum.exScheduleAllDayEventScrollBackColor,$dcdcdc);
with Events do
begin
Add('5/22/2012','5/23/2012').AllDayEvent := True;
Add('5/21/2012','5/24/2012').AllDayEvent := True;
Add('5/22/2012','5/24/2012').AllDayEvent := True;
Add('5/22/2012','5/25/2012').AllDayEvent := True;
Add('5/22/2012','5/25/2012').AllDayEvent := True;
Add('5/23/2012','5/25/2012').AllDayEvent := True;
Add('5/24/2012','5/26/2012').AllDayEvent := True;
end;
EndUpdate();
end
|
|
274
|
I have noticed that the all-day header change its background, if has scrolling events. Is it possible to remove that
with AxSchedule1 do
begin
BeginUpdate();
AllowSelectCreateEvent := EXSCHEDULELib.SelectCreateEventEnum.exHighlightCreateEvent;
OnResizeControl := EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide;
ShowAllDayHeader := True;
Calendar.Selection := '5/21/2012';
Calendar.Selection := 'value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)';
ShowViewCompact := EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact;
AllowAllDayEventScroll := Integer(EXSCHEDULELib.AllDayEventScrollEnum.exAllDayEventWheelScroll) Or Integer(EXSCHEDULELib.AllDayEventScrollEnum.exAllDayEventMax4);
set_Background(EXSCHEDULELib.BackgroundPartEnum.exScheduleAllDayEventScrollBackColor,$0);
with Events do
begin
Add('5/22/2012','5/23/2012').AllDayEvent := True;
Add('5/21/2012','5/24/2012').AllDayEvent := True;
Add('5/22/2012','5/24/2012').AllDayEvent := True;
Add('5/22/2012','5/25/2012').AllDayEvent := True;
Add('5/22/2012','5/25/2012').AllDayEvent := True;
Add('5/23/2012','5/25/2012').AllDayEvent := True;
Add('5/24/2012','5/26/2012').AllDayEvent := True;
end;
EndUpdate();
end
|
|
273
|
The user scrolls through the all-day events, when mouse wheel is rotated. Can I disable that
with AxSchedule1 do
begin
BeginUpdate();
AllowSelectCreateEvent := EXSCHEDULELib.SelectCreateEventEnum.exHighlightCreateEvent;
OnResizeControl := EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide;
ShowAllDayHeader := True;
Calendar.Selection := '5/21/2012';
Calendar.Selection := 'value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)';
ShowViewCompact := EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact;
AllowAllDayEventScroll := Integer(EXSCHEDULELib.AllDayEventScrollEnum.exAllDayEventScroll) Or Integer(EXSCHEDULELib.AllDayEventScrollEnum.exAllDayEventMax4);
with Events do
begin
Add('5/22/2012','5/23/2012').AllDayEvent := True;
Add('5/21/2012','5/24/2012').AllDayEvent := True;
Add('5/22/2012','5/24/2012').AllDayEvent := True;
Add('5/22/2012','5/25/2012').AllDayEvent := True;
Add('5/22/2012','5/25/2012').AllDayEvent := True;
Add('5/23/2012','5/25/2012').AllDayEvent := True;
Add('5/24/2012','5/26/2012').AllDayEvent := True;
end;
EndUpdate();
end
|
|
272
|
Is it possible to specify the number of all-day events to be visible
with AxSchedule1 do
begin
BeginUpdate();
AllowSelectCreateEvent := EXSCHEDULELib.SelectCreateEventEnum.exHighlightCreateEvent;
OnResizeControl := EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide;
ShowAllDayHeader := True;
Calendar.Selection := '5/21/2012';
Calendar.Selection := 'value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)';
ShowViewCompact := EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact;
AllowAllDayEventScroll := Integer(EXSCHEDULELib.AllDayEventScrollEnum.exAllDayEventWheelScroll) Or Integer(EXSCHEDULELib.AllDayEventScrollEnum.exAllDayEventMax4);
with Events do
begin
Add('5/22/2012','5/23/2012').AllDayEvent := True;
Add('5/21/2012','5/24/2012').AllDayEvent := True;
Add('5/22/2012','5/24/2012').AllDayEvent := True;
Add('5/22/2012','5/25/2012').AllDayEvent := True;
Add('5/22/2012','5/25/2012').AllDayEvent := True;
Add('5/23/2012','5/25/2012').AllDayEvent := True;
Add('5/24/2012','5/26/2012').AllDayEvent := True;
end;
EndUpdate();
end
|
|
271
|
How do I disable scrolling the all-day header
with AxSchedule1 do
begin
BeginUpdate();
AllowSelectCreateEvent := EXSCHEDULELib.SelectCreateEventEnum.exHighlightCreateEvent;
OnResizeControl := EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide;
ShowAllDayHeader := True;
Calendar.Selection := '5/21/2012';
Calendar.Selection := 'value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)';
ShowViewCompact := EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact;
AllowAllDayEventScroll := EXSCHEDULELib.AllDayEventScrollEnum.exAllDayEventNoMin;
with Events do
begin
Add('5/22/2012','5/23/2012').AllDayEvent := True;
Add('5/21/2012','5/24/2012').AllDayEvent := True;
Add('5/22/2012','5/24/2012').AllDayEvent := True;
Add('5/22/2012','5/25/2012').AllDayEvent := True;
Add('5/22/2012','5/25/2012').AllDayEvent := True;
Add('5/23/2012','5/25/2012').AllDayEvent := True;
Add('5/24/2012','5/26/2012').AllDayEvent := True;
end;
EndUpdate();
end
|
|
270
|
How can I display the current week only, when the user selects the date in the calendar panel
with AxSchedule1 do
begin
BeginUpdate();
OnResizeControl := Integer(EXSCHEDULELib.OnResizeControlEnum.exDisableSplitter) Or Integer(EXSCHEDULELib.OnResizeControlEnum.exResizePanelRight);
with Calendar do
begin
OnSelectDate := EXSCHEDULELib.OnSelectDateEnum.exEnsureVisibleDate;
Selection := '1/10/2001';
SingleSel := True;
end;
Calendar.FirstWeekDay := EXSCHEDULELib.WeekDayEnum.exMonday;
ScrollBars := EXSCHEDULELib.ScrollBarsEnum.exNoScroll;
ShowViewCompact := EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact;
AllowResizeSchedule := EXSCHEDULELib.AllowKeysEnum.exDisallow;
AllowMoveSchedule := EXSCHEDULELib.AllowKeysEnum.exDisallow;
AllowToggleSchedule := EXSCHEDULELib.AllowKeysEnum.exDisallow;
set_Background(EXSCHEDULELib.BackgroundPartEnum.exScheduleBorderMonthColor,get_Background(EXSCHEDULELib.BackgroundPartEnum.exScheduleBorderDateColor));
TimeScales.Item[TObject(0)].AllowResize := False;
DayViewWidth := 0;
EndUpdate();
end
|
|
269
|
How do I capture the control and save it as PDF (Method 2)
with AxSchedule1 do
begin
with Calendar do
begin
Selection := '6/1/2001';
Selection := 'value in (#6/11/2001#,#6/12/2001#)';
end;
DayViewWidth := 512;
DayViewHeight := 512;
with Events do
begin
Add('6/11/2001 10:00:00 AM','6/11/2001 1:00:00 PM');
Add('6/12/2001 10:00:00 AM','6/12/2001 1:00:00 PM');
end;
var_CopyTo := get_CopyTo('C:/Temp/test.pdf');
OutputDebugString( 'Look For: C:/Temp/test.pdf file' );
end
|
|
268
|
How do I capture the control and save it as PDF (Method 1)
with AxSchedule1 do
begin
with Calendar do
begin
Selection := '6/1/2001';
Selection := 'value in (#6/11/2001#,#6/12/2001#)';
end;
DayViewWidth := 512;
DayViewHeight := 512;
with Events do
begin
Add('6/11/2001 10:00:00 AM','6/11/2001 1:00:00 PM');
Add('6/12/2001 10:00:00 AM','6/12/2001 1:00:00 PM');
end;
with (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.Print')) as EXPRINTLib.Print) do
begin
Options := 'FitToPage=On';
PrintExt := (AxSchedule1.GetOcx() as EXSCHEDULELib.Schedule).DefaultDispatch;
CopyTo('C:/Temp/test.pdf');
OutputDebugString( 'Look For: C:/Temp/test.pdf file' );
end;
end
|
|
267
|
How do I capture the control and save it as an image (JPG or BMP) (Method 2)
with AxSchedule1 do
begin
with Calendar do
begin
Selection := '6/1/2001';
Selection := 'value in (#6/11/2001#,#6/12/2001#)';
end;
DayViewWidth := 512;
DayViewHeight := 512;
with Events do
begin
Add('6/11/2001 10:00:00 AM','6/11/2001 1:00:00 PM');
Add('6/12/2001 10:00:00 AM','6/12/2001 1:00:00 PM');
end;
var_CopyTo := get_CopyTo('C:/Temp/test.bmp');
var_CopyTo1 := get_CopyTo('C:/Temp/test.jpg');
OutputDebugString( 'Look For: C:/Temp/test.* file' );
end
|
|
266
|
How do I capture the control and save it as an image (JPG or BMP) (Method 1)
with AxSchedule1 do
begin
with Calendar do
begin
Selection := '6/1/2001';
Selection := 'value in (#6/11/2001#,#6/12/2001#)';
end;
DayViewWidth := 512;
DayViewHeight := 512;
with Events do
begin
Add('6/11/2001 10:00:00 AM','6/11/2001 1:00:00 PM');
Add('6/12/2001 10:00:00 AM','6/12/2001 1:00:00 PM');
end;
with (ComObj.CreateComObject(ComObj.ProgIDToClassID('Exontrol.Print')) as EXPRINTLib.Print) do
begin
Options := 'FitToPage=On';
PrintExt := (AxSchedule1.GetOcx() as EXSCHEDULELib.Schedule).DefaultDispatch;
CopyTo('C:/Temp/test.bmp');
CopyTo('C:/Temp/test.jpg');
OutputDebugString( 'Look For: C:/Temp/test.* file' );
end;
end
|
|
265
|
Recurrence: The 2nd to last weekday of the month
with AxSchedule1 do
begin
BeginUpdate();
with Calendar do
begin
Selection := '9/29/1997';
ShowNonMonthDays := False;
MaxMonthY := 4;
FirstWeekDay := EXSCHEDULELib.WeekDayEnum.exMonday;
with HighlightEvent do
begin
Pattern.Type := EXSCHEDULELib.PatternEnum.exPatternFrame;
Bold := False;
end;
end;
ShowViewCompact := EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact;
BorderSelStyle := EXSCHEDULELib.LinesStyleEnum.exNoLines;
set_Background(EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,$f0f0f0);
with Events do
begin
Add('9/29/1997 9:00:00 AM','9/29/1997 2:00:00 PM').Repetitive := 'FREQ=MONTHLY;BYDAY=MO,TU,WE,TH,FR;BYSETPOS=-2';
end;
EndUpdate();
end
|
|
264
|
Recurrence: The 3rd instance into the month of one of Tuesday, Wednesday or Thursday, for the next 3 months
with AxSchedule1 do
begin
BeginUpdate();
with Calendar do
begin
Selection := '9/4/1997';
ShowNonMonthDays := False;
MaxMonthY := 4;
FirstWeekDay := EXSCHEDULELib.WeekDayEnum.exMonday;
with HighlightEvent do
begin
Pattern.Type := EXSCHEDULELib.PatternEnum.exPatternFrame;
Bold := False;
end;
end;
ShowViewCompact := EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact;
BorderSelStyle := EXSCHEDULELib.LinesStyleEnum.exNoLines;
set_Background(EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,$f0f0f0);
with Events do
begin
Add('9/4/1997 9:00:00 AM','9/4/1997 2:00:00 PM').Repetitive := 'FREQ=MONTHLY;COUNT=3;BYDAY=TU,WE,TH;BYSETPOS=3';
end;
EndUpdate();
end
|
|
263
|
Recurrence: The last work day of the month
with AxSchedule1 do
begin
BeginUpdate();
with Calendar do
begin
Selection := '9/30/1997';
ShowNonMonthDays := False;
MaxMonthY := 4;
FirstWeekDay := EXSCHEDULELib.WeekDayEnum.exMonday;
with HighlightEvent do
begin
Pattern.Type := EXSCHEDULELib.PatternEnum.exPatternFrame;
Bold := False;
end;
end;
ShowViewCompact := EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact;
BorderSelStyle := EXSCHEDULELib.LinesStyleEnum.exNoLines;
set_Background(EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,$f0f0f0);
with Events do
begin
Add('8/5/1997 9:00:00 AM','8/5/1997 2:00:00 PM').Repetitive := 'FREQ=MONTHLY;BYDAY=MO,TU,WE,TH,FR;BYSETPOS=-1';
end;
EndUpdate();
end
|
|
262
|
Recurrence: An example where the days generated makes a difference because of WKST (Sample 2)
with AxSchedule1 do
begin
BeginUpdate();
with Calendar do
begin
Selection := '8/5/1997';
ShowNonMonthDays := False;
MaxMonthY := 4;
FirstWeekDay := EXSCHEDULELib.WeekDayEnum.exSunday;
with HighlightEvent do
begin
Pattern.Type := EXSCHEDULELib.PatternEnum.exPatternFrame;
Bold := False;
end;
end;
ShowViewCompact := EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact;
BorderSelStyle := EXSCHEDULELib.LinesStyleEnum.exNoLines;
set_Background(EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,$f0f0f0);
with Events do
begin
Add('8/5/1997 9:00:00 AM','8/5/1997 2:00:00 PM').Repetitive := 'FREQ=WEEKLY;INTERVAL=2;COUNT=4;BYDAY=TU,SU';
end;
EndUpdate();
end
|
|
261
|
Recurrence: An example where the days generated makes a difference because of WKST (Sample 1)
with AxSchedule1 do
begin
BeginUpdate();
with Calendar do
begin
Selection := '8/5/1997';
ShowNonMonthDays := False;
MaxMonthY := 4;
FirstWeekDay := EXSCHEDULELib.WeekDayEnum.exMonday;
with HighlightEvent do
begin
Pattern.Type := EXSCHEDULELib.PatternEnum.exPatternFrame;
Bold := False;
end;
end;
ShowViewCompact := EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact;
BorderSelStyle := EXSCHEDULELib.LinesStyleEnum.exNoLines;
set_Background(EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,$f0f0f0);
with Events do
begin
Add('8/5/1997 9:00:00 AM','8/5/1997 2:00:00 PM').Repetitive := 'FREQ=WEEKLY;INTERVAL=2;COUNT=4;BYDAY=TU,SU';
end;
EndUpdate();
end
|
|
260
|
Recurrence: Every four years, the first Tuesday after a Monday in November, forever (U.S. Presidential Election day)
with AxSchedule1 do
begin
BeginUpdate();
with Calendar do
begin
Selection := '11/5/1996';
ShowNonMonthDays := False;
MaxMonthY := 4;
FirstWeekDay := EXSCHEDULELib.WeekDayEnum.exMonday;
with HighlightEvent do
begin
Pattern.Type := EXSCHEDULELib.PatternEnum.exPatternFrame;
Bold := False;
end;
end;
ShowViewCompact := EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact;
BorderSelStyle := EXSCHEDULELib.LinesStyleEnum.exNoLines;
set_Background(EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,$f0f0f0);
with Events do
begin
Add('11/5/1996 9:00:00 AM','11/5/1996 2:00:00 PM').Repetitive := 'FREQ=YEARLY;INTERVAL=4;BYMONTH=11;BYDAY=TU;BYMONTHDAY=2,3,4,5,6,7,8';
end;
EndUpdate();
end
|
|
259
|
Recurrence: The first Saturday that follows the first Sunday of the month, forever
with AxSchedule1 do
begin
BeginUpdate();
with Calendar do
begin
Selection := '9/13/1997';
ShowNonMonthDays := False;
MaxMonthY := 4;
FirstWeekDay := EXSCHEDULELib.WeekDayEnum.exMonday;
with HighlightEvent do
begin
Pattern.Type := EXSCHEDULELib.PatternEnum.exPatternFrame;
Bold := False;
end;
end;
ShowViewCompact := EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact;
BorderSelStyle := EXSCHEDULELib.LinesStyleEnum.exNoLines;
set_Background(EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,$f0f0f0);
with Events do
begin
Add('9/13/1997 9:00:00 AM','9/13/1997 2:00:00 PM').Repetitive := 'FREQ=MONTHLY;BYDAY=SA;BYMONTHDAY=7,8,9,10,11,12,13';
end;
EndUpdate();
end
|
|
258
|
Recurrence: Every Friday the 13th, forever
with AxSchedule1 do
begin
BeginUpdate();
with Calendar do
begin
Selection := '2/13/1998';
ShowNonMonthDays := False;
MaxMonthY := 4;
FirstWeekDay := EXSCHEDULELib.WeekDayEnum.exMonday;
with HighlightEvent do
begin
Pattern.Type := EXSCHEDULELib.PatternEnum.exPatternFrame;
Bold := False;
end;
end;
ShowViewCompact := EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact;
BorderSelStyle := EXSCHEDULELib.LinesStyleEnum.exNoLines;
set_Background(EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,$f0f0f0);
with Events do
begin
Add('9/2/1997 9:00:00 AM','9/2/1997 2:00:00 PM').Repetitive := 'FREQ=MONTHLY;BYDAY=FR;BYMONTHDAY=13';
end;
EndUpdate();
end
|
|
257
|
Recurrence: Every Thursday, but only during June, July, and August, forever
with AxSchedule1 do
begin
BeginUpdate();
with Calendar do
begin
Selection := '6/5/1997';
ShowNonMonthDays := False;
MaxMonthY := 4;
FirstWeekDay := EXSCHEDULELib.WeekDayEnum.exMonday;
with HighlightEvent do
begin
Pattern.Type := EXSCHEDULELib.PatternEnum.exPatternFrame;
Bold := False;
end;
end;
ShowViewCompact := EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact;
BorderSelStyle := EXSCHEDULELib.LinesStyleEnum.exNoLines;
set_Background(EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,$f0f0f0);
with Events do
begin
Add('6/5/1997 9:00:00 AM','6/5/1997 2:00:00 PM').Repetitive := 'FREQ=YEARLY;BYDAY=TH;BYMONTH=6,7,8';
end;
EndUpdate();
end
|
|
256
|
Recurrence: Every Thursday in March, forever
with AxSchedule1 do
begin
BeginUpdate();
with Calendar do
begin
Selection := '3/13/1997';
ShowNonMonthDays := False;
MaxMonthY := 4;
FirstWeekDay := EXSCHEDULELib.WeekDayEnum.exMonday;
with HighlightEvent do
begin
Pattern.Type := EXSCHEDULELib.PatternEnum.exPatternFrame;
Bold := False;
end;
end;
ShowViewCompact := EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact;
BorderSelStyle := EXSCHEDULELib.LinesStyleEnum.exNoLines;
set_Background(EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,$f0f0f0);
with Events do
begin
Add('3/13/1997 9:00:00 AM','3/13/1997 2:00:00 PM').Repetitive := 'FREQ=YEARLY;BYMONTH=3;BYDAY=TH';
end;
EndUpdate();
end
|
|
255
|
Recurrence: Monday of week number 20 (where the default start of the week is Monday), forever
with AxSchedule1 do
begin
BeginUpdate();
with Calendar do
begin
Selection := '5/12/1997';
ShowNonMonthDays := False;
MaxMonthY := 4;
FirstWeekDay := EXSCHEDULELib.WeekDayEnum.exMonday;
with HighlightEvent do
begin
Pattern.Type := EXSCHEDULELib.PatternEnum.exPatternFrame;
Bold := False;
end;
end;
ShowViewCompact := EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact;
BorderSelStyle := EXSCHEDULELib.LinesStyleEnum.exNoLines;
set_Background(EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,$f0f0f0);
with Events do
begin
Add('5/12/1997 9:00:00 AM','5/12/1997 2:00:00 PM').Repetitive := 'FREQ=YEARLY;BYWEEKNO=20;BYDAY=MO';
end;
EndUpdate();
end
|
|
254
|
Recurrence: Every 20th Monday of the year, forever
with AxSchedule1 do
begin
BeginUpdate();
with Calendar do
begin
Selection := '5/19/1997';
ShowNonMonthDays := False;
MaxMonthY := 4;
FirstWeekDay := EXSCHEDULELib.WeekDayEnum.exMonday;
with HighlightEvent do
begin
Pattern.Type := EXSCHEDULELib.PatternEnum.exPatternFrame;
Bold := False;
end;
end;
ShowViewCompact := EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact;
BorderSelStyle := EXSCHEDULELib.LinesStyleEnum.exNoLines;
set_Background(EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,$f0f0f0);
with Events do
begin
Add('1/1/1997 9:00:00 AM','1/1/1997 2:00:00 PM').Repetitive := 'FREQ=YEARLY;BYDAY=20MO';
end;
EndUpdate();
end
|
|
253
|
Recurrence: Every 3rd year on the 1st, 100th and 200th day for 10 occurrences
with AxSchedule1 do
begin
BeginUpdate();
with Calendar do
begin
Selection := '1/1/1997';
ShowNonMonthDays := False;
MaxMonthY := 4;
FirstWeekDay := EXSCHEDULELib.WeekDayEnum.exMonday;
with HighlightEvent do
begin
Pattern.Type := EXSCHEDULELib.PatternEnum.exPatternFrame;
Bold := False;
end;
end;
ShowViewCompact := EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact;
BorderSelStyle := EXSCHEDULELib.LinesStyleEnum.exNoLines;
set_Background(EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,$f0f0f0);
with Events do
begin
Add('1/1/1997 9:00:00 AM','1/1/1997 2:00:00 PM').Repetitive := 'FREQ=YEARLY;INTERVAL=3;COUNT=10;BYYEARDAY=1,100,200';
end;
EndUpdate();
end
|
|
252
|
Recurrence: Every other year on January, February, and March for 10 occurrences
with AxSchedule1 do
begin
BeginUpdate();
with Calendar do
begin
Selection := '3/10/1997';
ShowNonMonthDays := False;
MaxMonthY := 4;
FirstWeekDay := EXSCHEDULELib.WeekDayEnum.exMonday;
with HighlightEvent do
begin
Pattern.Type := EXSCHEDULELib.PatternEnum.exPatternFrame;
Bold := False;
end;
end;
ShowViewCompact := EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact;
BorderSelStyle := EXSCHEDULELib.LinesStyleEnum.exNoLines;
set_Background(EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,$f0f0f0);
with Events do
begin
Add('3/10/1997 9:00:00 AM','3/10/1997 2:00:00 PM').Repetitive := 'FREQ=YEARLY;INTERVAL=2;COUNT=10;BYMONTH=1,2,3';
end;
EndUpdate();
end
|
|
251
|
Recurrence: Yearly in June and July for 10 occurrences
with AxSchedule1 do
begin
BeginUpdate();
with Calendar do
begin
Selection := '6/10/1997';
ShowNonMonthDays := False;
MaxMonthX := 2;
MaxMonthY := 2;
FirstWeekDay := EXSCHEDULELib.WeekDayEnum.exMonday;
with HighlightEvent do
begin
Pattern.Type := EXSCHEDULELib.PatternEnum.exPatternFrame;
Bold := False;
end;
end;
ShowViewCompact := EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact;
BorderSelStyle := EXSCHEDULELib.LinesStyleEnum.exNoLines;
set_Background(EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,$f0f0f0);
with Events do
begin
Add('6/10/1997 9:00:00 AM','6/10/1997 2:00:00 PM').Repetitive := 'FREQ=YEARLY;COUNT=10;BYMONTH=6,7';
end;
EndUpdate();
end
|
|
250
|
Recurrence: Every Tuesday, every other month
with AxSchedule1 do
begin
BeginUpdate();
with Calendar do
begin
Selection := '9/2/1997';
ShowNonMonthDays := False;
MaxMonthY := 4;
FirstWeekDay := EXSCHEDULELib.WeekDayEnum.exMonday;
with HighlightEvent do
begin
Pattern.Type := EXSCHEDULELib.PatternEnum.exPatternFrame;
Bold := False;
end;
end;
ShowViewCompact := EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact;
BorderSelStyle := EXSCHEDULELib.LinesStyleEnum.exNoLines;
set_Background(EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,$f0f0f0);
with Events do
begin
Add('9/2/1997 9:00:00 AM','9/2/1997 2:00:00 PM').Repetitive := 'FREQ=MONTHLY;INTERVAL=2;BYDAY=TU';
end;
EndUpdate();
end
|
|
249
|
Recurrence: Every 18 months on the 10th thru 15th of the month for 10 occurrences
with AxSchedule1 do
begin
BeginUpdate();
with Calendar do
begin
Selection := '9/10/1997';
ShowNonMonthDays := False;
MaxMonthY := 4;
FirstWeekDay := EXSCHEDULELib.WeekDayEnum.exMonday;
with HighlightEvent do
begin
Pattern.Type := EXSCHEDULELib.PatternEnum.exPatternFrame;
Bold := False;
end;
end;
ShowViewCompact := EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact;
BorderSelStyle := EXSCHEDULELib.LinesStyleEnum.exNoLines;
set_Background(EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,$f0f0f0);
with Events do
begin
Add('9/10/1997 9:00:00 AM','9/10/1997 2:00:00 PM').Repetitive := 'FREQ=MONTHLY;INTERVAL=18;COUNT=10;BYMONTHDAY=10,11,12,13,14,15';
end;
EndUpdate();
end
|
|
248
|
Recurrence: Monthly on the first and last day of the month for 10 occurrences
with AxSchedule1 do
begin
BeginUpdate();
with Calendar do
begin
Selection := '9/30/1997';
ShowNonMonthDays := False;
MaxMonthY := 4;
FirstWeekDay := EXSCHEDULELib.WeekDayEnum.exMonday;
with HighlightEvent do
begin
Pattern.Type := EXSCHEDULELib.PatternEnum.exPatternFrame;
Bold := False;
end;
end;
ShowViewCompact := EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact;
BorderSelStyle := EXSCHEDULELib.LinesStyleEnum.exNoLines;
set_Background(EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,$f0f0f0);
with Events do
begin
Add('9/3/1997 9:00:00 AM','9/3/1997 2:00:00 PM').Repetitive := 'FREQ=MONTHLY;COUNT=10;BYMONTHDAY=1,-1';
end;
EndUpdate();
end
|
|
247
|
Recurrence: Monthly on the 2nd and 15th of the month for 10 occurrences
with AxSchedule1 do
begin
BeginUpdate();
with Calendar do
begin
Selection := '9/2/1997';
ShowNonMonthDays := False;
MaxMonthY := 4;
FirstWeekDay := EXSCHEDULELib.WeekDayEnum.exMonday;
with HighlightEvent do
begin
Pattern.Type := EXSCHEDULELib.PatternEnum.exPatternFrame;
Bold := False;
end;
end;
ShowViewCompact := EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact;
BorderSelStyle := EXSCHEDULELib.LinesStyleEnum.exNoLines;
set_Background(EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,$f0f0f0);
with Events do
begin
Add('9/2/1997 9:00:00 AM','9/2/1997 2:00:00 PM').Repetitive := 'FREQ=MONTHLY;COUNT=10;BYMONTHDAY=2,15';
end;
EndUpdate();
end
|
|
246
|
Recurrence: Monthly on the third to the last day of the month, forever
with AxSchedule1 do
begin
BeginUpdate();
with Calendar do
begin
Selection := '9/28/1997';
ShowNonMonthDays := False;
MaxMonthY := 4;
FirstWeekDay := EXSCHEDULELib.WeekDayEnum.exMonday;
with HighlightEvent do
begin
Pattern.Type := EXSCHEDULELib.PatternEnum.exPatternFrame;
Bold := False;
end;
end;
ShowViewCompact := EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact;
BorderSelStyle := EXSCHEDULELib.LinesStyleEnum.exNoLines;
set_Background(EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,$f0f0f0);
with Events do
begin
Add('9/28/1997 9:00:00 AM','9/28/1997 2:00:00 PM').Repetitive := 'FREQ=MONTHLY;BYMONTHDAY=-3';
end;
EndUpdate();
end
|
|
245
|
Recurrence: Monthly on the second to last Monday of the month for 6 months
with AxSchedule1 do
begin
BeginUpdate();
with Calendar do
begin
Selection := '9/22/1997';
ShowNonMonthDays := False;
MaxMonthY := 4;
FirstWeekDay := EXSCHEDULELib.WeekDayEnum.exMonday;
with HighlightEvent do
begin
Pattern.Type := EXSCHEDULELib.PatternEnum.exPatternFrame;
Bold := False;
end;
end;
ShowViewCompact := EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact;
BorderSelStyle := EXSCHEDULELib.LinesStyleEnum.exNoLines;
set_Background(EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,$f0f0f0);
with Events do
begin
Add('9/22/1997 9:00:00 AM','9/22/1997 2:00:00 PM').Repetitive := 'FREQ=MONTHLY;COUNT=6;BYDAY=-2MO';
end;
EndUpdate();
end
|
|
244
|
Recurrence: Every other month on the 1st and last Sunday of the month for 10 occurrences
with AxSchedule1 do
begin
BeginUpdate();
with Calendar do
begin
Selection := '9/7/1997';
ShowNonMonthDays := False;
MaxMonthY := 4;
FirstWeekDay := EXSCHEDULELib.WeekDayEnum.exMonday;
with HighlightEvent do
begin
Pattern.Type := EXSCHEDULELib.PatternEnum.exPatternFrame;
Bold := False;
end;
end;
ShowViewCompact := EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact;
BorderSelStyle := EXSCHEDULELib.LinesStyleEnum.exNoLines;
set_Background(EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,$f0f0f0);
with Events do
begin
Add('9/7/1997 9:00:00 AM','9/7/1997 2:00:00 PM').Repetitive := 'FREQ=MONTHLY;INTERVAL=2;COUNT=10;BYDAY=1SU,-1SU';
end;
EndUpdate();
end
|
|
243
|
Recurrence: Monthly on the 1st Friday until December 24, 1997
with AxSchedule1 do
begin
BeginUpdate();
with Calendar do
begin
Selection := '9/5/1997';
ShowNonMonthDays := False;
MaxMonthY := 4;
FirstWeekDay := EXSCHEDULELib.WeekDayEnum.exMonday;
with HighlightEvent do
begin
Pattern.Type := EXSCHEDULELib.PatternEnum.exPatternFrame;
Bold := False;
end;
end;
ShowViewCompact := EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact;
BorderSelStyle := EXSCHEDULELib.LinesStyleEnum.exNoLines;
set_Background(EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,$f0f0f0);
with Events do
begin
Add('9/5/1997 9:00:00 AM','9/5/1997 2:00:00 PM').Repetitive := 'FREQ=MONTHLY;UNTIL=19971224T000000Z;BYDAY=1FR';
end;
EndUpdate();
end
|
|
242
|
Recurrence: Monthly on the 1st Friday for ten occurrences
with AxSchedule1 do
begin
BeginUpdate();
with Calendar do
begin
Selection := '9/5/1997';
ShowNonMonthDays := False;
MaxMonthY := 4;
FirstWeekDay := EXSCHEDULELib.WeekDayEnum.exMonday;
with HighlightEvent do
begin
Pattern.Type := EXSCHEDULELib.PatternEnum.exPatternFrame;
Bold := False;
end;
end;
ShowViewCompact := EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact;
BorderSelStyle := EXSCHEDULELib.LinesStyleEnum.exNoLines;
set_Background(EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,$f0f0f0);
with Events do
begin
Add('9/5/1997 9:00:00 AM','9/5/1997 2:00:00 PM').Repetitive := 'FREQ=MONTHLY;COUNT=10;BYDAY=1FR';
end;
EndUpdate();
end
|
|
241
|
Recurrence: Every other week on Tuesday and Thursday, for 8 occurrences
with AxSchedule1 do
begin
BeginUpdate();
with Calendar do
begin
Selection := '9/16/1997';
ShowNonMonthDays := False;
MaxMonthY := 4;
FirstWeekDay := EXSCHEDULELib.WeekDayEnum.exSunday;
with HighlightEvent do
begin
Pattern.Type := EXSCHEDULELib.PatternEnum.exPatternFrame;
Bold := False;
end;
end;
ShowViewCompact := EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact;
BorderSelStyle := EXSCHEDULELib.LinesStyleEnum.exNoLines;
set_Background(EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,$f0f0f0);
with Events do
begin
Add('9/2/1997 9:00:00 AM','9/2/1997 2:00:00 PM').Repetitive := 'FREQ=WEEKLY;INTERVAL=2;COUNT=8;WKST=SU;BYDAY=TU,TH';
end;
EndUpdate();
end
|
|
240
|
Recurrence: Every other week on Monday, Wednesday and Friday until December 24, 1997, but starting on Tuesday, September 2, 1997
with AxSchedule1 do
begin
BeginUpdate();
with Calendar do
begin
Selection := '9/17/1997';
ShowNonMonthDays := False;
MaxMonthY := 4;
FirstWeekDay := EXSCHEDULELib.WeekDayEnum.exSunday;
with HighlightEvent do
begin
Pattern.Type := EXSCHEDULELib.PatternEnum.exPatternFrame;
Bold := False;
end;
end;
ShowViewCompact := EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact;
BorderSelStyle := EXSCHEDULELib.LinesStyleEnum.exNoLines;
set_Background(EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,$f0f0f0);
with Events do
begin
Add('9/2/1997 9:00:00 AM','9/2/1997 2:00:00 PM').Repetitive := 'FREQ=WEEKLY;INTERVAL=2;UNTIL=19971224T000000Z;WKST=SU;BYDAY=MO,WE,FR';
end;
EndUpdate();
end
|
|
239
|
Recurrence: Weekly on Tuesday and Thursday for 5 weeks
with AxSchedule1 do
begin
BeginUpdate();
with Calendar do
begin
Selection := '9/16/1997';
ShowNonMonthDays := False;
MaxMonthY := 4;
FirstWeekDay := EXSCHEDULELib.WeekDayEnum.exSunday;
with HighlightEvent do
begin
Pattern.Type := EXSCHEDULELib.PatternEnum.exPatternFrame;
Bold := False;
end;
end;
ShowViewCompact := EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact;
BorderSelStyle := EXSCHEDULELib.LinesStyleEnum.exNoLines;
set_Background(EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,$f0f0f0);
with Events do
begin
Add('9/2/1997 9:00:00 AM','9/2/1997 2:00:00 PM').Repetitive := 'FREQ=WEEKLY;UNTIL=19971007T000000Z;WKST=SU;BYDAY=TU,TH';
end;
EndUpdate();
end
|
|
238
|
Recurrence: Weekly on Tuesday and Thursday for 5 weeks
with AxSchedule1 do
begin
BeginUpdate();
with Calendar do
begin
Selection := '9/16/1997';
ShowNonMonthDays := False;
MaxMonthY := 4;
FirstWeekDay := EXSCHEDULELib.WeekDayEnum.exSunday;
with HighlightEvent do
begin
Pattern.Type := EXSCHEDULELib.PatternEnum.exPatternFrame;
Bold := False;
end;
end;
ShowViewCompact := EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact;
BorderSelStyle := EXSCHEDULELib.LinesStyleEnum.exNoLines;
set_Background(EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,$f0f0f0);
with Events do
begin
Add('9/2/1997 9:00:00 AM','9/2/1997 2:00:00 PM').Repetitive := 'FREQ=WEEKLY;COUNT=10;WKST=SU;BYDAY=TU,TH';
end;
EndUpdate();
end
|
|
237
|
Recurrence: Every other day - forever
with AxSchedule1 do
begin
BeginUpdate();
with Calendar do
begin
Selection := '9/4/1997';
ShowNonMonthDays := False;
MaxMonthY := 4;
FirstWeekDay := EXSCHEDULELib.WeekDayEnum.exMonday;
with HighlightEvent do
begin
Pattern.Type := EXSCHEDULELib.PatternEnum.exPatternFrame;
Bold := False;
end;
end;
ShowViewCompact := EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact;
BorderSelStyle := EXSCHEDULELib.LinesStyleEnum.exNoLines;
set_Background(EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,$f0f0f0);
with Events do
begin
Add('9/2/1997 9:00:00 AM','9/2/1997 2:00:00 PM').Repetitive := 'FREQ=DAILY;INTERVAL=2';
end;
EndUpdate();
end
|
|
236
|
Recurrence: Daily until December 24, 1997
with AxSchedule1 do
begin
BeginUpdate();
with Calendar do
begin
Selection := '9/17/1997';
ShowNonMonthDays := False;
MaxMonthY := 4;
FirstWeekDay := EXSCHEDULELib.WeekDayEnum.exMonday;
with HighlightEvent do
begin
Pattern.Type := EXSCHEDULELib.PatternEnum.exPatternFrame;
Bold := False;
end;
end;
ShowViewCompact := EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact;
BorderSelStyle := EXSCHEDULELib.LinesStyleEnum.exNoLines;
set_Background(EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,$f0f0f0);
with Events do
begin
Add('9/2/1997 9:00:00 AM','9/2/1997 2:00:00 PM').Repetitive := 'FREQ=DAILY;UNTIL=19971224T000000Z';
end;
EndUpdate();
end
|
|
235
|
Recurrence: Daily for 10 occurrences
with AxSchedule1 do
begin
BeginUpdate();
with Calendar do
begin
Selection := '9/9/1997';
ShowNonMonthDays := False;
MaxMonthY := 4;
with HighlightEvent do
begin
Pattern.Type := EXSCHEDULELib.PatternEnum.exPatternFrame;
Bold := False;
end;
FirstWeekDay := EXSCHEDULELib.WeekDayEnum.exMonday;
end;
ShowViewCompact := EXSCHEDULELib.ShowViewCompactEnum.exViewCalendarCompact;
BorderSelStyle := EXSCHEDULELib.LinesStyleEnum.exNoLines;
set_Background(EXSCHEDULELib.BackgroundPartEnum.exScheduleMarkTodayBackColor,$f0f0f0);
with Events do
begin
Add('9/2/1997 9:00:00 AM','9/2/1997 2:00:00 PM').Repetitive := 'FREQ=DAILY;COUNT=10';
end;
EndUpdate();
end
|
|
234
|
How do I display the week number according, so the January 1st is in the first week
with AxSchedule1 do
begin
BeginUpdate();
with Calendar do
begin
Selection := '1/1/2016';
FirstWeekDay := EXSCHEDULELib.WeekDayEnum.exSunday;
DisplayWeekNumberAs := EXSCHEDULELib.WeekNumberAsEnum.exSimpleWeekNumber;
end;
EndUpdate();
end
|
|
233
|
How do I display the week number according to ISO8601 standard
with AxSchedule1 do
begin
BeginUpdate();
with Calendar do
begin
Selection := '1/4/2016';
FirstWeekDay := EXSCHEDULELib.WeekDayEnum.exMonday;
DisplayWeekNumberAs := EXSCHEDULELib.WeekNumberAsEnum.exISO8601WeekNumber;
end;
EndUpdate();
end
|
|
232
|
How do I hide the week number
with AxSchedule1 do
begin
BeginUpdate();
with Calendar do
begin
FirstWeekDay := EXSCHEDULELib.WeekDayEnum.exMonday;
ShowWeeks := False;
ShowNonMonthDays := False;
end;
EndUpdate();
end
|
|
231
|
How can I change the background color of the all day header
with AxSchedule1 do
begin
BeginUpdate();
OnResizeControl := EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide;
ShowAllDayHeader := True;
with Calendar do
begin
FirstWeekDay := EXSCHEDULELib.WeekDayEnum.exMonday;
SelectDate['5/8/2012'] := True;
Select(EXSCHEDULELib.SelectCalendarDateEnum.exSelectWeek);
SelectDate['5/15/2012'] := False;
Select(Integer(EXSCHEDULELib.SelectCalendarDateEnum.exSelectToggle) Or Integer(EXSCHEDULELib.SelectCalendarDateEnum.exSelectWeek));
end;
set_Background(EXSCHEDULELib.BackgroundPartEnum.exScheduleAllDayHeaderBackColor,$f0f0f0);
HeaderAllDayEventHeight := -20;
Events.Add('5/8/2012','5/17/2012').AllDayEvent := True;
EndUpdate();
end
|
|
230
|
How can I display a single text on a specified date
with AxSchedule1 do
begin
BeginUpdate();
Calendar.Selection := '5/26/2012';
Calendar.Selection := 'value in (#05/23/2012#,#05/24/2012#,#05/25/2012#)';
NonworkingPatterns.Add(1234,EXSCHEDULELib.PatternEnum.exPatternEmpty).BackgroundExt := '[text=`<font ;6><fgcolor 808080>just a notice`,align=0x11]';
NonworkingTimes.Add('value = #05/25/2012#','09:00','10:00',1234);
EndUpdate();
end
|
|
229
|
I am using the control's DataSource property, the question is how can I get the event's identifier Datafield(exEventID)
with AxSchedule1 do
begin
rs := (ComObj.CreateComObject(ComObj.ProgIDToClassID('ADOR.Recordset')) as ADODB.Recordset);
with rs do
begin
Open('Events','Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExSchedule\Sample\Access2007\datasource.accdb',3,3,Nil);
end;
BeginUpdate();
Calendar.Selection := '11/11/2013';
set_DataField(EXSCHEDULELib.EventKnownPropertyEnum.exEventStartDateTime,'Start');
set_DataField(EXSCHEDULELib.EventKnownPropertyEnum.exEventEndDateTime,'End');
set_DataField(EXSCHEDULELib.EventKnownPropertyEnum.exEventExtraLabel,'Extra');
DataSource := (rs as ADODB.Recordset);
OutputDebugString( Events.Item[TObject(1)].KnownProperty[EXSCHEDULELib.EventKnownPropertyEnum.exEventID] );
EndUpdate();
end
|
|
228
|
Is it possible to display some text/image on the schedule's view background
with AxSchedule1 do
begin
BeginUpdate();
Calendar.Selection := '5/25/2012';
NonworkingPatterns.Add(1234,EXSCHEDULELib.PatternEnum.exPatternBDiagonal).BackgroundExt := '[text=`<fgcolor 808080>just a caption`,align=0x11]';
NonworkingPatterns.Add(1235,EXSCHEDULELib.PatternEnum.exPatternEmpty).BackgroundExt := '[text=`<fgcolor 808080>just another caption`,align=0x11]';
NonworkingTimes.Add('weekday(value) = 5','08:00','08:59:59',1234);
NonworkingTimes.Add('weekday(value) = 5','09:00','09:59:59',1235);
NonworkingTimes.Add('weekday(value) = 5','10:00','10:59:59',1234);
EndUpdate();
end
|
|
227
|
How can I display a text on the schedule's view background
with AxSchedule1 do
begin
BeginUpdate();
Calendar.Selection := '5/25/2012';
NonworkingPatterns.Add(1234,EXSCHEDULELib.PatternEnum.exPatternEmpty).BackgroundExt := '[text=`<fgcolor 808080>just a caption`,align=0x11]';
NonworkingTimes.Add('weekday(value) = 5','12:00','13:00',1234);
EndUpdate();
end
|
|
226
|
Is it possible to change the visual appearance of the edit's context menu
with AxSchedule1 do
begin
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
set_Background(EXSCHEDULELib.BackgroundPartEnum.exContextMenuAppearance,$1000000);
end
|
|
225
|
How do I customize the edit's context menu
with AxSchedule1 do
begin
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
EditContextMenuItems := 'Insert[group=3](<img>1</img>[id=57763],<img>2</img>[id=57763])';
end
|
|
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.
procedure TWinForm1.AxSchedule1_LayoutEndChanging(sender: System.Object; e: AxEXSCHEDULELib._IScheduleEvents_LayoutEndChangingEvent);
begin
with AxSchedule1 do
begin
OutputDebugString( e.operation );
DayViewHeight := 2016;
end
end;
with AxSchedule1 do
begin
BeginUpdate();
with Calendar do
begin
SelectDate['5/20/2012'] := True;
Select(EXSCHEDULELib.SelectCalendarDateEnum.exSelectWeek);
end;
ScrollBars := EXSCHEDULELib.ScrollBarsEnum.exVertical;
ShowViewCompact := EXSCHEDULELib.ShowViewCompactEnum.exViewSingleRowLockHeader;
DayViewHeight := 2016;
AllowMoveSchedule := EXSCHEDULELib.AllowKeysEnum.exDisallow;
AllowResizeSchedule := EXSCHEDULELib.AllowKeysEnum.exDisallow;
AllowToggleSchedule := EXSCHEDULELib.AllowKeysEnum.exDisallow;
AllowExchangePanels := EXSCHEDULELib.AllowKeysEnum.exDisallow;
AllowMoveTimeScale := EXSCHEDULELib.AllowKeysEnum.exDisallow;
AllowResizeTimeScale := EXSCHEDULELib.AllowKeysEnum.exDisallow;
AllowMultiDaysEvent := False;
TimeScales.Item[TObject(0)].MinorTimeRuler := '00:10';
DayStartTime := '00:00';
DayEndTime := '24:00';
OnResizeControl := Integer(EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide) Or Integer(EXSCHEDULELib.OnResizeControlEnum.exCalendarFit) Or Integer(EXSCHEDULELib.OnResizeControlEnum.exResizePanelRight);
EndUpdate();
end
|
|
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
with AxSchedule1 do
begin
BeginUpdate();
with Calendar do
begin
SelectDate['5/20/2012'] := True;
Select(EXSCHEDULELib.SelectCalendarDateEnum.exSelectWeek);
end;
OnResizeControl := Integer(EXSCHEDULELib.OnResizeControlEnum.exChangePanels) Or Integer(EXSCHEDULELib.OnResizeControlEnum.exHideSplitter);
ScrollBars := EXSCHEDULELib.ScrollBarsEnum.exVertical;
ShowViewCompact := EXSCHEDULELib.ShowViewCompactEnum.exViewSingleRow;
DayViewHeight := 2016;
AllowMoveSchedule := EXSCHEDULELib.AllowKeysEnum.exDisallow;
AllowResizeSchedule := EXSCHEDULELib.AllowKeysEnum.exDisallow;
AllowToggleSchedule := EXSCHEDULELib.AllowKeysEnum.exDisallow;
AllowExchangePanels := EXSCHEDULELib.AllowKeysEnum.exDisallow;
AllowMoveTimeScale := EXSCHEDULELib.AllowKeysEnum.exDisallow;
AllowResizeTimeScale := EXSCHEDULELib.AllowKeysEnum.exDisallow;
AllowMultiDaysEvent := False;
set_Background(EXSCHEDULELib.BackgroundPartEnum.exScheduleBorderSelColor,get_Background(EXSCHEDULELib.BackgroundPartEnum.exScheduleBorderSelColorUnFocus));
TimeScales.Item[TObject(0)].MinorTimeRuler := '00:10';
DayStartTime := '00:00';
DayEndTime := '24:00';
EndUpdate();
end
|
|
222
|
How can I show a single week, no calendar
with AxSchedule1 do
begin
BeginUpdate();
with Calendar do
begin
SelectDate['5/20/2012'] := True;
Select(EXSCHEDULELib.SelectCalendarDateEnum.exSelectWeek);
end;
OnResizeControl := Integer(EXSCHEDULELib.OnResizeControlEnum.exChangePanels) Or Integer(EXSCHEDULELib.OnResizeControlEnum.exHideSplitter);
ScrollBars := EXSCHEDULELib.ScrollBarsEnum.exNoScroll;
ShowViewCompact := EXSCHEDULELib.ShowViewCompactEnum.exViewSingleRow;
AllowMoveSchedule := EXSCHEDULELib.AllowKeysEnum.exDisallow;
AllowResizeSchedule := EXSCHEDULELib.AllowKeysEnum.exDisallow;
AllowToggleSchedule := EXSCHEDULELib.AllowKeysEnum.exDisallow;
AllowExchangePanels := EXSCHEDULELib.AllowKeysEnum.exDisallow;
AllowMoveTimeScale := EXSCHEDULELib.AllowKeysEnum.exDisallow;
AllowResizeTimeScale := EXSCHEDULELib.AllowKeysEnum.exDisallow;
AllowMultiDaysEvent := False;
set_Background(EXSCHEDULELib.BackgroundPartEnum.exScheduleBorderSelColor,get_Background(EXSCHEDULELib.BackgroundPartEnum.exScheduleBorderSelColorUnFocus));
EndUpdate();
end
|
|
221
|
How do I select the dates within a giving interval only
with AxSchedule1 do
begin
BeginUpdate();
with Calendar do
begin
Selection := '5/1/2012';
Selection := '(value >= #5/13/2012#) and (value <= #5/26/2012#)';
end;
with Events do
begin
Add('5/24/2012 9:00:00 AM','5/24/2012 12:00:00 PM');
Add('5/24/2012 10:45:00 AM','5/24/2012 12:45:00 PM');
Add('5/24/2012 11:30:00 AM','5/24/2012 2:30:00 PM');
Add('5/24/2012 12:45:00 PM','5/24/2012 3:45:00 PM');
end;
EndUpdate();
end
|
|
220
|
How do I display the dates within a giving interval only
with AxSchedule1 do
begin
BeginUpdate();
with Calendar do
begin
Selection := '5/24/2012';
MinDate := '5/13/2012';
MaxDate := '5/26/2012';
end;
with Events do
begin
Add('5/24/2012 9:00:00 AM','5/24/2012 12:00:00 PM');
Add('5/24/2012 10:45:00 AM','5/24/2012 12:45:00 PM');
Add('5/24/2012 11:30:00 AM','5/24/2012 2:30:00 PM');
Add('5/24/2012 12:45:00 PM','5/24/2012 3:45:00 PM');
end;
EndUpdate();
end
|
|
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
with AxSchedule1 do
begin
DayStartTime := '00:00';
DayEndTime := '24:00';
with TimeScales.Item[TObject(0)] do
begin
MajorTimeLabel := '<%hh%>:<%nn%>';
Width := 32;
end;
end
|
|
218
|
How do I show a double frame
with AxSchedule1 do
begin
SelectEventStyle := EXSCHEDULELib.LinesStyleEnum.exLinesSolid;
Calendar.Selection := '1/10/2001';
DefaultEventLongLabel := '';
DefaultEventShortLabel := '';
with Events do
begin
with Add('1/10/2001 8:00:00 AM','1/10/2001 10:00:00 AM') do
begin
BodyBackgroundExt := '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=R' +
'GB(0,0,0)]';
BodyBackgroundExtValue[EXSCHEDULELib.IndexExtEnum.exIndexExt1,EXSCHEDULELib.BackgroundExtPropertyEnum.exBackColorExt] := TObject(255);
BodyBackgroundExtValue[EXSCHEDULELib.IndexExtEnum.exIndexExt1,EXSCHEDULELib.BackgroundExtPropertyEnum.exClientExt] := '35%';
end;
with Add('1/10/2001 10:00:00 AM','1/10/2001 12:00:00 PM') do
begin
BodyBackgroundExt := 'top[25%,back=RGB(255,0,0),align=0x22],client[back=RGB(255,255,0),align=0x22]';
BodyBackgroundExtValue[EXSCHEDULELib.IndexExtEnum.exIndexExt1,EXSCHEDULELib.BackgroundExtPropertyEnum.exClientExt] := '35%';
BodyBackgroundExtValue[EXSCHEDULELib.IndexExtEnum.exIndexExt2,EXSCHEDULELib.BackgroundExtPropertyEnum.exBackColorExt] := TObject(65535);
end;
with Add('1/10/2001 12:00:00 PM','1/10/2001 2:00:00 PM') do
begin
ShowStatus := False;
BodyBackgroundExt := '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)]';
end;
with Add('1/10/2001 2:00:00 PM','1/10/2001 4:00:00 PM') do
begin
ShowStatus := False;
BodyBackgroundExt := '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,frame' +
'=RGB(0,0,0)]';
end;
end;
end
|
|
217
|
How can I add more colors on the event
with AxSchedule1 do
begin
SelectEventStyle := EXSCHEDULELib.LinesStyleEnum.exLinesSolid;
Calendar.Selection := '1/10/2001';
with Events do
begin
Add('1/10/2001 9:00:00 AM','1/10/2001 12:30:00 PM').BodyBackgroundExt := 'bottom[15%](left[65%,frame,back=RGB(128,255,255)],client[back=RGB(255,0,0),frame])';
Add('1/10/2001 10:00:00 AM','1/10/2001 1:00:00 PM').BodyBackgroundExt := 'right[15%](bottom[35%,frame,back=RGB(128,255,255)],client[back=RGB(255,0,0),frame])';
Add('1/10/2001 11:00:00 AM','1/10/2001 2:00:00 PM').BodyBackgroundExt := '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)],client' +
'[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)])';
end;
end
|
|
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
with AxSchedule1 do
begin
with Calendar do
begin
AlignDate := False;
MinMonthY := 2;
MaxMonthY := 2;
end;
end
|
|
215
|
How can I bound the control to a data source
// Error event - Fired when an internal error occurs.
procedure TWinForm1.AxSchedule1_Error(sender: System.Object; e: AxEXSCHEDULELib._IScheduleEvents_ErrorEvent);
begin
with AxSchedule1 do
begin
OutputDebugString( e.description );
end
end;
with AxSchedule1 do
begin
rs := (ComObj.CreateComObject(ComObj.ProgIDToClassID('ADOR.Recordset')) as ADODB.Recordset);
with rs do
begin
Open('Events','Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExSchedule\Sample\Access2007\datasource.accdb',3,3,Nil);
end;
BeginUpdate();
Calendar.Selection := '11/11/2013';
set_DataField(EXSCHEDULELib.EventKnownPropertyEnum.exEventStartDateTime,'Start');
set_DataField(EXSCHEDULELib.EventKnownPropertyEnum.exEventEndDateTime,'End');
set_DataField(EXSCHEDULELib.EventKnownPropertyEnum.exEventExtraLabel,'Extra');
DataSource := (rs as ADODB.Recordset);
EndUpdate();
end
|
|
214
|
How can I start drag and drop an event
// OLEStartDrag event - Occurs when the OLEDrag method is called.
procedure TWinForm1.AxSchedule1_OLEStartDrag(sender: System.Object; e: AxEXSCHEDULELib._IScheduleEvents_OLEStartDragEvent);
begin
// Data.SetData( "your data to be dragged" )
with AxSchedule1 do
begin
e.allowedEffects := 1;
end
end;
with AxSchedule1 do
begin
BeginUpdate();
OLEDropMode := EXSCHEDULELib.exOLEDropModeEnum.exOLEDropManual;
SelectEventStyle := EXSCHEDULELib.LinesStyleEnum.exLinesSolid;
DefaultEventLongLabel := '<%=%256%><br><%=%5%>';
DefaultEventShortLabel := DefaultEventLongLabel;
Calendar.Selection := '1/10/2001';
OnResizeControl := Integer(EXSCHEDULELib.OnResizeControlEnum.exCalendarAutoHide) Or Integer(EXSCHEDULELib.OnResizeControlEnum.exCalendarFit) Or Integer(EXSCHEDULELib.OnResizeControlEnum.exResizePanelRight);
Events.Add('1/10/2001 9:00:00 AM','1/10/2001 12:30:00 PM').ExtraLabel := 'Click the event and wait to start dragging.';
EndUpdate();
end
|
|
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
with AxSchedule1 do
begin
ShowHighlightDate := Integer(EXSCHEDULELib.ShowHighlightDateEnum.exHighlightDateCalendarEllipticClip) Or Integer(EXSCHEDULELib.ShowHighlightDateEnum.exHighlightDateCalendarGradient) Or Integer(EXSCHEDULELib.ShowHighlightDateEnum.exShowHighlightDateCalendar);
Calendar.Selection := '1/1/2001';
set_HighlightDate('1/9/2001',TObject(65280));
set_HighlightDate('1/17/2001','65280,255');
set_HighlightDate('1/25/2001','255,65280,16711680');
end
|
|
212
|
How can I arrange the colors to highlight the date vertically
with AxSchedule1 do
begin
ShowHighlightDate := Integer(EXSCHEDULELib.ShowHighlightDateEnum.exHighlightDateVertical) Or Integer(EXSCHEDULELib.ShowHighlightDateEnum.exShowHighlightDateCalendar);
Calendar.Selection := '1/1/2001';
set_HighlightDate('1/9/2001',TObject(65280));
set_HighlightDate('1/17/2001','65280,255');
set_HighlightDate('1/25/2001','255,65280,16711680');
end
|
|
211
|
Is it possible to highlight a date in gradient
with AxSchedule1 do
begin
ShowHighlightDate := Integer(EXSCHEDULELib.ShowHighlightDateEnum.exHighlightDateCalendarGradient) Or Integer(EXSCHEDULELib.ShowHighlightDateEnum.exShowHighlightDateCalendar);
Calendar.Selection := '1/1/2001';
set_HighlightDate('1/9/2001',TObject(65280));
set_HighlightDate('1/17/2001','65280,255');
set_HighlightDate('1/25/2001','255,65280,16711680');
end
|
|
210
|
Is it possible to highlight a date in the calendar panel only
with AxSchedule1 do
begin
ShowHighlightDate := EXSCHEDULELib.ShowHighlightDateEnum.exShowHighlightDateCalendar;
Calendar.Selection := '1/1/2001';
set_HighlightDate('1/9/2001',TObject(65280));
set_HighlightDate('1/17/2001','65280,255');
set_HighlightDate('1/25/2001','255,65280,16711680');
end
|
|
209
|
Is it possible to highlight a date in the control
with AxSchedule1 do
begin
ShowHighlightDate := EXSCHEDULELib.ShowHighlightDateEnum.exShowHighlightDate;
Calendar.Selection := '1/25/2001';
set_HighlightDate('1/9/2001',TObject(65280));
set_HighlightDate('1/17/2001','65280,255');
set_HighlightDate('1/25/2001','255,65280,16711680');
end
|
|
208
|
How we need to put "nonworking time" to each group, because staff A is working different times then staff B. Is this possible
with AxSchedule1 do
begin
BeginUpdate();
BodyEventBackColor := Color.FromArgb(240,240,240);
ShowGroupingEvents := True;
DisplayGroupingButton := True;
Groups.Add(1,'Group 1').Visible := True;
Groups.Add(2,'Group 2').Visible := True;
Calendar.Selection := '5/25/2012';
NonworkingPatterns.Add(1234,EXSCHEDULELib.PatternEnum.exPatternBrick);
with NonworkingTimes do
begin
Add('1','00:00','08:45',1234);
Add('weekday(value) = 5','10:00','11:45',1).GroupID := TObject(1);
Add('weekday(value) = 5','12:00','13:00',1234).GroupID := TObject(2);
end;
Events.Add('5/25/2012 9:30:00 AM','5/25/2012 1:00:00 PM').GroupID := 1;
EndUpdate();
end
|
|
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.
procedure TWinForm1.AxSchedule1_DblClick(sender: System.Object; e: AxEXSCHEDULELib._IScheduleEvents_DblClickEvent);
begin
with AxSchedule1 do
begin
OutputDebugString( 'DblClick ' );
OutputDebugString( e.x );
OutputDebugString( e.y );
end
end;
with AxSchedule1 do
begin
BeginUpdate();
Calendar.Selection := '5/24/2012';
with Events do
begin
Add('5/24/2012 10:00:00 AM','5/24/2012 12:00:00 PM');
Add('5/24/2012 10:45:00 AM','5/24/2012 12:30:00 PM').StatusColor := $ff;
Add('5/24/2012 11:30:00 AM','5/24/2012 1:30:00 PM');
end;
AllowEditEvent := EXSCHEDULELib.AllowKeysEnum.exDisallow;
AllowToggleSchedule := EXSCHEDULELib.AllowKeysEnum.exDisallow;
EndUpdate();
end
|
|
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
with AxSchedule1 do
begin
DayEndTime := '13:00';
with TimeScales.Add('+3:00') do
begin
AlignLeft := True;
Caption := 'EST <b>+03';
end;
BeginUpdate();
Calendar.Selection := '5/24/2012';
UpdateEventsLabel := 'Start: <%=date(%1+3/24)%><br>End: <%=date(%2+3/24)%>';
with Events do
begin
Add('5/24/2012 10:00:00 AM','5/24/2012 12:00:00 PM');
Add('5/24/2012 10:45:00 AM','5/24/2012 12:30:00 PM');
Add('5/24/2012 11:30:00 AM','5/24/2012 1:30:00 PM');
end;
EndUpdate();
end
|
|
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.
procedure TWinForm1.AxSchedule1_AnchorClick(sender: System.Object; e: AxEXSCHEDULELib._IScheduleEvents_AnchorClickEvent);
begin
with AxSchedule1 do
begin
OutputDebugString( e.anchorID );
OutputDebugString( e.options );
end
end;
with AxSchedule1 do
begin
Calendar.Selection := '6/20/2012';
with Events do
begin
Add('6/20/2012 9:00:00 AM','6/20/2012 11:00:00 AM').LongLabel := '<%=%256%><br><a 1234;option 1>more ...</a>';
Add('6/20/2012 11:00:00 AM','6/20/2012 1:00:00 PM').LongLabel := '<%=%256%><br><a 1235;option 2>more ...</a>';
end;
end
|
|
204
|
Can I have multiple months in the calendar section
with AxSchedule1 do
begin
with Calendar do
begin
MinMonthY := 2;
MaxMonthY := 2;
end;
end
|
|
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
with AxSchedule1 do
begin
Calendar.Selection := '6/20/2012';
with Events do
begin
with Add('6/20/2012 9:00:00 AM','6/20/2012 11:00:00 AM') do
begin
UserData := TObject(1234);
ShortLabel := '<%=%256%><br>Order: <%=%6%>';
LongLabel := ShortLabel;
end;
with Add('6/20/2012 11:00:00 AM','6/20/2012 1:00:00 PM') do
begin
UserData := TObject(1235);
ShortLabel := '<%=%256%>, Order: <%=%6%>';
LongLabel := ShortLabel;
end;
end;
end
|
|
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
with AxSchedule1 do
begin
Calendar.Selection := '6/20/2012';
DefaultEventShortLabel := '<%=%256%><br>Order: <b><%=%6%>';
DefaultEventLongLabel := DefaultEventShortLabel;
with Events do
begin
Add('6/20/2012 9:00:00 AM','6/20/2012 11:00:00 AM').UserData := TObject(1234);
Add('6/20/2012 11:00:00 AM','6/20/2012 1:00:00 PM').UserData := TObject(1235);
end;
end
|
|
201
|
Can you add text with links in the event
// AnchorClick event - Occurs when an anchor element is clicked.
procedure TWinForm1.AxSchedule1_AnchorClick(sender: System.Object; e: AxEXSCHEDULELib._IScheduleEvents_AnchorClickEvent);
begin
with AxSchedule1 do
begin
OutputDebugString( e.anchorID );
OutputDebugString( e.options );
end
end;
with AxSchedule1 do
begin
Calendar.Selection := '6/20/2012';
with Events do
begin
with Add('6/20/2012 9:00:00 AM','6/20/2012 11:00:00 AM') do
begin
ShortLabel := '<a 1><%=%256%></a>';
LongLabel := ShortLabel;
end;
with Add('6/20/2012 11:00:00 AM','6/20/2012 1:00:00 PM') do
begin
ShortLabel := '<a 2><%=%256%></a>';
LongLabel := ShortLabel;
end;
end;
end
|