|
325
|
Clear Undo/Redo queue (method 2)
local var_Events as IEvents
local c as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:AllowUndoRedo := true
oDCOCX_Exontrol1:Calendar:Selection := SToD("20010110")
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20010110 10:00:00"),SToD("20010110 11:30:00"))
var_Events:Add(SToD("20010110 09:00:00"),SToD("20010110 12:30:00"))
c := oDCOCX_Exontrol1:UndoRedoQueueLength
oDCOCX_Exontrol1:UndoRedoQueueLength := 0
oDCOCX_Exontrol1:UndoRedoQueueLength := c
OutputDebugString(String2Psz( oDCOCX_Exontrol1:[UndoListAction,nil,nil] ))
oDCOCX_Exontrol1:EndUpdate()
|
|
324
|
Clear Undo/Redo queue (method 1)
local var_Events as IEvents
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:AllowUndoRedo := true
oDCOCX_Exontrol1:Calendar:Selection := SToD("20010110")
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20010110 10:00:00"),SToD("20010110 11:30:00"))
var_Events:Add(SToD("20010110 09:00:00"),SToD("20010110 12:30:00"))
oDCOCX_Exontrol1:AllowUndoRedo := true
OutputDebugString(String2Psz( oDCOCX_Exontrol1:[UndoListAction,nil,nil] ))
oDCOCX_Exontrol1:EndUpdate()
|
|
323
|
Removes Redo operations
local var_Events as IEvents
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:AllowUndoRedo := true
oDCOCX_Exontrol1:Calendar:Selection := SToD("20010110")
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20010110 10:00:00"),SToD("20010110 11:30:00"))
var_Events:Add(SToD("20010110 09:00:00"),SToD("20010110 12:30:00"))
oDCOCX_Exontrol1:Undo()
oDCOCX_Exontrol1:RedoRemoveAction(13,nil)
OutputDebugString(String2Psz( oDCOCX_Exontrol1:[RedoListAction,nil,nil] ))
oDCOCX_Exontrol1:EndUpdate()
|
|
322
|
Removes Undo operations
local var_Events as IEvents
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:AllowUndoRedo := true
oDCOCX_Exontrol1:Calendar:Selection := SToD("20010110")
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20010110 10:00:00"),SToD("20010110 11:30:00"))
var_Events:Add(SToD("20010110 09:00:00"),SToD("20010110 12:30:00"))
oDCOCX_Exontrol1:UndoRemoveAction(13,nil)
OutputDebugString(String2Psz( oDCOCX_Exontrol1:[UndoListAction,nil,nil] ))
oDCOCX_Exontrol1:EndUpdate()
|
|
321
|
Record the UI operations as a block of undo/redo operations
local var_Events as IEvents
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:AllowUndoRedo := true
oDCOCX_Exontrol1:Calendar:Selection := SToD("20010110")
oDCOCX_Exontrol1:StartBlockUndoRedo()
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20010110 10:00:00"),SToD("20010110 11:30:00"))
var_Events:Add(SToD("20010110 09:00:00"),SToD("20010110 12:30:00"))
oDCOCX_Exontrol1:EndBlockUndoRedo()
OutputDebugString(String2Psz( oDCOCX_Exontrol1:[UndoListAction,nil,nil] ))
oDCOCX_Exontrol1:EndUpdate()
|
|
320
|
Groups the next to current Undo/Redo Actions in a single block
local var_Events as IEvents
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:AllowUndoRedo := true
oDCOCX_Exontrol1:Calendar:Selection := SToD("20010110")
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20010110 10:00:00"),SToD("20010110 11:30:00"))
var_Events:Add(SToD("20010110 09:00:00"),SToD("20010110 12:30:00"))
oDCOCX_Exontrol1:GroupUndoRedoActions(2)
OutputDebugString(String2Psz( oDCOCX_Exontrol1:[UndoListAction,nil,nil] ))
oDCOCX_Exontrol1:EndUpdate()
|
|
319
|
Limits the number of entries within the Undo/Redo queue
local var_Events as IEvents
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:AllowUndoRedo := true
oDCOCX_Exontrol1:Calendar:Selection := SToD("20010110")
oDCOCX_Exontrol1:UndoRedoQueueLength := 1
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20010110 10:00:00"),SToD("20010110 11:30:00"))
var_Events:Add(SToD("20010110 09:00:00"),SToD("20010110 12:30:00"))
OutputDebugString(String2Psz( oDCOCX_Exontrol1:[UndoListAction,nil,nil] ))
oDCOCX_Exontrol1:EndUpdate()
|
|
318
|
Lists the Redo actions that can be performed on the control
local var_Events as IEvents
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:AllowUndoRedo := true
oDCOCX_Exontrol1:Calendar:Selection := SToD("20010110")
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20010110 10:00:00"),SToD("20010110 11:30:00"))
var_Events:Add(SToD("20010110 09:00:00"),SToD("20010110 12:30:00"))
oDCOCX_Exontrol1:Undo()
OutputDebugString(String2Psz( oDCOCX_Exontrol1:[RedoListAction,nil,nil] ))
oDCOCX_Exontrol1:EndUpdate()
|
|
317
|
Lists the Undo actions that can be performed on the control
local var_Events as IEvents
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:AllowUndoRedo := true
oDCOCX_Exontrol1:Calendar:Selection := SToD("20010110")
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20010110 10:00:00"),SToD("20010110 11:30:00"))
var_Events:Add(SToD("20010110 09:00:00"),SToD("20010110 12:30:00"))
OutputDebugString(String2Psz( oDCOCX_Exontrol1:[UndoListAction,nil,nil] ))
oDCOCX_Exontrol1:EndUpdate()
|
|
316
|
Checks whether the Undo operation is possible
local var_Events as IEvents
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:AllowUndoRedo := true
oDCOCX_Exontrol1:Calendar:Selection := SToD("20010110")
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20010110 10:00:00"),SToD("20010110 11:30:00"))
var_Events:Add(SToD("20010110 09:00:00"),SToD("20010110 12:30:00"))
oDCOCX_Exontrol1:Undo()
OutputDebugString(String2Psz( "CanRedo" ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:CanRedo) ))
oDCOCX_Exontrol1:EndUpdate()
|
|
315
|
Call Redo by code
local var_Events as IEvents
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:AllowUndoRedo := true
oDCOCX_Exontrol1:Calendar:Selection := SToD("20010110")
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20010110 10:00:00"),SToD("20010110 11:30:00"))
var_Events:Add(SToD("20010110 09:00:00"),SToD("20010110 12:30:00"))
oDCOCX_Exontrol1:Undo()
oDCOCX_Exontrol1:Redo()
oDCOCX_Exontrol1:EndUpdate()
|
|
314
|
Checks whether the Undo operation is possible
local var_Events as IEvents
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:AllowUndoRedo := true
oDCOCX_Exontrol1:Calendar:Selection := SToD("20010110")
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20010110 10:00:00"),SToD("20010110 11:30:00"))
var_Events:Add(SToD("20010110 09:00:00"),SToD("20010110 12:30:00"))
OutputDebugString(String2Psz( "CanUndo" ))
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:CanUndo) ))
oDCOCX_Exontrol1:EndUpdate()
|
|
313
|
Call Undo by code
local var_Events as IEvents
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:AllowUndoRedo := true
oDCOCX_Exontrol1:Calendar:Selection := SToD("20010110")
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20010110 10:00:00"),SToD("20010110 11:30:00"))
var_Events:Add(SToD("20010110 09:00:00"),SToD("20010110 12:30:00"))
oDCOCX_Exontrol1:Undo()
oDCOCX_Exontrol1:EndUpdate()
|
|
312
|
Save the calendar-event's properties for Undo/Redo operations, by code
local var_Event as IEvent
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:AllowUndoRedo := true
oDCOCX_Exontrol1:Calendar:Selection := SToD("20010110")
oDCOCX_Exontrol1:Events:Add(SToD("20010110 10:00:00"),SToD("20010110 11:30:00"))
oDCOCX_Exontrol1:StartBlockUndoRedo()
var_Event := oDCOCX_Exontrol1:Events:Add(SToD("20010110 09:00:00"),SToD("20010110 12:30:00"))
h := var_Event:StartUpdateEvent
var_Event:BodyBackColor := RGB(0,0,1)
var_Event:BodyForeColor := RGB(255,255,255)
var_Event:StatusColor := RGB(255,0,0)
var_Event:EndUpdateEvent(h)
oDCOCX_Exontrol1:EndBlockUndoRedo()
oDCOCX_Exontrol1:EndUpdate()
|
|
311
|
No color is restored for the calendar-event when Undo/Redo operation is performed
local var_Event as IEvent
local h as USUAL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:AllowUndoRedo := true
oDCOCX_Exontrol1:Calendar:Selection := SToD("20010110")
oDCOCX_Exontrol1:Events:Add(SToD("20010110 10:00:00"),SToD("20010110 11:30:00"))
oDCOCX_Exontrol1:StartBlockUndoRedo()
var_Event := oDCOCX_Exontrol1:Events:Add(SToD("20010110 09:00:00"),SToD("20010110 12:30:00"))
h := var_Event:StartUpdateEvent
var_Event:BodyBackColor := RGB(0,0,1)
var_Event:BodyForeColor := RGB(255,255,255)
var_Event:StatusColor := RGB(255,0,0)
var_Event:EndUpdateEvent(h)
oDCOCX_Exontrol1:EndBlockUndoRedo()
oDCOCX_Exontrol1:EndUpdate()
|
|
310
|
How can I ensure that a specified calendar-event fits the control's visible area
local var_Events as IEvents
local var_Pattern as IPattern
var_Events := oDCOCX_Exontrol1:Events
var_Pattern := var_Events:Add(SToD("20010110 09:00:00"),SToD("20010110 12:30:00")):BodyPattern
var_Pattern:Type := exPatternBDiagonal
var_Pattern:Color := RGB(224,224,224)
var_Events:Add(SToD("20010110 09:00:00"),SToD("20010110 12:30:00")):EnsureVisible()
|
|
309
|
LayoutEndChanging(exUndo), LayoutEndChanging(exRedo) or LayoutEndChanging(exUndoRedoUpdate) notifiy your application once a Undo/Redo operation is executed (CTRL+Z, CTRL+Y) or updated
METHOD OCX_Exontrol1LayoutEndChanging(Operation) CLASS MainDialog
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
OutputDebugString(String2Psz( "LayoutEndChanging" ))
OutputDebugString(String2Psz( AsString(Operation) ))
RETURN NIL
local var_Events as IEvents
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:AllowUndoRedo := true
oDCOCX_Exontrol1:Calendar:Selection := SToD("20010110")
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20010110 09:00:00"),SToD("20010110 12:30:00"))
var_Events:Add(SToD("20010110 09:00:00"),SToD("20010110 12:30:00"))
oDCOCX_Exontrol1:EndUpdate()
|
|
308
|
Turn on the Undo/Redo feature
local var_Events as IEvents
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:AllowUndoRedo := true
oDCOCX_Exontrol1:Calendar:Selection := SToD("20010110")
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20010110 09:00:00"),SToD("20010110 12:30:00"))
var_Events:Add(SToD("20010110 09:00:00"),SToD("20010110 12:30:00"))
oDCOCX_Exontrol1:EndUpdate()
|
|
307
|
How can I make the header (date/group) always visible, so it stays on the top while the user scrolls the chart
METHOD OCX_Exontrol1LayoutEndChanging(Operation) CLASS MainDialog
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
OutputDebugString(String2Psz( AsString(Operation) ))
oDCOCX_Exontrol1:DayViewHeight := 2016
RETURN NIL
local var_Calendar as ICalendar
local var_Events as IEvents
local var_Group,var_Group1 as IGroup
local var_Groups as IGroups
oDCOCX_Exontrol1:BeginUpdate()
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:[SelectDate,SToD("20120520")] := true
var_Calendar:Select(exSelectWeek)
oDCOCX_Exontrol1:ScrollBars := exVertical
oDCOCX_Exontrol1:ShowViewCompact := exViewSingleRowLockHeader
oDCOCX_Exontrol1:DayViewHeight := 2016
oDCOCX_Exontrol1:TimeScales:[Item,0]:MinorTimeRuler := "00:10"
oDCOCX_Exontrol1:DayStartTime := "00:00"
oDCOCX_Exontrol1:DayEndTime := "24:00"
oDCOCX_Exontrol1:OnResizeControl := exCalendarAutoHide | exCalendarFit | exResizePanelRight
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120524")
oDCOCX_Exontrol1:DisplayGroupingButton := true
oDCOCX_Exontrol1:ShowGroupingEvents := true
oDCOCX_Exontrol1:ApplyGroupingColors := false
var_Groups := oDCOCX_Exontrol1:Groups
var_Group := var_Groups:Add(1,"Group 1")
var_Group:Visible := true
var_Group:EventBackColor := RGB(128,128,128)
var_Group:Title := "1'st Group"
var_Group1 := var_Groups:Add(2,"Group 2")
var_Group1:Visible := true
var_Group1:EventBackColor := RGB(255,0,0)
var_Group1:Title := "2'nd Group"
oDCOCX_Exontrol1:DefaultEventLongLabel := "<%=%256%><br>Group's Caption: <b><%=%262%></b><br>Group's Title: <b><%=%263%></b>"
oDCOCX_Exontrol1:DefaultEventShortLabel := oDCOCX_Exontrol1:DefaultEventLongLabel
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120524 01:00:00"),SToD("20120524 02:00:00")):GroupID := 1
var_Events:Add(SToD("20120524 01:45:00"),SToD("20120524 02:30:00")):GroupID := 2
var_Events:Add(SToD("20120524 02:30:00"),SToD("20120524 04:30:00")):GroupID := 1
oDCOCX_Exontrol1:EndUpdate()
|
|
306
|
It appears that Width property of the Group does not what. What am I doing wrong
local var_Events as IEvents
local var_Group,var_Group1,var_Group2 as IGroup
local var_Groups as IGroups
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Calendar:Selection := SToD("20010110")
oDCOCX_Exontrol1:DisplayGroupingButton := true
oDCOCX_Exontrol1:ShowGroupingEvents := true
oDCOCX_Exontrol1:OnResizeControl := exCalendarAutoHide | exCalendarFit | exResizePanelRight
var_Groups := oDCOCX_Exontrol1:Groups
var_Group := var_Groups:Add(1,"Group 1")
var_Group:Title := "First"
var_Group:Visible := true
var_Group1 := var_Groups:Add(2,"Group 2")
var_Group1:Title := "Second"
var_Group1:Visible := true
var_Group2 := var_Groups:Add(3,"Group 3")
var_Group2:Title := "Third"
var_Group2:Visible := true
oDCOCX_Exontrol1:DayViewWidth := 144
oDCOCX_Exontrol1:Groups:[Item,1]:Width := 48
oDCOCX_Exontrol1:Groups:[Item,2]:Width := 48
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20010110 09:00:00"),SToD("20010110 12:30:00")):GroupID := 1
var_Events:Add(SToD("20010110 10:00:00"),SToD("20010110 13:00:00")):GroupID := 2
oDCOCX_Exontrol1:EndUpdate()
|
|
305
|
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)
local var_Events as IEvents
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120524")
oDCOCX_Exontrol1:ImageSize := 32
oDCOCX_Exontrol1:Font:Size := 16
oDCOCX_Exontrol1:EventsFont:Size := 16
oDCOCX_Exontrol1:TimeScaleFont:Size := 16
oDCOCX_Exontrol1:TimeScales:[Item,0]:Width := 128
oDCOCX_Exontrol1:Images("gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOqNUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlwyV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+CMPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIkFgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMtNhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/XioW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUVDNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJyT8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5WzlffEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8RgH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVWRJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==")
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120524 11:30:00"),SToD("20120524 14:30:00")):Pictures := "1/2"
var_Events:Add(SToD("20120524 12:45:00"),SToD("20120524 15:45:00")):Pictures := "1,2"
oDCOCX_Exontrol1:EndUpdate()
|
|
304
|
ImageSize property on 16 (default) (specifies the size of control' icons)
local var_Events as IEvents
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120524")
oDCOCX_Exontrol1:ImageSize := 16
oDCOCX_Exontrol1:Images("gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOqdSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVttmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8acvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtTGsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgPnwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg==")
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120524 11:30:00"),SToD("20120524 14:30:00")):Pictures := "1/2"
var_Events:Add(SToD("20120524 12:45:00"),SToD("20120524 15:45:00")):Pictures := "1,2"
oDCOCX_Exontrol1:EndUpdate()
|
|
303
|
Is it possible to show a different background color for alternate days
oDCOCX_Exontrol1:[Background,exScheduleDayHeaderBackColor] := RGB(0,0,0)
oDCOCX_Exontrol1:[Background,exScheduleDayHeaderForeColor] := RGB(0,0,0)
oDCOCX_Exontrol1:[Background,exScheduleDayBackColorAlternate] := RGB(240,240,240)
oDCOCX_Exontrol1:[Background,exScheduleDayForeColorAlternate] := RGB(128,128,128)
oDCOCX_Exontrol1:Calendar:Select(exSelectWeek)
|
|
302
|
How can I select all events
local var_Events as IEvents
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120524")
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120524 10:00:00"),SToD("20120524 12:00:00"))
var_Events:Add(SToD("20120524 10:00:00"),SToD("20120524 12:00:00"))
oDCOCX_Exontrol1:SelectAll()
oDCOCX_Exontrol1:EndUpdate()
|
|
301
|
How can I unselect all events
local var_Events as IEvents
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120524")
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120524 10:00:00"),SToD("20120524 12:00:00"))
var_Events:Add(SToD("20120524 10:00:00"),SToD("20120524 12:00:00"))
oDCOCX_Exontrol1:SelectAll()
oDCOCX_Exontrol1:Selection := ""
oDCOCX_Exontrol1:EndUpdate()
|
|
300
|
How do I immediately select a newly added event
METHOD OCX_Exontrol1AddEvent(Ev) CLASS MainDialog
// AddEvent event - Notifies your application once the a new event is added.
// Ev.Selected = True
RETURN NIL
|
|
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.
local var_Calendar as ICalendar
local var_Events as IEvents
local var_Group,var_Group1,var_Group2,var_Group3,var_Group4 as IGroup
local var_Groups as IGroups
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:OnResizeControl := exCalendarAutoHide
oDCOCX_Exontrol1:DisplayGroupingButton := true
oDCOCX_Exontrol1:ShowGroupingEvents := true
oDCOCX_Exontrol1:BodyEventForeColor := RGB(255,255,255)
oDCOCX_Exontrol1:DayStartTime := "09:00"
oDCOCX_Exontrol1:DayEndTime := "14:00"
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:[SelectDate,SToD("20120524")] := true
var_Calendar:Select(exSelectWeek)
oDCOCX_Exontrol1:ScrollBars := exNoScroll
oDCOCX_Exontrol1:ShowViewCompact := exViewSingleRow
var_Groups := oDCOCX_Exontrol1:Groups
var_Group := var_Groups:Add(1,"1")
var_Group:Visible := true
var_Group:EventBackColor := RGB(255,0,0)
var_Group:HeaderBackColor := var_Group:EventBackColor
var_Group:HeaderForeColor := RGB(255,255,255)
var_Group1 := var_Groups:Add(2,"2")
var_Group1:Visible := true
var_Group1:EventBackColor := RGB(204,0,0)
var_Group1:HeaderBackColor := var_Group1:EventBackColor
var_Group1:HeaderForeColor := RGB(255,255,255)
var_Group2 := var_Groups:Add(3,"3")
var_Group2:Visible := true
var_Group2:EventBackColor := RGB(153,0,0)
var_Group2:HeaderBackColor := var_Group2:EventBackColor
var_Group2:HeaderForeColor := RGB(255,255,255)
var_Group3 := var_Groups:Add(4,"4")
var_Group3:Visible := true
var_Group3:EventBackColor := RGB(102,0,0)
var_Group3:HeaderBackColor := var_Group3:EventBackColor
var_Group3:HeaderForeColor := RGB(255,255,255)
var_Group4 := var_Groups:Add(5,"5")
var_Group4:Visible := true
var_Group4:EventBackColor := RGB(51,0,0)
var_Group4:HeaderBackColor := var_Group4:EventBackColor
var_Group4:HeaderForeColor := RGB(255,255,255)
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120524 10:00:00"),SToD("20120524 12:00:00")):GroupID := 1
var_Events:Add(SToD("20120524 10:45:00"),SToD("20120524 12:30:00")):GroupID := 2
var_Events:Add(SToD("20120524 11:30:00"),SToD("20120524 13:30:00")):GroupID := 3
var_Events:Add(SToD("20120524 10:45:00"),SToD("20120524 12:30:00")):GroupID := 4
var_Events:Add(SToD("20120524 10:45:00"),SToD("20120524 12:30:00")):GroupID := 5
oDCOCX_Exontrol1:EndUpdate()
|
|
298
|
I would like to know if this allows me to setup a number of room(column). Let's say, i need to go up to 10 rooms is it possible
local var_Events as IEvents
local var_Group,var_Group1,var_Group2,var_Group3,var_Group4 as IGroup
local var_Groups as IGroups
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:OnResizeControl := exCalendarAutoHide
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120524")
oDCOCX_Exontrol1:DisplayGroupingButton := true
oDCOCX_Exontrol1:ShowGroupingEvents := true
oDCOCX_Exontrol1:BodyEventForeColor := RGB(255,255,255)
oDCOCX_Exontrol1:DayStartTime := "09:00"
oDCOCX_Exontrol1:DayEndTime := "14:00"
var_Groups := oDCOCX_Exontrol1:Groups
var_Group := var_Groups:Add(1,"Room1")
var_Group:Visible := true
var_Group:EventBackColor := RGB(255,0,0)
var_Group:HeaderBackColor := var_Group:EventBackColor
var_Group:HeaderForeColor := RGB(255,255,255)
var_Group1 := var_Groups:Add(2,"Room2")
var_Group1:Visible := true
var_Group1:EventBackColor := RGB(204,0,0)
var_Group1:HeaderBackColor := var_Group1:EventBackColor
var_Group1:HeaderForeColor := RGB(255,255,255)
var_Group2 := var_Groups:Add(3,"Room3")
var_Group2:Visible := true
var_Group2:EventBackColor := RGB(153,0,0)
var_Group2:HeaderBackColor := var_Group2:EventBackColor
var_Group2:HeaderForeColor := RGB(255,255,255)
var_Group3 := var_Groups:Add(4,"Room4")
var_Group3:Visible := true
var_Group3:EventBackColor := RGB(102,0,0)
var_Group3:HeaderBackColor := var_Group3:EventBackColor
var_Group3:HeaderForeColor := RGB(255,255,255)
var_Group4 := var_Groups:Add(5,"Room5")
var_Group4:Visible := true
var_Group4:EventBackColor := RGB(51,0,0)
var_Group4:HeaderBackColor := var_Group4:EventBackColor
var_Group4:HeaderForeColor := RGB(255,255,255)
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120524 10:00:00"),SToD("20120524 12:00:00")):GroupID := 1
var_Events:Add(SToD("20120524 10:45:00"),SToD("20120524 12:30:00")):GroupID := 2
var_Events:Add(SToD("20120524 11:30:00"),SToD("20120524 13:30:00")):GroupID := 3
var_Events:Add(SToD("20120524 10:45:00"),SToD("20120524 12:30:00")):GroupID := 4
var_Events:Add(SToD("20120524 10:45:00"),SToD("20120524 12:30:00")):GroupID := 5
oDCOCX_Exontrol1:EndUpdate()
|
|
297
|
Please could you let me know if it is possible to change the increment when the user scrolls the mouse wheel as its to slow by default
oDCOCX_Exontrol1:VerticalScrollWheel := 3
|
|
296
|
I am using the DefaultEventLongLabel property to specify the event's label. Is it possible to change the way the event's label is displayed when it is an all day event (sample 2)
local var_Event,var_Event1,var_Event2 as IEvent
local var_Events as IEvents
local var_Group,var_Group1 as IGroup
local var_Groups as IGroups
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:SelectEventStyle := exLinesSolid
oDCOCX_Exontrol1:AllowAllDayEventScroll := exAllDayEventWheelScroll | exAllDayEventMax4
oDCOCX_Exontrol1: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 `,` ) ) %>"
oDCOCX_Exontrol1: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` ) %>"
oDCOCX_Exontrol1:Calendar:Selection := SToD("20010110")
oDCOCX_Exontrol1:DisplayGroupingButton := true
oDCOCX_Exontrol1:ShowGroupingEvents := true
oDCOCX_Exontrol1:HeaderGroupHeight := 1
oDCOCX_Exontrol1:ShowAllDayHeader := true
oDCOCX_Exontrol1:OnResizeControl := exCalendarAutoHide | exCalendarFit | exResizePanelRight
var_Groups := oDCOCX_Exontrol1:Groups
var_Group := var_Groups:Add(1,"Group 1")
var_Group:Title := "First"
var_Group:Visible := true
var_Group1 := var_Groups:Add(2,"Group 2")
var_Group1:Title := "Second"
var_Group1:Visible := true
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20010110 09:00:00"),SToD("20010110 12:30:00")):GroupID := 1
var_Events:Add(SToD("20010110 10:00:00"),SToD("20010110 13:00:00")):GroupID := 2
var_Event := var_Events:Add(SToD("20010110"),SToD("20010110"))
var_Event:GroupID := 1
var_Event:AllDayEvent := true
var_Event1 := var_Events:Add(SToD("20010110"),SToD("20010110"))
var_Event1:GroupID := 2
var_Event1:AllDayEvent := true
var_Event2 := var_Events:Add(SToD("20010110"),SToD("20010110"))
var_Event2:GroupID := 2
var_Event2:AllDayEvent := true
oDCOCX_Exontrol1:EndUpdate()
|
|
295
|
I am using the DefaultEventLongLabel property to specify the event's label. Is it possible to change the way the event's label is displayed when it is an all day event (sample 1)
local var_Event,var_Event1,var_Event2 as IEvent
local var_Events as IEvents
local var_Group,var_Group1 as IGroup
local var_Groups as IGroups
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:SelectEventStyle := exLinesSolid
oDCOCX_Exontrol1:DefaultEventLongLabel := "<%=%><%= %4 < 0 ? `<b>` + %256 + `</b> <off -4>(all)` : ( (`Group's ID:` + %4 + `<br>Group's Caption:` + %262 + `<br>Group's Title: ` + %263 + `<br>` + %256 ) replace ( %3 ? `<br>` : ``) with `,` ) %>"
oDCOCX_Exontrol1: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` ) %>"
oDCOCX_Exontrol1:Calendar:Selection := SToD("20010110")
oDCOCX_Exontrol1:DisplayGroupingButton := true
oDCOCX_Exontrol1:ShowGroupingEvents := true
oDCOCX_Exontrol1:HeaderGroupHeight := 1
oDCOCX_Exontrol1:ShowAllDayHeader := true
oDCOCX_Exontrol1:OnResizeControl := exCalendarAutoHide | exCalendarFit | exResizePanelRight
var_Groups := oDCOCX_Exontrol1:Groups
var_Group := var_Groups:Add(1,"Group 1")
var_Group:Title := "First"
var_Group:Visible := true
var_Group1 := var_Groups:Add(2,"Group 2")
var_Group1:Title := "Second"
var_Group1:Visible := true
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20010110 09:00:00"),SToD("20010110 12:30:00")):GroupID := 1
var_Events:Add(SToD("20010110 10:00:00"),SToD("20010110 13:00:00")):GroupID := 2
var_Event := var_Events:Add(SToD("20010110"),SToD("20010110"))
var_Event:GroupID := 1
var_Event:AllDayEvent := true
var_Event1 := var_Events:Add(SToD("20010110"),SToD("20010110"))
var_Event1:GroupID := -1
var_Event1:AllDayEvent := true
var_Event2 := var_Events:Add(SToD("20010110"),SToD("20010110"))
var_Event2:GroupID := 2
var_Event2:AllDayEvent := true
oDCOCX_Exontrol1:EndUpdate()
|
|
294
|
The Event.Caption does not support HTML, and so if using in DefaultEventLongLabel/DefaultEventShortLabel no HTML is applied, instead HTML tags are displayed as plain text. What can be done
local var_Events as IEvents
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120524")
oDCOCX_Exontrol1:DefaultEventLongLabel := "<%=%><%=%5%><br><%=%256%>"
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120524 09:00:00"),SToD("20120524 10:00:00")):Caption := "textzeile1<br>textzeile2<br>textzeile3"
var_Events:Add(SToD("20120524 10:00:00"),SToD("20120524 11:00:00")):Caption := "textzeile1<br><fgcolor-FF0000><b>textzeile2</b></fgcolor>"
oDCOCX_Exontrol1:EndUpdate()
|
|
293
|
Please could you let me know how I can remove/hide the time scale/marks from the scheduler. I am creating a month view that only requires a box for the day and no time markers required
local var_Calendar as ICalendar
local var_Events as IEvents
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:TimeScales:[Item,0]:Visible := false
oDCOCX_Exontrol1:OnResizeControl := exCalendarAutoHide
oDCOCX_Exontrol1:ShowViewCompact := exViewCalendarCompact
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("20120524")
var_Calendar:Select(exSelectMonth)
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120524 10:00:00"),SToD("20120524 12:00:00"))
var_Events:Add(SToD("20120524 10:45:00"),SToD("20120524 12:30:00")):ShowStatus := false
var_Events:Add(SToD("20120524 11:30:00"),SToD("20120524 13:30:00"))
oDCOCX_Exontrol1:EndUpdate()
|
|
292
|
Is it possible to lock down the view to allow resizing of the days column but not to allow the scrolling outside of the dictated time zone
local var_Calendar as ICalendar
oDCOCX_Exontrol1:BeginUpdate()
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("20120521")
var_Calendar:Selection := "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"
oDCOCX_Exontrol1:OnResizeControl := exChangePanels | exHideSplitter
oDCOCX_Exontrol1:ScrollBars := exVertical
oDCOCX_Exontrol1:ShowViewCompact := exViewSingleRow
oDCOCX_Exontrol1:AllowMoveSchedule := exDisallow
oDCOCX_Exontrol1:AllowResizeSchedule := exDisallow
oDCOCX_Exontrol1:AllowToggleSchedule := exDisallow
oDCOCX_Exontrol1:AllowExchangePanels := exDisallow
oDCOCX_Exontrol1:AllowMoveTimeScale := exDisallow
oDCOCX_Exontrol1:AllowResizeTimeScale := exDisallow
oDCOCX_Exontrol1:AllowMultiDaysEvent := false
oDCOCX_Exontrol1:[Background,exScheduleBorderSelColor] := oDCOCX_Exontrol1:[Background,exScheduleBorderSelColorUnFocus]
oDCOCX_Exontrol1:TimeScales:[Item,0]:MinorTimeRuler := "00:10"
oDCOCX_Exontrol1:DayStartTime := "10:00"
oDCOCX_Exontrol1:DayEndTime := "14:00"
oDCOCX_Exontrol1:EndUpdate()
|
|
291
|
I would also like to control the column view to only show 5 days at a time with a side scroll, how would I achieve this please
local var_Events as IEvents
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:OnResizeControl := exCalendarAutoHide
oDCOCX_Exontrol1:ShowAllDayHeader := true
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120521")
oDCOCX_Exontrol1:Calendar:Selection := "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"
oDCOCX_Exontrol1:ShowViewCompact := exViewCalendarCompact
oDCOCX_Exontrol1:ScrollBars := exVertical
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120522"),SToD("20120523")):AllDayEvent := true
var_Events:Add(SToD("20120521"),SToD("20120524")):AllDayEvent := true
var_Events:Add(SToD("20120522"),SToD("20120524")):AllDayEvent := true
oDCOCX_Exontrol1:EndUpdate()
|
|
290
|
Can I force the schedule grid to only show a single day and then to step through each day using either a custom button click or using the built in schedule calendar
local var_Calendar as ICalendar
oDCOCX_Exontrol1:BeginUpdate()
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:[SelectDate,SToD("20120520")] := true
var_Calendar:Select(exSelectFocusDay)
oDCOCX_Exontrol1:OnResizeControl := exChangePanels | exHideSplitter
oDCOCX_Exontrol1:ScrollBars := exNoScroll
oDCOCX_Exontrol1:ShowViewCompact := exViewSingleRow
oDCOCX_Exontrol1:AllowMoveSchedule := exDisallow
oDCOCX_Exontrol1:AllowResizeSchedule := exDisallow
oDCOCX_Exontrol1:AllowToggleSchedule := exDisallow
oDCOCX_Exontrol1:AllowExchangePanels := exDisallow
oDCOCX_Exontrol1:AllowMoveTimeScale := exDisallow
oDCOCX_Exontrol1:AllowResizeTimeScale := exDisallow
oDCOCX_Exontrol1:AllowMultiDaysEvent := false
oDCOCX_Exontrol1:[Background,exScheduleBorderSelColor] := oDCOCX_Exontrol1:[Background,exScheduleBorderSelColorUnFocus]
oDCOCX_Exontrol1:EndUpdate()
|
|
289
|
Can I colour the background of the schedulers grid from a time point to another EG 9:00 to 12:00. This is to show users that they can only book appointments in this time zone
local var_MarkZone,var_MarkZone1 as IMarkZone
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:OnResizeControl := exChangePanels | exHideSplitter
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120627")
var_MarkZone := oDCOCX_Exontrol1:MarkZones:Add("zoneA",SToD("20120627 09:00:00"),SToD("20120627 11:00:00"))
var_MarkZone:Pattern:Type := exPatternEmpty
var_MarkZone:LongLabel := "Yellow"
var_MarkZone:BackColor := RGB(255,255,0)
var_MarkZone1 := oDCOCX_Exontrol1:MarkZones:Add("zoneB",SToD("20120627 12:00:00"),SToD("20120627 13:30:00"))
var_MarkZone1:Pattern:Type := exPatternEmpty
var_MarkZone1:LongLabel := "Green"
var_MarkZone1:BackColor := RGB(0,255,0)
oDCOCX_Exontrol1:EndUpdate()
|
|
288
|
My programming language has the following format for date 2012-05-24-13.04.06.810000 every other format returns a compiler error. Is there a possibility to use a string for the date
local var_MarkTime as IMarkTime
local var_MarkTimes as IMarkTimes
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Calendar:Selection := oDCOCX_Exontrol1:ExecuteTemplate("#5/24/2012#")
var_MarkTimes := oDCOCX_Exontrol1:MarkTimes
var_MarkTime := var_MarkTimes:Add("timer",oDCOCX_Exontrol1:ExecuteTemplate("#5/24/2012 11:35#"))
var_MarkTime:Movable := true
var_MarkTime:LineColor := RGB(0,0,255)
var_MarkTime:StatusEventBackColor := RGB(0,0,255)
var_MarkTime:TimeScaleLineColor := RGB(0,0,255)
var_MarkTime:TimeScaleLabel := "<fgcolor=0000FF><b><%hh%>:<%nn%> <%AM/PM%>"
oDCOCX_Exontrol1:EndUpdate()
|
|
287
|
How do I display a picture with transparency
METHOD OCX_Exontrol1PictureClick(Key) CLASS MainDialog
// PictureClick event - Occurs when the user clicks a picture within an event ( Event.Pictures/ExtraPictures ).
OutputDebugString(String2Psz( AsString(Key) ))
RETURN NIL
local var_Events as IEvents
local var_ExPictures as IExPictures
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ShowSelectEvent := false
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120524")
var_ExPictures := oDCOCX_Exontrol1:Pictures
var_ExPictures:Add("pic1","gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmiXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBPhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAhhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAGhvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sUhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4AfgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAAChpAkgiAggqAsAEhigrAkgmASAygKB/BVhVB7hTBNg3BNA2hQBOg4BAAAgiBhB1BIA8BMgCAxBxAGAbhBAJgJgHBnAkhyhQBjBhgmAoBBgwgaAPBghJgLgShogYAxAIAZAZAghLBhhQAEgPAEAwgBAwhIgkBBBwhwAYBhhsBoBhhtAbAqArgrh8hehLBVAqA7grgXhPA+Bkglh+h6i4hfh7hehygvgMB9hPhEh9gXh/AKgihUhBh/A1hwA1gwAdh8ASg4AEB+ADh8AAB+AFh8AThHBxg7B4BmhFBZABAABjgbgwh2gBg4A8grArB/3UgDgQBfgzhpBzhpgUhOYogKBlBZB+ARgAA+NxgDhZgWBcgKg9BfgjBRhogngj4zBCg6AfApAzBwB+OiBtA2AbA/hHqYg6ADBZBMBNgfgfAfBfByh4g8BUAiAkgyBMBAg4AcA+BsgyAZBGgRgFA/gbAIh/h6h2AMh/huheg9hbB6h6g6hJhA1zAc5RhhgN5TBLASB3gIXagQAMAGBdAghJhUAvhahohBAiBshzBzBTB4A9AzhTgDh9AOAZBjBfAPAOAeA2ZlBKAJB61xhBE+gmhKATiWhnBvhlhrAcgMghhGg2hBAQA4B85xBWBQBQXiBIAchohkhih/gN36hyBqhiDRgABQgoB0AJAKBvAbAkAxhlBzAVgVAVBJA2gbANg5gdAOAWBrh2gzAW6HBIiagwh9hRhiBTBGAVgAgNB3g5giB/grARBlA6B/gsBhhjaTB2A0AaBQhahah6hWBVBVBlAUB+hNAEh2BVAtkNhSgFBxAAOjBOg2gxBhBTgnAzB9ADABAAh/BohRgjgzBPhrhVgaAaAagihWArSxA0gGhzB3gBhgAdhVPTgOhgA8gShjAsgcgjhUhcBdg+zcBshsgsgtgvAvAPA5hdguBWBUs1LxBbh7gsBahLhzBtjjBpg9AABDgjA6hVBtB0hygt7IAhAz7Jg3AkgkhEtvh5hYhRBhAhBzB6g9AsgwA3hng0AFgNB6hHB7hRBrgxAcBaAGVWhYgehXgjhLgcBvBththxhd7egugB7gBThoAzh57igHA5A3BYgsW8gshMgiAgBZgQh0AKghA3hLsfAGAwAWB0ARgagNBXhWBWAEB+7yBTga7zhpB6BqBKBmh0g6AZAxBdhuhnAvWAB6huA0BGhIhGBzuRgcgThpAZAABigYAUhThRhbcEgEBmgpgHgWcHgsAUh+g6B8AsBoA+B6gGgGgxBTB6hVA2h2ACZYAxhSAAhIASB0gngQAphyg0hf3pAJgrAMBwg4BZAYgVAihihKgVhzgMBhg/h9AAAqBRh0BbgTsbgHhwAbhFATANhNBMhMhYgwhlhihRAThT6WBahYh6AzhZgLBAA7h6ALhJgLBZBnhzhthAhAhGB7h7htOfA0hzh4gxhJgBg6hThzBlg4hchyBFc/AsA0hIBihGEnB8BQgvAkgBggAhAmBvBrgngNBGhTgTAThWg1B5gsgAhABRBTgZB+AYAZBxBMBMhPBbJ9BohlhIB/Awh+g/gOAAAuBhhBhUB2gXBSgagKgXgXAXAtA5AXAdBvhCBJBKgrgqBEAHhjBjhO7dBthhBGh7B7BaAdgAzWgxBthXBTACAoAuAuAOBBBxgXgpF2AFhEhtgHgDACg1AfARAiVxAHA4Af9zhc0CB3BOAoATApBWhCp0gJA+hTA7gnAxhWgEhqgEgQB+BzBweFANBGBahVgZB6oehXBwBrAphiAkBCAhhbB0AEBLA3guBfg/AtArgvgXhVGUhfBPhwBlHFBYhcBlh0AxAYgb6phyA0A3g3hPgAAEA9ACgpgqBNAPAPAWBuB1B1BVBUgNBbgvBUhvgPhqgdheBoBxgUAFgiAsAPgN8VhvhxBWg4ANhRBSA+hNB8AwASAjh+B8B8AcAMhMg3A0DThhgxhRgGBahxhggBApBEWFBmhS+/BBBhhwgIB4BgAYAJhJgOA2BDARgAhmF6A4gGB8Bo/Jgrg/Bfh/hXBnA8gOAEAWgZAUAIH8ApAshmA8Bjgcg5/Ugehh/WB3gxhNhugiAaA7AcBFgcgRADhSBWAThPBzgyBPALgSAABHABBRhCA72hBpBpApA/4BBrgBhKBFgnBfAZgYA2grgMhWBAgkAChgBBBWhzBiBkh0BghxeEZdALg9iNBvbw7whhhvBbgwgIhygrBfgrBTA6AhgvhjAYg+haBAF4vH4cze70OQyenwMnkQoiQrzCFQA9SUXGy9CMMAuywARTOoQYIFaLgw9RErSKcCginiCw7MHqeDoXjsuW69iWxWKDgAjGAaQQvTiMBuN1ugSmcgaaDsOSyDjA/Tm2FEN2E33AMEwTlUtAACAgAVAM2yhh0O0gVFuJCQHnogCO4QonwkVR4ShoaiOHmq/iCPTwiQmuBmgXGjgqjh2RA2HCUfHoiES4gi7EgcyU/xymE4UwSNCU3EMVA2YikFCiSycVCIBBGR2CdGQUBU9wqWVswAUgRIwGwIlkBFmImECyGcEUL3SESm1HIOFS9kgxRQsQIJCosyAmQg8HIslA+RYOEI6EwtS2cHyiiYJHAlAC0iiAUmEzEiksmHUrWUKBqAoih0OMyAIAAKSQFwnRTAEmS9Mwa36GQOhhCc5BcA8gAcFAfTJCEOSiDEsSaNEuC0EMrjRD8XB4LYziiOIJgNACNAAEkRROEQrhCGAgkBA")
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120524 10:00:00"),SToD("20120524 12:00:00")):Pictures := "pic1"
oDCOCX_Exontrol1:EndUpdate()
|
|
286
|
I need a border around each event/item on scheduler. Can you direct me to propery to use (to all)
METHOD OCX_Exontrol1AddEvent(Ev) CLASS MainDialog
// AddEvent event - Notifies your application once the a new event is added.
// Ev.BodyBackgroundExt = "[frame=RGB(0,0,0),framethick]"
RETURN NIL
local var_Events as IEvents
oDCOCX_Exontrol1:SelectEventStyle := exLinesSolid
oDCOCX_Exontrol1:Calendar:Selection := SToD("20010110")
oDCOCX_Exontrol1:OnResizeControl := exCalendarAutoHide | exCalendarFit | exResizePanelRight
oDCOCX_Exontrol1:StatusEventSize := 0
oDCOCX_Exontrol1:[DefaultEventPadding,exPaddingAll] := 4
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20010110 09:00:00"),SToD("20010110 12:30:00"))
var_Events:Add(SToD("20010110 09:00:00"),SToD("20010110 13:00:00"))
var_Events:Add(SToD("20010110 12:30:00"),SToD("20010110 13:00:00"))
|
|
285
|
I need a border around each event/item on scheduler. Can you direct me to propery to use (distinct)
local var_Events as IEvents
oDCOCX_Exontrol1:SelectEventStyle := exLinesSolid
oDCOCX_Exontrol1:Calendar:Selection := SToD("20010110")
oDCOCX_Exontrol1:OnResizeControl := exCalendarAutoHide | exCalendarFit | exResizePanelRight
oDCOCX_Exontrol1:StatusEventSize := 0
oDCOCX_Exontrol1:[DefaultEventPadding,exPaddingAll] := 4
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20010110 09:00:00"),SToD("20010110 12:30:00")):BodyBackgroundExt := "[frame=RGB(0,0,0),framethick]"
var_Events:Add(SToD("20010110 09:00:00"),SToD("20010110 13:00:00")):BodyBackgroundExt := "[frame=RGB(128,128,128),framethick]"
var_Events:Add(SToD("20010110 12:30:00"),SToD("20010110 13:00:00")):BodyBackgroundExt := "[frame=RGB(0,0,0),framethick]"
|
|
284
|
How can I change/specify the caption of the groups, when the user clicks the drop down button
local var_Events as IEvents
local var_Group,var_Group1 as IGroup
local var_Groups as IGroups
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120524")
oDCOCX_Exontrol1:DisplayGroupingButton := true
oDCOCX_Exontrol1:ShowGroupingEvents := true
var_Groups := oDCOCX_Exontrol1:Groups
var_Group := var_Groups:Add(1,"Group A")
var_Group:Caption := "<fgcolor=808080><c><b>Group A</b><c><br><font ;6>France, Romania, Albania and Switzerland"
var_Group:Visible := true
var_Group:EventBackColor := RGB(128,128,128)
var_Group1 := var_Groups:Add(2,"Group B")
var_Group1:Caption := "<fgcolor=FF0000><c><b>Group B</b><c><br><font ;6>England, Russia, Wales and Slovakia"
var_Group1:Visible := true
var_Group1:EventBackColor := RGB(255,0,0)
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120524 10:00:00"),SToD("20120524 12:00:00")):GroupID := 1
var_Events:Add(SToD("20120524 10:45:00"),SToD("20120524 12:30:00")):GroupID := 2
var_Events:Add(SToD("20120524 11:30:00"),SToD("20120524 13:30:00")):GroupID := 1
oDCOCX_Exontrol1:EndUpdate()
|
|
283
|
Is it possible to hide the group header, but still display the groups/captions
local var_Events as IEvents
local var_Group,var_Group1 as IGroup
local var_Groups as IGroups
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:[HTMLPicture,"pic1"] := "gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmiXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBPhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAhhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAGhvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sUhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4AfgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAACB5gkgiAggqAsAEhigrglg0ASAqgKBWgng7hSg9gdBPyphph0gQgeoOgyBNBMBIBMBnhjBsgEBJgMACAIgSBhAQAzAwg7BXA6A4BKgUBHB8Agg4BJgIgBA3ASAQAFAIhkhhAEA/ABRgBIhQAFgTgQhFARAEgsgkhngmAMAdhJh6A3gdBUhXBHhzhaB5hFB1HEgNgasJAOB1Bq3OB3Aeh3vth3A9gSgkh/g5hJ01A/hthbB9hQB/gCB4DPgCA9BAAeBYAGh2AAhvgBAvhkBZBOBiB5gsB2gsACBwB8AFBWBegGA6AOLkgvgiBvAABIhvh/AnAvhUhShIBmgzBRhLAyg+gDABB3gBgOhAA6AmAuBDBvA7hTA0hfAagfgfhXhrB5A4gyACAHAHgHhdh+A/B/gTh8AcAvBlhgOnhfBngyAZK2A4BMAlgqBohVAJAUAKAFALgaAmgthBA7AlhigLh/ghBAA0LxBchch8g6A7g7hbh3B+heBBBgB3B3A3ARhtBLgsBfgXBXh5A/g+B/hqBzh5heh0BagohIgBg4B/ApAatAg6BdBBBWBrhMA8AbgGAhhlByg5AvB+gzhFhihxBxghAjgeBlgEByB5h8g5gMA8BQgtBRAGh6B7gjgTZzANArArgrh+hquoAlhSgpB5B6B6A6BYBb57g858hcghAHhbAvhWhMhKAkBeKBguh/hRgNAjAjgjh6h0BshZg7AWALBZhD6KvyAtgtg7husuhJhJh7gYAzAihRhohJBnBtBGgNg9h3A4hogfgcAcA8ApBmBPBnhZAEAwALBngwBtp5gYAZgZhJg9h6BpBSgxA1g1hVga6XgsA2A3g3wIA9AR6pA9ARBIgYBnhjhxgTBRBIB2h3B0gYhuBxhRAHhPgnhciZh1gCAzAEgGBWBdADgPgoA/gXgIAEAuAKBbA+hRBBhRBohSgUAygAgIghgTh+hGAYBrghBQhoA2gNA7AEAQB5hxgmBSBpg0B4AJhChPg5ABAIBUBTgi4jAHBEBEgdAIhAB5hhA0gIggAhB5ACAWgahDgABFBjh3hThKABgJB5B2gzAagBBfhwB4AIh5BFAThbhohjBjBDT3BIgXgSgoBEhtgkAyAHARhkAtBoBrBrAzAqgMBcAXhgBbgkh7hghyAiBQBShSgShEgphFhzh7hIgzhgB2B2A2A4A0g0hUgXAMAGAlA6hNATB8k5gAgMgdBjBWB0BuBOBfA/AegBgBAjh8hTh3BZA9hoBUgBgKBRBvAvgChhhrhuAFBvA/AZBMgqB7B7h7hKh2h2g2gPg1A9hEgkANgOAjhhAwh9gxARAwg8B6heh3gQAdPFgiA/beAZABAd8lgQgKBEgPggBBAzhhBEgbhnAPBwg/hnA2hcBWB5AQBCA8gUBehjhIAfAABMAkB6BbhuhnBsgXgRggAAhhB5j+A/qYgEhbhrkOgqBuAIhVhuhrgyBuAuBLAdolAXBBggAGAyNFAABCgnhRALBUh9gdAFB6AOguhlAYB5hHhIByB3grB9hrAlhAAHBKBChCgCgNB8BdBf9XgngqhqhDgkAAAoAw7ShThwhsBrBoB7hRgvgBByg+AjhBBUgABkgJAuAjAMhEh+gggeAPA/gJg7BOhuh1ATBxBOgIvMAthpgv9wcYg1A1AFBnhmhmguh277ZQhiAGcchkgIgOhcBGhYBXgUBZbABVc5gTB1BEgAhJBUha+BB0h4+Chng4hjgyBygd7agAA1hCAQUPgRg8A7hNAQBQBwhaAFBQh0BCB4g4h1hoeRBhgp+Shnhxi8hhgygagABrAZAWBcBkgtgQA0Ahr4gkhLgvdwB/hzBtBagrgfBfA6h1hnAmguAiA8ANgLACA8AUgagOg3h0d5iBgBBCBjbIhWAGgYANAggsBthwBQAOzogx+yBHr+AGAuA0A0A2AGBPZoBnBAAwAIgnB5hcBmB3BWhWBWB+BdBcBcB8AZhsU6hxBuBgh7g7gwgVgBhuABiEh1giAmgBASAiABBWBkhAgZg0AEA1BRhQgNAwhyAgAMA0hsAxBNg7BsAbBmgQBxAUJZB1hQgMBZAVAPrchOBYgyg8gPg0hYA3gUAzAtBpB6gaB2Qvhhg/gEBoA8gshMg7AlAYgDBsBcAbACAKg6hWCthtqBAAhXgvhDgsA9hDAZAygthLADAVgSAkhhBsANBLAAhZgdBTArhAAQBDgTh6gEBnBNBHAVhrAPBAFkUnmLgChRECkYhG03G4rBi83imysh3uoBMaTqulIkxwIyAHSCmCcCGclnAegWGTOzSSUVurCrHwKymKmBA5EeSAivxCGV8rEopTmNwCOnA+mkIQ6sSeiEQlkKHTkp36CVC7BWPDcJ3SmgBYAASSKTiIriEYEFAQ="
oDCOCX_Exontrol1:[HTMLPicture,"pic2"] := "gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmiXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBPhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAhhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAGhvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sUhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4AfgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAADBngkgiAggqAsAEhiiig2AqUgBPA5hnB3Bshug3A9g7BbhthqALPBglN0gCgUoQh4AQAIgAgVgTAhBEAIBYACBIhEB4hggoASBiBKBsBJARRDhwBkgMABBrAQADA+AUAlAmhGBJBaAVALghgSgaA2gpApgpgEgigEBehTBAhLB2g7Bdhdgzhnhih3gvg9AbA9gWhUAHgnB5BPhMgZh5hnh/g/h5hvgzAMB9hPgNh7gnh6h1vtAIA9hVAggVggAbAoWrgAB1ABhGhBg/AAg+hng4huAAB9BjhbATiLhihNgQB2gegoBkgxrEgxAQAQBGgABpAdgJgfgfhpgRBWh8h+tWgmhpgXAABgAzuAYRAhAtAEhfBVhVBVA/BsLNAWAyBpAZhRgChhBwg4BUjtB/LiAehMgCAeBwg+B9hiY9g7BThpgkgXAlA0AMgAgCBBhghshRAUBbBBBthOhYBxgvh/BgANAOgbg3hvAuAvgvAvAXBjhFgkB1hBADgHgPAkATBJh0gWAbBcgzgZA75YBbhUhWBaBqBegxhjgHAEg9hcBMg8BQg6V8h1gegPBXhOBjA0gAgkX2AFhggphNBmBOB+ZSgDBxBdAdAdhihWgagahXBdg7h3gzB6B6h6BvBmhIgkAyA6uihKAGhAggBQAoAIBCBJgwAZBigZhTANhz5+A1hs5/g9A3g3hXhEAgBygXAuhdAyAshaA0AohiX/A1h0h8BThzheAFgLAWAcA9h/B+A8hOh/ApgxAABAh7gIgHB6g7BeBABghggghfBWhWgmgCAYADBrgYAJg9AAhehgB5hGBj6KBbAbA1g/21gEgQBMBs40AHgOAeB0AV6oAphxAyhiBHhghbhuoEB/AgA5gUgAAhBQhoBPhMBHgCgPBpBEAqgqAqBcBIg9guArArALAZgEABBMBqlEAzAohGQ8gAgjACgASQq7hNAvBvhoBwBhhfAmAQBfKYg7gEAgBBAFhQBuBFhcg7g0s6gSMxhhAageBgB4BEAHgjBKBJhOhmh2A7V4jtBGAuAogcA1hLAlAQKehwBFhdBxgshXgrgUgUAUAkBzhHBhAhhDgHA+glAdAJAWAAASh1hQh4A5ghg8g5Bvg7h1hLB0h0BohRhJBVAUAeAshgApgqBSBeBbA4gxhQBSBSASAxB4A7A6A6AsBnBOAfBOgegbAbOoYxAb5uBGgkgHAjhqBvgDAHh64bAOAHAYQPACh4BegTgpgVA68JhMh7h3hvh3hABKg8BqADvRBLhThqh3BvB2hBgICDA5hHAPgdhzA2Bcg4BggHBZhlhdh7h2B4whAoBDgagIA2BbAGAZB5gEgkABAAB+AFh0hMAXgvhfZVhqBrglglASBhAQhkAMBVARg9hUhdA9AVARBlhuBkgJgTgOAe8zBLBwhQgQhp7dhXhtBfTJBJBFBFhFhKhyhlhLhDgUAfBkARB0gyBhBpBrAKAAAwAGATAZhb9FBNhQgeFVgNBGhDgjhchnhzBmBMgJh0h1h1gZgngmgmhigHAAgFhZBthMAhhshygEgCAygFnlB7AoBIAjgbg0BRACgKAihchLgGAwAvguguhHBGBJgzDtB9BzAWgtgBBwAwgiBJhAgAAyhChTAQglg0AHgfASAXhNBTAkArtGhLAAApgtATBlhSA/gAAMASB/AMA9B9HUhPAyBzBzgrhWBIYwhVByBhgjhHB8ArBXgsgJgRAqhEABhrA4hxhDAygXBBBXheBRARAGAwgmBBgoBZBgBVh1hrAmgtAWALBO8sBkh5BnBPgPgkhLAEgqgBhjBihKAoB2goBgklgfBdBfgxgyhcBYhYg4hJBgAMg2hkhJAShwg1hrhXAsgog+A2VGBHhZA6htgbB/hOgdg7hBARhhhhgTBqB9BEAVgbgrh+hTBchsg/AHhCgUgBAlhehcA1AqhkBsA1iOBqPEgJhpBIATA+gfAvgWgnApA3gYASB725he22BXgJh3gCAggiAQhVBWBWBKAog/ByhBBhAhA61gAvggBmAiBVgRLNgYAPhvAqgth1gnhLAAhFmbhcguBugaBPgBAwAyAyBiBHAOB/gGgQAFBJgbgNB/hR/fB+BjhDgHglghhETkgkgIgsgggyhNAuAgBXAgBbBYAygqgqhQhbg7B3BOBSB6h8AjBThDh8gvgbhzCIBoBhB8f0hNgIB7BEhghKBXBThdEpDkheg/B+hdB8Brh2htgzBVBAEADiS0kU52cjV4vDsbRgwy6gA0pl5EQke1MpQKMAa4iWgDwJU68n+MHuAScfxUfj+wi6EFuwHC5Wkhgkuwkc40G2qeE8elEOF8lHCNAeTwsMTwqWOyWeIGQjxIbyQB0AFHgLayJHARwI0iE+HuGQEAAlT0IR0KiDWW2I2EYcUoaE8/giYAEiGAEiijXAEGwpx4HmeAWQNXcBFGTwaQikDlE9Bo41iYTuOA4zjnB2qzk2NzeEy4YkGwlQIikAE8hGM805rEEAmAKmUtQEkHuO9yj2u1GofEONxMVR8SiSulw6EMjEESDOTgGgEQi2MjjU5mI5l4pSWl0s1e+vUCXC+iGQtjEIwOCXi+xqAGowVeoQU+jgeX63GgsHeq1CoTREEpAkL0hgNAA9AoFUQTRBYLzAJgIwAEQIhZAAZjNIEUAXMw+gUBQPCNHE0YFBsKgXC8Xg8DsRySGwhQFAWFQYIE0gAB4pjjFcrhcPk4ziMUiy/AMzQwAIZwUPsxwgGsAg0AUCiCOgkQyhEAhFAAzAgCs6h9BYjAqCkgjiEQDA4BEhhuF01SdLoqjaGARwjIY4APF44QEC4JBwNwhDOHEDwRAYDwVF49QxFk9hBA4KQnPMh4BDw9hIEkKDFFgoBGL4IQiEYGS+OQZBdKYLDAIsSwLMM9xkMo+y4OsRRICEkAEBgqShCkEArOMeBBEwTCiCcPgiDoNQpE48A9P4owtJ0CxoMEsACFkQjIM0zQVCk8hRH4LT4LcoT2FkZAmBMeCyAA8QYIASQJBEnSWIg/BtMw0SpOkUDEBsayZAAEADK0GTrAYICzIsuTMLgkBNH45gnOU8QAEgAT5JcFCSCIGgTBkFiNJkHRzLE9g3CA5QJAk0CGBF7gAywSRFE4RCuEIYCCQE="
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120524")
oDCOCX_Exontrol1:DisplayGroupingButton := true
oDCOCX_Exontrol1:ShowGroupingEvents := true
var_Groups := oDCOCX_Exontrol1:Groups
var_Group := var_Groups:Add(1,"<c><b>Group</b><br><c><img>pic1</img>")
var_Group:Visible := true
var_Group:EventBackColor := RGB(128,128,128)
var_Group1 := var_Groups:Add(2,"<c><b>Group</b><br><c><img>pic2</img>")
var_Group1:Visible := true
var_Group1:EventBackColor := RGB(255,0,0)
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120524 10:00:00"),SToD("20120524 12:00:00")):GroupID := 1
var_Events:Add(SToD("20120524 10:45:00"),SToD("20120524 12:30:00")):GroupID := 2
var_Events:Add(SToD("20120524 11:30:00"),SToD("20120524 13:30:00")):GroupID := 1
oDCOCX_Exontrol1:HeaderGroupHeight := -1
oDCOCX_Exontrol1:EndUpdate()
|
|
282
|
When using the CopyTo method to print a range of dates the printed page is not showing the timescale, is there a way to make it appear (as is, without calendar, multiple-selection)
local var_Calendar as ICalendar
local var_Events as IEvents
local s,var_CopyTo as USUAL
oDCOCX_Exontrol1:OnResizeControl := exChangePanels | exHideSplitter
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := "#1/1/2016#"
var_Calendar:Selection := "(int((yearday(value) -1- ((7-weekday(value - yearday(value) + 1)) mod 7) )/7) = int((yearday(#1/7/2016#))/7))"
oDCOCX_Exontrol1:BorderSelStyle := exNoLines
oDCOCX_Exontrol1:ShowViewCompact := exViewCalendarCompact
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20160110 08:30:00"),SToD("20160110 14:30:00"))
var_Events:Add(SToD("20160111 09:30:00"),SToD("20160111 11:30:00"))
var_Events:Add(SToD("20160115 10:30:00"),SToD("20160115 11:30:00"))
s := oDCOCX_Exontrol1:Calendar:Selection
oDCOCX_Exontrol1:Calendar:Selection := "0"
var_CopyTo := oDCOCX_Exontrol1:[CopyTo,"c:/temp/test.png"]
OutputDebugString(String2Psz( "Look for c:/temp/test.png file" ))
oDCOCX_Exontrol1:Calendar:Selection := s
|
|
281
|
When using the CopyTo method to print a range of dates the printed page is not showing the timescale, is there a way to make it appear (as is, without calendar)
local var_Calendar as ICalendar
local var_Events as IEvents
local var_CopyTo as USUAL
oDCOCX_Exontrol1:OnResizeControl := exChangePanels | exHideSplitter
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("20120101")
var_Calendar:[SelectDate,SToD("20120101")] := false
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120101 08:30:00"),SToD("20120101 09:30:00"))
var_Events:Add(SToD("20120101 08:35:00"),SToD("20120101 09:35:00"))
var_Events:Add(SToD("20120101 10:30:00"),SToD("20120101 12:30:00"))
var_CopyTo := oDCOCX_Exontrol1:[CopyTo,"c:/temp/test.png"]
OutputDebugString(String2Psz( "Look for c:/temp/test.png file" ))
|
|
280
|
When using the CopyTo method to print a range of dates the printed page is not showing the timescale, is there a way to make it appear (as is, with calendar)
local var_Calendar as ICalendar
local var_Events as IEvents
local var_CopyTo as USUAL
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("20120101")
var_Calendar:[SelectDate,SToD("20120101")] := false
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120101 08:30:00"),SToD("20120101 09:30:00"))
var_Events:Add(SToD("20120101 08:35:00"),SToD("20120101 09:35:00"))
var_Events:Add(SToD("20120101 10:30:00"),SToD("20120101 12:30:00"))
var_CopyTo := oDCOCX_Exontrol1:[CopyTo,"c:/temp/test.png"]
OutputDebugString(String2Psz( "Look for c:/temp/test.png file" ))
|
|
279
|
I've seen that all-day header can be limited up to 4, 8 or 12 events. Can I change that limit, for instance, 3 events only
local var_Events as IEvents
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:AllowSelectCreateEvent := exHighlightCreateEvent
oDCOCX_Exontrol1:OnResizeControl := exCalendarAutoHide
oDCOCX_Exontrol1:ShowAllDayHeader := true
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120521")
oDCOCX_Exontrol1:Calendar:Selection := "value >= #5/20/2012# and value <= #5/26/2012#"
oDCOCX_Exontrol1:ShowViewCompact := exViewCalendarCompact
oDCOCX_Exontrol1:AllowAllDayEventScroll := 0x23 | exAllDayEventWheelScroll | exAllDayEventNoMax
oDCOCX_Exontrol1:BodyEventBackColor := RGB(128,128,128)
oDCOCX_Exontrol1:[Background,exScheduleAllDayEventScrollBackColor] := RGB(220,220,220)
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120521"),SToD("20120524")):AllDayEvent := true
var_Events:Add(SToD("20120522"),SToD("20120523")):AllDayEvent := true
var_Events:Add(SToD("20120522"),SToD("20120524")):AllDayEvent := true
var_Events:Add(SToD("20120522"),SToD("20120525")):AllDayEvent := true
var_Events:Add(SToD("20120522"),SToD("20120525")):AllDayEvent := true
var_Events:Add(SToD("20120523"),SToD("20120525")):AllDayEvent := true
var_Events:Add(SToD("20120524"),SToD("20120525")):AllDayEvent := true
oDCOCX_Exontrol1:EndUpdate()
|
|
278
|
Is it possible to highlight the newly created event ( runtime creation )
oDCOCX_Exontrol1:AllowSelectCreateEvent := exHighlightCreateEvent
|
|
277
|
Is it possible to select the newly created event ( runtime creation )
oDCOCX_Exontrol1:AllowSelectCreateEvent := exSelectCreateEvent
|
|
276
|
I have noticed that the all-day header change its background, if has scrolling events. Is it possible to change that (ebn)
local var_Events as IEvents
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:VisualAppearance:Add(1,"gBFLBCJwBAEHhEJAAChABRUIQAAYAQGKIaBoAKBQAGaAoDDQMQ3QwAAwjSLEEwsACEIrjKCRShyCYZRrGQBQTCIZBqEqSZLiEZRQCWIAxATGchwHIEQgND6cIDmMAHfj2PI+RZKMoRZJUExZFyERhASQZZoyN40UzOc6vfL9KRDEAEIRKAyTDLQdRyGSMMgEVBJBCbMiNBqhESIJo+GI4BhFYSUZalGSnO6gIBAgIA==")
oDCOCX_Exontrol1:AllowSelectCreateEvent := exHighlightCreateEvent
oDCOCX_Exontrol1:OnResizeControl := exCalendarAutoHide
oDCOCX_Exontrol1:ShowAllDayHeader := true
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120521")
oDCOCX_Exontrol1:Calendar:Selection := "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"
oDCOCX_Exontrol1:ShowViewCompact := exViewCalendarCompact
oDCOCX_Exontrol1:AllowAllDayEventScroll := exAllDayEventWheelScroll | exAllDayEventMax4
oDCOCX_Exontrol1:[Background,exScheduleAllDayEventScrollBackColor] := 0x1000000
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120522"),SToD("20120523")):AllDayEvent := true
var_Events:Add(SToD("20120521"),SToD("20120524")):AllDayEvent := true
var_Events:Add(SToD("20120522"),SToD("20120524")):AllDayEvent := true
var_Events:Add(SToD("20120522"),SToD("20120525")):AllDayEvent := true
var_Events:Add(SToD("20120522"),SToD("20120525")):AllDayEvent := true
var_Events:Add(SToD("20120523"),SToD("20120525")):AllDayEvent := true
var_Events:Add(SToD("20120524"),SToD("20120526")):AllDayEvent := true
oDCOCX_Exontrol1:EndUpdate()
|
|
275
|
I have noticed that the all-day header change its background, if has scrolling events. Is it possible to change that (solid)
local var_Events as IEvents
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:AllowSelectCreateEvent := exHighlightCreateEvent
oDCOCX_Exontrol1:OnResizeControl := exCalendarAutoHide
oDCOCX_Exontrol1:ShowAllDayHeader := true
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120521")
oDCOCX_Exontrol1:Calendar:Selection := "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"
oDCOCX_Exontrol1:ShowViewCompact := exViewCalendarCompact
oDCOCX_Exontrol1:AllowAllDayEventScroll := exAllDayEventWheelScroll | exAllDayEventMax4
oDCOCX_Exontrol1:[Background,exScheduleAllDayEventScrollBackColor] := RGB(220,220,220)
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120522"),SToD("20120523")):AllDayEvent := true
var_Events:Add(SToD("20120521"),SToD("20120524")):AllDayEvent := true
var_Events:Add(SToD("20120522"),SToD("20120524")):AllDayEvent := true
var_Events:Add(SToD("20120522"),SToD("20120525")):AllDayEvent := true
var_Events:Add(SToD("20120522"),SToD("20120525")):AllDayEvent := true
var_Events:Add(SToD("20120523"),SToD("20120525")):AllDayEvent := true
var_Events:Add(SToD("20120524"),SToD("20120526")):AllDayEvent := true
oDCOCX_Exontrol1:EndUpdate()
|
|
274
|
I have noticed that the all-day header change its background, if has scrolling events. Is it possible to remove that
local var_Events as IEvents
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:AllowSelectCreateEvent := exHighlightCreateEvent
oDCOCX_Exontrol1:OnResizeControl := exCalendarAutoHide
oDCOCX_Exontrol1:ShowAllDayHeader := true
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120521")
oDCOCX_Exontrol1:Calendar:Selection := "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"
oDCOCX_Exontrol1:ShowViewCompact := exViewCalendarCompact
oDCOCX_Exontrol1:AllowAllDayEventScroll := exAllDayEventWheelScroll | exAllDayEventMax4
oDCOCX_Exontrol1:[Background,exScheduleAllDayEventScrollBackColor] := RGB(0,0,0)
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120522"),SToD("20120523")):AllDayEvent := true
var_Events:Add(SToD("20120521"),SToD("20120524")):AllDayEvent := true
var_Events:Add(SToD("20120522"),SToD("20120524")):AllDayEvent := true
var_Events:Add(SToD("20120522"),SToD("20120525")):AllDayEvent := true
var_Events:Add(SToD("20120522"),SToD("20120525")):AllDayEvent := true
var_Events:Add(SToD("20120523"),SToD("20120525")):AllDayEvent := true
var_Events:Add(SToD("20120524"),SToD("20120526")):AllDayEvent := true
oDCOCX_Exontrol1:EndUpdate()
|
|
273
|
The user scrolls through the all-day events, when mouse wheel is rotated. Can I disable that
local var_Events as IEvents
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:AllowSelectCreateEvent := exHighlightCreateEvent
oDCOCX_Exontrol1:OnResizeControl := exCalendarAutoHide
oDCOCX_Exontrol1:ShowAllDayHeader := true
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120521")
oDCOCX_Exontrol1:Calendar:Selection := "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"
oDCOCX_Exontrol1:ShowViewCompact := exViewCalendarCompact
oDCOCX_Exontrol1:AllowAllDayEventScroll := exAllDayEventScroll | exAllDayEventMax4
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120522"),SToD("20120523")):AllDayEvent := true
var_Events:Add(SToD("20120521"),SToD("20120524")):AllDayEvent := true
var_Events:Add(SToD("20120522"),SToD("20120524")):AllDayEvent := true
var_Events:Add(SToD("20120522"),SToD("20120525")):AllDayEvent := true
var_Events:Add(SToD("20120522"),SToD("20120525")):AllDayEvent := true
var_Events:Add(SToD("20120523"),SToD("20120525")):AllDayEvent := true
var_Events:Add(SToD("20120524"),SToD("20120526")):AllDayEvent := true
oDCOCX_Exontrol1:EndUpdate()
|
|
272
|
Is it possible to specify the number of all-day events to be visible
local var_Events as IEvents
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:AllowSelectCreateEvent := exHighlightCreateEvent
oDCOCX_Exontrol1:OnResizeControl := exCalendarAutoHide
oDCOCX_Exontrol1:ShowAllDayHeader := true
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120521")
oDCOCX_Exontrol1:Calendar:Selection := "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"
oDCOCX_Exontrol1:ShowViewCompact := exViewCalendarCompact
oDCOCX_Exontrol1:AllowAllDayEventScroll := exAllDayEventWheelScroll | exAllDayEventMax4
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120522"),SToD("20120523")):AllDayEvent := true
var_Events:Add(SToD("20120521"),SToD("20120524")):AllDayEvent := true
var_Events:Add(SToD("20120522"),SToD("20120524")):AllDayEvent := true
var_Events:Add(SToD("20120522"),SToD("20120525")):AllDayEvent := true
var_Events:Add(SToD("20120522"),SToD("20120525")):AllDayEvent := true
var_Events:Add(SToD("20120523"),SToD("20120525")):AllDayEvent := true
var_Events:Add(SToD("20120524"),SToD("20120526")):AllDayEvent := true
oDCOCX_Exontrol1:EndUpdate()
|
|
271
|
How do I disable scrolling the all-day header
local var_Events as IEvents
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:AllowSelectCreateEvent := exHighlightCreateEvent
oDCOCX_Exontrol1:OnResizeControl := exCalendarAutoHide
oDCOCX_Exontrol1:ShowAllDayHeader := true
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120521")
oDCOCX_Exontrol1:Calendar:Selection := "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)"
oDCOCX_Exontrol1:ShowViewCompact := exViewCalendarCompact
oDCOCX_Exontrol1:AllowAllDayEventScroll := exAllDayEventNoMin
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120522"),SToD("20120523")):AllDayEvent := true
var_Events:Add(SToD("20120521"),SToD("20120524")):AllDayEvent := true
var_Events:Add(SToD("20120522"),SToD("20120524")):AllDayEvent := true
var_Events:Add(SToD("20120522"),SToD("20120525")):AllDayEvent := true
var_Events:Add(SToD("20120522"),SToD("20120525")):AllDayEvent := true
var_Events:Add(SToD("20120523"),SToD("20120525")):AllDayEvent := true
var_Events:Add(SToD("20120524"),SToD("20120526")):AllDayEvent := true
oDCOCX_Exontrol1:EndUpdate()
|
|
270
|
How can I display the current week only, when the user selects the date in the calendar panel
local var_Calendar as ICalendar
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:OnResizeControl := exDisableSplitter | exResizePanelRight
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:OnSelectDate := exEnsureVisibleDate
var_Calendar:Selection := SToD("20010110")
var_Calendar:SingleSel := true
oDCOCX_Exontrol1:Calendar:FirstWeekDay := exMonday
oDCOCX_Exontrol1:ScrollBars := exNoScroll
oDCOCX_Exontrol1:ShowViewCompact := exViewCalendarCompact
oDCOCX_Exontrol1:AllowResizeSchedule := exDisallow
oDCOCX_Exontrol1:AllowMoveSchedule := exDisallow
oDCOCX_Exontrol1:AllowToggleSchedule := exDisallow
oDCOCX_Exontrol1:[Background,exScheduleBorderMonthColor] := oDCOCX_Exontrol1:[Background,exScheduleBorderDateColor]
oDCOCX_Exontrol1:TimeScales:[Item,0]:AllowResize := false
oDCOCX_Exontrol1:DayViewWidth := 0
oDCOCX_Exontrol1:EndUpdate()
|
|
269
|
How do I capture the control and save it as PDF (Method 2)
local var_Calendar as ICalendar
local var_Events as IEvents
local var_CopyTo as USUAL
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("20010601")
var_Calendar:Selection := "value in (#6/11/2001#,#6/12/2001#)"
oDCOCX_Exontrol1:DayViewWidth := 512
oDCOCX_Exontrol1:DayViewHeight := 512
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20010611 10:00:00"),SToD("20010611 13:00:00"))
var_Events:Add(SToD("20010612 10:00:00"),SToD("20010612 13:00:00"))
var_CopyTo := oDCOCX_Exontrol1:[CopyTo,"C:/Temp/test.pdf"]
OutputDebugString(String2Psz( "Look For: C:/Temp/test.pdf file" ))
|
|
268
|
How do I capture the control and save it as PDF (Method 1)
local var_Calendar as ICalendar
local var_Events as IEvents
local var_Print as IExPrint
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("20010601")
var_Calendar:Selection := "value in (#6/11/2001#,#6/12/2001#)"
oDCOCX_Exontrol1:DayViewWidth := 512
oDCOCX_Exontrol1:DayViewHeight := 512
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20010611 10:00:00"),SToD("20010611 13:00:00"))
var_Events:Add(SToD("20010612 10:00:00"),SToD("20010612 13:00:00"))
// Generate Source for 'ExPrint 1.0 Control Library(ExPrint.dll)' server from Tools\Automation Server...
var_Print := IExPrint{"Exontrol.Print"}
var_Print:Options := "FitToPage=On"
var_Print:PrintExt := oDCOCX_Exontrol1
var_Print:CopyTo("C:/Temp/test.pdf")
OutputDebugString(String2Psz( "Look For: C:/Temp/test.pdf file" ))
|
|
267
|
How do I capture the control and save it as an image (JPG or BMP) (Method 2)
local var_Calendar as ICalendar
local var_Events as IEvents
local var_CopyTo,var_CopyTo1 as USUAL
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("20010601")
var_Calendar:Selection := "value in (#6/11/2001#,#6/12/2001#)"
oDCOCX_Exontrol1:DayViewWidth := 512
oDCOCX_Exontrol1:DayViewHeight := 512
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20010611 10:00:00"),SToD("20010611 13:00:00"))
var_Events:Add(SToD("20010612 10:00:00"),SToD("20010612 13:00:00"))
var_CopyTo := oDCOCX_Exontrol1:[CopyTo,"C:/Temp/test.bmp"]
var_CopyTo1 := oDCOCX_Exontrol1:[CopyTo,"C:/Temp/test.jpg"]
OutputDebugString(String2Psz( "Look For: C:/Temp/test.* file" ))
|
|
266
|
How do I capture the control and save it as an image (JPG or BMP) (Method 1)
local var_Calendar as ICalendar
local var_Events as IEvents
local var_Print as IExPrint
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("20010601")
var_Calendar:Selection := "value in (#6/11/2001#,#6/12/2001#)"
oDCOCX_Exontrol1:DayViewWidth := 512
oDCOCX_Exontrol1:DayViewHeight := 512
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20010611 10:00:00"),SToD("20010611 13:00:00"))
var_Events:Add(SToD("20010612 10:00:00"),SToD("20010612 13:00:00"))
// Generate Source for 'ExPrint 1.0 Control Library(ExPrint.dll)' server from Tools\Automation Server...
var_Print := IExPrint{"Exontrol.Print"}
var_Print:Options := "FitToPage=On"
var_Print:PrintExt := oDCOCX_Exontrol1
var_Print:CopyTo("C:/Temp/test.bmp")
var_Print:CopyTo("C:/Temp/test.jpg")
OutputDebugString(String2Psz( "Look For: C:/Temp/test.* file" ))
|
|
265
|
Recurrence: The 2nd to last weekday of the month
local var_Calendar as ICalendar
local var_Events as IEvents
local var_Highlight as IHighlight
oDCOCX_Exontrol1:BeginUpdate()
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("19970929")
var_Calendar:ShowNonMonthDays := false
var_Calendar:MaxMonthY := 4
var_Calendar:FirstWeekDay := exMonday
var_Highlight := var_Calendar:HighlightEvent
var_Highlight:Pattern:Type := exPatternFrame
var_Highlight:Bold := false
oDCOCX_Exontrol1:ShowViewCompact := exViewCalendarCompact
oDCOCX_Exontrol1:BorderSelStyle := exNoLines
oDCOCX_Exontrol1:[Background,exScheduleMarkTodayBackColor] := RGB(240,240,240)
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("19970929 09:00:00"),SToD("19970929 14:00:00")):Repetitive := "FREQ=MONTHLY;BYDAY=MO,TU,WE,TH,FR;BYSETPOS=-2"
oDCOCX_Exontrol1:EndUpdate()
|
|
264
|
Recurrence: The 3rd instance into the month of one of Tuesday, Wednesday or Thursday, for the next 3 months
local var_Calendar as ICalendar
local var_Events as IEvents
local var_Highlight as IHighlight
oDCOCX_Exontrol1:BeginUpdate()
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("19970904")
var_Calendar:ShowNonMonthDays := false
var_Calendar:MaxMonthY := 4
var_Calendar:FirstWeekDay := exMonday
var_Highlight := var_Calendar:HighlightEvent
var_Highlight:Pattern:Type := exPatternFrame
var_Highlight:Bold := false
oDCOCX_Exontrol1:ShowViewCompact := exViewCalendarCompact
oDCOCX_Exontrol1:BorderSelStyle := exNoLines
oDCOCX_Exontrol1:[Background,exScheduleMarkTodayBackColor] := RGB(240,240,240)
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("19970904 09:00:00"),SToD("19970904 14:00:00")):Repetitive := "FREQ=MONTHLY;COUNT=3;BYDAY=TU,WE,TH;BYSETPOS=3"
oDCOCX_Exontrol1:EndUpdate()
|
|
263
|
Recurrence: The last work day of the month
local var_Calendar as ICalendar
local var_Events as IEvents
local var_Highlight as IHighlight
oDCOCX_Exontrol1:BeginUpdate()
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("19970930")
var_Calendar:ShowNonMonthDays := false
var_Calendar:MaxMonthY := 4
var_Calendar:FirstWeekDay := exMonday
var_Highlight := var_Calendar:HighlightEvent
var_Highlight:Pattern:Type := exPatternFrame
var_Highlight:Bold := false
oDCOCX_Exontrol1:ShowViewCompact := exViewCalendarCompact
oDCOCX_Exontrol1:BorderSelStyle := exNoLines
oDCOCX_Exontrol1:[Background,exScheduleMarkTodayBackColor] := RGB(240,240,240)
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("19970805 09:00:00"),SToD("19970805 14:00:00")):Repetitive := "FREQ=MONTHLY;BYDAY=MO,TU,WE,TH,FR;BYSETPOS=-1"
oDCOCX_Exontrol1:EndUpdate()
|
|
262
|
Recurrence: An example where the days generated makes a difference because of WKST (Sample 2)
local var_Calendar as ICalendar
local var_Events as IEvents
local var_Highlight as IHighlight
oDCOCX_Exontrol1:BeginUpdate()
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("19970805")
var_Calendar:ShowNonMonthDays := false
var_Calendar:MaxMonthY := 4
var_Calendar:FirstWeekDay := exSunday
var_Highlight := var_Calendar:HighlightEvent
var_Highlight:Pattern:Type := exPatternFrame
var_Highlight:Bold := false
oDCOCX_Exontrol1:ShowViewCompact := exViewCalendarCompact
oDCOCX_Exontrol1:BorderSelStyle := exNoLines
oDCOCX_Exontrol1:[Background,exScheduleMarkTodayBackColor] := RGB(240,240,240)
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("19970805 09:00:00"),SToD("19970805 14:00:00")):Repetitive := "FREQ=WEEKLY;INTERVAL=2;COUNT=4;BYDAY=TU,SU"
oDCOCX_Exontrol1:EndUpdate()
|
|
261
|
Recurrence: An example where the days generated makes a difference because of WKST (Sample 1)
local var_Calendar as ICalendar
local var_Events as IEvents
local var_Highlight as IHighlight
oDCOCX_Exontrol1:BeginUpdate()
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("19970805")
var_Calendar:ShowNonMonthDays := false
var_Calendar:MaxMonthY := 4
var_Calendar:FirstWeekDay := exMonday
var_Highlight := var_Calendar:HighlightEvent
var_Highlight:Pattern:Type := exPatternFrame
var_Highlight:Bold := false
oDCOCX_Exontrol1:ShowViewCompact := exViewCalendarCompact
oDCOCX_Exontrol1:BorderSelStyle := exNoLines
oDCOCX_Exontrol1:[Background,exScheduleMarkTodayBackColor] := RGB(240,240,240)
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("19970805 09:00:00"),SToD("19970805 14:00:00")):Repetitive := "FREQ=WEEKLY;INTERVAL=2;COUNT=4;BYDAY=TU,SU"
oDCOCX_Exontrol1:EndUpdate()
|
|
260
|
Recurrence: Every four years, the first Tuesday after a Monday in November, forever (U.S. Presidential Election day)
local var_Calendar as ICalendar
local var_Events as IEvents
local var_Highlight as IHighlight
oDCOCX_Exontrol1:BeginUpdate()
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("19961105")
var_Calendar:ShowNonMonthDays := false
var_Calendar:MaxMonthY := 4
var_Calendar:FirstWeekDay := exMonday
var_Highlight := var_Calendar:HighlightEvent
var_Highlight:Pattern:Type := exPatternFrame
var_Highlight:Bold := false
oDCOCX_Exontrol1:ShowViewCompact := exViewCalendarCompact
oDCOCX_Exontrol1:BorderSelStyle := exNoLines
oDCOCX_Exontrol1:[Background,exScheduleMarkTodayBackColor] := RGB(240,240,240)
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("19961105 09:00:00"),SToD("19961105 14:00:00")):Repetitive := "FREQ=YEARLY;INTERVAL=4;BYMONTH=11;BYDAY=TU;BYMONTHDAY=2,3,4,5,6,7,8"
oDCOCX_Exontrol1:EndUpdate()
|
|
259
|
Recurrence: The first Saturday that follows the first Sunday of the month, forever
local var_Calendar as ICalendar
local var_Events as IEvents
local var_Highlight as IHighlight
oDCOCX_Exontrol1:BeginUpdate()
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("19970913")
var_Calendar:ShowNonMonthDays := false
var_Calendar:MaxMonthY := 4
var_Calendar:FirstWeekDay := exMonday
var_Highlight := var_Calendar:HighlightEvent
var_Highlight:Pattern:Type := exPatternFrame
var_Highlight:Bold := false
oDCOCX_Exontrol1:ShowViewCompact := exViewCalendarCompact
oDCOCX_Exontrol1:BorderSelStyle := exNoLines
oDCOCX_Exontrol1:[Background,exScheduleMarkTodayBackColor] := RGB(240,240,240)
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("19970913 09:00:00"),SToD("19970913 14:00:00")):Repetitive := "FREQ=MONTHLY;BYDAY=SA;BYMONTHDAY=7,8,9,10,11,12,13"
oDCOCX_Exontrol1:EndUpdate()
|
|
258
|
Recurrence: Every Friday the 13th, forever
local var_Calendar as ICalendar
local var_Events as IEvents
local var_Highlight as IHighlight
oDCOCX_Exontrol1:BeginUpdate()
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("19980213")
var_Calendar:ShowNonMonthDays := false
var_Calendar:MaxMonthY := 4
var_Calendar:FirstWeekDay := exMonday
var_Highlight := var_Calendar:HighlightEvent
var_Highlight:Pattern:Type := exPatternFrame
var_Highlight:Bold := false
oDCOCX_Exontrol1:ShowViewCompact := exViewCalendarCompact
oDCOCX_Exontrol1:BorderSelStyle := exNoLines
oDCOCX_Exontrol1:[Background,exScheduleMarkTodayBackColor] := RGB(240,240,240)
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("19970902 09:00:00"),SToD("19970902 14:00:00")):Repetitive := "FREQ=MONTHLY;BYDAY=FR;BYMONTHDAY=13"
oDCOCX_Exontrol1:EndUpdate()
|
|
257
|
Recurrence: Every Thursday, but only during June, July, and August, forever
local var_Calendar as ICalendar
local var_Events as IEvents
local var_Highlight as IHighlight
oDCOCX_Exontrol1:BeginUpdate()
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("19970605")
var_Calendar:ShowNonMonthDays := false
var_Calendar:MaxMonthY := 4
var_Calendar:FirstWeekDay := exMonday
var_Highlight := var_Calendar:HighlightEvent
var_Highlight:Pattern:Type := exPatternFrame
var_Highlight:Bold := false
oDCOCX_Exontrol1:ShowViewCompact := exViewCalendarCompact
oDCOCX_Exontrol1:BorderSelStyle := exNoLines
oDCOCX_Exontrol1:[Background,exScheduleMarkTodayBackColor] := RGB(240,240,240)
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("19970605 09:00:00"),SToD("19970605 14:00:00")):Repetitive := "FREQ=YEARLY;BYDAY=TH;BYMONTH=6,7,8"
oDCOCX_Exontrol1:EndUpdate()
|
|
256
|
Recurrence: Every Thursday in March, forever
local var_Calendar as ICalendar
local var_Events as IEvents
local var_Highlight as IHighlight
oDCOCX_Exontrol1:BeginUpdate()
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("19970313")
var_Calendar:ShowNonMonthDays := false
var_Calendar:MaxMonthY := 4
var_Calendar:FirstWeekDay := exMonday
var_Highlight := var_Calendar:HighlightEvent
var_Highlight:Pattern:Type := exPatternFrame
var_Highlight:Bold := false
oDCOCX_Exontrol1:ShowViewCompact := exViewCalendarCompact
oDCOCX_Exontrol1:BorderSelStyle := exNoLines
oDCOCX_Exontrol1:[Background,exScheduleMarkTodayBackColor] := RGB(240,240,240)
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("19970313 09:00:00"),SToD("19970313 14:00:00")):Repetitive := "FREQ=YEARLY;BYMONTH=3;BYDAY=TH"
oDCOCX_Exontrol1:EndUpdate()
|
|
255
|
Recurrence: Monday of week number 20 (where the default start of the week is Monday), forever
local var_Calendar as ICalendar
local var_Events as IEvents
local var_Highlight as IHighlight
oDCOCX_Exontrol1:BeginUpdate()
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("19970512")
var_Calendar:ShowNonMonthDays := false
var_Calendar:MaxMonthY := 4
var_Calendar:FirstWeekDay := exMonday
var_Highlight := var_Calendar:HighlightEvent
var_Highlight:Pattern:Type := exPatternFrame
var_Highlight:Bold := false
oDCOCX_Exontrol1:ShowViewCompact := exViewCalendarCompact
oDCOCX_Exontrol1:BorderSelStyle := exNoLines
oDCOCX_Exontrol1:[Background,exScheduleMarkTodayBackColor] := RGB(240,240,240)
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("19970512 09:00:00"),SToD("19970512 14:00:00")):Repetitive := "FREQ=YEARLY;BYWEEKNO=20;BYDAY=MO"
oDCOCX_Exontrol1:EndUpdate()
|
|
254
|
Recurrence: Every 20th Monday of the year, forever
local var_Calendar as ICalendar
local var_Events as IEvents
local var_Highlight as IHighlight
oDCOCX_Exontrol1:BeginUpdate()
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("19970519")
var_Calendar:ShowNonMonthDays := false
var_Calendar:MaxMonthY := 4
var_Calendar:FirstWeekDay := exMonday
var_Highlight := var_Calendar:HighlightEvent
var_Highlight:Pattern:Type := exPatternFrame
var_Highlight:Bold := false
oDCOCX_Exontrol1:ShowViewCompact := exViewCalendarCompact
oDCOCX_Exontrol1:BorderSelStyle := exNoLines
oDCOCX_Exontrol1:[Background,exScheduleMarkTodayBackColor] := RGB(240,240,240)
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("19970101 09:00:00"),SToD("19970101 14:00:00")):Repetitive := "FREQ=YEARLY;BYDAY=20MO"
oDCOCX_Exontrol1:EndUpdate()
|
|
253
|
Recurrence: Every 3rd year on the 1st, 100th and 200th day for 10 occurrences
local var_Calendar as ICalendar
local var_Events as IEvents
local var_Highlight as IHighlight
oDCOCX_Exontrol1:BeginUpdate()
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("19970101")
var_Calendar:ShowNonMonthDays := false
var_Calendar:MaxMonthY := 4
var_Calendar:FirstWeekDay := exMonday
var_Highlight := var_Calendar:HighlightEvent
var_Highlight:Pattern:Type := exPatternFrame
var_Highlight:Bold := false
oDCOCX_Exontrol1:ShowViewCompact := exViewCalendarCompact
oDCOCX_Exontrol1:BorderSelStyle := exNoLines
oDCOCX_Exontrol1:[Background,exScheduleMarkTodayBackColor] := RGB(240,240,240)
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("19970101 09:00:00"),SToD("19970101 14:00:00")):Repetitive := "FREQ=YEARLY;INTERVAL=3;COUNT=10;BYYEARDAY=1,100,200"
oDCOCX_Exontrol1:EndUpdate()
|
|
252
|
Recurrence: Every other year on January, February, and March for 10 occurrences
local var_Calendar as ICalendar
local var_Events as IEvents
local var_Highlight as IHighlight
oDCOCX_Exontrol1:BeginUpdate()
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("19970310")
var_Calendar:ShowNonMonthDays := false
var_Calendar:MaxMonthY := 4
var_Calendar:FirstWeekDay := exMonday
var_Highlight := var_Calendar:HighlightEvent
var_Highlight:Pattern:Type := exPatternFrame
var_Highlight:Bold := false
oDCOCX_Exontrol1:ShowViewCompact := exViewCalendarCompact
oDCOCX_Exontrol1:BorderSelStyle := exNoLines
oDCOCX_Exontrol1:[Background,exScheduleMarkTodayBackColor] := RGB(240,240,240)
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("19970310 09:00:00"),SToD("19970310 14:00:00")):Repetitive := "FREQ=YEARLY;INTERVAL=2;COUNT=10;BYMONTH=1,2,3"
oDCOCX_Exontrol1:EndUpdate()
|
|
251
|
Recurrence: Yearly in June and July for 10 occurrences
local var_Calendar as ICalendar
local var_Events as IEvents
local var_Highlight as IHighlight
oDCOCX_Exontrol1:BeginUpdate()
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("19970610")
var_Calendar:ShowNonMonthDays := false
var_Calendar:MaxMonthX := 2
var_Calendar:MaxMonthY := 2
var_Calendar:FirstWeekDay := exMonday
var_Highlight := var_Calendar:HighlightEvent
var_Highlight:Pattern:Type := exPatternFrame
var_Highlight:Bold := false
oDCOCX_Exontrol1:ShowViewCompact := exViewCalendarCompact
oDCOCX_Exontrol1:BorderSelStyle := exNoLines
oDCOCX_Exontrol1:[Background,exScheduleMarkTodayBackColor] := RGB(240,240,240)
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("19970610 09:00:00"),SToD("19970610 14:00:00")):Repetitive := "FREQ=YEARLY;COUNT=10;BYMONTH=6,7"
oDCOCX_Exontrol1:EndUpdate()
|
|
250
|
Recurrence: Every Tuesday, every other month
local var_Calendar as ICalendar
local var_Events as IEvents
local var_Highlight as IHighlight
oDCOCX_Exontrol1:BeginUpdate()
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("19970902")
var_Calendar:ShowNonMonthDays := false
var_Calendar:MaxMonthY := 4
var_Calendar:FirstWeekDay := exMonday
var_Highlight := var_Calendar:HighlightEvent
var_Highlight:Pattern:Type := exPatternFrame
var_Highlight:Bold := false
oDCOCX_Exontrol1:ShowViewCompact := exViewCalendarCompact
oDCOCX_Exontrol1:BorderSelStyle := exNoLines
oDCOCX_Exontrol1:[Background,exScheduleMarkTodayBackColor] := RGB(240,240,240)
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("19970902 09:00:00"),SToD("19970902 14:00:00")):Repetitive := "FREQ=MONTHLY;INTERVAL=2;BYDAY=TU"
oDCOCX_Exontrol1:EndUpdate()
|
|
249
|
Recurrence: Every 18 months on the 10th thru 15th of the month for 10 occurrences
local var_Calendar as ICalendar
local var_Events as IEvents
local var_Highlight as IHighlight
oDCOCX_Exontrol1:BeginUpdate()
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("19970910")
var_Calendar:ShowNonMonthDays := false
var_Calendar:MaxMonthY := 4
var_Calendar:FirstWeekDay := exMonday
var_Highlight := var_Calendar:HighlightEvent
var_Highlight:Pattern:Type := exPatternFrame
var_Highlight:Bold := false
oDCOCX_Exontrol1:ShowViewCompact := exViewCalendarCompact
oDCOCX_Exontrol1:BorderSelStyle := exNoLines
oDCOCX_Exontrol1:[Background,exScheduleMarkTodayBackColor] := RGB(240,240,240)
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("19970910 09:00:00"),SToD("19970910 14:00:00")):Repetitive := "FREQ=MONTHLY;INTERVAL=18;COUNT=10;BYMONTHDAY=10,11,12,13,14,15"
oDCOCX_Exontrol1:EndUpdate()
|
|
248
|
Recurrence: Monthly on the first and last day of the month for 10 occurrences
local var_Calendar as ICalendar
local var_Events as IEvents
local var_Highlight as IHighlight
oDCOCX_Exontrol1:BeginUpdate()
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("19970930")
var_Calendar:ShowNonMonthDays := false
var_Calendar:MaxMonthY := 4
var_Calendar:FirstWeekDay := exMonday
var_Highlight := var_Calendar:HighlightEvent
var_Highlight:Pattern:Type := exPatternFrame
var_Highlight:Bold := false
oDCOCX_Exontrol1:ShowViewCompact := exViewCalendarCompact
oDCOCX_Exontrol1:BorderSelStyle := exNoLines
oDCOCX_Exontrol1:[Background,exScheduleMarkTodayBackColor] := RGB(240,240,240)
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("19970903 09:00:00"),SToD("19970903 14:00:00")):Repetitive := "FREQ=MONTHLY;COUNT=10;BYMONTHDAY=1,-1"
oDCOCX_Exontrol1:EndUpdate()
|
|
247
|
Recurrence: Monthly on the 2nd and 15th of the month for 10 occurrences
local var_Calendar as ICalendar
local var_Events as IEvents
local var_Highlight as IHighlight
oDCOCX_Exontrol1:BeginUpdate()
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("19970902")
var_Calendar:ShowNonMonthDays := false
var_Calendar:MaxMonthY := 4
var_Calendar:FirstWeekDay := exMonday
var_Highlight := var_Calendar:HighlightEvent
var_Highlight:Pattern:Type := exPatternFrame
var_Highlight:Bold := false
oDCOCX_Exontrol1:ShowViewCompact := exViewCalendarCompact
oDCOCX_Exontrol1:BorderSelStyle := exNoLines
oDCOCX_Exontrol1:[Background,exScheduleMarkTodayBackColor] := RGB(240,240,240)
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("19970902 09:00:00"),SToD("19970902 14:00:00")):Repetitive := "FREQ=MONTHLY;COUNT=10;BYMONTHDAY=2,15"
oDCOCX_Exontrol1:EndUpdate()
|
|
246
|
Recurrence: Monthly on the third to the last day of the month, forever
local var_Calendar as ICalendar
local var_Events as IEvents
local var_Highlight as IHighlight
oDCOCX_Exontrol1:BeginUpdate()
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("19970928")
var_Calendar:ShowNonMonthDays := false
var_Calendar:MaxMonthY := 4
var_Calendar:FirstWeekDay := exMonday
var_Highlight := var_Calendar:HighlightEvent
var_Highlight:Pattern:Type := exPatternFrame
var_Highlight:Bold := false
oDCOCX_Exontrol1:ShowViewCompact := exViewCalendarCompact
oDCOCX_Exontrol1:BorderSelStyle := exNoLines
oDCOCX_Exontrol1:[Background,exScheduleMarkTodayBackColor] := RGB(240,240,240)
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("19970928 09:00:00"),SToD("19970928 14:00:00")):Repetitive := "FREQ=MONTHLY;BYMONTHDAY=-3"
oDCOCX_Exontrol1:EndUpdate()
|
|
245
|
Recurrence: Monthly on the second to last Monday of the month for 6 months
local var_Calendar as ICalendar
local var_Events as IEvents
local var_Highlight as IHighlight
oDCOCX_Exontrol1:BeginUpdate()
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("19970922")
var_Calendar:ShowNonMonthDays := false
var_Calendar:MaxMonthY := 4
var_Calendar:FirstWeekDay := exMonday
var_Highlight := var_Calendar:HighlightEvent
var_Highlight:Pattern:Type := exPatternFrame
var_Highlight:Bold := false
oDCOCX_Exontrol1:ShowViewCompact := exViewCalendarCompact
oDCOCX_Exontrol1:BorderSelStyle := exNoLines
oDCOCX_Exontrol1:[Background,exScheduleMarkTodayBackColor] := RGB(240,240,240)
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("19970922 09:00:00"),SToD("19970922 14:00:00")):Repetitive := "FREQ=MONTHLY;COUNT=6;BYDAY=-2MO"
oDCOCX_Exontrol1:EndUpdate()
|
|
244
|
Recurrence: Every other month on the 1st and last Sunday of the month for 10 occurrences
local var_Calendar as ICalendar
local var_Events as IEvents
local var_Highlight as IHighlight
oDCOCX_Exontrol1:BeginUpdate()
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("19970907")
var_Calendar:ShowNonMonthDays := false
var_Calendar:MaxMonthY := 4
var_Calendar:FirstWeekDay := exMonday
var_Highlight := var_Calendar:HighlightEvent
var_Highlight:Pattern:Type := exPatternFrame
var_Highlight:Bold := false
oDCOCX_Exontrol1:ShowViewCompact := exViewCalendarCompact
oDCOCX_Exontrol1:BorderSelStyle := exNoLines
oDCOCX_Exontrol1:[Background,exScheduleMarkTodayBackColor] := RGB(240,240,240)
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("19970907 09:00:00"),SToD("19970907 14:00:00")):Repetitive := "FREQ=MONTHLY;INTERVAL=2;COUNT=10;BYDAY=1SU,-1SU"
oDCOCX_Exontrol1:EndUpdate()
|
|
243
|
Recurrence: Monthly on the 1st Friday until December 24, 1997
local var_Calendar as ICalendar
local var_Events as IEvents
local var_Highlight as IHighlight
oDCOCX_Exontrol1:BeginUpdate()
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("19970905")
var_Calendar:ShowNonMonthDays := false
var_Calendar:MaxMonthY := 4
var_Calendar:FirstWeekDay := exMonday
var_Highlight := var_Calendar:HighlightEvent
var_Highlight:Pattern:Type := exPatternFrame
var_Highlight:Bold := false
oDCOCX_Exontrol1:ShowViewCompact := exViewCalendarCompact
oDCOCX_Exontrol1:BorderSelStyle := exNoLines
oDCOCX_Exontrol1:[Background,exScheduleMarkTodayBackColor] := RGB(240,240,240)
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("19970905 09:00:00"),SToD("19970905 14:00:00")):Repetitive := "FREQ=MONTHLY;UNTIL=19971224T000000Z;BYDAY=1FR"
oDCOCX_Exontrol1:EndUpdate()
|
|
242
|
Recurrence: Monthly on the 1st Friday for ten occurrences
local var_Calendar as ICalendar
local var_Events as IEvents
local var_Highlight as IHighlight
oDCOCX_Exontrol1:BeginUpdate()
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("19970905")
var_Calendar:ShowNonMonthDays := false
var_Calendar:MaxMonthY := 4
var_Calendar:FirstWeekDay := exMonday
var_Highlight := var_Calendar:HighlightEvent
var_Highlight:Pattern:Type := exPatternFrame
var_Highlight:Bold := false
oDCOCX_Exontrol1:ShowViewCompact := exViewCalendarCompact
oDCOCX_Exontrol1:BorderSelStyle := exNoLines
oDCOCX_Exontrol1:[Background,exScheduleMarkTodayBackColor] := RGB(240,240,240)
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("19970905 09:00:00"),SToD("19970905 14:00:00")):Repetitive := "FREQ=MONTHLY;COUNT=10;BYDAY=1FR"
oDCOCX_Exontrol1:EndUpdate()
|
|
241
|
Recurrence: Every other week on Tuesday and Thursday, for 8 occurrences
local var_Calendar as ICalendar
local var_Events as IEvents
local var_Highlight as IHighlight
oDCOCX_Exontrol1:BeginUpdate()
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("19970916")
var_Calendar:ShowNonMonthDays := false
var_Calendar:MaxMonthY := 4
var_Calendar:FirstWeekDay := exSunday
var_Highlight := var_Calendar:HighlightEvent
var_Highlight:Pattern:Type := exPatternFrame
var_Highlight:Bold := false
oDCOCX_Exontrol1:ShowViewCompact := exViewCalendarCompact
oDCOCX_Exontrol1:BorderSelStyle := exNoLines
oDCOCX_Exontrol1:[Background,exScheduleMarkTodayBackColor] := RGB(240,240,240)
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("19970902 09:00:00"),SToD("19970902 14:00:00")):Repetitive := "FREQ=WEEKLY;INTERVAL=2;COUNT=8;WKST=SU;BYDAY=TU,TH"
oDCOCX_Exontrol1:EndUpdate()
|
|
240
|
Recurrence: Every other week on Monday, Wednesday and Friday until December 24, 1997, but starting on Tuesday, September 2, 1997
local var_Calendar as ICalendar
local var_Events as IEvents
local var_Highlight as IHighlight
oDCOCX_Exontrol1:BeginUpdate()
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("19970917")
var_Calendar:ShowNonMonthDays := false
var_Calendar:MaxMonthY := 4
var_Calendar:FirstWeekDay := exSunday
var_Highlight := var_Calendar:HighlightEvent
var_Highlight:Pattern:Type := exPatternFrame
var_Highlight:Bold := false
oDCOCX_Exontrol1:ShowViewCompact := exViewCalendarCompact
oDCOCX_Exontrol1:BorderSelStyle := exNoLines
oDCOCX_Exontrol1:[Background,exScheduleMarkTodayBackColor] := RGB(240,240,240)
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("19970902 09:00:00"),SToD("19970902 14:00:00")):Repetitive := "FREQ=WEEKLY;INTERVAL=2;UNTIL=19971224T000000Z;WKST=SU;BYDAY=MO,WE,FR"
oDCOCX_Exontrol1:EndUpdate()
|
|
239
|
Recurrence: Weekly on Tuesday and Thursday for 5 weeks
local var_Calendar as ICalendar
local var_Events as IEvents
local var_Highlight as IHighlight
oDCOCX_Exontrol1:BeginUpdate()
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("19970916")
var_Calendar:ShowNonMonthDays := false
var_Calendar:MaxMonthY := 4
var_Calendar:FirstWeekDay := exSunday
var_Highlight := var_Calendar:HighlightEvent
var_Highlight:Pattern:Type := exPatternFrame
var_Highlight:Bold := false
oDCOCX_Exontrol1:ShowViewCompact := exViewCalendarCompact
oDCOCX_Exontrol1:BorderSelStyle := exNoLines
oDCOCX_Exontrol1:[Background,exScheduleMarkTodayBackColor] := RGB(240,240,240)
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("19970902 09:00:00"),SToD("19970902 14:00:00")):Repetitive := "FREQ=WEEKLY;UNTIL=19971007T000000Z;WKST=SU;BYDAY=TU,TH"
oDCOCX_Exontrol1:EndUpdate()
|
|
238
|
Recurrence: Weekly on Tuesday and Thursday for 5 weeks
local var_Calendar as ICalendar
local var_Events as IEvents
local var_Highlight as IHighlight
oDCOCX_Exontrol1:BeginUpdate()
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("19970916")
var_Calendar:ShowNonMonthDays := false
var_Calendar:MaxMonthY := 4
var_Calendar:FirstWeekDay := exSunday
var_Highlight := var_Calendar:HighlightEvent
var_Highlight:Pattern:Type := exPatternFrame
var_Highlight:Bold := false
oDCOCX_Exontrol1:ShowViewCompact := exViewCalendarCompact
oDCOCX_Exontrol1:BorderSelStyle := exNoLines
oDCOCX_Exontrol1:[Background,exScheduleMarkTodayBackColor] := RGB(240,240,240)
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("19970902 09:00:00"),SToD("19970902 14:00:00")):Repetitive := "FREQ=WEEKLY;COUNT=10;WKST=SU;BYDAY=TU,TH"
oDCOCX_Exontrol1:EndUpdate()
|
|
237
|
Recurrence: Every other day - forever
local var_Calendar as ICalendar
local var_Events as IEvents
local var_Highlight as IHighlight
oDCOCX_Exontrol1:BeginUpdate()
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("19970904")
var_Calendar:ShowNonMonthDays := false
var_Calendar:MaxMonthY := 4
var_Calendar:FirstWeekDay := exMonday
var_Highlight := var_Calendar:HighlightEvent
var_Highlight:Pattern:Type := exPatternFrame
var_Highlight:Bold := false
oDCOCX_Exontrol1:ShowViewCompact := exViewCalendarCompact
oDCOCX_Exontrol1:BorderSelStyle := exNoLines
oDCOCX_Exontrol1:[Background,exScheduleMarkTodayBackColor] := RGB(240,240,240)
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("19970902 09:00:00"),SToD("19970902 14:00:00")):Repetitive := "FREQ=DAILY;INTERVAL=2"
oDCOCX_Exontrol1:EndUpdate()
|
|
236
|
Recurrence: Daily until December 24, 1997
local var_Calendar as ICalendar
local var_Events as IEvents
local var_Highlight as IHighlight
oDCOCX_Exontrol1:BeginUpdate()
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("19970917")
var_Calendar:ShowNonMonthDays := false
var_Calendar:MaxMonthY := 4
var_Calendar:FirstWeekDay := exMonday
var_Highlight := var_Calendar:HighlightEvent
var_Highlight:Pattern:Type := exPatternFrame
var_Highlight:Bold := false
oDCOCX_Exontrol1:ShowViewCompact := exViewCalendarCompact
oDCOCX_Exontrol1:BorderSelStyle := exNoLines
oDCOCX_Exontrol1:[Background,exScheduleMarkTodayBackColor] := RGB(240,240,240)
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("19970902 09:00:00"),SToD("19970902 14:00:00")):Repetitive := "FREQ=DAILY;UNTIL=19971224T000000Z"
oDCOCX_Exontrol1:EndUpdate()
|
|
235
|
Recurrence: Daily for 10 occurrences
local var_Calendar as ICalendar
local var_Events as IEvents
local var_Highlight as IHighlight
oDCOCX_Exontrol1:BeginUpdate()
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("19970909")
var_Calendar:ShowNonMonthDays := false
var_Calendar:MaxMonthY := 4
var_Highlight := var_Calendar:HighlightEvent
var_Highlight:Pattern:Type := exPatternFrame
var_Highlight:Bold := false
var_Calendar:FirstWeekDay := exMonday
oDCOCX_Exontrol1:ShowViewCompact := exViewCalendarCompact
oDCOCX_Exontrol1:BorderSelStyle := exNoLines
oDCOCX_Exontrol1:[Background,exScheduleMarkTodayBackColor] := RGB(240,240,240)
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("19970902 09:00:00"),SToD("19970902 14:00:00")):Repetitive := "FREQ=DAILY;COUNT=10"
oDCOCX_Exontrol1:EndUpdate()
|
|
234
|
How do I display the week number according, so the January 1st is in the first week
local var_Calendar as ICalendar
oDCOCX_Exontrol1:BeginUpdate()
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("20160101")
var_Calendar:FirstWeekDay := exSunday
var_Calendar:DisplayWeekNumberAs := exSimpleWeekNumber
oDCOCX_Exontrol1:EndUpdate()
|
|
233
|
How do I display the week number according to ISO8601 standard
local var_Calendar as ICalendar
oDCOCX_Exontrol1:BeginUpdate()
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("20160104")
var_Calendar:FirstWeekDay := exMonday
var_Calendar:DisplayWeekNumberAs := exISO8601WeekNumber
oDCOCX_Exontrol1:EndUpdate()
|
|
232
|
How do I hide the week number
local var_Calendar as ICalendar
oDCOCX_Exontrol1:BeginUpdate()
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:FirstWeekDay := exMonday
var_Calendar:ShowWeeks := false
var_Calendar:ShowNonMonthDays := false
oDCOCX_Exontrol1:EndUpdate()
|
|
231
|
How can I change the background color of the all day header
local var_Calendar as ICalendar
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:OnResizeControl := exCalendarAutoHide
oDCOCX_Exontrol1:ShowAllDayHeader := true
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:FirstWeekDay := exMonday
var_Calendar:[SelectDate,SToD("20120508")] := true
var_Calendar:Select(exSelectWeek)
var_Calendar:[SelectDate,SToD("20120515")] := false
var_Calendar:Select(exSelectToggle | exSelectWeek)
oDCOCX_Exontrol1:[Background,exScheduleAllDayHeaderBackColor] := RGB(240,240,240)
oDCOCX_Exontrol1:HeaderAllDayEventHeight := -20
oDCOCX_Exontrol1:Events:Add(SToD("20120508"),SToD("20120517")):AllDayEvent := true
oDCOCX_Exontrol1:EndUpdate()
|
|
230
|
How can I display a single text on a specified date
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120526")
oDCOCX_Exontrol1:Calendar:Selection := "value in (#05/23/2012#,#05/24/2012#,#05/25/2012#)"
oDCOCX_Exontrol1:NonworkingPatterns:Add(1234,exPatternEmpty):BackgroundExt := "[text=`<font ;6><fgcolor 808080>just a notice`,align=0x11]"
oDCOCX_Exontrol1:NonworkingTimes:Add("value = #05/25/2012#","09:00","10:00",1234)
oDCOCX_Exontrol1:EndUpdate()
|
|
229
|
I am using the control's DataSource property, the question is how can I get the event's identifier Datafield(exEventID)
local rs as _Recordset
// Generate Source for 'Microsoft ActiveX Data Objects 6.1 Library(msado15.dll)' server from Tools\Automation Server...
rs := _Recordset{"ADOR.Recordset"}
rs:Open("Events","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExSchedule\Sample\Access2007\datasource.accdb",3,3,0)
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Calendar:Selection := SToD("20131111")
oDCOCX_Exontrol1:[DataField,exEventStartDateTime] := "Start"
oDCOCX_Exontrol1:[DataField,exEventEndDateTime] := "End"
oDCOCX_Exontrol1:[DataField,exEventExtraLabel] := "Extra"
oDCOCX_Exontrol1:DataSource := _Recordset{rs}
OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:Events:[Item,1]:[KnownProperty,exEventID]) ))
oDCOCX_Exontrol1:EndUpdate()
|
|
228
|
Is it possible to display some text/image on the schedule's view background
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120525")
oDCOCX_Exontrol1:NonworkingPatterns:Add(1234,exPatternBDiagonal):BackgroundExt := "[text=`<fgcolor 808080>just a caption`,align=0x11]"
oDCOCX_Exontrol1:NonworkingPatterns:Add(1235,exPatternEmpty):BackgroundExt := "[text=`<fgcolor 808080>just another caption`,align=0x11]"
oDCOCX_Exontrol1:NonworkingTimes:Add("weekday(value) = 5","08:00","08:59:59",1234)
oDCOCX_Exontrol1:NonworkingTimes:Add("weekday(value) = 5","09:00","09:59:59",1235)
oDCOCX_Exontrol1:NonworkingTimes:Add("weekday(value) = 5","10:00","10:59:59",1234)
oDCOCX_Exontrol1:EndUpdate()
|
|
227
|
How can I display a text on the schedule's view background
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120525")
oDCOCX_Exontrol1:NonworkingPatterns:Add(1234,exPatternEmpty):BackgroundExt := "[text=`<fgcolor 808080>just a caption`,align=0x11]"
oDCOCX_Exontrol1:NonworkingTimes:Add("weekday(value) = 5","12:00","13:00",1234)
oDCOCX_Exontrol1:EndUpdate()
|
|
226
|
Is it possible to change the visual appearance of the edit's context menu
oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
oDCOCX_Exontrol1:[Background,exContextMenuAppearance] := 0x1000000
|
|
225
|
How do I customize the edit's context menu
oDCOCX_Exontrol1:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oDCOCX_Exontrol1:EditContextMenuItems := "Insert[group=3](<img>1</img>[id=57763],<img>2</img>[id=57763])"
|
|
224
|
How can I lock/fix the date header, so it stays on the top while the user scrolls the chart
METHOD OCX_Exontrol1LayoutEndChanging(Operation) CLASS MainDialog
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
OutputDebugString(String2Psz( AsString(Operation) ))
oDCOCX_Exontrol1:DayViewHeight := 2016
RETURN NIL
local var_Calendar as ICalendar
oDCOCX_Exontrol1:BeginUpdate()
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:[SelectDate,SToD("20120520")] := true
var_Calendar:Select(exSelectWeek)
oDCOCX_Exontrol1:ScrollBars := exVertical
oDCOCX_Exontrol1:ShowViewCompact := exViewSingleRowLockHeader
oDCOCX_Exontrol1:DayViewHeight := 2016
oDCOCX_Exontrol1:AllowMoveSchedule := exDisallow
oDCOCX_Exontrol1:AllowResizeSchedule := exDisallow
oDCOCX_Exontrol1:AllowToggleSchedule := exDisallow
oDCOCX_Exontrol1:AllowExchangePanels := exDisallow
oDCOCX_Exontrol1:AllowMoveTimeScale := exDisallow
oDCOCX_Exontrol1:AllowResizeTimeScale := exDisallow
oDCOCX_Exontrol1:AllowMultiDaysEvent := false
oDCOCX_Exontrol1:TimeScales:[Item,0]:MinorTimeRuler := "00:10"
oDCOCX_Exontrol1:DayStartTime := "00:00"
oDCOCX_Exontrol1:DayEndTime := "24:00"
oDCOCX_Exontrol1:OnResizeControl := exCalendarAutoHide | exCalendarFit | exResizePanelRight
oDCOCX_Exontrol1:EndUpdate()
|
|
223
|
Is there any way to control the vertical size of each hour other than by the font and/or the minor time scale being changed
local var_Calendar as ICalendar
oDCOCX_Exontrol1:BeginUpdate()
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:[SelectDate,SToD("20120520")] := true
var_Calendar:Select(exSelectWeek)
oDCOCX_Exontrol1:OnResizeControl := exChangePanels | exHideSplitter
oDCOCX_Exontrol1:ScrollBars := exVertical
oDCOCX_Exontrol1:ShowViewCompact := exViewSingleRow
oDCOCX_Exontrol1:DayViewHeight := 2016
oDCOCX_Exontrol1:AllowMoveSchedule := exDisallow
oDCOCX_Exontrol1:AllowResizeSchedule := exDisallow
oDCOCX_Exontrol1:AllowToggleSchedule := exDisallow
oDCOCX_Exontrol1:AllowExchangePanels := exDisallow
oDCOCX_Exontrol1:AllowMoveTimeScale := exDisallow
oDCOCX_Exontrol1:AllowResizeTimeScale := exDisallow
oDCOCX_Exontrol1:AllowMultiDaysEvent := false
oDCOCX_Exontrol1:[Background,exScheduleBorderSelColor] := oDCOCX_Exontrol1:[Background,exScheduleBorderSelColorUnFocus]
oDCOCX_Exontrol1:TimeScales:[Item,0]:MinorTimeRuler := "00:10"
oDCOCX_Exontrol1:DayStartTime := "00:00"
oDCOCX_Exontrol1:DayEndTime := "24:00"
oDCOCX_Exontrol1:EndUpdate()
|
|
222
|
How can I show a single week, no calendar
local var_Calendar as ICalendar
oDCOCX_Exontrol1:BeginUpdate()
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:[SelectDate,SToD("20120520")] := true
var_Calendar:Select(exSelectWeek)
oDCOCX_Exontrol1:OnResizeControl := exChangePanels | exHideSplitter
oDCOCX_Exontrol1:ScrollBars := exNoScroll
oDCOCX_Exontrol1:ShowViewCompact := exViewSingleRow
oDCOCX_Exontrol1:AllowMoveSchedule := exDisallow
oDCOCX_Exontrol1:AllowResizeSchedule := exDisallow
oDCOCX_Exontrol1:AllowToggleSchedule := exDisallow
oDCOCX_Exontrol1:AllowExchangePanels := exDisallow
oDCOCX_Exontrol1:AllowMoveTimeScale := exDisallow
oDCOCX_Exontrol1:AllowResizeTimeScale := exDisallow
oDCOCX_Exontrol1:AllowMultiDaysEvent := false
oDCOCX_Exontrol1:[Background,exScheduleBorderSelColor] := oDCOCX_Exontrol1:[Background,exScheduleBorderSelColorUnFocus]
oDCOCX_Exontrol1:EndUpdate()
|
|
221
|
How do I select the dates within a giving interval only
local var_Calendar as ICalendar
local var_Events as IEvents
oDCOCX_Exontrol1:BeginUpdate()
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("20120501")
var_Calendar:Selection := "(value >= #5/13/2012#) and (value <= #5/26/2012#)"
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120524 09:00:00"),SToD("20120524 12:00:00"))
var_Events:Add(SToD("20120524 10:45:00"),SToD("20120524 12:45:00"))
var_Events:Add(SToD("20120524 11:30:00"),SToD("20120524 14:30:00"))
var_Events:Add(SToD("20120524 12:45:00"),SToD("20120524 15:45:00"))
oDCOCX_Exontrol1:EndUpdate()
|
|
220
|
How do I display the dates within a giving interval only
local var_Calendar as ICalendar
local var_Events as IEvents
oDCOCX_Exontrol1:BeginUpdate()
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:Selection := SToD("20120524")
var_Calendar:MinDate := SToD("20120513")
var_Calendar:MaxDate := SToD("20120526")
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120524 09:00:00"),SToD("20120524 12:00:00"))
var_Events:Add(SToD("20120524 10:45:00"),SToD("20120524 12:45:00"))
var_Events:Add(SToD("20120524 11:30:00"),SToD("20120524 14:30:00"))
var_Events:Add(SToD("20120524 12:45:00"),SToD("20120524 15:45:00"))
oDCOCX_Exontrol1:EndUpdate()
|
|
219
|
Is it possible that the time is displayed starting from 00:00 to 24:00 00 instead of 08:00 AM to 04:00 PM
local var_TimeScale as ITimeScale
oDCOCX_Exontrol1:DayStartTime := "00:00"
oDCOCX_Exontrol1:DayEndTime := "24:00"
var_TimeScale := oDCOCX_Exontrol1:TimeScales:[Item,0]
var_TimeScale:MajorTimeLabel := "<%hh%>:<%nn%>"
var_TimeScale:Width := 32
|
|
218
|
How do I show a double frame
local var_Event,var_Event1,var_Event2,var_Event3 as IEvent
local var_Events as IEvents
oDCOCX_Exontrol1:SelectEventStyle := exLinesSolid
oDCOCX_Exontrol1:Calendar:Selection := SToD("20010110")
oDCOCX_Exontrol1:DefaultEventLongLabel := ""
oDCOCX_Exontrol1:DefaultEventShortLabel := ""
var_Events := oDCOCX_Exontrol1:Events
var_Event := var_Events:Add(SToD("20010110 08:00:00"),SToD("20010110 10:00:00"))
var_Event: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=RGB(0,0,0)]"
var_Event:[BodyBackgroundExtValue,exIndexExt1,exBackColorExt] := 255
var_Event:[BodyBackgroundExtValue,exIndexExt1,exClientExt] := "35%"
var_Event1 := var_Events:Add(SToD("20010110 10:00:00"),SToD("20010110 12:00:00"))
var_Event1:BodyBackgroundExt := "top[25%,back=RGB(255,0,0),align=0x22],client[back=RGB(255,255,0),align=0x22]"
var_Event1:[BodyBackgroundExtValue,exIndexExt1,exClientExt] := "35%"
var_Event1:[BodyBackgroundExtValue,exIndexExt2,exBackColorExt] := 65535
var_Event2 := var_Events:Add(SToD("20010110 12:00:00"),SToD("20010110 14:00:00"))
var_Event2:ShowStatus := false
var_Event2: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)]"
var_Event3 := var_Events:Add(SToD("20010110 14:00:00"),SToD("20010110 16:00:00"))
var_Event3:ShowStatus := false
var_Event3: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)]"
|
|
217
|
How can I add more colors on the event
local var_Events as IEvents
oDCOCX_Exontrol1:SelectEventStyle := exLinesSolid
oDCOCX_Exontrol1:Calendar:Selection := SToD("20010110")
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20010110 09:00:00"),SToD("20010110 12:30:00")):BodyBackgroundExt := "bottom[15%](left[65%,frame,back=RGB(128,255,255)],client[back=RGB(255,0,0),frame])"
var_Events:Add(SToD("20010110 10:00:00"),SToD("20010110 13:00:00")):BodyBackgroundExt := "right[15%](bottom[35%,frame,back=RGB(128,255,255)],client[back=RGB(255,0,0),frame])"
var_Events:Add(SToD("20010110 11:00:00"),SToD("20010110 14:00:00")):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)])"
|
|
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
local var_Calendar as ICalendar
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:AlignDate := false
var_Calendar:MinMonthY := 2
var_Calendar:MaxMonthY := 2
|
|
215
|
How can I bound the control to a data source
METHOD OCX_Exontrol1Error(Error,Description) CLASS MainDialog
// Error event - Fired when an internal error occurs.
OutputDebugString(String2Psz( AsString(Description) ))
RETURN NIL
local rs as _Recordset
// Generate Source for 'Microsoft ActiveX Data Objects 6.1 Library(msado15.dll)' server from Tools\Automation Server...
rs := _Recordset{"ADOR.Recordset"}
rs:Open("Events","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExSchedule\Sample\Access2007\datasource.accdb",3,3,0)
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Calendar:Selection := SToD("20131111")
oDCOCX_Exontrol1:[DataField,exEventStartDateTime] := "Start"
oDCOCX_Exontrol1:[DataField,exEventEndDateTime] := "End"
oDCOCX_Exontrol1:[DataField,exEventExtraLabel] := "Extra"
oDCOCX_Exontrol1:DataSource := _Recordset{rs}
oDCOCX_Exontrol1:EndUpdate()
|
|
214
|
How can I start drag and drop an event
METHOD OCX_Exontrol1OLEStartDrag(Data,AllowedEffects) CLASS MainDialog
// OLEStartDrag event - Occurs when the OLEDrag method is called.
// Data.SetData( "your data to be dragged" )
AllowedEffects := 1
RETURN NIL
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:OLEDropMode := exOLEDropManual
oDCOCX_Exontrol1:SelectEventStyle := exLinesSolid
oDCOCX_Exontrol1:DefaultEventLongLabel := "<%=%256%><br><%=%5%>"
oDCOCX_Exontrol1:DefaultEventShortLabel := oDCOCX_Exontrol1:DefaultEventLongLabel
oDCOCX_Exontrol1:Calendar:Selection := SToD("20010110")
oDCOCX_Exontrol1:OnResizeControl := exCalendarAutoHide | exCalendarFit | exResizePanelRight
oDCOCX_Exontrol1:Events:Add(SToD("20010110 09:00:00"),SToD("20010110 12:30:00")):ExtraLabel := "Click the event and wait to start dragging."
oDCOCX_Exontrol1:EndUpdate()
|
|
213
|
I use the HighlightDate property to mark a date, instead the selection is not visible if I select the same date. What can be done
oDCOCX_Exontrol1:ShowHighlightDate := exHighlightDateCalendarEllipticClip | exHighlightDateCalendarGradient | exShowHighlightDateCalendar
oDCOCX_Exontrol1:Calendar:Selection := SToD("20010101")
oDCOCX_Exontrol1:[HighlightDate,SToD("20010109")] := 65280
oDCOCX_Exontrol1:[HighlightDate,SToD("20010117")] := "65280,255"
oDCOCX_Exontrol1:[HighlightDate,SToD("20010125")] := "255,65280,16711680"
|
|
212
|
How can I arrange the colors to highlight the date vertically
oDCOCX_Exontrol1:ShowHighlightDate := exHighlightDateVertical | exShowHighlightDateCalendar
oDCOCX_Exontrol1:Calendar:Selection := SToD("20010101")
oDCOCX_Exontrol1:[HighlightDate,SToD("20010109")] := 65280
oDCOCX_Exontrol1:[HighlightDate,SToD("20010117")] := "65280,255"
oDCOCX_Exontrol1:[HighlightDate,SToD("20010125")] := "255,65280,16711680"
|
|
211
|
Is it possible to highlight a date in gradient
oDCOCX_Exontrol1:ShowHighlightDate := exHighlightDateCalendarGradient | exShowHighlightDateCalendar
oDCOCX_Exontrol1:Calendar:Selection := SToD("20010101")
oDCOCX_Exontrol1:[HighlightDate,SToD("20010109")] := 65280
oDCOCX_Exontrol1:[HighlightDate,SToD("20010117")] := "65280,255"
oDCOCX_Exontrol1:[HighlightDate,SToD("20010125")] := "255,65280,16711680"
|
|
210
|
Is it possible to highlight a date in the calendar panel only
oDCOCX_Exontrol1:ShowHighlightDate := exShowHighlightDateCalendar
oDCOCX_Exontrol1:Calendar:Selection := SToD("20010101")
oDCOCX_Exontrol1:[HighlightDate,SToD("20010109")] := 65280
oDCOCX_Exontrol1:[HighlightDate,SToD("20010117")] := "65280,255"
oDCOCX_Exontrol1:[HighlightDate,SToD("20010125")] := "255,65280,16711680"
|
|
209
|
Is it possible to highlight a date in the control
oDCOCX_Exontrol1:ShowHighlightDate := exShowHighlightDate
oDCOCX_Exontrol1:Calendar:Selection := SToD("20010125")
oDCOCX_Exontrol1:[HighlightDate,SToD("20010109")] := 65280
oDCOCX_Exontrol1:[HighlightDate,SToD("20010117")] := "65280,255"
oDCOCX_Exontrol1:[HighlightDate,SToD("20010125")] := "255,65280,16711680"
|
|
208
|
How we need to put "nonworking time" to each group, because staff A is working different times then staff B. Is this possible
local var_NonworkingTimes as INonworkingTimes
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:BodyEventBackColor := RGB(240,240,240)
oDCOCX_Exontrol1:ShowGroupingEvents := true
oDCOCX_Exontrol1:DisplayGroupingButton := true
oDCOCX_Exontrol1:Groups:Add(1,"Group 1"):Visible := true
oDCOCX_Exontrol1:Groups:Add(2,"Group 2"):Visible := true
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120525")
oDCOCX_Exontrol1:NonworkingPatterns:Add(1234,exPatternBrick)
var_NonworkingTimes := oDCOCX_Exontrol1:NonworkingTimes
var_NonworkingTimes:Add("1","00:00","08:45",1234)
var_NonworkingTimes:Add("weekday(value) = 5","10:00","11:45",1):GroupID := 1
var_NonworkingTimes:Add("weekday(value) = 5","12:00","13:00",1234):GroupID := 2
oDCOCX_Exontrol1:Events:Add(SToD("20120525 09:30:00"),SToD("20120525 13:00:00")):GroupID := 1
oDCOCX_Exontrol1:EndUpdate()
|
|
207
|
I have a double click event set to launch a window so the user can supply input. The problem is that double click changes the view. How do I change this behavior
METHOD OCX_Exontrol1DblClick(Shift,X,Y) CLASS MainDialog
// DblClick event - Occurs when the user dblclk the left mouse button over an object.
OutputDebugString(String2Psz( "DblClick " ))
OutputDebugString(String2Psz( AsString(X) ))
OutputDebugString(String2Psz( AsString(Y) ))
RETURN NIL
local var_Events as IEvents
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120524")
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120524 10:00:00"),SToD("20120524 12:00:00"))
var_Events:Add(SToD("20120524 10:45:00"),SToD("20120524 12:30:00")):StatusColor := RGB(255,0,0)
var_Events:Add(SToD("20120524 11:30:00"),SToD("20120524 13:30:00"))
oDCOCX_Exontrol1:AllowEditEvent := exDisallow
oDCOCX_Exontrol1:AllowToggleSchedule := exDisallow
oDCOCX_Exontrol1:EndUpdate()
|
|
206
|
I have two-time scales. How do I change the label while updating the events to show the date-time on the second time-scale
local var_Events as IEvents
local var_TimeScale as ITimeScale
oDCOCX_Exontrol1:DayEndTime := "13:00"
var_TimeScale := oDCOCX_Exontrol1:TimeScales:Add("+3:00")
var_TimeScale:AlignLeft := true
var_TimeScale:Caption := "EST <b>+03"
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120524")
oDCOCX_Exontrol1:UpdateEventsLabel := "Start: <%=date(%1+3/24)%><br>End: <%=date(%2+3/24)%>"
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120524 10:00:00"),SToD("20120524 12:00:00"))
var_Events:Add(SToD("20120524 10:45:00"),SToD("20120524 12:30:00"))
var_Events:Add(SToD("20120524 11:30:00"),SToD("20120524 13:30:00"))
oDCOCX_Exontrol1:EndUpdate()
|
|
205
|
Is there a way to add a hyperlink to the event that would run a report with parameters
METHOD OCX_Exontrol1AnchorClick(AnchorID,Options) CLASS MainDialog
// AnchorClick event - Occurs when an anchor element is clicked.
OutputDebugString(String2Psz( AsString(AnchorID) ))
OutputDebugString(String2Psz( AsString(Options) ))
RETURN NIL
local var_Events as IEvents
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120620")
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120620 09:00:00"),SToD("20120620 11:00:00")):LongLabel := "<%=%256%><br><a 1234;option 1>more ...</a>"
var_Events:Add(SToD("20120620 11:00:00"),SToD("20120620 13:00:00")):LongLabel := "<%=%256%><br><a 1235;option 2>more ...</a>"
|
|
204
|
Can I have multiple months in the calendar section
local var_Calendar as ICalendar
var_Calendar := oDCOCX_Exontrol1:Calendar
var_Calendar:MinMonthY := 2
var_Calendar:MaxMonthY := 2
|
|
203
|
I need to make sure that at least the order number stays visible when the event is resized. Is there a way during event modification (another event be added at the same time that makes the event size shrink) to adjust the caption location
local var_Event,var_Event1 as IEvent
local var_Events as IEvents
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120620")
var_Events := oDCOCX_Exontrol1:Events
var_Event := var_Events:Add(SToD("20120620 09:00:00"),SToD("20120620 11:00:00"))
var_Event:UserData := 1234
var_Event:ShortLabel := "<%=%256%><br>Order: <%=%6%>"
var_Event:LongLabel := var_Event:ShortLabel
var_Event1 := var_Events:Add(SToD("20120620 11:00:00"),SToD("20120620 13:00:00"))
var_Event1:UserData := 1235
var_Event1:ShortLabel := "<%=%256%>, Order: <%=%6%>"
var_Event1:LongLabel := var_Event1:ShortLabel
|
|
202
|
I need to make sure that at least the order number stays visible when the event is resized. Is there a way during event modification (another event be added at the same time that makes the event size shrink) to adjust the caption location
local var_Events as IEvents
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120620")
oDCOCX_Exontrol1:DefaultEventShortLabel := "<%=%256%><br>Order: <b><%=%6%>"
oDCOCX_Exontrol1:DefaultEventLongLabel := oDCOCX_Exontrol1:DefaultEventShortLabel
var_Events := oDCOCX_Exontrol1:Events
var_Events:Add(SToD("20120620 09:00:00"),SToD("20120620 11:00:00")):UserData := 1234
var_Events:Add(SToD("20120620 11:00:00"),SToD("20120620 13:00:00")):UserData := 1235
|
|
201
|
Can you add text with links in the event
METHOD OCX_Exontrol1AnchorClick(AnchorID,Options) CLASS MainDialog
// AnchorClick event - Occurs when an anchor element is clicked.
OutputDebugString(String2Psz( AsString(AnchorID) ))
OutputDebugString(String2Psz( AsString(Options) ))
RETURN NIL
local var_Event,var_Event1 as IEvent
local var_Events as IEvents
oDCOCX_Exontrol1:Calendar:Selection := SToD("20120620")
var_Events := oDCOCX_Exontrol1:Events
var_Event := var_Events:Add(SToD("20120620 09:00:00"),SToD("20120620 11:00:00"))
var_Event:ShortLabel := "<a 1><%=%256%></a>"
var_Event:LongLabel := var_Event:ShortLabel
var_Event1 := var_Events:Add(SToD("20120620 11:00:00"),SToD("20120620 13:00:00"))
var_Event1:ShortLabel := "<a 2><%=%256%></a>"
var_Event1:LongLabel := var_Event1:ShortLabel
|