|
186
|
How do I change the color to display the marked-dates (EBN-color)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDate to "1/17/2001"
Set ComSelDate to "1/19/2001"
Set ComAutoSize to OLEexFixedSize
Set ComFixedCellWidth to 24
Set ComFixedCellHeight to 24
Set ComAlignmentDay to OLECenterAlignment
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABE8GACAADACAxRDgMQBQKAAzQFAYbBlBaERiGQYIJhUAIIRZGMIlVBJNw1DCNIDAWCQCgkNA1STAcLySAAchhEAZAIhGQHfiGNoqRDMczxNBgARZE6QILkaYJAjuNgyTjAdC0NIkTBrIKQBomCTKMhqSI4UpVM6RCKoSx6GSuZ5GUYKegmY5lVpVVIxPZNGwHE6WJThGTpQiOWYDC4LTS2bS4AT7JabZ5nej4JoKb5EWzGN63fhMfSdKChYhqTDcLjrCZfWDXFoABY9RTJHrGb6tPAKMwOcQ2VLZQxyBKmKZHLSQMwzOwMbx2ZpkXZbF4XVbmX4TUyIdQyLSpMy3CaVXbTGw5VqWPZrXDLAAvG5dieEY6jacx5hsfh+G4K4ThudY1hOPgsCYX5lkQVg5DMXg+nqWgGkKDAsgKUYXj4CZxBKfJ9BoLoPE8e5pGkGgTi2IBAlAECAg" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexMarkerColor to |CI$1000000
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant vEvent
Get ComDate to vEvent
Variant voEvent
Get ComAdd of hoEvents vEvent to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComMarker of hoEvent to True
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
185
|
How do I change the color to display the marked-dates (solid-color)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDate to "1/17/2001"
Set ComSelDate to "1/19/2001"
Set ComAutoSize to OLEexFixedSize
Set ComFixedCellWidth to 24
Set ComFixedCellHeight to 24
Set ComAlignmentDay to OLECenterAlignment
Set ComBackground OLEexMarkerColor to |CI$7f0000ff
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant vEvent
Get ComDate to vEvent
Variant voEvent
Get ComAdd of hoEvents vEvent to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComMarker of hoEvent to True
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
184
|
How do I change the color to display the marked-dates (line-color)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDate to "1/17/2001"
Set ComSelDate to "1/19/2001"
Set ComAutoSize to OLEexFixedSize
Set ComFixedCellWidth to 24
Set ComFixedCellHeight to 24
Set ComAlignmentDay to OLECenterAlignment
Set ComBackground OLEexMarkerColor to (RGB(255,0,0))
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant vEvent
Get ComDate to vEvent
Variant voEvent
Get ComAdd of hoEvents vEvent to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComMarker of hoEvent to True
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
183
|
ImageSize property on 32 (specifies the size of the control' icons)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComImageSize to 32
Variant voStdFont
Get ComFont to voStdFont
Handle hoStdFont
Get Create (RefClass(cComStdFont)) to hoStdFont
Set pvComObject of hoStdFont to voStdFont
Set ComSize of hoStdFont to 16
Send Destroy to hoStdFont
Set ComFixedCellWidth to 72
Set ComFixedCellHeight to 44
Send ComImages ("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/ptIkWUfhGK1kZH8RgH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" + ;
"RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==")
Set ComDrawGridLine to OLESmallDots
Set ComAutoSize to False
Set ComMaxMonthX to 1
Set ComMaxMonthY to 1
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant vEvent
Get ComDate to vEvent
Variant voEvent
Get ComAdd of hoEvents vEvent to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComImage of hoEvent to 1
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
182
|
ImageSize property on 16 (default) (specifies the size of the control' icons)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComImageSize to 16
Set ComFixedCellWidth to 36
Set ComFixedCellHeight to 22
Send ComImages "gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOqdSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVttmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8acvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtTGsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgPnwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg=="
Set ComDrawGridLine to OLESmallDots
Set ComAutoSize to False
Set ComMaxMonthX to 1
Set ComMaxMonthY to 1
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant vEvent
Get ComDate to vEvent
Variant voEvent
Get ComAdd of hoEvents vEvent to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComImage of hoEvent to 1
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
181
|
Is it possible to view all events the control fires
// Notifies the application once the control fires an event.
Procedure OnComEvent Integer llEventID
Forward Send OnComEvent llEventID
Showln (ComEventParam(Self,-2))
End_Procedure
|
|
180
|
Recurrence: Every Monday (using 'value' format)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComShowMonthSelector to False
Set ComMaxMonthX to 4
Set ComMinMonthX to 4
Set ComMinMonthY to 3
Set ComMaxMonthY to 3
Set ComAlignmentDay to OLECenterAlignment
Set ComAutoSize to OLEexFitClient
Set ComFirstDay to OLEMonday
Set ComShowNonMonthDays to False
Set ComBackground OLEexDateHeader to (RGB(220,220,220))
Set ComDrawGridLine to OLESolid
Set ComDate to "1/1/1997"
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "9/29/1997" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "weekday(value) = 1"
Set ComBold of hoEvent to True
Set ComForeColor of hoEvent to (RGB(255,0,0))
Set ComBackgroundExt of hoEvent to "bottom[4,back=RGB(255,0,0)]"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
179
|
Recurrence: The 2nd to last weekday of the month
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComShowMonthSelector to False
Set ComMaxMonthX to 4
Set ComMinMonthX to 4
Set ComMinMonthY to 3
Set ComMaxMonthY to 3
Set ComAlignmentDay to OLECenterAlignment
Set ComAutoSize to OLEexFitClient
Set ComFirstDay to OLEMonday
Set ComShowNonMonthDays to False
Set ComBackground OLEexDateHeader to (RGB(220,220,220))
Set ComDrawGridLine to OLESolid
Set ComDate to "1/1/1997"
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "9/29/1997" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=MONTHLY;BYDAY=MO,TU,WE,TH,FR;BYSETPOS=-2"
Set ComBold of hoEvent to True
Set ComForeColor of hoEvent to (RGB(255,0,0))
Set ComBackgroundExt of hoEvent to "bottom[4,back=RGB(255,0,0)]"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
178
|
Recurrence: The 3rd instance into the month of one of Tuesday, Wednesday or Thursday, for the next 3 months
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComShowMonthSelector to False
Set ComMaxMonthX to 4
Set ComMinMonthX to 4
Set ComMinMonthY to 3
Set ComMaxMonthY to 3
Set ComAlignmentDay to OLECenterAlignment
Set ComAutoSize to OLEexFitClient
Set ComFirstDay to OLEMonday
Set ComShowNonMonthDays to False
Set ComBackground OLEexDateHeader to (RGB(220,220,220))
Set ComDrawGridLine to OLESolid
Set ComDate to "1/1/1997"
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "9/4/1997" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=MONTHLY;COUNT=3;BYDAY=TU,WE,TH;BYSETPOS=3"
Set ComBold of hoEvent to True
Set ComForeColor of hoEvent to (RGB(255,0,0))
Set ComBackgroundExt of hoEvent to "bottom[4,back=RGB(255,0,0)]"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
177
|
Recurrence: The last work day of the month
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComShowMonthSelector to False
Set ComMaxMonthX to 4
Set ComMinMonthX to 4
Set ComMinMonthY to 3
Set ComMaxMonthY to 3
Set ComAlignmentDay to OLECenterAlignment
Set ComAutoSize to OLEexFitClient
Set ComFirstDay to OLEMonday
Set ComShowNonMonthDays to False
Set ComBackground OLEexDateHeader to (RGB(220,220,220))
Set ComDrawGridLine to OLESolid
Set ComShowWeeks to True
Set ComDate to "1/1/1997"
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "8/5/1997" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=MONTHLY;BYDAY=MO,TU,WE,TH,FR;BYSETPOS=-1"
Set ComBold of hoEvent to True
Set ComForeColor of hoEvent to (RGB(255,0,0))
Set ComBackgroundExt of hoEvent to "bottom[4,back=RGB(255,0,0)]"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
176
|
Recurrence: An example where the days generated makes a difference because of WKST (Sample 2)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComShowMonthSelector to False
Set ComMaxMonthX to 4
Set ComMinMonthX to 4
Set ComMinMonthY to 3
Set ComMaxMonthY to 3
Set ComAlignmentDay to OLECenterAlignment
Set ComAutoSize to OLEexFitClient
Set ComFirstDay to OLESunday
Set ComShowNonMonthDays to False
Set ComBackground OLEexDateHeader to (RGB(220,220,220))
Set ComDrawGridLine to OLESolid
Set ComShowWeeks to True
Set ComDate to "1/1/1997"
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "8/5/1997" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=WEEKLY;INTERVAL=2;COUNT=4;BYDAY=TU,SU"
Set ComBold of hoEvent to True
Set ComForeColor of hoEvent to (RGB(255,0,0))
Set ComBackgroundExt of hoEvent to "bottom[4,back=RGB(255,0,0)]"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
175
|
Recurrence: An example where the days generated makes a difference because of WKST (Sample 1)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComShowMonthSelector to False
Set ComMaxMonthX to 4
Set ComMinMonthX to 4
Set ComMinMonthY to 3
Set ComMaxMonthY to 3
Set ComAlignmentDay to OLECenterAlignment
Set ComAutoSize to OLEexFitClient
Set ComFirstDay to OLEMonday
Set ComShowNonMonthDays to False
Set ComBackground OLEexDateHeader to (RGB(220,220,220))
Set ComDrawGridLine to OLESolid
Set ComShowWeeks to True
Set ComDate to "1/1/1997"
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "8/5/1997" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=WEEKLY;INTERVAL=2;COUNT=4;BYDAY=TU,SU"
Set ComBold of hoEvent to True
Set ComForeColor of hoEvent to (RGB(255,0,0))
Set ComBackgroundExt of hoEvent to "bottom[4,back=RGB(255,0,0)]"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
174
|
Recurrence: Every four years, the first Tuesday after a Monday in November, forever (U.S. Presidential Election day)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComShowMonthSelector to False
Set ComMaxMonthX to 4
Set ComMinMonthX to 4
Set ComMinMonthY to 3
Set ComMaxMonthY to 3
Set ComAlignmentDay to OLECenterAlignment
Set ComAutoSize to OLEexFitClient
Set ComFirstDay to OLEMonday
Set ComShowNonMonthDays to False
Set ComBackground OLEexDateHeader to (RGB(220,220,220))
Set ComDrawGridLine to OLESolid
Set ComDate to "1/1/1996"
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "11/5/1996" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=YEARLY;INTERVAL=4;BYMONTH=11;BYDAY=TU;BYMONTHDAY=2,3,4,5,6,7,8"
Set ComBold of hoEvent to True
Set ComForeColor of hoEvent to (RGB(255,0,0))
Set ComBackgroundExt of hoEvent to "bottom[4,back=RGB(255,0,0)]"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
173
|
Recurrence: The first Saturday that follows the first Sunday of the month, forever
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComShowMonthSelector to False
Set ComMaxMonthX to 4
Set ComMinMonthX to 4
Set ComMinMonthY to 3
Set ComMaxMonthY to 3
Set ComAlignmentDay to OLECenterAlignment
Set ComAutoSize to OLEexFitClient
Set ComFirstDay to OLEMonday
Set ComShowNonMonthDays to False
Set ComBackground OLEexDateHeader to (RGB(220,220,220))
Set ComDrawGridLine to OLESolid
Set ComDate to "1/1/1997"
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "9/13/1997" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComBold of hoEvent to True
Set ComForeColor of hoEvent to (RGB(255,0,0))
Set ComRepetitive of hoEvent to "FREQ=MONTHLY;BYDAY=SA;BYMONTHDAY=7,8,9,10,11,12,13"
Set ComBackgroundExt of hoEvent to "bottom[4,back=RGB(255,0,0)]"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
172
|
Recurrence: Every Friday the 13th, forever
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComShowMonthSelector to False
Set ComMaxMonthX to 4
Set ComMinMonthX to 4
Set ComMinMonthY to 3
Set ComMaxMonthY to 3
Set ComAlignmentDay to OLECenterAlignment
Set ComAutoSize to OLEexFitClient
Set ComFirstDay to OLEMonday
Set ComShowNonMonthDays to False
Set ComBackground OLEexDateHeader to (RGB(220,220,220))
Set ComDrawGridLine to OLESolid
Set ComDate to "1/1/1997"
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "9/2/1997" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=MONTHLY;BYDAY=FR;BYMONTHDAY=13"
Set ComBold of hoEvent to True
Set ComForeColor of hoEvent to (RGB(255,0,0))
Set ComBackgroundExt of hoEvent to "bottom[4,back=RGB(255,0,0)]"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
171
|
Recurrence: Every Thursday, but only during June, July, and August, forever
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComShowMonthSelector to False
Set ComMaxMonthX to 4
Set ComMinMonthX to 4
Set ComMinMonthY to 3
Set ComMaxMonthY to 3
Set ComAlignmentDay to OLECenterAlignment
Set ComAutoSize to OLEexFitClient
Set ComFirstDay to OLEMonday
Set ComShowNonMonthDays to False
Set ComBackground OLEexDateHeader to (RGB(220,220,220))
Set ComDrawGridLine to OLESolid
Set ComDate to "1/1/1997"
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "6/5/1997" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=YEARLY;BYDAY=TH;BYMONTH=6,7,8"
Set ComBold of hoEvent to True
Set ComForeColor of hoEvent to (RGB(255,0,0))
Set ComBackgroundExt of hoEvent to "bottom[4,back=RGB(255,0,0)]"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
170
|
Recurrence: Every Thursday in March, forever
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComShowMonthSelector to False
Set ComMaxMonthX to 4
Set ComMinMonthX to 4
Set ComMinMonthY to 3
Set ComMaxMonthY to 3
Set ComAlignmentDay to OLECenterAlignment
Set ComAutoSize to OLEexFitClient
Set ComFirstDay to OLEMonday
Set ComShowNonMonthDays to False
Set ComBackground OLEexDateHeader to (RGB(220,220,220))
Set ComDrawGridLine to OLESolid
Set ComDate to "1/1/1997"
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "3/13/1997" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=YEARLY;BYMONTH=3;BYDAY=TH"
Set ComBold of hoEvent to True
Set ComForeColor of hoEvent to (RGB(255,0,0))
Set ComBackgroundExt of hoEvent to "bottom[4,back=RGB(255,0,0)]"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
169
|
Recurrence: Monday of week number 20 (where the default start of the week is Monday), forever
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComShowMonthSelector to False
Set ComMaxMonthX to 4
Set ComMinMonthX to 4
Set ComMinMonthY to 3
Set ComMaxMonthY to 3
Set ComAlignmentDay to OLECenterAlignment
Set ComAutoSize to OLEexFitClient
Set ComFirstDay to OLEMonday
Set ComShowNonMonthDays to False
Set ComBackground OLEexDateHeader to (RGB(220,220,220))
Set ComDrawGridLine to OLESolid
Set ComShowWeeks to True
Set ComDate to "1/1/1997"
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "5/12/1997" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=YEARLY;BYWEEKNO=20;BYDAY=MO"
Set ComBold of hoEvent to True
Set ComForeColor of hoEvent to (RGB(255,0,0))
Set ComBackgroundExt of hoEvent to "bottom[4,back=RGB(255,0,0)]"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
168
|
Recurrence: Every 20th Monday of the year, forever
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComShowMonthSelector to False
Set ComMaxMonthX to 4
Set ComMinMonthX to 4
Set ComMinMonthY to 3
Set ComMaxMonthY to 3
Set ComAlignmentDay to OLECenterAlignment
Set ComAutoSize to OLEexFitClient
Set ComFirstDay to OLEMonday
Set ComShowNonMonthDays to False
Set ComBackground OLEexDateHeader to (RGB(220,220,220))
Set ComDrawGridLine to OLESolid
Set ComDate to "1/1/1997"
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "1/1/1997" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=YEARLY;BYDAY=20MO"
Set ComBold of hoEvent to True
Set ComForeColor of hoEvent to (RGB(255,0,0))
Set ComBackgroundExt of hoEvent to "bottom[4,back=RGB(255,0,0)]"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
167
|
Recurrence: Every 3rd year on the 1st, 100th and 200th day for 10 occurrences
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComShowMonthSelector to False
Set ComMaxMonthX to 4
Set ComMinMonthX to 4
Set ComMinMonthY to 3
Set ComMaxMonthY to 3
Set ComAlignmentDay to OLECenterAlignment
Set ComAutoSize to OLEexFitClient
Set ComFirstDay to OLEMonday
Set ComShowNonMonthDays to False
Set ComBackground OLEexDateHeader to (RGB(220,220,220))
Set ComDrawGridLine to OLESolid
Set ComDate to "1/1/1997"
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "1/1/1997" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=YEARLY;INTERVAL=3;COUNT=10;BYYEARDAY=1,100,200"
Set ComBold of hoEvent to True
Set ComForeColor of hoEvent to (RGB(255,0,0))
Set ComBackgroundExt of hoEvent to "bottom[4,back=RGB(255,0,0)]"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
166
|
Recurrence: Every other year on January, February, and March for 10 occurrences
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComShowMonthSelector to False
Set ComMaxMonthX to 4
Set ComMinMonthX to 4
Set ComMinMonthY to 3
Set ComMaxMonthY to 3
Set ComAlignmentDay to OLECenterAlignment
Set ComAutoSize to OLEexFitClient
Set ComFirstDay to OLEMonday
Set ComShowNonMonthDays to False
Set ComBackground OLEexDateHeader to (RGB(220,220,220))
Set ComDrawGridLine to OLESolid
Set ComDate to "1/1/1997"
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "3/10/1997" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=YEARLY;INTERVAL=2;COUNT=10;BYMONTH=1,2,3"
Set ComBold of hoEvent to True
Set ComForeColor of hoEvent to (RGB(255,0,0))
Set ComBackgroundExt of hoEvent to "bottom[4,back=RGB(255,0,0)]"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
165
|
Recurrence: Yearly in June and July for 10 occurrences
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComShowMonthSelector to False
Set ComMaxMonthX to 4
Set ComMinMonthX to 4
Set ComMinMonthY to 3
Set ComMaxMonthY to 3
Set ComAlignmentDay to OLECenterAlignment
Set ComAutoSize to OLEexFitClient
Set ComFirstDay to OLEMonday
Set ComShowNonMonthDays to False
Set ComBackground OLEexDateHeader to (RGB(220,220,220))
Set ComDrawGridLine to OLESolid
Set ComDate to "1/1/1997"
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "6/10/1997" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=YEARLY;COUNT=10;BYMONTH=6,7"
Set ComBold of hoEvent to True
Set ComForeColor of hoEvent to (RGB(255,0,0))
Set ComBackgroundExt of hoEvent to "bottom[4,back=RGB(255,0,0)]"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
164
|
Recurrence: Every Tuesday, every other month
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComShowMonthSelector to False
Set ComMaxMonthX to 4
Set ComMinMonthX to 4
Set ComMinMonthY to 3
Set ComMaxMonthY to 3
Set ComAlignmentDay to OLECenterAlignment
Set ComAutoSize to OLEexFitClient
Set ComFirstDay to OLEMonday
Set ComShowNonMonthDays to False
Set ComBackground OLEexDateHeader to (RGB(220,220,220))
Set ComDrawGridLine to OLESolid
Set ComDate to "1/1/1997"
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "9/2/1997" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=MONTHLY;INTERVAL=2;BYDAY=TU"
Set ComBold of hoEvent to True
Set ComForeColor of hoEvent to (RGB(255,0,0))
Set ComBackgroundExt of hoEvent to "bottom[4,back=RGB(255,0,0)]"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
163
|
Recurrence: Every 18 months on the 10th thru 15th of the month for 10 occurrences
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComShowMonthSelector to False
Set ComMaxMonthX to 4
Set ComMinMonthX to 4
Set ComMinMonthY to 3
Set ComMaxMonthY to 3
Set ComAlignmentDay to OLECenterAlignment
Set ComAutoSize to OLEexFitClient
Set ComFirstDay to OLEMonday
Set ComShowNonMonthDays to False
Set ComBackground OLEexDateHeader to (RGB(220,220,220))
Set ComDrawGridLine to OLESolid
Set ComDate to "1/1/1997"
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "9/10/1997" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=MONTHLY;INTERVAL=18;COUNT=10;BYMONTHDAY=10,11,12,13,14,15"
Set ComBold of hoEvent to True
Set ComForeColor of hoEvent to (RGB(255,0,0))
Set ComBackgroundExt of hoEvent to "bottom[4,back=RGB(255,0,0)]"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
162
|
Recurrence: Monthly on the first and last day of the month for 10 occurrences
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComShowMonthSelector to False
Set ComMaxMonthX to 4
Set ComMinMonthX to 4
Set ComMinMonthY to 3
Set ComMaxMonthY to 3
Set ComAlignmentDay to OLECenterAlignment
Set ComAutoSize to OLEexFitClient
Set ComFirstDay to OLEMonday
Set ComShowNonMonthDays to False
Set ComBackground OLEexDateHeader to (RGB(220,220,220))
Set ComDrawGridLine to OLESolid
Set ComDate to "1/1/1997"
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "9/3/1997" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=MONTHLY;COUNT=10;BYMONTHDAY=1,-1"
Set ComBold of hoEvent to True
Set ComForeColor of hoEvent to (RGB(255,0,0))
Set ComBackgroundExt of hoEvent to "bottom[4,back=RGB(255,0,0)]"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
161
|
Recurrence: Monthly on the 2nd and 15th of the month for 10 occurrences
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComShowMonthSelector to False
Set ComMaxMonthX to 4
Set ComMinMonthX to 4
Set ComMinMonthY to 3
Set ComMaxMonthY to 3
Set ComAlignmentDay to OLECenterAlignment
Set ComAutoSize to OLEexFitClient
Set ComFirstDay to OLEMonday
Set ComShowNonMonthDays to False
Set ComBackground OLEexDateHeader to (RGB(220,220,220))
Set ComDrawGridLine to OLESolid
Set ComDate to "1/1/1997"
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "9/2/1997" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=MONTHLY;COUNT=10;BYMONTHDAY=2,15"
Set ComBold of hoEvent to True
Set ComForeColor of hoEvent to (RGB(255,0,0))
Set ComBackgroundExt of hoEvent to "bottom[4,back=RGB(255,0,0)]"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
160
|
Recurrence: Monthly on the third to the last day of the month, forever
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComShowMonthSelector to False
Set ComMaxMonthX to 4
Set ComMinMonthX to 4
Set ComMinMonthY to 3
Set ComMaxMonthY to 3
Set ComAlignmentDay to OLECenterAlignment
Set ComAutoSize to OLEexFitClient
Set ComFirstDay to OLEMonday
Set ComShowNonMonthDays to False
Set ComBackground OLEexDateHeader to (RGB(220,220,220))
Set ComDrawGridLine to OLESolid
Set ComDate to "1/1/1997"
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "9/28/1997" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=MONTHLY;BYMONTHDAY=-3"
Set ComBold of hoEvent to True
Set ComForeColor of hoEvent to (RGB(255,0,0))
Set ComBackgroundExt of hoEvent to "bottom[4,back=RGB(255,0,0)]"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
159
|
Recurrence: Monthly on the second to last Monday of the month for 6 months
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComShowMonthSelector to False
Set ComMaxMonthX to 4
Set ComMinMonthX to 4
Set ComMinMonthY to 3
Set ComMaxMonthY to 3
Set ComAlignmentDay to OLECenterAlignment
Set ComAutoSize to OLEexFitClient
Set ComFirstDay to OLEMonday
Set ComShowNonMonthDays to False
Set ComBackground OLEexDateHeader to (RGB(220,220,220))
Set ComDrawGridLine to OLESolid
Set ComDate to "1/1/1997"
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "9/22/1997" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=MONTHLY;COUNT=6;BYDAY=-2MO"
Set ComBold of hoEvent to True
Set ComForeColor of hoEvent to (RGB(255,0,0))
Set ComBackgroundExt of hoEvent to "bottom[4,back=RGB(255,0,0)]"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
158
|
Recurrence: Every other month on the 1st and last Sunday of the month for 10 occurrences
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComShowMonthSelector to False
Set ComMaxMonthX to 4
Set ComMinMonthX to 4
Set ComMinMonthY to 3
Set ComMaxMonthY to 3
Set ComAlignmentDay to OLECenterAlignment
Set ComAutoSize to OLEexFitClient
Set ComFirstDay to OLEMonday
Set ComShowNonMonthDays to False
Set ComBackground OLEexDateHeader to (RGB(220,220,220))
Set ComDrawGridLine to OLESolid
Set ComDate to "1/1/1997"
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "9/7/1997" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=MONTHLY;INTERVAL=2;COUNT=10;BYDAY=1SU,-1SU"
Set ComBold of hoEvent to True
Set ComForeColor of hoEvent to (RGB(255,0,0))
Set ComBackgroundExt of hoEvent to "bottom[4,back=RGB(255,0,0)]"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
157
|
Recurrence: Monthly on the 1st Friday until December 24, 1997
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComShowMonthSelector to False
Set ComMaxMonthX to 4
Set ComMinMonthX to 4
Set ComMinMonthY to 3
Set ComMaxMonthY to 3
Set ComAlignmentDay to OLECenterAlignment
Set ComAutoSize to OLEexFitClient
Set ComFirstDay to OLEMonday
Set ComShowNonMonthDays to False
Set ComBackground OLEexDateHeader to (RGB(220,220,220))
Set ComDrawGridLine to OLESolid
Set ComDate to "1/1/1997"
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "9/5/1997" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=MONTHLY;UNTIL=19971224T000000Z;BYDAY=1FR"
Set ComBold of hoEvent to True
Set ComForeColor of hoEvent to (RGB(255,0,0))
Set ComBackgroundExt of hoEvent to "bottom[4,back=RGB(255,0,0)]"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
156
|
Recurrence: Monthly on the 1st Friday for ten occurrences
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComShowMonthSelector to False
Set ComMaxMonthX to 4
Set ComMinMonthX to 4
Set ComMinMonthY to 3
Set ComMaxMonthY to 3
Set ComAlignmentDay to OLECenterAlignment
Set ComAutoSize to OLEexFitClient
Set ComFirstDay to OLEMonday
Set ComShowNonMonthDays to False
Set ComBackground OLEexDateHeader to (RGB(220,220,220))
Set ComDrawGridLine to OLESolid
Set ComDate to "1/1/1997"
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "9/5/1997" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=MONTHLY;COUNT=10;BYDAY=1FR"
Set ComBold of hoEvent to True
Set ComForeColor of hoEvent to (RGB(255,0,0))
Set ComBackgroundExt of hoEvent to "bottom[4,back=RGB(255,0,0)]"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
155
|
Recurrence: Every other week on Tuesday and Thursday, for 8 occurrences
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComShowMonthSelector to False
Set ComMaxMonthX to 4
Set ComMinMonthX to 4
Set ComMinMonthY to 3
Set ComMaxMonthY to 3
Set ComAlignmentDay to OLECenterAlignment
Set ComAutoSize to OLEexFitClient
Set ComFirstDay to OLESunday
Set ComShowNonMonthDays to False
Set ComBackground OLEexDateHeader to (RGB(220,220,220))
Set ComDrawGridLine to OLESolid
Set ComDate to "1/1/1997"
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "9/2/1997" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=WEEKLY;INTERVAL=2;COUNT=8;WKST=SU;BYDAY=TU,TH"
Set ComBold of hoEvent to True
Set ComForeColor of hoEvent to (RGB(255,0,0))
Set ComBackgroundExt of hoEvent to "bottom[4,back=RGB(255,0,0)]"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
154
|
Recurrence: Every other week on Monday, Wednesday and Friday until December 24, 1997, but starting on Tuesday, September 2, 1997
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComShowMonthSelector to False
Set ComMaxMonthX to 4
Set ComMinMonthX to 4
Set ComMinMonthY to 3
Set ComMaxMonthY to 3
Set ComAlignmentDay to OLECenterAlignment
Set ComAutoSize to OLEexFitClient
Set ComFirstDay to OLESunday
Set ComShowNonMonthDays to False
Set ComBackground OLEexDateHeader to (RGB(220,220,220))
Set ComDrawGridLine to OLESolid
Set ComDate to "1/1/1997"
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "9/2/1997" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=WEEKLY;INTERVAL=2;UNTIL=19971224T000000Z;WKST=SU;BYDAY=MO,WE,FR"
Set ComBold of hoEvent to True
Set ComForeColor of hoEvent to (RGB(255,0,0))
Set ComBackgroundExt of hoEvent to "bottom[4,back=RGB(255,0,0)]"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
153
|
Recurrence: Weekly on Tuesday and Thursday for 5 weeks
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComShowMonthSelector to False
Set ComMaxMonthX to 4
Set ComMinMonthX to 4
Set ComMinMonthY to 3
Set ComMaxMonthY to 3
Set ComAlignmentDay to OLECenterAlignment
Set ComAutoSize to OLEexFitClient
Set ComFirstDay to OLESunday
Set ComShowNonMonthDays to False
Set ComBackground OLEexDateHeader to (RGB(220,220,220))
Set ComDrawGridLine to OLESolid
Set ComDate to "1/1/1997"
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "9/2/1997" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=WEEKLY;UNTIL=19971007T000000Z;WKST=SU;BYDAY=TU,TH"
Set ComBold of hoEvent to True
Set ComForeColor of hoEvent to (RGB(255,0,0))
Set ComBackgroundExt of hoEvent to "bottom[4,back=RGB(255,0,0)]"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
152
|
Recurrence: Weekly on Tuesday and Thursday for 5 weeks
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComShowMonthSelector to False
Set ComMaxMonthX to 4
Set ComMinMonthX to 4
Set ComMinMonthY to 3
Set ComMaxMonthY to 3
Set ComAlignmentDay to OLECenterAlignment
Set ComAutoSize to OLEexFitClient
Set ComFirstDay to OLEMonday
Set ComShowNonMonthDays to False
Set ComBackground OLEexDateHeader to (RGB(220,220,220))
Set ComDrawGridLine to OLESolid
Set ComDate to "1/1/1997"
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "9/2/1997" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=WEEKLY;COUNT=10;WKST=SU;BYDAY=TU,TH"
Set ComBold of hoEvent to True
Set ComForeColor of hoEvent to (RGB(255,0,0))
Set ComBackgroundExt of hoEvent to "bottom[4,back=RGB(255,0,0)]"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
151
|
Recurrence: Every other day - forever
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComShowMonthSelector to False
Set ComMaxMonthX to 4
Set ComMinMonthX to 4
Set ComMinMonthY to 3
Set ComMaxMonthY to 3
Set ComAlignmentDay to OLECenterAlignment
Set ComAutoSize to OLEexFitClient
Set ComFirstDay to OLEMonday
Set ComShowNonMonthDays to False
Set ComBackground OLEexDateHeader to (RGB(220,220,220))
Set ComDrawGridLine to OLESolid
Set ComDate to "1/1/1997"
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "9/2/1997" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=DAILY;INTERVAL=2"
Set ComBold of hoEvent to True
Set ComForeColor of hoEvent to (RGB(255,0,0))
Set ComBackgroundExt of hoEvent to "bottom[4,back=RGB(255,0,0)]"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
150
|
Recurrence: Daily until December 24, 1997
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComShowMonthSelector to False
Set ComMaxMonthX to 4
Set ComMinMonthX to 4
Set ComMinMonthY to 3
Set ComMaxMonthY to 3
Set ComAlignmentDay to OLECenterAlignment
Set ComAutoSize to OLEexFitClient
Set ComFirstDay to OLEMonday
Set ComShowNonMonthDays to False
Set ComBackground OLEexDateHeader to (RGB(220,220,220))
Set ComDrawGridLine to OLESolid
Set ComDate to "1/1/1997"
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "9/2/1997" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=DAILY;UNTIL=19971224T000000Z"
Set ComBold of hoEvent to True
Set ComForeColor of hoEvent to (RGB(255,0,0))
Set ComBackgroundExt of hoEvent to "bottom[4,back=RGB(255,0,0)]"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
149
|
Recurrence: Daily for 10 occurrences
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComShowMonthSelector to False
Set ComMaxMonthX to 4
Set ComMinMonthX to 4
Set ComMinMonthY to 3
Set ComMaxMonthY to 3
Set ComAlignmentDay to OLECenterAlignment
Set ComAutoSize to OLEexFitClient
Set ComFirstDay to OLEMonday
Set ComShowNonMonthDays to False
Set ComBackground OLEexDateHeader to (RGB(220,220,220))
Set ComDrawGridLine to OLESolid
Set ComDate to "1/1/1997"
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "9/2/1997" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComRepetitive of hoEvent to "FREQ=DAILY;COUNT=10"
Set ComBold of hoEvent to True
Set ComForeColor of hoEvent to (RGB(255,0,0))
Set ComBackgroundExt of hoEvent to "bottom[4,back=RGB(255,0,0)]"
Send Destroy to hoEvent
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
148
|
How can I show a single month
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComMaxMonthX to 1
Set ComMaxMonthY to 1
Set ComShowTodayButton to False
Set ComShowMonthSelector to False
Set ComShowYearScroll to False
Set ComAlignmentDay to OLECenterAlignment
Set ComShowWeeks to True
Send ComEndUpdate
End_Procedure
|
|
147
|
How can I display the week-number in ISO8601 format
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComFirstDay to OLEMonday
Set ComDisplayWeekNumberAs to OLEexISO8601WeekNumber
Set ComDate to "1/1/2001"
Set ComMinMonthX to 3
Set ComMaxMonthX to (ComMinMonthX(Self))
Set ComMinMonthY to 4
Set ComMaxMonthY to (ComMinMonthY(Self))
Set ComShowWeeks to True
Send ComEndUpdate
End_Procedure
|
|
146
|
Can I include the month's number in the date header
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAppearance to OLENone2
Set ComBackground OLEexDateHeader to (ComBackColor(Self))
Set ComFirstDay to OLEMonday
Set ComDrawGridLine to OLESolid
Set ComWeekDays to "Su Mo Tu We Th Fr Sa"
Set ComMarkToday to True
Set ComAutoSize to OLEexFixedSize
Set ComAlignmentDay to OLECenterAlignment
Set ComFixedCellHeight to 32
Set ComFixedCellWidth to 32
Set ComDateHeaderFormat to "1,(""[b=0],(""[b=0]/24;2[b=0][bg=0x01000000]/""[b=0]):24,""[b=0]):32,(""[b=0],(""[b=0]/24;3[b=0][bg=0x01000000]/""[b=0]):24,""[b=0]):32"
Set ComDateHeaderField OLEexHeaderDate to "`<c><%month%> (` + (dateF(value) left 2) + `) <r><off -6><font ;6><%year%>`"
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABFgDg6AADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYIkWA5AiKEYoThCIxzTJ8aw3CKbYRAKCXfoUAJFP7Fc6ABJMBx3EyhZ89NDYEwTIKBahoehqIheEQyDSJNb2DCIahhMSEbKtCooDhGFpUWzLdxTJJVawHJoABjkS45PjEAJ+SBPUZVRRlFyfO7BKSjMKKXgkG4zABWVa1bC1FzxQ6mKykKQLQADDIDVZAeL3JTNCS5IyLLDtO77EqmZ5la7cUgRDj4AY7Ua+MzubBZaovOqDYzAey7TDWLRXFDNIzzTgQAyHHrETZHGqwJxMAEapYGqYpVi2HwzDuQ5oHKIQgggSSUGMOgdE4RhYDwJBVAwIQTH2UYhjQJBRAmZxuCEHZ3icJp5EgKxgAIVgCCQSQSEIBQkCAYhCAIJYKmKNIuFcTBIESPYEk6GBUm+BZOmOPgZgWYRTiYEwvEwaIEAAK4KnKOJrgmTpDjCbYJmKSI2CoOxihOLglCuAACioNg8COA4gmcOZOiidg+g+Dh4moOA8CMYokNmCoyiycQ8E8A4iE6D4OjOMgng8ZJjiITA8CSEouEcKwKkkLJyhQIoIkYU9LjORhcCsAAIACLQ8iaSJ6FKC5jJoaobA8KYoACCRKnmMJzhuDpZnSboMCKGJ4nMPIPDmYAACwKIDk6CoLCeU40m6I5oliMoKDyaICokLIpgoThviOKJoGYf4KmUKhMjMLJLCAAojCyaYoiYGoGmqM46CkOwPEoKonAACxKlSdItmiWBeBeDgrioNo3D0KxSlAAAtgsUpYnUPRPEoco8hCa+T40SxbBRj5tEsHJ1i6JhbGYS4ug8awelQLZAAKZI5C4DxrhYQ9ehmUppWiA48nAPRuFKYpiAAC47laZQ9iuKZSgOPotkuFI7C6C4gACPJAm8eQOhOQZoikDp3kCS5AACPoEk8fBGnqQgpDOSppD2TxjlyPZD6CfwekQTx5lKP5ImseZTCAL5MAMAAAkoTADmMLpIjISp+HSS4PgyMAADBzAHDSIoPCOUpWjObIKE8NJOHKIwPEaTprBsHpdjWLB9AieQ+DQYwQAAMR1EOZxWi+bx7HcWQ8msfRYnnDZQACRwxgwc5rGaMZPE0ZxqjWNZtgyRwAAyTZEnuXJzEyAx2kQcxNkye5cEy3cYAcANrGAIH4OAhx3gNGGPAfgIR8jBA4McBMARVhnH4HQOYmxuCpF2MsecEQVBvGQCcIQug6itGQBoARAQ=" to Nothing
Send Destroy to hoAppearance
Send ComEndUpdate
End_Procedure
|
|
145
|
How can I display the previously/next month in the date header
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAppearance to OLENone2
Set ComBackground OLEexDateHeader to (ComBackColor(Self))
Set ComFirstDay to OLEMonday
Set ComMaxMonthX to 1
Set ComMaxMonthY to 1
Set ComDrawGridLine to OLESolid
Set ComWeekDays to "Su Mo Tu We Th Fr Sa"
Set ComMarkToday to True
Set ComAutoSize to OLEexFixedSize
Set ComAlignmentDay to OLECenterAlignment
Set ComFixedCellHeight to 32
Set ComFixedCellWidth to 32
Set ComDateHeaderFormat to "2[b=0][bg=RGB(240,240,240)]:32,1,3[b=0][bg=RGB(240,240,240)]:32"
Set ComDateHeaderField OLEexHeaderPrevMonth to "`<c>` + ( ( ((0:=((month(value) - 1) - 1) ) < 0 ? 11 : =:0 ) array `January February March April May June July August September October November December` split ` ` ) left 3 ) "
Set ComDateHeaderField OLEexHeaderNextMonth to "`<c>` + ( ( ((0:=((month(value) - 1) + 1) ) = 12 ? 0 : =:0 ) array `January February March April May June July August September October November December` split ` ` ) left 3 ) "
Send ComEndUpdate
End_Procedure
|
|
144
|
How can I display the year to a different position
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAppearance to OLENone2
Set ComBackground OLEexDateHeader to (ComBackColor(Self))
Set ComFirstDay to OLEMonday
Set ComMaxMonthX to 1
Set ComMaxMonthY to 1
Set ComDrawGridLine to OLESolid
Set ComWeekDays to "Su Mo Tu We Th Fr Sa"
Set ComMarkToday to True
Set ComAutoSize to OLEexFixedSize
Set ComAlignmentDay to OLECenterAlignment
Set ComFixedCellHeight to 32
Set ComFixedCellWidth to 32
Set ComDateHeaderFormat to "6/(1,2[bg=RGB(196,196,196)]:32,3[bg=RGB(196,196,196)]:32)"
Set ComHTMLPicture "up" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJZJJEIJUPDaMZkUAQGAOP4DRShOgvHIGQA0U5CbKzOIZYRIICzCaUX4PS4hRgEGg/QaKJLhGSESIIZoMfAMMIkKQzJxDDBJaCMaoQSABVhAXgQRBLRFdNhIB4QY4PfyUJB7AYAFo+DIWOb7LDdiIAJJFJxEVxCMCCgIA="
Set ComHTMLPicture "down" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIEM5BJpBhSxR4LfhhAsRKZJIhBKg4J7tRjJBIAEAMAjzWIJba0E5rWQcWaBAoFR7oK4HewRZCMPiMUDLXRoS4PfjCQJrEhdaJ5ET4YIvTgOJ5kFSTKpkFaTKLEFqTGxyFgTIyuMgCeJaPwDSIKEhlCT5ZoWFT4iIAJJFJxEVxCMCCgIA="
Set ComDateHeaderField OLEexHeaderPrevMonth to "<c><img>up</img>"
Set ComDateHeaderField OLEexHeaderNextMonth to "<c><img>down</img>"
Set ComDateHeaderField OLEexHeaderDate to "<c><%month%>"
Set ComDateHeaderField (OLEexHeaderPrevYear + OLEexHeaderPrevMonth) to "<r><b><%year%>"
Send ComEndUpdate
End_Procedure
|
|
143
|
Can I display some extra text/caption on the month's header
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAppearance to OLENone2
Set ComBackground OLEexDateHeader to (ComBackColor(Self))
Set ComFirstDay to OLEMonday
Set ComMaxMonthX to 1
Set ComMaxMonthY to 1
Set ComDrawGridLine to OLESolid
Set ComWeekDays to "Su Mo Tu We Th Fr Sa"
Set ComMarkToday to True
Set ComAutoSize to OLEexFixedSize
Set ComAlignmentDay to OLECenterAlignment
Set ComFixedCellHeight to 32
Set ComFixedCellWidth to 32
Set ComDateHeaderFormat to "("<sha ;;0>calendar"[a=17]/1),2:32,3:32"
Set ComHTMLPicture "up" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJZJJEIJUPDaMZkUAQGAOP4DRShOgvHIGQA0U5CbKzOIZYRIICzCaUX4PS4hRgEGg/QaKJLhGSESIIZoMfAMMIkKQzJxDDBJaCMaoQSABVhAXgQRBLRFdNhIB4QY4PfyUJB7AYAFo+DIWOb7LDdiIAJJFJxEVxCMCCgIA="
Set ComHTMLPicture "down" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIEM5BJpBhSxR4LfhhAsRKZJIhBKg4J7tRjJBIAEAMAjzWIJba0E5rWQcWaBAoFR7oK4HewRZCMPiMUDLXRoS4PfjCQJrEhdaJ5ET4YIvTgOJ5kFSTKpkFaTKLEFqTGxyFgTIyuMgCeJaPwDSIKEhlCT5ZoWFT4iIAJJFJxEVxCMCCgIA="
Set ComDateHeaderField OLEexHeaderPrevMonth to "<c><img>up</img>"
Set ComDateHeaderField OLEexHeaderNextMonth to "<c><img>down</img>"
Set ComDateHeaderField OLEexHeaderDate to "<c><b><%month%>"
Send ComEndUpdate
End_Procedure
|
|
142
|
How can I display no year on th month's header
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAppearance to OLENone2
Set ComBackground OLEexDateHeader to (ComBackColor(Self))
Set ComFirstDay to OLEMonday
Set ComMaxMonthX to 2
Set ComMaxMonthY to 2
Set ComDrawGridLine to OLESolid
Set ComWeekDays to "Su Mo Tu We Th Fr Sa"
Set ComMarkToday to True
Set ComAutoSize to OLEexFixedSize
Set ComAlignmentDay to OLECenterAlignment
Set ComFixedCellHeight to 32
Set ComFixedCellWidth to 32
Set ComDateHeaderFormat to "1,2:32,3:32"
Set ComHTMLPicture "up" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJZJJEIJUPDaMZkUAQGAOP4DRShOgvHIGQA0U5CbKzOIZYRIICzCaUX4PS4hRgEGg/QaKJLhGSESIIZoMfAMMIkKQzJxDDBJaCMaoQSABVhAXgQRBLRFdNhIB4QY4PfyUJB7AYAFo+DIWOb7LDdiIAJJFJxEVxCMCCgIA="
Set ComHTMLPicture "down" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIEM5BJpBhSxR4LfhhAsRKZJIhBKg4J7tRjJBIAEAMAjzWIJba0E5rWQcWaBAoFR7oK4HewRZCMPiMUDLXRoS4PfjCQJrEhdaJ5ET4YIvTgOJ5kFSTKpkFaTKLEFqTGxyFgTIyuMgCeJaPwDSIKEhlCT5ZoWFT4iIAJJFJxEVxCMCCgIA="
Set ComDateHeaderField OLEexHeaderPrevMonth to "<c><img>up</img>"
Set ComDateHeaderField OLEexHeaderNextMonth to "<c><img>down</img>"
Set ComDateHeaderField OLEexHeaderDate to "<c><b><%month%>"
Send ComEndUpdate
End_Procedure
|
|
141
|
How can I arrange the month's header ( first and last month only, prev month, next, prev year, picture, ebn, expression)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAppearance to OLENone2
Set ComBackground OLEexDateHeader to (ComBackColor(Self))
Set ComFirstDay to OLEMonday
Set ComMaxMonthX to 2
Set ComMaxMonthY to 2
Set ComDrawGridLine to OLESolid
Set ComWeekDays to "Su Mo Tu We Th Fr Sa"
Set ComMarkToday to True
Set ComAutoSize to OLEexFixedSize
Set ComAlignmentDay to OLECenterAlignment
Set ComFixedCellHeight to 32
Set ComFixedCellWidth to 32
Set ComDateHeaderFormat to " (( xmax * ymax ) = 1 ) ? `2[b=0][bg=0x01000000]:32,1,3[b=0][bg=0x01000000]:32` : ( ( x = 0 and y = 0 ) ? `2[b=0][bg=0x01000000]:32,1`: ( ( x = xmax - 1 and y = ymax - 1 ) ? `1,3[b=0][bg=0x01000000]:32`: `1` ) )"
Set ComDateHeaderField OLEexHeaderDate to " ( ( ( month(value) = month(date(``) ) and ( year(value) = year(date(``) ) ) ) ) ? `<b><fgcolor=0000FF>` : `` ) + `<c><%month%></b> <off -6><font ;7><%year%>`"
Set ComHTMLPicture "up" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJZJJEIJUPDaMZkUAQGAOP4DRShOgvHIGQA0U5CbKzOIZYRIICzCaUX4PS4hRgEGg/QaKJLhGSESIIZoMfAMMIkKQzJxDDBJaCMaoQSABVhAXgQRBLRFdNhIB4QY4PfyUJB7AYAFo+DIWOb7LDdiIAJJFJxEVxCMCCgIA="
Set ComHTMLPicture "down" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIEM5BJpBhSxR4LfhhAsRKZJIhBKg4J7tRjJBIAEAMAjzWIJba0E5rWQcWaBAoFR7oK4HewRZCMPiMUDLXRoS4PfjCQJrEhdaJ5ET4YIvTgOJ5kFSTKpkFaTKLEFqTGxyFgTIyuMgCeJaPwDSIKEhlCT5ZoWFT4iIAJJFJxEVxCMCCgIA="
Set ComHTMLPicture "left" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJUJJEIJUPDaMZkEANWACeJvMgBIwSGgXAaxGIQI6RMYAJBzFQQHYBeIzKQNYCpTIYAbwNQmMgAILNfAMEBKGYuAaIaxMGYDFD2ARVASRNBDNCeSAIDRCW7MAgDDDZDIAKbADgRVrfUCNiIAJJFJxEVxCMCCgI"
Set ComHTMLPicture "right" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIBOZSI5CACuZwcdMRAhnIJNIMKWKPBb8MIFiIJOBILJzhQOYc7YYBY5vVBkiJEJJEIJUHBPMbAARYUI0KKADJKEaDEpAVgAYjHYI8GSACgQb4AcRiGCPJgwNQIEzANIICaUUwpUDIBYjKIzBAsAZiWQ1QYABLZTKBAIATL2CUxXJdV8RABJIpOIiuIRgQUBA="
Set ComDateHeaderField OLEexHeaderPrevMonth to "<c><img>up</img>"
Set ComDateHeaderField OLEexHeaderNextMonth to "<c><img>down</img>"
Set ComDateHeaderField OLEexHeaderPrevYear to "<c><img>left</img>"
Set ComDateHeaderField OLEexHeaderNextYear to "<c><img>right</img>"
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABFgDg6AADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYIkWA5AiKEYoThCIxzTJ8aw3CKbYRAKCXfoUAJFP7Fc6ABJMBx3EyhZ89NDYEwTIKBahoehqIheEQyDSJNb2DCIahhMSEbKtCooDhGFpUWzLdxTJJVawHJoABjkS45PjEAJ+SBPUZVRRlFyfO7BKSjMKKXgkG4zABWVa1bC1FzxQ6mKykKQLQADDIDVZAeL3JTNCS5IyLLDtO77EqmZ5la7cUgRDj4AY7Ua+MzubBZaovOqDYzAey7TDWLRXFDNIzzTgQAyHHrETZHGqwJxMAEapYGqYpVi2HwzDuQ5oHKIQgggSSUGMOgdE4RhYDwJBVAwIQTH2UYhjQJBRAmZxuCEHZ3icJp5EgKxgAIVgCCQSQSEIBQkCAYhCAIJYKmKNIuFcTBIESPYEk6GBUm+BZOmOPgZgWYRTiYEwvEwaIEAAK4KnKOJrgmTpDjCbYJmKSI2CoOxihOLglCuAACioNg8COA4gmcOZOiidg+g+Dh4moOA8CMYokNmCoyiycQ8E8A4iE6D4OjOMgng8ZJjiITA8CSEouEcKwKkkLJyhQIoIkYU9LjORhcCsAAIACLQ8iaSJ6FKC5jJoaobA8KYoACCRKnmMJzhuDpZnSboMCKGJ4nMPIPDmYAACwKIDk6CoLCeU40m6I5oliMoKDyaICokLIpgoThviOKJoGYf4KmUKhMjMLJLCAAojCyaYoiYGoGmqM46CkOwPEoKonAACxKlSdItmiWBeBeDgrioNo3D0KxSlAAAtgsUpYnUPRPEoco8hCa+T40SxbBRj5tEsHJ1i6JhbGYS4ug8awelQLZAAKZI5C4DxrhYQ9ehmUppWiA48nAPRuFKYpiAAC47laZQ9iuKZSgOPotkuFI7C6C4gACPJAm8eQOhOQZoikDp3kCS5AACPoEk8fBGnqQgpDOSppD2TxjlyPZD6CfwekQTx5lKP5ImseZTCAL5MAMAAAkoTADmMLpIjISp+HSS4PgyMAADBzAHDSIoPCOUpWjObIKE8NJOHKIwPEaTprBsHpdjWLB9AieQ+DQYwQAAMR1EOZxWi+bx7HcWQ8msfRYnnDZQACRwxgwc5rGaMZPE0ZxqjWNZtgyRwAAyTZEnuXJzEyAx2kQcxNkye5cEy3cYAcANrGAIH4OAhx3gNGGPAfgIR8jBA4McBMARVhnH4HQOYmxuCpF2MsecEQVBvGQCcIQug6itGQBoARAQ=" to Nothing
Send Destroy to hoAppearance
Send ComEndUpdate
End_Procedure
|
|
140
|
How can I arrange the month's header ( first month only, prev month, next, prev year, picture, ebn, expression)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAppearance to OLENone2
Set ComBackground OLEexDateHeader to (ComBackColor(Self))
Set ComFirstDay to OLEMonday
Set ComMaxMonthX to 2
Set ComMaxMonthY to 2
Set ComDrawGridLine to OLESolid
Set ComWeekDays to "Su Mo Tu We Th Fr Sa"
Set ComMarkToday to True
Set ComAutoSize to OLEexFixedSize
Set ComAlignmentDay to OLECenterAlignment
Set ComFixedCellHeight to 32
Set ComFixedCellWidth to 32
Set ComDateHeaderFormat to "( x = 0 and y = 0 ) ? `(2[b=0][bg=0x01000000]/3[b=0][bg=0x01000000]):32,1`: `1`"
Set ComDateHeaderField OLEexHeaderDate to " ( ( ( month(value) = month(date(``) ) and ( year(value) = year(date(``) ) ) ) ) ? `<b><fgcolor=0000FF>` : `` ) + `<c><%month%> <%year%>`"
Set ComHTMLPicture "up" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJZJJEIJUPDaMZkUAQGAOP4DRShOgvHIGQA0U5CbKzOIZYRIICzCaUX4PS4hRgEGg/QaKJLhGSESIIZoMfAMMIkKQzJxDDBJaCMaoQSABVhAXgQRBLRFdNhIB4QY4PfyUJB7AYAFo+DIWOb7LDdiIAJJFJxEVxCMCCgIA="
Set ComHTMLPicture "down" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIEM5BJpBhSxR4LfhhAsRKZJIhBKg4J7tRjJBIAEAMAjzWIJba0E5rWQcWaBAoFR7oK4HewRZCMPiMUDLXRoS4PfjCQJrEhdaJ5ET4YIvTgOJ5kFSTKpkFaTKLEFqTGxyFgTIyuMgCeJaPwDSIKEhlCT5ZoWFT4iIAJJFJxEVxCMCCgIA="
Set ComHTMLPicture "left" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJUJJEIJUPDaMZkEANWACeJvMgBIwSGgXAaxGIQI6RMYAJBzFQQHYBeIzKQNYCpTIYAbwNQmMgAILNfAMEBKGYuAaIaxMGYDFD2ARVASRNBDNCeSAIDRCW7MAgDDDZDIAKbADgRVrfUCNiIAJJFJxEVxCMCCgI"
Set ComHTMLPicture "right" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIBOZSI5CACuZwcdMRAhnIJNIMKWKPBb8MIFiIJOBILJzhQOYc7YYBY5vVBkiJEJJEIJUHBPMbAARYUI0KKADJKEaDEpAVgAYjHYI8GSACgQb4AcRiGCPJgwNQIEzANIICaUUwpUDIBYjKIzBAsAZiWQ1QYABLZTKBAIATL2CUxXJdV8RABJIpOIiuIRgQUBA="
Set ComDateHeaderField OLEexHeaderPrevMonth to "<c><img>up</img>"
Set ComDateHeaderField OLEexHeaderNextMonth to "<c><img>down</img>"
Set ComDateHeaderField OLEexHeaderPrevYear to "<c><img>left</img>"
Set ComDateHeaderField OLEexHeaderNextYear to "<c><img>right</img>"
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABFgDg6AADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYIkWA5AiKEYoThCIxzTJ8aw3CKbYRAKCXfoUAJFP7Fc6ABJMBx3EyhZ89NDYEwTIKBahoehqIheEQyDSJNb2DCIahhMSEbKtCooDhGFpUWzLdxTJJVawHJoABjkS45PjEAJ+SBPUZVRRlFyfO7BKSjMKKXgkG4zABWVa1bC1FzxQ6mKykKQLQADDIDVZAeL3JTNCS5IyLLDtO77EqmZ5la7cUgRDj4AY7Ua+MzubBZaovOqDYzAey7TDWLRXFDNIzzTgQAyHHrETZHGqwJxMAEapYGqYpVi2HwzDuQ5oHKIQgggSSUGMOgdE4RhYDwJBVAwIQTH2UYhjQJBRAmZxuCEHZ3icJp5EgKxgAIVgCCQSQSEIBQkCAYhCAIJYKmKNIuFcTBIESPYEk6GBUm+BZOmOPgZgWYRTiYEwvEwaIEAAK4KnKOJrgmTpDjCbYJmKSI2CoOxihOLglCuAACioNg8COA4gmcOZOiidg+g+Dh4moOA8CMYokNmCoyiycQ8E8A4iE6D4OjOMgng8ZJjiITA8CSEouEcKwKkkLJyhQIoIkYU9LjORhcCsAAIACLQ8iaSJ6FKC5jJoaobA8KYoACCRKnmMJzhuDpZnSboMCKGJ4nMPIPDmYAACwKIDk6CoLCeU40m6I5oliMoKDyaICokLIpgoThviOKJoGYf4KmUKhMjMLJLCAAojCyaYoiYGoGmqM46CkOwPEoKonAACxKlSdItmiWBeBeDgrioNo3D0KxSlAAAtgsUpYnUPRPEoco8hCa+T40SxbBRj5tEsHJ1i6JhbGYS4ug8awelQLZAAKZI5C4DxrhYQ9ehmUppWiA48nAPRuFKYpiAAC47laZQ9iuKZSgOPotkuFI7C6C4gACPJAm8eQOhOQZoikDp3kCS5AACPoEk8fBGnqQgpDOSppD2TxjlyPZD6CfwekQTx5lKP5ImseZTCAL5MAMAAAkoTADmMLpIjISp+HSS4PgyMAADBzAHDSIoPCOUpWjObIKE8NJOHKIwPEaTprBsHpdjWLB9AieQ+DQYwQAAMR1EOZxWi+bx7HcWQ8msfRYnnDZQACRwxgwc5rGaMZPE0ZxqjWNZtgyRwAAyTZEnuXJzEyAx2kQcxNkye5cEy3cYAcANrGAIH4OAhx3gNGGPAfgIR8jBA4McBMARVhnH4HQOYmxuCpF2MsecEQVBvGQCcIQug6itGQBoARAQ=" to Nothing
Send Destroy to hoAppearance
Send ComEndUpdate
End_Procedure
|
|
139
|
How can I arrange the month's header ( all, left, right, prev month, next, prev year, picture, ebn)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAppearance to OLENone2
Set ComBackground OLEexDateHeader to (ComBackColor(Self))
Set ComFirstDay to OLEMonday
Set ComMaxMonthX to 2
Set ComMaxMonthY to 2
Set ComDrawGridLine to OLESolid
Set ComWeekDays to "Su Mo Tu We Th Fr Sa"
Set ComMarkToday to True
Set ComAutoSize to OLEexFixedSize
Set ComAlignmentDay to OLECenterAlignment
Set ComFixedCellHeight to 32
Set ComFixedCellWidth to 32
Set ComDateHeaderFormat to "(2[b=0][bg=0x01000000]/4[b=0][bg=0x01000000]):32,1,(3[b=0][bg=0x01000000]/5[b=0][bg=0x01000000]):32"
Set ComDateHeaderField OLEexHeaderDate to " ( ( ( month(value) = month(date(``) ) and ( year(value) = year(date(``) ) ) ) ) ? `<b><fgcolor=0000FF>` : `` ) + `<c><%month%> <%year%>`"
Set ComHTMLPicture "up" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJZJJEIJUPDaMZkUAQGAOP4DRShOgvHIGQA0U5CbKzOIZYRIICzCaUX4PS4hRgEGg/QaKJLhGSESIIZoMfAMMIkKQzJxDDBJaCMaoQSABVhAXgQRBLRFdNhIB4QY4PfyUJB7AYAFo+DIWOb7LDdiIAJJFJxEVxCMCCgIA="
Set ComHTMLPicture "down" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIEM5BJpBhSxR4LfhhAsRKZJIhBKg4J7tRjJBIAEAMAjzWIJba0E5rWQcWaBAoFR7oK4HewRZCMPiMUDLXRoS4PfjCQJrEhdaJ5ET4YIvTgOJ5kFSTKpkFaTKLEFqTGxyFgTIyuMgCeJaPwDSIKEhlCT5ZoWFT4iIAJJFJxEVxCMCCgIA="
Set ComHTMLPicture "left" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJUJJEIJUPDaMZkEANWACeJvMgBIwSGgXAaxGIQI6RMYAJBzFQQHYBeIzKQNYCpTIYAbwNQmMgAILNfAMEBKGYuAaIaxMGYDFD2ARVASRNBDNCeSAIDRCW7MAgDDDZDIAKbADgRVrfUCNiIAJJFJxEVxCMCCgI"
Set ComHTMLPicture "right" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIBOZSI5CACuZwcdMRAhnIJNIMKWKPBb8MIFiIJOBILJzhQOYc7YYBY5vVBkiJEJJEIJUHBPMbAARYUI0KKADJKEaDEpAVgAYjHYI8GSACgQb4AcRiGCPJgwNQIEzANIICaUUwpUDIBYjKIzBAsAZiWQ1QYABLZTKBAIATL2CUxXJdV8RABJIpOIiuIRgQUBA="
Set ComDateHeaderField OLEexHeaderPrevMonth to "<c><img>up</img>"
Set ComDateHeaderField OLEexHeaderNextMonth to "<c><img>down</img>"
Set ComDateHeaderField OLEexHeaderPrevYear to "<c><img>left</img>"
Set ComDateHeaderField OLEexHeaderNextYear to "<c><img>right</img>"
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABFgDg6AADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYIkWA5AiKEYoThCIxzTJ8aw3CKbYRAKCXfoUAJFP7Fc6ABJMBx3EyhZ89NDYEwTIKBahoehqIheEQyDSJNb2DCIahhMSEbKtCooDhGFpUWzLdxTJJVawHJoABjkS45PjEAJ+SBPUZVRRlFyfO7BKSjMKKXgkG4zABWVa1bC1FzxQ6mKykKQLQADDIDVZAeL3JTNCS5IyLLDtO77EqmZ5la7cUgRDj4AY7Ua+MzubBZaovOqDYzAey7TDWLRXFDNIzzTgQAyHHrETZHGqwJxMAEapYGqYpVi2HwzDuQ5oHKIQgggSSUGMOgdE4RhYDwJBVAwIQTH2UYhjQJBRAmZxuCEHZ3icJp5EgKxgAIVgCCQSQSEIBQkCAYhCAIJYKmKNIuFcTBIESPYEk6GBUm+BZOmOPgZgWYRTiYEwvEwaIEAAK4KnKOJrgmTpDjCbYJmKSI2CoOxihOLglCuAACioNg8COA4gmcOZOiidg+g+Dh4moOA8CMYokNmCoyiycQ8E8A4iE6D4OjOMgng8ZJjiITA8CSEouEcKwKkkLJyhQIoIkYU9LjORhcCsAAIACLQ8iaSJ6FKC5jJoaobA8KYoACCRKnmMJzhuDpZnSboMCKGJ4nMPIPDmYAACwKIDk6CoLCeU40m6I5oliMoKDyaICokLIpgoThviOKJoGYf4KmUKhMjMLJLCAAojCyaYoiYGoGmqM46CkOwPEoKonAACxKlSdItmiWBeBeDgrioNo3D0KxSlAAAtgsUpYnUPRPEoco8hCa+T40SxbBRj5tEsHJ1i6JhbGYS4ug8awelQLZAAKZI5C4DxrhYQ9ehmUppWiA48nAPRuFKYpiAAC47laZQ9iuKZSgOPotkuFI7C6C4gACPJAm8eQOhOQZoikDp3kCS5AACPoEk8fBGnqQgpDOSppD2TxjlyPZD6CfwekQTx5lKP5ImseZTCAL5MAMAAAkoTADmMLpIjISp+HSS4PgyMAADBzAHDSIoPCOUpWjObIKE8NJOHKIwPEaTprBsHpdjWLB9AieQ+DQYwQAAMR1EOZxWi+bx7HcWQ8msfRYnnDZQACRwxgwc5rGaMZPE0ZxqjWNZtgyRwAAyTZEnuXJzEyAx2kQcxNkye5cEy3cYAcANrGAIH4OAhx3gNGGPAfgIR8jBA4McBMARVhnH4HQOYmxuCpF2MsecEQVBvGQCcIQug6itGQBoARAQ=" to Nothing
Send Destroy to hoAppearance
Send ComEndUpdate
End_Procedure
|
|
138
|
How can I arrange the month's header ( all, left, right, prev month, next, prev year, picture, ebn)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAppearance to OLENone2
Set ComBackground OLEexDateHeader to (ComBackColor(Self))
Set ComFirstDay to OLEMonday
Set ComMaxMonthX to 2
Set ComMaxMonthY to 2
Set ComDrawGridLine to OLESolid
Set ComWeekDays to "Su Mo Tu We Th Fr Sa"
Set ComMarkToday to True
Set ComAutoSize to OLEexFixedSize
Set ComAlignmentDay to OLECenterAlignment
Set ComFixedCellHeight to 32
Set ComFixedCellWidth to 32
Set ComDateHeaderFormat to "2[b=0][bg=0x01000000]:32,3[b=0][bg=0x01000000]:32,1,4[b=0][bg=0x01000000]:32,5[b=0][bg=0x01000000]:32"
Set ComDateHeaderField OLEexHeaderDate to " ( ( ( month(value) = month(date(``) ) and ( year(value) = year(date(``) ) ) ) ) ? `<b><fgcolor=0000FF>` : `` ) + `<c><%month%> <%year%>`"
Set ComHTMLPicture "up" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJZJJEIJUPDaMZkUAQGAOP4DRShOgvHIGQA0U5CbKzOIZYRIICzCaUX4PS4hRgEGg/QaKJLhGSESIIZoMfAMMIkKQzJxDDBJaCMaoQSABVhAXgQRBLRFdNhIB4QY4PfyUJB7AYAFo+DIWOb7LDdiIAJJFJxEVxCMCCgIA="
Set ComHTMLPicture "down" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIEM5BJpBhSxR4LfhhAsRKZJIhBKg4J7tRjJBIAEAMAjzWIJba0E5rWQcWaBAoFR7oK4HewRZCMPiMUDLXRoS4PfjCQJrEhdaJ5ET4YIvTgOJ5kFSTKpkFaTKLEFqTGxyFgTIyuMgCeJaPwDSIKEhlCT5ZoWFT4iIAJJFJxEVxCMCCgIA="
Set ComHTMLPicture "left" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJUJJEIJUPDaMZkEANWACeJvMgBIwSGgXAaxGIQI6RMYAJBzFQQHYBeIzKQNYCpTIYAbwNQmMgAILNfAMEBKGYuAaIaxMGYDFD2ARVASRNBDNCeSAIDRCW7MAgDDDZDIAKbADgRVrfUCNiIAJJFJxEVxCMCCgI"
Set ComHTMLPicture "right" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIBOZSI5CACuZwcdMRAhnIJNIMKWKPBb8MIFiIJOBILJzhQOYc7YYBY5vVBkiJEJJEIJUHBPMbAARYUI0KKADJKEaDEpAVgAYjHYI8GSACgQb4AcRiGCPJgwNQIEzANIICaUUwpUDIBYjKIzBAsAZiWQ1QYABLZTKBAIATL2CUxXJdV8RABJIpOIiuIRgQUBA="
Set ComDateHeaderField OLEexHeaderPrevMonth to "<c><img>up</img>"
Set ComDateHeaderField OLEexHeaderNextMonth to "<c><img>down</img>"
Set ComDateHeaderField OLEexHeaderPrevYear to "<c><img>left</img>"
Set ComDateHeaderField OLEexHeaderNextYear to "<c><img>right</img>"
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABFgDg6AADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYIkWA5AiKEYoThCIxzTJ8aw3CKbYRAKCXfoUAJFP7Fc6ABJMBx3EyhZ89NDYEwTIKBahoehqIheEQyDSJNb2DCIahhMSEbKtCooDhGFpUWzLdxTJJVawHJoABjkS45PjEAJ+SBPUZVRRlFyfO7BKSjMKKXgkG4zABWVa1bC1FzxQ6mKykKQLQADDIDVZAeL3JTNCS5IyLLDtO77EqmZ5la7cUgRDj4AY7Ua+MzubBZaovOqDYzAey7TDWLRXFDNIzzTgQAyHHrETZHGqwJxMAEapYGqYpVi2HwzDuQ5oHKIQgggSSUGMOgdE4RhYDwJBVAwIQTH2UYhjQJBRAmZxuCEHZ3icJp5EgKxgAIVgCCQSQSEIBQkCAYhCAIJYKmKNIuFcTBIESPYEk6GBUm+BZOmOPgZgWYRTiYEwvEwaIEAAK4KnKOJrgmTpDjCbYJmKSI2CoOxihOLglCuAACioNg8COA4gmcOZOiidg+g+Dh4moOA8CMYokNmCoyiycQ8E8A4iE6D4OjOMgng8ZJjiITA8CSEouEcKwKkkLJyhQIoIkYU9LjORhcCsAAIACLQ8iaSJ6FKC5jJoaobA8KYoACCRKnmMJzhuDpZnSboMCKGJ4nMPIPDmYAACwKIDk6CoLCeU40m6I5oliMoKDyaICokLIpgoThviOKJoGYf4KmUKhMjMLJLCAAojCyaYoiYGoGmqM46CkOwPEoKonAACxKlSdItmiWBeBeDgrioNo3D0KxSlAAAtgsUpYnUPRPEoco8hCa+T40SxbBRj5tEsHJ1i6JhbGYS4ug8awelQLZAAKZI5C4DxrhYQ9ehmUppWiA48nAPRuFKYpiAAC47laZQ9iuKZSgOPotkuFI7C6C4gACPJAm8eQOhOQZoikDp3kCS5AACPoEk8fBGnqQgpDOSppD2TxjlyPZD6CfwekQTx5lKP5ImseZTCAL5MAMAAAkoTADmMLpIjISp+HSS4PgyMAADBzAHDSIoPCOUpWjObIKE8NJOHKIwPEaTprBsHpdjWLB9AieQ+DQYwQAAMR1EOZxWi+bx7HcWQ8msfRYnnDZQACRwxgwc5rGaMZPE0ZxqjWNZtgyRwAAyTZEnuXJzEyAx2kQcxNkye5cEy3cYAcANrGAIH4OAhx3gNGGPAfgIR8jBA4McBMARVhnH4HQOYmxuCpF2MsecEQVBvGQCcIQug6itGQBoARAQ=" to Nothing
Send Destroy to hoAppearance
Send ComEndUpdate
End_Procedure
|
|
137
|
How can I arrange the month's header ( left, right, prev month, next, prev year, picture, ebn)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAppearance to OLENone2
Set ComBackground OLEexDateHeader to (ComBackColor(Self))
Set ComFirstDay to OLEMonday
Set ComMaxMonthX to 2
Set ComMaxMonthY to 2
Set ComDrawGridLine to OLESolid
Set ComWeekDays to "Su Mo Tu We Th Fr Sa"
Set ComMarkToday to True
Set ComAutoSize to OLEexFixedSize
Set ComAlignmentDay to OLECenterAlignment
Set ComFixedCellHeight to 32
Set ComFixedCellWidth to 32
Set ComDateHeaderFormat to "(2[b=0][bg=0x01000000]/3[b=0][bg=0x01000000]):32,1,(4[b=0][bg=0x01000000]/5[b=0][bg=0x01000000]):32"
Set ComDateHeaderField OLEexHeaderDate to " ( ( ( month(value) = month(date(``) ) and ( year(value) = year(date(``) ) ) ) ) ? `<b><fgcolor=0000FF>` : `` ) + `<c><%month%> <%year%>`"
Set ComHTMLPicture "up" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJZJJEIJUPDaMZkUAQGAOP4DRShOgvHIGQA0U5CbKzOIZYRIICzCaUX4PS4hRgEGg/QaKJLhGSESIIZoMfAMMIkKQzJxDDBJaCMaoQSABVhAXgQRBLRFdNhIB4QY4PfyUJB7AYAFo+DIWOb7LDdiIAJJFJxEVxCMCCgIA="
Set ComHTMLPicture "down" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIEM5BJpBhSxR4LfhhAsRKZJIhBKg4J7tRjJBIAEAMAjzWIJba0E5rWQcWaBAoFR7oK4HewRZCMPiMUDLXRoS4PfjCQJrEhdaJ5ET4YIvTgOJ5kFSTKpkFaTKLEFqTGxyFgTIyuMgCeJaPwDSIKEhlCT5ZoWFT4iIAJJFJxEVxCMCCgIA="
Set ComHTMLPicture "left" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJUJJEIJUPDaMZkEANWACeJvMgBIwSGgXAaxGIQI6RMYAJBzFQQHYBeIzKQNYCpTIYAbwNQmMgAILNfAMEBKGYuAaIaxMGYDFD2ARVASRNBDNCeSAIDRCW7MAgDDDZDIAKbADgRVrfUCNiIAJJFJxEVxCMCCgI"
Set ComHTMLPicture "right" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIBOZSI5CACuZwcdMRAhnIJNIMKWKPBb8MIFiIJOBILJzhQOYc7YYBY5vVBkiJEJJEIJUHBPMbAARYUI0KKADJKEaDEpAVgAYjHYI8GSACgQb4AcRiGCPJgwNQIEzANIICaUUwpUDIBYjKIzBAsAZiWQ1QYABLZTKBAIATL2CUxXJdV8RABJIpOIiuIRgQUBA="
Set ComDateHeaderField OLEexHeaderPrevMonth to "<c><img>up</img>"
Set ComDateHeaderField OLEexHeaderNextMonth to "<c><img>down</img>"
Set ComDateHeaderField OLEexHeaderPrevYear to "<c><img>left</img>"
Set ComDateHeaderField OLEexHeaderNextYear to "<c><img>right</img>"
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABFgDg6AADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYIkWA5AiKEYoThCIxzTJ8aw3CKbYRAKCXfoUAJFP7Fc6ABJMBx3EyhZ89NDYEwTIKBahoehqIheEQyDSJNb2DCIahhMSEbKtCooDhGFpUWzLdxTJJVawHJoABjkS45PjEAJ+SBPUZVRRlFyfO7BKSjMKKXgkG4zABWVa1bC1FzxQ6mKykKQLQADDIDVZAeL3JTNCS5IyLLDtO77EqmZ5la7cUgRDj4AY7Ua+MzubBZaovOqDYzAey7TDWLRXFDNIzzTgQAyHHrETZHGqwJxMAEapYGqYpVi2HwzDuQ5oHKIQgggSSUGMOgdE4RhYDwJBVAwIQTH2UYhjQJBRAmZxuCEHZ3icJp5EgKxgAIVgCCQSQSEIBQkCAYhCAIJYKmKNIuFcTBIESPYEk6GBUm+BZOmOPgZgWYRTiYEwvEwaIEAAK4KnKOJrgmTpDjCbYJmKSI2CoOxihOLglCuAACioNg8COA4gmcOZOiidg+g+Dh4moOA8CMYokNmCoyiycQ8E8A4iE6D4OjOMgng8ZJjiITA8CSEouEcKwKkkLJyhQIoIkYU9LjORhcCsAAIACLQ8iaSJ6FKC5jJoaobA8KYoACCRKnmMJzhuDpZnSboMCKGJ4nMPIPDmYAACwKIDk6CoLCeU40m6I5oliMoKDyaICokLIpgoThviOKJoGYf4KmUKhMjMLJLCAAojCyaYoiYGoGmqM46CkOwPEoKonAACxKlSdItmiWBeBeDgrioNo3D0KxSlAAAtgsUpYnUPRPEoco8hCa+T40SxbBRj5tEsHJ1i6JhbGYS4ug8awelQLZAAKZI5C4DxrhYQ9ehmUppWiA48nAPRuFKYpiAAC47laZQ9iuKZSgOPotkuFI7C6C4gACPJAm8eQOhOQZoikDp3kCS5AACPoEk8fBGnqQgpDOSppD2TxjlyPZD6CfwekQTx5lKP5ImseZTCAL5MAMAAAkoTADmMLpIjISp+HSS4PgyMAADBzAHDSIoPCOUpWjObIKE8NJOHKIwPEaTprBsHpdjWLB9AieQ+DQYwQAAMR1EOZxWi+bx7HcWQ8msfRYnnDZQACRwxgwc5rGaMZPE0ZxqjWNZtgyRwAAyTZEnuXJzEyAx2kQcxNkye5cEy3cYAcANrGAIH4OAhx3gNGGPAfgIR8jBA4McBMARVhnH4HQOYmxuCpF2MsecEQVBvGQCcIQug6itGQBoARAQ=" to Nothing
Send Destroy to hoAppearance
Send ComEndUpdate
End_Procedure
|
|
136
|
How can I arrange the month's header ( down, next, prev month, next, prev year, picture, ebn)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAppearance to OLENone2
Set ComBackground OLEexDateHeader to (ComBackColor(Self))
Set ComFirstDay to OLEMonday
Set ComMaxMonthX to 2
Set ComMaxMonthY to 2
Set ComDrawGridLine to OLESolid
Set ComWeekDays to "Su Mo Tu We Th Fr Sa"
Set ComMarkToday to True
Set ComAutoSize to OLEexFixedSize
Set ComAlignmentDay to OLECenterAlignment
Set ComFixedCellHeight to 32
Set ComFixedCellWidth to 32
Set ComDateHeaderFormat to "1/16;(2[bg=0x01808080],3[bg=0x01000000])[b=15],(4[bg=0x01808080],5[bg=0x01000000])[b=15]"
Set ComDateHeaderField OLEexHeaderDate to " ( ( ( month(value) = month(date(``) ) and ( year(value) = year(date(``) ) ) ) ) ? `<b><fgcolor=0000FF>` : `` ) + `<c><%month%> <%year%>`"
Set ComHTMLPicture "up" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJZJJEIJUPDaMZkUAQGAOP4DRShOgvHIGQA0U5CbKzOIZYRIICzCaUX4PS4hRgEGg/QaKJLhGSESIIZoMfAMMIkKQzJxDDBJaCMaoQSABVhAXgQRBLRFdNhIB4QY4PfyUJB7AYAFo+DIWOb7LDdiIAJJFJxEVxCMCCgIA="
Set ComHTMLPicture "down" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIEM5BJpBhSxR4LfhhAsRKZJIhBKg4J7tRjJBIAEAMAjzWIJba0E5rWQcWaBAoFR7oK4HewRZCMPiMUDLXRoS4PfjCQJrEhdaJ5ET4YIvTgOJ5kFSTKpkFaTKLEFqTGxyFgTIyuMgCeJaPwDSIKEhlCT5ZoWFT4iIAJJFJxEVxCMCCgIA="
Set ComHTMLPicture "left" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJUJJEIJUPDaMZkEANWACeJvMgBIwSGgXAaxGIQI6RMYAJBzFQQHYBeIzKQNYCpTIYAbwNQmMgAILNfAMEBKGYuAaIaxMGYDFD2ARVASRNBDNCeSAIDRCW7MAgDDDZDIAKbADgRVrfUCNiIAJJFJxEVxCMCCgI"
Set ComHTMLPicture "right" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIBOZSI5CACuZwcdMRAhnIJNIMKWKPBb8MIFiIJOBILJzhQOYc7YYBY5vVBkiJEJJEIJUHBPMbAARYUI0KKADJKEaDEpAVgAYjHYI8GSACgQb4AcRiGCPJgwNQIEzANIICaUUwpUDIBYjKIzBAsAZiWQ1QYABLZTKBAIATL2CUxXJdV8RABJIpOIiuIRgQUBA="
Set ComDateHeaderField OLEexHeaderPrevMonth to "<c><img>up</img>"
Set ComDateHeaderField OLEexHeaderNextMonth to "<c><img>down</img>"
Set ComDateHeaderField OLEexHeaderPrevYear to "<c><img>left</img>"
Set ComDateHeaderField OLEexHeaderNextYear to "<c><img>right</img>"
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABFgDg6AADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYIkWA5AiKEYoThCIxzTJ8aw3CKbYRAKCXfoUAJFP7Fc6ABJMBx3EyhZ89NDYEwTIKBahoehqIheEQyDSJNb2DCIahhMSEbKtCooDhGFpUWzLdxTJJVawHJoABjkS45PjEAJ+SBPUZVRRlFyfO7BKSjMKKXgkG4zABWVa1bC1FzxQ6mKykKQLQADDIDVZAeL3JTNCS5IyLLDtO77EqmZ5la7cUgRDj4AY7Ua+MzubBZaovOqDYzAey7TDWLRXFDNIzzTgQAyHHrETZHGqwJxMAEapYGqYpVi2HwzDuQ5oHKIQgggSSUGMOgdE4RhYDwJBVAwIQTH2UYhjQJBRAmZxuCEHZ3icJp5EgKxgAIVgCCQSQSEIBQkCAYhCAIJYKmKNIuFcTBIESPYEk6GBUm+BZOmOPgZgWYRTiYEwvEwaIEAAK4KnKOJrgmTpDjCbYJmKSI2CoOxihOLglCuAACioNg8COA4gmcOZOiidg+g+Dh4moOA8CMYokNmCoyiycQ8E8A4iE6D4OjOMgng8ZJjiITA8CSEouEcKwKkkLJyhQIoIkYU9LjORhcCsAAIACLQ8iaSJ6FKC5jJoaobA8KYoACCRKnmMJzhuDpZnSboMCKGJ4nMPIPDmYAACwKIDk6CoLCeU40m6I5oliMoKDyaICokLIpgoThviOKJoGYf4KmUKhMjMLJLCAAojCyaYoiYGoGmqM46CkOwPEoKonAACxKlSdItmiWBeBeDgrioNo3D0KxSlAAAtgsUpYnUPRPEoco8hCa+T40SxbBRj5tEsHJ1i6JhbGYS4ug8awelQLZAAKZI5C4DxrhYQ9ehmUppWiA48nAPRuFKYpiAAC47laZQ9iuKZSgOPotkuFI7C6C4gACPJAm8eQOhOQZoikDp3kCS5AACPoEk8fBGnqQgpDOSppD2TxjlyPZD6CfwekQTx5lKP5ImseZTCAL5MAMAAAkoTADmMLpIjISp+HSS4PgyMAADBzAHDSIoPCOUpWjObIKE8NJOHKIwPEaTprBsHpdjWLB9AieQ+DQYwQAAMR1EOZxWi+bx7HcWQ8msfRYnnDZQACRwxgwc5rGaMZPE0ZxqjWNZtgyRwAAyTZEnuXJzEyAx2kQcxNkye5cEy3cYAcANrGAIH4OAhx3gNGGPAfgIR8jBA4McBMARVhnH4HQOYmxuCpF2MsecEQVBvGQCcIQug6itGQBoARAQ=" to Nothing
Send Destroy to hoAppearance
Send ComEndUpdate
End_Procedure
|
|
135
|
How can I arrange the month's header ( down, next, prev month, picture, ebn)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAppearance to OLENone2
Set ComBackground OLEexDateHeader to (ComBackColor(Self))
Set ComFirstDay to OLEMonday
Set ComMaxMonthX to 2
Set ComMaxMonthY to 2
Set ComDrawGridLine to OLESolid
Set ComWeekDays to "Su Mo Tu We Th Fr Sa"
Set ComMarkToday to True
Set ComAutoSize to OLEexFixedSize
Set ComAlignmentDay to OLECenterAlignment
Set ComFixedCellHeight to 32
Set ComFixedCellWidth to 32
Set ComDateHeaderFormat to "1/16;2[b=0][bg=0x01000000],3[b=0][bg=0x01000000]"
Set ComDateHeaderField OLEexHeaderDate to " ( ( ( month(value) = month(date(``) ) and ( year(value) = year(date(``) ) ) ) ) ? `<b><fgcolor=0000FF>` : `` ) + `<c><%month%> <%year%>`"
Set ComHTMLPicture "up" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJZJJEIJUPDaMZkUAQGAOP4DRShOgvHIGQA0U5CbKzOIZYRIICzCaUX4PS4hRgEGg/QaKJLhGSESIIZoMfAMMIkKQzJxDDBJaCMaoQSABVhAXgQRBLRFdNhIB4QY4PfyUJB7AYAFo+DIWOb7LDdiIAJJFJxEVxCMCCgIA="
Set ComHTMLPicture "down" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIEM5BJpBhSxR4LfhhAsRKZJIhBKg4J7tRjJBIAEAMAjzWIJba0E5rWQcWaBAoFR7oK4HewRZCMPiMUDLXRoS4PfjCQJrEhdaJ5ET4YIvTgOJ5kFSTKpkFaTKLEFqTGxyFgTIyuMgCeJaPwDSIKEhlCT5ZoWFT4iIAJJFJxEVxCMCCgIA="
Set ComHTMLPicture "left" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJUJJEIJUPDaMZkEANWACeJvMgBIwSGgXAaxGIQI6RMYAJBzFQQHYBeIzKQNYCpTIYAbwNQmMgAILNfAMEBKGYuAaIaxMGYDFD2ARVASRNBDNCeSAIDRCW7MAgDDDZDIAKbADgRVrfUCNiIAJJFJxEVxCMCCgI"
Set ComHTMLPicture "right" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIBOZSI5CACuZwcdMRAhnIJNIMKWKPBb8MIFiIJOBILJzhQOYc7YYBY5vVBkiJEJJEIJUHBPMbAARYUI0KKADJKEaDEpAVgAYjHYI8GSACgQb4AcRiGCPJgwNQIEzANIICaUUwpUDIBYjKIzBAsAZiWQ1QYABLZTKBAIATL2CUxXJdV8RABJIpOIiuIRgQUBA="
Set ComDateHeaderField OLEexHeaderPrevMonth to "<c><img>up</img>"
Set ComDateHeaderField OLEexHeaderNextMonth to "<c><img>down</img>"
Set ComDateHeaderField OLEexHeaderPrevYear to "<c><img>left</img>"
Set ComDateHeaderField OLEexHeaderNextYear to "<c><img>right</img>"
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABFgDg6AADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYIkWA5AiKEYoThCIxzTJ8aw3CKbYRAKCXfoUAJFP7Fc6ABJMBx3EyhZ89NDYEwTIKBahoehqIheEQyDSJNb2DCIahhMSEbKtCooDhGFpUWzLdxTJJVawHJoABjkS45PjEAJ+SBPUZVRRlFyfO7BKSjMKKXgkG4zABWVa1bC1FzxQ6mKykKQLQADDIDVZAeL3JTNCS5IyLLDtO77EqmZ5la7cUgRDj4AY7Ua+MzubBZaovOqDYzAey7TDWLRXFDNIzzTgQAyHHrETZHGqwJxMAEapYGqYpVi2HwzDuQ5oHKIQgggSSUGMOgdE4RhYDwJBVAwIQTH2UYhjQJBRAmZxuCEHZ3icJp5EgKxgAIVgCCQSQSEIBQkCAYhCAIJYKmKNIuFcTBIESPYEk6GBUm+BZOmOPgZgWYRTiYEwvEwaIEAAK4KnKOJrgmTpDjCbYJmKSI2CoOxihOLglCuAACioNg8COA4gmcOZOiidg+g+Dh4moOA8CMYokNmCoyiycQ8E8A4iE6D4OjOMgng8ZJjiITA8CSEouEcKwKkkLJyhQIoIkYU9LjORhcCsAAIACLQ8iaSJ6FKC5jJoaobA8KYoACCRKnmMJzhuDpZnSboMCKGJ4nMPIPDmYAACwKIDk6CoLCeU40m6I5oliMoKDyaICokLIpgoThviOKJoGYf4KmUKhMjMLJLCAAojCyaYoiYGoGmqM46CkOwPEoKonAACxKlSdItmiWBeBeDgrioNo3D0KxSlAAAtgsUpYnUPRPEoco8hCa+T40SxbBRj5tEsHJ1i6JhbGYS4ug8awelQLZAAKZI5C4DxrhYQ9ehmUppWiA48nAPRuFKYpiAAC47laZQ9iuKZSgOPotkuFI7C6C4gACPJAm8eQOhOQZoikDp3kCS5AACPoEk8fBGnqQgpDOSppD2TxjlyPZD6CfwekQTx5lKP5ImseZTCAL5MAMAAAkoTADmMLpIjISp+HSS4PgyMAADBzAHDSIoPCOUpWjObIKE8NJOHKIwPEaTprBsHpdjWLB9AieQ+DQYwQAAMR1EOZxWi+bx7HcWQ8msfRYnnDZQACRwxgwc5rGaMZPE0ZxqjWNZtgyRwAAyTZEnuXJzEyAx2kQcxNkye5cEy3cYAcANrGAIH4OAhx3gNGGPAfgIR8jBA4McBMARVhnH4HQOYmxuCpF2MsecEQVBvGQCcIQug6itGQBoARAQ=" to Nothing
Send Destroy to hoAppearance
Send ComEndUpdate
End_Procedure
|
|
134
|
How can I arrange the month's header ( left, right center, next, prev month, picture, ebn)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAppearance to OLENone2
Set ComBackground OLEexDateHeader to (ComBackColor(Self))
Set ComFirstDay to OLEMonday
Set ComMaxMonthX to 2
Set ComMaxMonthY to 2
Set ComDrawGridLine to OLESolid
Set ComWeekDays to "Su Mo Tu We Th Fr Sa"
Set ComMarkToday to True
Set ComAutoSize to OLEexFixedSize
Set ComAlignmentDay to OLECenterAlignment
Set ComFixedCellHeight to 32
Set ComFixedCellWidth to 32
Set ComDateHeaderFormat to "2[b=0][bg=0x01000000],1,3[b=0][bg=0x01000000]"
Set ComDateHeaderField OLEexHeaderDate to " ( ( ( month(value) = month(date(``) ) and ( year(value) = year(date(``) ) ) ) ) ? `<b><fgcolor=0000FF>` : `` ) + `<c><%month%> <%year%>`"
Set ComHTMLPicture "up" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJZJJEIJUPDaMZkUAQGAOP4DRShOgvHIGQA0U5CbKzOIZYRIICzCaUX4PS4hRgEGg/QaKJLhGSESIIZoMfAMMIkKQzJxDDBJaCMaoQSABVhAXgQRBLRFdNhIB4QY4PfyUJB7AYAFo+DIWOb7LDdiIAJJFJxEVxCMCCgIA="
Set ComHTMLPicture "down" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIEM5BJpBhSxR4LfhhAsRKZJIhBKg4J7tRjJBIAEAMAjzWIJba0E5rWQcWaBAoFR7oK4HewRZCMPiMUDLXRoS4PfjCQJrEhdaJ5ET4YIvTgOJ5kFSTKpkFaTKLEFqTGxyFgTIyuMgCeJaPwDSIKEhlCT5ZoWFT4iIAJJFJxEVxCMCCgIA="
Set ComHTMLPicture "left" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJUJJEIJUPDaMZkEANWACeJvMgBIwSGgXAaxGIQI6RMYAJBzFQQHYBeIzKQNYCpTIYAbwNQmMgAILNfAMEBKGYuAaIaxMGYDFD2ARVASRNBDNCeSAIDRCW7MAgDDDZDIAKbADgRVrfUCNiIAJJFJxEVxCMCCgI"
Set ComHTMLPicture "right" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIBOZSI5CACuZwcdMRAhnIJNIMKWKPBb8MIFiIJOBILJzhQOYc7YYBY5vVBkiJEJJEIJUHBPMbAARYUI0KKADJKEaDEpAVgAYjHYI8GSACgQb4AcRiGCPJgwNQIEzANIICaUUwpUDIBYjKIzBAsAZiWQ1QYABLZTKBAIATL2CUxXJdV8RABJIpOIiuIRgQUBA="
Set ComDateHeaderField OLEexHeaderPrevMonth to "<c><img>up</img>"
Set ComDateHeaderField OLEexHeaderNextMonth to "<c><img>down</img>"
Set ComDateHeaderField OLEexHeaderPrevYear to "<c><img>left</img>"
Set ComDateHeaderField OLEexHeaderNextYear to "<c><img>right</img>"
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABFgDg6AADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYIkWA5AiKEYoThCIxzTJ8aw3CKbYRAKCXfoUAJFP7Fc6ABJMBx3EyhZ89NDYEwTIKBahoehqIheEQyDSJNb2DCIahhMSEbKtCooDhGFpUWzLdxTJJVawHJoABjkS45PjEAJ+SBPUZVRRlFyfO7BKSjMKKXgkG4zABWVa1bC1FzxQ6mKykKQLQADDIDVZAeL3JTNCS5IyLLDtO77EqmZ5la7cUgRDj4AY7Ua+MzubBZaovOqDYzAey7TDWLRXFDNIzzTgQAyHHrETZHGqwJxMAEapYGqYpVi2HwzDuQ5oHKIQgggSSUGMOgdE4RhYDwJBVAwIQTH2UYhjQJBRAmZxuCEHZ3icJp5EgKxgAIVgCCQSQSEIBQkCAYhCAIJYKmKNIuFcTBIESPYEk6GBUm+BZOmOPgZgWYRTiYEwvEwaIEAAK4KnKOJrgmTpDjCbYJmKSI2CoOxihOLglCuAACioNg8COA4gmcOZOiidg+g+Dh4moOA8CMYokNmCoyiycQ8E8A4iE6D4OjOMgng8ZJjiITA8CSEouEcKwKkkLJyhQIoIkYU9LjORhcCsAAIACLQ8iaSJ6FKC5jJoaobA8KYoACCRKnmMJzhuDpZnSboMCKGJ4nMPIPDmYAACwKIDk6CoLCeU40m6I5oliMoKDyaICokLIpgoThviOKJoGYf4KmUKhMjMLJLCAAojCyaYoiYGoGmqM46CkOwPEoKonAACxKlSdItmiWBeBeDgrioNo3D0KxSlAAAtgsUpYnUPRPEoco8hCa+T40SxbBRj5tEsHJ1i6JhbGYS4ug8awelQLZAAKZI5C4DxrhYQ9ehmUppWiA48nAPRuFKYpiAAC47laZQ9iuKZSgOPotkuFI7C6C4gACPJAm8eQOhOQZoikDp3kCS5AACPoEk8fBGnqQgpDOSppD2TxjlyPZD6CfwekQTx5lKP5ImseZTCAL5MAMAAAkoTADmMLpIjISp+HSS4PgyMAADBzAHDSIoPCOUpWjObIKE8NJOHKIwPEaTprBsHpdjWLB9AieQ+DQYwQAAMR1EOZxWi+bx7HcWQ8msfRYnnDZQACRwxgwc5rGaMZPE0ZxqjWNZtgyRwAAyTZEnuXJzEyAx2kQcxNkye5cEy3cYAcANrGAIH4OAhx3gNGGPAfgIR8jBA4McBMARVhnH4HQOYmxuCpF2MsecEQVBvGQCcIQug6itGQBoARAQ=" to Nothing
Send Destroy to hoAppearance
Send ComEndUpdate
End_Procedure
|
|
133
|
How can I arrange the month's header (right up down, next, prev month, picture, ebn)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAppearance to OLENone2
Set ComBackground OLEexDateHeader to (ComBackColor(Self))
Set ComFirstDay to OLEMonday
Set ComMaxMonthX to 2
Set ComMaxMonthY to 2
Set ComDrawGridLine to OLESolid
Set ComWeekDays to "Su Mo Tu We Th Fr Sa"
Set ComMarkToday to True
Set ComAutoSize to OLEexFixedSize
Set ComAlignmentDay to OLECenterAlignment
Set ComFixedCellHeight to 32
Set ComFixedCellWidth to 32
Set ComDateHeaderFormat to "1,(2[b=0][bg=0x01000000]/3[b=0][bg=0x01000000]):32"
Set ComDateHeaderField OLEexHeaderDate to " ( ( ( month(value) = month(date(``) ) and ( year(value) = year(date(``) ) ) ) ) ? `<b><fgcolor=0000FF>` : `` ) + `<c><%month%> <%year%>`"
Set ComHTMLPicture "up" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJZJJEIJUPDaMZkUAQGAOP4DRShOgvHIGQA0U5CbKzOIZYRIICzCaUX4PS4hRgEGg/QaKJLhGSESIIZoMfAMMIkKQzJxDDBJaCMaoQSABVhAXgQRBLRFdNhIB4QY4PfyUJB7AYAFo+DIWOb7LDdiIAJJFJxEVxCMCCgIA="
Set ComHTMLPicture "down" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIEM5BJpBhSxR4LfhhAsRKZJIhBKg4J7tRjJBIAEAMAjzWIJba0E5rWQcWaBAoFR7oK4HewRZCMPiMUDLXRoS4PfjCQJrEhdaJ5ET4YIvTgOJ5kFSTKpkFaTKLEFqTGxyFgTIyuMgCeJaPwDSIKEhlCT5ZoWFT4iIAJJFJxEVxCMCCgIA="
Set ComHTMLPicture "left" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJUJJEIJUPDaMZkEANWACeJvMgBIwSGgXAaxGIQI6RMYAJBzFQQHYBeIzKQNYCpTIYAbwNQmMgAILNfAMEBKGYuAaIaxMGYDFD2ARVASRNBDNCeSAIDRCW7MAgDDDZDIAKbADgRVrfUCNiIAJJFJxEVxCMCCgI"
Set ComHTMLPicture "right" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIBOZSI5CACuZwcdMRAhnIJNIMKWKPBb8MIFiIJOBILJzhQOYc7YYBY5vVBkiJEJJEIJUHBPMbAARYUI0KKADJKEaDEpAVgAYjHYI8GSACgQb4AcRiGCPJgwNQIEzANIICaUUwpUDIBYjKIzBAsAZiWQ1QYABLZTKBAIATL2CUxXJdV8RABJIpOIiuIRgQUBA="
Set ComDateHeaderField OLEexHeaderPrevMonth to "<c><img>up</img>"
Set ComDateHeaderField OLEexHeaderNextMonth to "<c><img>down</img>"
Set ComDateHeaderField OLEexHeaderPrevYear to "<c><img>left</img>"
Set ComDateHeaderField OLEexHeaderNextYear to "<c><img>right</img>"
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABFgDg6AADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYIkWA5AiKEYoThCIxzTJ8aw3CKbYRAKCXfoUAJFP7Fc6ABJMBx3EyhZ89NDYEwTIKBahoehqIheEQyDSJNb2DCIahhMSEbKtCooDhGFpUWzLdxTJJVawHJoABjkS45PjEAJ+SBPUZVRRlFyfO7BKSjMKKXgkG4zABWVa1bC1FzxQ6mKykKQLQADDIDVZAeL3JTNCS5IyLLDtO77EqmZ5la7cUgRDj4AY7Ua+MzubBZaovOqDYzAey7TDWLRXFDNIzzTgQAyHHrETZHGqwJxMAEapYGqYpVi2HwzDuQ5oHKIQgggSSUGMOgdE4RhYDwJBVAwIQTH2UYhjQJBRAmZxuCEHZ3icJp5EgKxgAIVgCCQSQSEIBQkCAYhCAIJYKmKNIuFcTBIESPYEk6GBUm+BZOmOPgZgWYRTiYEwvEwaIEAAK4KnKOJrgmTpDjCbYJmKSI2CoOxihOLglCuAACioNg8COA4gmcOZOiidg+g+Dh4moOA8CMYokNmCoyiycQ8E8A4iE6D4OjOMgng8ZJjiITA8CSEouEcKwKkkLJyhQIoIkYU9LjORhcCsAAIACLQ8iaSJ6FKC5jJoaobA8KYoACCRKnmMJzhuDpZnSboMCKGJ4nMPIPDmYAACwKIDk6CoLCeU40m6I5oliMoKDyaICokLIpgoThviOKJoGYf4KmUKhMjMLJLCAAojCyaYoiYGoGmqM46CkOwPEoKonAACxKlSdItmiWBeBeDgrioNo3D0KxSlAAAtgsUpYnUPRPEoco8hCa+T40SxbBRj5tEsHJ1i6JhbGYS4ug8awelQLZAAKZI5C4DxrhYQ9ehmUppWiA48nAPRuFKYpiAAC47laZQ9iuKZSgOPotkuFI7C6C4gACPJAm8eQOhOQZoikDp3kCS5AACPoEk8fBGnqQgpDOSppD2TxjlyPZD6CfwekQTx5lKP5ImseZTCAL5MAMAAAkoTADmMLpIjISp+HSS4PgyMAADBzAHDSIoPCOUpWjObIKE8NJOHKIwPEaTprBsHpdjWLB9AieQ+DQYwQAAMR1EOZxWi+bx7HcWQ8msfRYnnDZQACRwxgwc5rGaMZPE0ZxqjWNZtgyRwAAyTZEnuXJzEyAx2kQcxNkye5cEy3cYAcANrGAIH4OAhx3gNGGPAfgIR8jBA4McBMARVhnH4HQOYmxuCpF2MsecEQVBvGQCcIQug6itGQBoARAQ=" to Nothing
Send Destroy to hoAppearance
Send ComEndUpdate
End_Procedure
|
|
132
|
How can I arrange the month's header (left, next, prev month, picture, ebn)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAppearance to OLENone2
Set ComBackground OLEexDateHeader to (ComBackColor(Self))
Set ComFirstDay to OLEMonday
Set ComMaxMonthX to 2
Set ComMaxMonthY to 2
Set ComDrawGridLine to OLESolid
Set ComWeekDays to "Su Mo Tu We Th Fr Sa"
Set ComMarkToday to True
Set ComAutoSize to OLEexFixedSize
Set ComAlignmentDay to OLECenterAlignment
Set ComFixedCellHeight to 32
Set ComFixedCellWidth to 32
Set ComDateHeaderFormat to "(""[b=0],(""[b=0]/24;2[b=0][bg=0x01000000]/""[b=0]):24,""[b=0]):32,(""[b=0],(""[b=0]/24;3[b=0][bg=0x01000000]/""[b=0]):24,""[b=0]):32,1"
Set ComDateHeaderField OLEexHeaderDate to " ( ( ( month(value) = month(date(``) ) and ( year(value) = year(date(``) ) ) ) ) ? `<b><fgcolor=0000FF>` : `` ) + `<c><%month%> <%year%>`"
Set ComHTMLPicture "up" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJZJJEIJUPDaMZkUAQGAOP4DRShOgvHIGQA0U5CbKzOIZYRIICzCaUX4PS4hRgEGg/QaKJLhGSESIIZoMfAMMIkKQzJxDDBJaCMaoQSABVhAXgQRBLRFdNhIB4QY4PfyUJB7AYAFo+DIWOb7LDdiIAJJFJxEVxCMCCgIA="
Set ComHTMLPicture "down" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIEM5BJpBhSxR4LfhhAsRKZJIhBKg4J7tRjJBIAEAMAjzWIJba0E5rWQcWaBAoFR7oK4HewRZCMPiMUDLXRoS4PfjCQJrEhdaJ5ET4YIvTgOJ5kFSTKpkFaTKLEFqTGxyFgTIyuMgCeJaPwDSIKEhlCT5ZoWFT4iIAJJFJxEVxCMCCgIA="
Set ComHTMLPicture "left" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJUJJEIJUPDaMZkEANWACeJvMgBIwSGgXAaxGIQI6RMYAJBzFQQHYBeIzKQNYCpTIYAbwNQmMgAILNfAMEBKGYuAaIaxMGYDFD2ARVASRNBDNCeSAIDRCW7MAgDDDZDIAKbADgRVrfUCNiIAJJFJxEVxCMCCgI"
Set ComHTMLPicture "right" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIBOZSI5CACuZwcdMRAhnIJNIMKWKPBb8MIFiIJOBILJzhQOYc7YYBY5vVBkiJEJJEIJUHBPMbAARYUI0KKADJKEaDEpAVgAYjHYI8GSACgQb4AcRiGCPJgwNQIEzANIICaUUwpUDIBYjKIzBAsAZiWQ1QYABLZTKBAIATL2CUxXJdV8RABJIpOIiuIRgQUBA="
Set ComDateHeaderField OLEexHeaderPrevMonth to "<c><img>up</img>"
Set ComDateHeaderField OLEexHeaderNextMonth to "<c><img>down</img>"
Set ComDateHeaderField OLEexHeaderPrevYear to "<c><img>left</img>"
Set ComDateHeaderField OLEexHeaderNextYear to "<c><img>right</img>"
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABFgDg6AADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYIkWA5AiKEYoThCIxzTJ8aw3CKbYRAKCXfoUAJFP7Fc6ABJMBx3EyhZ89NDYEwTIKBahoehqIheEQyDSJNb2DCIahhMSEbKtCooDhGFpUWzLdxTJJVawHJoABjkS45PjEAJ+SBPUZVRRlFyfO7BKSjMKKXgkG4zABWVa1bC1FzxQ6mKykKQLQADDIDVZAeL3JTNCS5IyLLDtO77EqmZ5la7cUgRDj4AY7Ua+MzubBZaovOqDYzAey7TDWLRXFDNIzzTgQAyHHrETZHGqwJxMAEapYGqYpVi2HwzDuQ5oHKIQgggSSUGMOgdE4RhYDwJBVAwIQTH2UYhjQJBRAmZxuCEHZ3icJp5EgKxgAIVgCCQSQSEIBQkCAYhCAIJYKmKNIuFcTBIESPYEk6GBUm+BZOmOPgZgWYRTiYEwvEwaIEAAK4KnKOJrgmTpDjCbYJmKSI2CoOxihOLglCuAACioNg8COA4gmcOZOiidg+g+Dh4moOA8CMYokNmCoyiycQ8E8A4iE6D4OjOMgng8ZJjiITA8CSEouEcKwKkkLJyhQIoIkYU9LjORhcCsAAIACLQ8iaSJ6FKC5jJoaobA8KYoACCRKnmMJzhuDpZnSboMCKGJ4nMPIPDmYAACwKIDk6CoLCeU40m6I5oliMoKDyaICokLIpgoThviOKJoGYf4KmUKhMjMLJLCAAojCyaYoiYGoGmqM46CkOwPEoKonAACxKlSdItmiWBeBeDgrioNo3D0KxSlAAAtgsUpYnUPRPEoco8hCa+T40SxbBRj5tEsHJ1i6JhbGYS4ug8awelQLZAAKZI5C4DxrhYQ9ehmUppWiA48nAPRuFKYpiAAC47laZQ9iuKZSgOPotkuFI7C6C4gACPJAm8eQOhOQZoikDp3kCS5AACPoEk8fBGnqQgpDOSppD2TxjlyPZD6CfwekQTx5lKP5ImseZTCAL5MAMAAAkoTADmMLpIjISp+HSS4PgyMAADBzAHDSIoPCOUpWjObIKE8NJOHKIwPEaTprBsHpdjWLB9AieQ+DQYwQAAMR1EOZxWi+bx7HcWQ8msfRYnnDZQACRwxgwc5rGaMZPE0ZxqjWNZtgyRwAAyTZEnuXJzEyAx2kQcxNkye5cEy3cYAcANrGAIH4OAhx3gNGGPAfgIR8jBA4McBMARVhnH4HQOYmxuCpF2MsecEQVBvGQCcIQug6itGQBoARAQ=" to Nothing
Send Destroy to hoAppearance
Send ComEndUpdate
End_Procedure
|
|
131
|
How can I arrange the month's header (left, right, next, prev month, picture, ebn)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAppearance to OLENone2
Set ComBackground OLEexDateHeader to (ComBackColor(Self))
Set ComFirstDay to OLEMonday
Set ComMaxMonthX to 2
Set ComMaxMonthY to 2
Set ComDrawGridLine to OLESolid
Set ComWeekDays to "Su Mo Tu We Th Fr Sa"
Set ComMarkToday to True
Set ComAutoSize to OLEexFixedSize
Set ComAlignmentDay to OLECenterAlignment
Set ComFixedCellHeight to 32
Set ComFixedCellWidth to 32
Set ComDateHeaderFormat to "(""[b=0],(""[b=0]/24;2[b=0][bg=0x01000000]/""[b=0]):24,""[b=0]):32,1,(""[b=0],(""[b=0]/24;3[b=0][bg=0x01000000]/""[b=0]):24,""[b=0]):32"
Set ComDateHeaderField OLEexHeaderDate to " ( ( ( month(value) = month(date(``) ) and ( year(value) = year(date(``) ) ) ) ) ? `<b><fgcolor=0000FF>` : `` ) + `<c><%month%> <%year%>`"
Set ComHTMLPicture "up" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJZJJEIJUPDaMZkUAQGAOP4DRShOgvHIGQA0U5CbKzOIZYRIICzCaUX4PS4hRgEGg/QaKJLhGSESIIZoMfAMMIkKQzJxDDBJaCMaoQSABVhAXgQRBLRFdNhIB4QY4PfyUJB7AYAFo+DIWOb7LDdiIAJJFJxEVxCMCCgIA="
Set ComHTMLPicture "down" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIEM5BJpBhSxR4LfhhAsRKZJIhBKg4J7tRjJBIAEAMAjzWIJba0E5rWQcWaBAoFR7oK4HewRZCMPiMUDLXRoS4PfjCQJrEhdaJ5ET4YIvTgOJ5kFSTKpkFaTKLEFqTGxyFgTIyuMgCeJaPwDSIKEhlCT5ZoWFT4iIAJJFJxEVxCMCCgIA="
Set ComHTMLPicture "left" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJUJJEIJUPDaMZkEANWACeJvMgBIwSGgXAaxGIQI6RMYAJBzFQQHYBeIzKQNYCpTIYAbwNQmMgAILNfAMEBKGYuAaIaxMGYDFD2ARVASRNBDNCeSAIDRCW7MAgDDDZDIAKbADgRVrfUCNiIAJJFJxEVxCMCCgI"
Set ComHTMLPicture "right" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIBOZSI5CACuZwcdMRAhnIJNIMKWKPBb8MIFiIJOBILJzhQOYc7YYBY5vVBkiJEJJEIJUHBPMbAARYUI0KKADJKEaDEpAVgAYjHYI8GSACgQb4AcRiGCPJgwNQIEzANIICaUUwpUDIBYjKIzBAsAZiWQ1QYABLZTKBAIATL2CUxXJdV8RABJIpOIiuIRgQUBA="
Set ComDateHeaderField OLEexHeaderPrevMonth to "<c><img>up</img>"
Set ComDateHeaderField OLEexHeaderNextMonth to "<c><img>down</img>"
Set ComDateHeaderField OLEexHeaderPrevYear to "<c><img>left</img>"
Set ComDateHeaderField OLEexHeaderNextYear to "<c><img>right</img>"
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABFgDg6AADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYIkWA5AiKEYoThCIxzTJ8aw3CKbYRAKCXfoUAJFP7Fc6ABJMBx3EyhZ89NDYEwTIKBahoehqIheEQyDSJNb2DCIahhMSEbKtCooDhGFpUWzLdxTJJVawHJoABjkS45PjEAJ+SBPUZVRRlFyfO7BKSjMKKXgkG4zABWVa1bC1FzxQ6mKykKQLQADDIDVZAeL3JTNCS5IyLLDtO77EqmZ5la7cUgRDj4AY7Ua+MzubBZaovOqDYzAey7TDWLRXFDNIzzTgQAyHHrETZHGqwJxMAEapYGqYpVi2HwzDuQ5oHKIQgggSSUGMOgdE4RhYDwJBVAwIQTH2UYhjQJBRAmZxuCEHZ3icJp5EgKxgAIVgCCQSQSEIBQkCAYhCAIJYKmKNIuFcTBIESPYEk6GBUm+BZOmOPgZgWYRTiYEwvEwaIEAAK4KnKOJrgmTpDjCbYJmKSI2CoOxihOLglCuAACioNg8COA4gmcOZOiidg+g+Dh4moOA8CMYokNmCoyiycQ8E8A4iE6D4OjOMgng8ZJjiITA8CSEouEcKwKkkLJyhQIoIkYU9LjORhcCsAAIACLQ8iaSJ6FKC5jJoaobA8KYoACCRKnmMJzhuDpZnSboMCKGJ4nMPIPDmYAACwKIDk6CoLCeU40m6I5oliMoKDyaICokLIpgoThviOKJoGYf4KmUKhMjMLJLCAAojCyaYoiYGoGmqM46CkOwPEoKonAACxKlSdItmiWBeBeDgrioNo3D0KxSlAAAtgsUpYnUPRPEoco8hCa+T40SxbBRj5tEsHJ1i6JhbGYS4ug8awelQLZAAKZI5C4DxrhYQ9ehmUppWiA48nAPRuFKYpiAAC47laZQ9iuKZSgOPotkuFI7C6C4gACPJAm8eQOhOQZoikDp3kCS5AACPoEk8fBGnqQgpDOSppD2TxjlyPZD6CfwekQTx5lKP5ImseZTCAL5MAMAAAkoTADmMLpIjISp+HSS4PgyMAADBzAHDSIoPCOUpWjObIKE8NJOHKIwPEaTprBsHpdjWLB9AieQ+DQYwQAAMR1EOZxWi+bx7HcWQ8msfRYnnDZQACRwxgwc5rGaMZPE0ZxqjWNZtgyRwAAyTZEnuXJzEyAx2kQcxNkye5cEy3cYAcANrGAIH4OAhx3gNGGPAfgIR8jBA4McBMARVhnH4HQOYmxuCpF2MsecEQVBvGQCcIQug6itGQBoARAQ=" to Nothing
Send Destroy to hoAppearance
Send ComEndUpdate
End_Procedure
|
|
130
|
How can I arrange the month's header (right, next, prev month, picture, ebn)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAppearance to OLENone2
Set ComBackground OLEexDateHeader to (ComBackColor(Self))
Set ComFirstDay to OLEMonday
Set ComMaxMonthX to 2
Set ComMaxMonthY to 2
Set ComDrawGridLine to OLESolid
Set ComWeekDays to "Su Mo Tu We Th Fr Sa"
Set ComMarkToday to True
Set ComAutoSize to OLEexFixedSize
Set ComAlignmentDay to OLECenterAlignment
Set ComFixedCellHeight to 32
Set ComFixedCellWidth to 32
Set ComDateHeaderFormat to "1,(""[b=0],(""[b=0]/24;2[b=0][bg=0x01000000]/""[b=0]):24,""[b=0]):32,(""[b=0],(""[b=0]/24;3[b=0][bg=0x01000000]/""[b=0]):24,""[b=0]):32"
Set ComDateHeaderField OLEexHeaderDate to " ( ( ( month(value) = month(date(``) ) and ( year(value) = year(date(``) ) ) ) ) ? `<b><fgcolor=0000FF>` : `` ) + `<c><%month%> <%year%>`"
Set ComHTMLPicture "up" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJZJJEIJUPDaMZkUAQGAOP4DRShOgvHIGQA0U5CbKzOIZYRIICzCaUX4PS4hRgEGg/QaKJLhGSESIIZoMfAMMIkKQzJxDDBJaCMaoQSABVhAXgQRBLRFdNhIB4QY4PfyUJB7AYAFo+DIWOb7LDdiIAJJFJxEVxCMCCgIA="
Set ComHTMLPicture "down" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIEM5BJpBhSxR4LfhhAsRKZJIhBKg4J7tRjJBIAEAMAjzWIJba0E5rWQcWaBAoFR7oK4HewRZCMPiMUDLXRoS4PfjCQJrEhdaJ5ET4YIvTgOJ5kFSTKpkFaTKLEFqTGxyFgTIyuMgCeJaPwDSIKEhlCT5ZoWFT4iIAJJFJxEVxCMCCgIA="
Set ComHTMLPicture "left" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJUJJEIJUPDaMZkEANWACeJvMgBIwSGgXAaxGIQI6RMYAJBzFQQHYBeIzKQNYCpTIYAbwNQmMgAILNfAMEBKGYuAaIaxMGYDFD2ARVASRNBDNCeSAIDRCW7MAgDDDZDIAKbADgRVrfUCNiIAJJFJxEVxCMCCgI"
Set ComHTMLPicture "right" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIBOZSI5CACuZwcdMRAhnIJNIMKWKPBb8MIFiIJOBILJzhQOYc7YYBY5vVBkiJEJJEIJUHBPMbAARYUI0KKADJKEaDEpAVgAYjHYI8GSACgQb4AcRiGCPJgwNQIEzANIICaUUwpUDIBYjKIzBAsAZiWQ1QYABLZTKBAIATL2CUxXJdV8RABJIpOIiuIRgQUBA="
Set ComDateHeaderField OLEexHeaderPrevMonth to "<c><img>up</img>"
Set ComDateHeaderField OLEexHeaderNextMonth to "<c><img>down</img>"
Set ComDateHeaderField OLEexHeaderPrevYear to "<c><img>left</img>"
Set ComDateHeaderField OLEexHeaderNextYear to "<c><img>right</img>"
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABFgDg6AADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYIkWA5AiKEYoThCIxzTJ8aw3CKbYRAKCXfoUAJFP7Fc6ABJMBx3EyhZ89NDYEwTIKBahoehqIheEQyDSJNb2DCIahhMSEbKtCooDhGFpUWzLdxTJJVawHJoABjkS45PjEAJ+SBPUZVRRlFyfO7BKSjMKKXgkG4zABWVa1bC1FzxQ6mKykKQLQADDIDVZAeL3JTNCS5IyLLDtO77EqmZ5la7cUgRDj4AY7Ua+MzubBZaovOqDYzAey7TDWLRXFDNIzzTgQAyHHrETZHGqwJxMAEapYGqYpVi2HwzDuQ5oHKIQgggSSUGMOgdE4RhYDwJBVAwIQTH2UYhjQJBRAmZxuCEHZ3icJp5EgKxgAIVgCCQSQSEIBQkCAYhCAIJYKmKNIuFcTBIESPYEk6GBUm+BZOmOPgZgWYRTiYEwvEwaIEAAK4KnKOJrgmTpDjCbYJmKSI2CoOxihOLglCuAACioNg8COA4gmcOZOiidg+g+Dh4moOA8CMYokNmCoyiycQ8E8A4iE6D4OjOMgng8ZJjiITA8CSEouEcKwKkkLJyhQIoIkYU9LjORhcCsAAIACLQ8iaSJ6FKC5jJoaobA8KYoACCRKnmMJzhuDpZnSboMCKGJ4nMPIPDmYAACwKIDk6CoLCeU40m6I5oliMoKDyaICokLIpgoThviOKJoGYf4KmUKhMjMLJLCAAojCyaYoiYGoGmqM46CkOwPEoKonAACxKlSdItmiWBeBeDgrioNo3D0KxSlAAAtgsUpYnUPRPEoco8hCa+T40SxbBRj5tEsHJ1i6JhbGYS4ug8awelQLZAAKZI5C4DxrhYQ9ehmUppWiA48nAPRuFKYpiAAC47laZQ9iuKZSgOPotkuFI7C6C4gACPJAm8eQOhOQZoikDp3kCS5AACPoEk8fBGnqQgpDOSppD2TxjlyPZD6CfwekQTx5lKP5ImseZTCAL5MAMAAAkoTADmMLpIjISp+HSS4PgyMAADBzAHDSIoPCOUpWjObIKE8NJOHKIwPEaTprBsHpdjWLB9AieQ+DQYwQAAMR1EOZxWi+bx7HcWQ8msfRYnnDZQACRwxgwc5rGaMZPE0ZxqjWNZtgyRwAAyTZEnuXJzEyAx2kQcxNkye5cEy3cYAcANrGAIH4OAhx3gNGGPAfgIR8jBA4McBMARVhnH4HQOYmxuCpF2MsecEQVBvGQCcIQug6itGQBoARAQ=" to Nothing
Send Destroy to hoAppearance
Send ComEndUpdate
End_Procedure
|
|
129
|
Can I specify a different foreground color for the current month
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAppearance to OLENone2
Set ComBackground OLEexDateHeader to (ComBackColor(Self))
Set ComFirstDay to OLEMonday
Set ComMaxMonthX to 2
Set ComMaxMonthY to 2
Set ComDrawGridLine to OLESolid
Set ComWeekDays to "Su Mo Tu We Th Fr Sa"
Set ComMarkToday to True
Set ComAutoSize to OLEexFixedSize
Set ComAlignmentDay to OLECenterAlignment
Set ComFixedCellHeight to 32
Set ComFixedCellWidth to 32
Set ComDateHeaderFormat to "1,2:32,3:32"
Set ComDateHeaderField OLEexHeaderDate to " ( ( ( month(value) = month(date(``) ) and ( year(value) = year(date(``) ) ) ) ) ? `<b><fgcolor=0000FF>` : `` ) + `<c><%month%> <%year%>`"
Send ComEndUpdate
End_Procedure
|
|
128
|
How do I change the +/- when using the custom format for month's header (with no background)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAppearance to OLENone2
Set ComBackground OLEexDateHeader to (ComBackColor(Self))
Set ComFirstDay to OLEMonday
Set ComMaxMonthX to 2
Set ComMaxMonthY to 2
Set ComDrawGridLine to OLESolid
Set ComWeekDays to "Su Mo Tu We Th Fr Sa"
Set ComMarkToday to True
Set ComAutoSize to OLEexFixedSize
Set ComAlignmentDay to OLECenterAlignment
Set ComFixedCellHeight to 32
Set ComFixedCellWidth to 32
Set ComDateHeaderFormat to "1,2:32,3:32"
Set ComHTMLPicture "up" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJZJJEIJUPDaMZkUAQGAOP4DRShOgvHIGQA0U5CbKzOIZYRIICzCaUX4PS4hRgEGg/QaKJLhGSESIIZoMfAMMIkKQzJxDDBJaCMaoQSABVhAXgQRBLRFdNhIB4QY4PfyUJB7AYAFo+DIWOb7LDdiIAJJFJxEVxCMCCgIA="
Set ComHTMLPicture "down" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIEM5BJpBhSxR4LfhhAsRKZJIhBKg4J7tRjJBIAEAMAjzWIJba0E5rWQcWaBAoFR7oK4HewRZCMPiMUDLXRoS4PfjCQJrEhdaJ5ET4YIvTgOJ5kFSTKpkFaTKLEFqTGxyFgTIyuMgCeJaPwDSIKEhlCT5ZoWFT4iIAJJFJxEVxCMCCgIA="
Set ComDateHeaderField OLEexHeaderPrevMonth to "<c><img>up</img>"
Set ComDateHeaderField OLEexHeaderNextMonth to "<c><img>down</img>"
Send ComEndUpdate
End_Procedure
|
|
127
|
How do I change the +/- when using the custom format for month's header (with background)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAppearance to OLENone2
Set ComBackground OLEexDateHeader to (ComBackColor(Self))
Set ComFirstDay to OLEMonday
Set ComMaxMonthX to 2
Set ComMaxMonthY to 2
Set ComDrawGridLine to OLESolid
Set ComWeekDays to "Su Mo Tu We Th Fr Sa"
Set ComMarkToday to True
Set ComAutoSize to OLEexFixedSize
Set ComAlignmentDay to OLECenterAlignment
Set ComFixedCellHeight to 32
Set ComFixedCellWidth to 32
Set ComDateHeaderFormat to "1,(""[b=0],(""[b=0]/24;2[b=0][bg=RGB(196,196,196)]/""[b=0]):24,""[b=0]):32,(""[b=0],(""[b=0]/24;3[b=0][bg=RGB(196,196,196)]/""[b=0]):24,""[b=0]):32"
Set ComHTMLPicture "up" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiJZJJEIJUPDaMZkUAQGAOP4DRShOgvHIGQA0U5CbKzOIZYRIICzCaUX4PS4hRgEGg/QaKJLhGSESIIZoMfAMMIkKQzJxDDBJaCMaoQSABVhAXgQRBLRFdNhIB4QY4PfyUJB7AYAFo+DIWOb7LDdiIAJJFJxEVxCMCCgIA="
Set ComHTMLPicture "down" to "gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIEM5BJpBhSxR4LfhhAsRKZJIhBKg4J7tRjJBIAEAMAjzWIJba0E5rWQcWaBAoFR7oK4HewRZCMPiMUDLXRoS4PfjCQJrEhdaJ5ET4YIvTgOJ5kFSTKpkFaTKLEFqTGxyFgTIyuMgCeJaPwDSIKEhlCT5ZoWFT4iIAJJFJxEVxCMCCgIA="
Set ComDateHeaderField OLEexHeaderPrevMonth to "<c><img>up</img>"
Set ComDateHeaderField OLEexHeaderNextMonth to "<c><img>down</img>"
Send ComEndUpdate
End_Procedure
|
|
126
|
How can I arrange the month's header (right, next, prev month)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAppearance to OLENone2
Set ComBackground OLEexDateHeader to (ComBackColor(Self))
Set ComFirstDay to OLEMonday
Set ComMaxMonthX to 2
Set ComMaxMonthY to 2
Set ComDrawGridLine to OLESolid
Set ComWeekDays to "Su Mo Tu We Th Fr Sa"
Set ComMarkToday to True
Set ComAutoSize to OLEexFixedSize
Set ComAlignmentDay to OLECenterAlignment
Set ComFixedCellHeight to 32
Set ComFixedCellWidth to 32
Set ComDateHeaderFormat to "1,(""[b=0],(""[b=0]/24;2[b=0][bg=RGB(196,196,196)]/""[b=0]):24,""[b=0]):32,(""[b=0],(""[b=0]/24;3[b=0][bg=RGB(196,196,196)]/""[b=0]):24,""[b=0]):32"
Send ComEndUpdate
End_Procedure
|
|
125
|
How do I display the week number according, so the January 1st is in the first week
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComFirstDay to OLESunday
Set ComDisplayWeekNumberAs to OLEexSimpleWeekNumber
Set ComShowWeeks to True
Set ComDate to "1/1/2016"
Send ComEndUpdate
End_Procedure
|
|
124
|
How do I display the week number according to ISO8601 standard
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComFirstDay to OLEMonday
Set ComDisplayWeekNumberAs to OLEexISO8601WeekNumber
Set ComShowWeeks to True
Set ComDate to "1/1/2016"
Send ComEndUpdate
End_Procedure
|
|
123
|
Just seen the BackgroundExt property. Not sure what I can do with that
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComAlignmentDay to OLECenterAlignment
Set ComFixedCellWidth to 48
Set ComFixedCellHeight to 48
Set ComAutoSize to OLEexFixedSize
Set ComMaxMonthX to 1
Set ComMaxMonthY to 1
Set ComDate to "2/1/2014"
Set ComShowNonMonthDays to False
Set ComDrawGridLine to OLELargeDots
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "2/3/2014" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComBackgroundExt of hoEvent to "bottom[8,pattern=0x006,patterncolor=RGB(190,190,190),frame=RGB(0,0,0),framethick]"
Send Destroy to hoEvent
Variant voEvent1
Get ComAdd of hoEvents "2/4/2014" to voEvent1
Handle hoEvent1
Get Create (RefClass(cComEvent)) to hoEvent1
Set pvComObject of hoEvent1 to voEvent1
Set ComBackgroundExt of hoEvent1 to "bottom[100%,pattern=0x003,frame=RGB(0,0,0),framethick]"
Send Destroy to hoEvent1
Variant voEvent2
Get ComAdd of hoEvents "2/5/2014" to voEvent2
Handle hoEvent2
Get Create (RefClass(cComEvent)) to hoEvent2
Set pvComObject of hoEvent2 to voEvent2
Set ComBackgroundExt of hoEvent2 to "top[8,pattern=0x006,patterncolor=RGB(190,190,190),frame=RGB(0,0,0),framethick]"
Send Destroy to hoEvent2
Variant voEvent3
Get ComAdd of hoEvents "2/10/2014" to voEvent3
Handle hoEvent3
Get Create (RefClass(cComEvent)) to hoEvent3
Set pvComObject of hoEvent3 to voEvent3
Set ComBackgroundExt of hoEvent3 to "top[4](left[4],right[4],client),bottom[4](left[4],right[4],client),left[4],right[4],client(left[10%](top[90%,back=RGB(0,0,0)]),top[30%,back=RGB(254,217,102)],client[back=RGB(123,250,212)])"
Send Destroy to hoEvent3
Variant voEvent4
Get ComAdd of hoEvents "2/11/2014" to voEvent4
Handle hoEvent4
Get Create (RefClass(cComEvent)) to hoEvent4
Set pvComObject of hoEvent4 to voEvent4
Set ComBackgroundExt of hoEvent4 to "left[33%,back=RGB(0,128,0)],left[33%,back=RGB(0,255,0)],client[back=RGB(255,128,128)]"
Send Destroy to hoEvent4
Variant voEvent5
Get ComAdd of hoEvents "2/12/2014" to voEvent5
Handle hoEvent5
Get Create (RefClass(cComEvent)) to hoEvent5
Set pvComObject of hoEvent5 to voEvent5
Set ComBackgroundExt of hoEvent5 to "top[33%,back=RGB(0,128,0)],left[33%,back=RGB(0,255,0)],client[back=RGB(255,128,128)](top[50%,back=RGB(0,255,255)])"
Send Destroy to hoEvent5
Variant voEvent6
Get ComAdd of hoEvents "2/13/2014" to voEvent6
Handle hoEvent6
Get Create (RefClass(cComEvent)) to hoEvent6
Set pvComObject of hoEvent6 to voEvent6
Set ComBackgroundExt of hoEvent6 to "bottom[12](left[75%,back=0x01000000]),none[(0,100%-22,100%,22),text=`<sha ;;0><font ;6>75%`,align=0x11]"
Send Destroy to hoEvent6
Variant voEvent7
Get ComAdd of hoEvents "2/14/2014" to voEvent7
Handle hoEvent7
Get Create (RefClass(cComEvent)) to hoEvent7
Set pvComObject of hoEvent7 to voEvent7
Set ComBackgroundExt of hoEvent7 to "top[12](left[55%,back=0x01FEFEFE]),none[(0,0,100%,12),pattern=0x000,frame=RGB(0,255,0)],none[(0,0,100%,22),text=`<sha ;;0><font ;6>55%`,align=0x11]"
Send Destroy to hoEvent7
Variant voEvent8
Get ComAdd of hoEvents "2/17/2014" to voEvent8
Handle hoEvent8
Get Create (RefClass(cComEvent)) to hoEvent8
Set pvComObject of hoEvent8 to voEvent8
Set ComBackgroundExt of hoEvent8 to "bottom[16,align=0x11,text=`<fgcolor 808080><font ;6>extra`]"
Send Destroy to hoEvent8
Variant voEvent9
Get ComAdd of hoEvents "2/18/2014" to voEvent9
Handle hoEvent9
Get Create (RefClass(cComEvent)) to hoEvent9
Set pvComObject of hoEvent9 to voEvent9
Set ComBackgroundExt of hoEvent9 to "root[text=`<fgcolor 808080><font ;6>extra 2`,align=0x01](bottom[16,text=`<fgcolor 808080><font ;6>extra1`,align=0x21])"
Send Destroy to hoEvent9
Variant voEvent10
Get ComAdd of hoEvents "2/19/2014" to voEvent10
Handle hoEvent10
Get Create (RefClass(cComEvent)) to hoEvent10
Set pvComObject of hoEvent10 to voEvent10
Set ComBackgroundExt of hoEvent10 to "top[4](left[4],right[4],client),bottom[4](left[4],right[4],client),left[4],right[4],client[text=`<fgcolor 808080><font ;6><b>B`,align=0x22](client[text=`<fgcolor 808080><font ;6><b>A`,align=0x20](client[text=`<fgcolor 808080><font ;6><b>D`,align=0x00](client[text=`<fgcolor 808080><font ;6><b>C`,align=0x02](client))))"
Set ComCaption of hoEvent10 to "<sha ;;0><font ;12><fgcolor FF0000><b><%day%>"
Send Destroy to hoEvent10
Variant voEvent11
Get ComAdd of hoEvents "2/20/2014" to voEvent11
Handle hoEvent11
Get Create (RefClass(cComEvent)) to hoEvent11
Set pvComObject of hoEvent11 to voEvent11
Set ComBackgroundExt of hoEvent11 to "root[text=`<fgcolor 808080><b>B`,align=0x22](client[text=`<fgcolor 808080><b>A`,align=0x20])"
Send Destroy to hoEvent11
Variant voEvent12
Get ComAdd of hoEvents "2/21/2014" to voEvent12
Handle hoEvent12
Get Create (RefClass(cComEvent)) to hoEvent12
Set pvComObject of hoEvent12 to voEvent12
Set ComBackgroundExt of hoEvent12 to "root[align=0,wordwrap,text=`<font ;6>This is a long story to put on your date, to break the lines. `]"
Set ComCaption of hoEvent12 to "<b><fgcolor FFFFFF><out 1;2><font ;18><%day%>"
Send Destroy to hoEvent12
Send Destroy to hoEvents
Send ComEndUpdate
End_Procedure
|
|
122
|
How can I show a pattern over a date
Procedure OnCreate
Forward Send OnCreate
Set ComAlignmentDay to OLECenterAlignment
Set ComFixedCellWidth to 36
Set ComFixedCellHeight to 36
Set ComAutoSize to OLEexFixedSize
Set ComMaxMonthX to 1
Set ComMaxMonthY to 1
Set ComDate to "2/1/2014"
Set ComShowNonMonthDays to False
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant voEvent
Get ComAdd of hoEvents "2/3/2014" to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComBackgroundExt of hoEvent to "bottom[8,pattern=0x006,patterncolor=RGB(190,190,190),frame=RGB(0,0,0),framethick]"
Send Destroy to hoEvent
Send Destroy to hoEvents
Variant voEvents1
Get ComEvents to voEvents1
Handle hoEvents1
Get Create (RefClass(cComEvents)) to hoEvents1
Set pvComObject of hoEvents1 to voEvents1
Variant voEvent1
Get ComAdd of hoEvents1 "2/4/2014" to voEvent1
Handle hoEvent1
Get Create (RefClass(cComEvent)) to hoEvent1
Set pvComObject of hoEvent1 to voEvent1
Set ComBackgroundExt of hoEvent1 to "bottom[100%,pattern=0x006,patterncolor=RGB(190,190,190),frame=RGB(0,0,0),framethick]"
Send Destroy to hoEvent1
Send Destroy to hoEvents1
Variant voEvents2
Get ComEvents to voEvents2
Handle hoEvents2
Get Create (RefClass(cComEvents)) to hoEvents2
Set pvComObject of hoEvents2 to voEvents2
Variant voEvent2
Get ComAdd of hoEvents2 "2/5/2014" to voEvent2
Handle hoEvent2
Get Create (RefClass(cComEvent)) to hoEvent2
Set pvComObject of hoEvent2 to voEvent2
Set ComBackgroundExt of hoEvent2 to "top[8,pattern=0x006,patterncolor=RGB(190,190,190),frame=RGB(0,0,0),framethick]"
Send Destroy to hoEvent2
Send Destroy to hoEvents2
Set ComDrawGridLine to OLELargeDots
End_Procedure
|
|
121
|
Can I use PNG picture files
Procedure OnCreate
Forward Send OnCreate
Set ComHTMLPicture "pic1" to "c:\exontrol\images\card.png"
Set ComAlignmentDay to OLELeftAlignment
Set ComFixedCellWidth to 64
Set ComFixedCellHeight to 48
Set ComAutoSize to OLEexFixedSize
Set ComMaxMonthX to 1
Set ComMaxMonthY to 1
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant vEvent
Get ComDate to vEvent
Variant voEvent
Get ComAdd of hoEvents vEvent to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComCaption of hoEvent to "<sha><b><%day%></b></sha> <r><img>pic1</img>"
Send Destroy to hoEvent
Send Destroy to hoEvents
End_Procedure
|
|
120
|
Is it possible to display a custom-size picture assigned to a date
Procedure OnCreate
Forward Send OnCreate
Set ComHTMLPicture "pic1" to "c:\exontrol\images\zipdisk.gif"
Set ComAlignmentDay to OLELeftAlignment
Set ComFixedCellWidth to 64
Set ComFixedCellHeight to 48
Set ComAutoSize to OLEexFixedSize
Set ComMaxMonthX to 1
Set ComMaxMonthY to 1
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant vEvent
Get ComDate to vEvent
Variant voEvent
Get ComAdd of hoEvents vEvent to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComCaption of hoEvent to "<sha><b><%day%></b></sha> <r><img>pic1</img>"
Send Destroy to hoEvent
Send Destroy to hoEvents
End_Procedure
|
|
119
|
How can I assign a caption and an icon to a date
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Set ComAlignmentDay to OLELeftAlignment
Set ComFixedCellWidth to 48
Set ComAutoSize to OLEexFixedSize
Set ComMaxMonthX to 1
Set ComMaxMonthY to 1
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant vEvent
Get ComDate to vEvent
Variant voEvent
Get ComAdd of hoEvents vEvent to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComCaption of hoEvent to "<sha><b><%day%></b></sha> <r><img>1</img><off -4><sha;;0><fgcolor FF0000><font ;6>ev</sha>"
Send Destroy to hoEvent
Send Destroy to hoEvents
End_Procedure
|
|
118
|
How can I assign a caption to a date
Procedure OnCreate
Forward Send OnCreate
Set ComAlignmentDay to OLELeftAlignment
Set ComFixedCellWidth to 36
Set ComAutoSize to OLEexFixedSize
Set ComMaxMonthX to 1
Set ComMaxMonthY to 1
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant vEvent
Get ComDate to vEvent
Variant voEvent
Get ComAdd of hoEvents vEvent to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComCaption of hoEvent to "<sha><b><%day%></b><r><off -4><sha;;0><fgcolor FF0000><font ;6>ev</sha></sha> 1"
Set ComMarker of hoEvent to True
Send Destroy to hoEvent
Send Destroy to hoEvents
End_Procedure
|
|
117
|
How do I align the day in the calendar control
Procedure OnCreate
Forward Send OnCreate
Set ComAlignmentDay to OLECenterAlignment
End_Procedure
|
|
116
|
How do I specify a different foreground color for weekday headers (S M T W T F S)
Procedure OnCreate
Forward Send OnCreate
Set ComBackground OLEexDaysHeader to (RGB(255,255,255))
Set ComBackground OLEexDaysHeaderForeColor to (RGB(255,0,0))
End_Procedure
|
|
115
|
How does localization work
Procedure OnCreate
Forward Send OnCreate
Set ComFirstDay to (ComLocFirstDay(Self))
Set ComMonthNames to (ComLocMonthNames(Self,Nothing))
Set ComWeekDays to (ComLocWeekDays(Self,Nothing))
End_Procedure
|
|
114
|
How can I change the control's Visual appearance
Procedure OnCreate
Forward Send OnCreate
Set ComVisualDesign to "gBFLBWIgBAEHhEJAEGg6EhCDC0HA0IdT/iyAjAAdcWf8YQAAAcKkEThQCCsiAMRhQBkMHhgABEIBsILBQHRCOp0OhvNwgGM+AUImMHmcHms3nM7ns/GUtmEIB0IIc2GQgFo0q1VrAygI"
End_Procedure
|
|
113
|
How can I align the picture on the control's background
Procedure OnCreate
Forward Send OnCreate
Variant vPicture
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\card.png`)" to vPicture
Set ComPicture to (vPicture)
Set ComPictureDisplay to OLEUpperRight
End_Procedure
|
|
112
|
Is it possible to place a picture on the control's background
Procedure OnCreate
Forward Send OnCreate
Variant vPicture
Get ComExecuteTemplate "loadpicture(`c:\exontrol\images\card.png`)" to vPicture
Set ComPicture to (vPicture)
End_Procedure
|
|
111
|
Is it possible to specify the color or the visual appearance (EBN) for selected dates when the control has no focus
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexSelBackColorUnFocus to |CI$1000000
Set ComBackground OLEexSelForeColorUnFocus to (RGB(0,0,0))
Set ComHideSelection to False
End_Procedure
|
|
110
|
Is it possible to specify the color for selected dates when the control loses the focus
Procedure OnCreate
Forward Send OnCreate
Set ComBackground OLEexSelBackColorUnFocus to (RGB(128,128,128))
Set ComBackground OLEexSelForeColorUnFocus to (RGB(0,0,0))
Set ComHideSelection to False
End_Procedure
|
|
109
|
Can I change the visual appearance for the tooltip, using your EBN files
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipDelay to 1
Set ComToolTipWidth to 364
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexToolTipAppearance to |CI$1aa80f0
Variant voEvents
Get ComEvents to voEvents
Handle hoEvents
Get Create (RefClass(cComEvents)) to hoEvents
Set pvComObject of hoEvents to voEvents
Variant vEvent
Get ComDate to vEvent
Variant voEvent
Get ComAdd of hoEvents vEvent to voEvent
Handle hoEvent
Get Create (RefClass(cComEvent)) to hoEvent
Set pvComObject of hoEvent to voEvent
Set ComComment of hoEvent to "This is a text that shows up when the cursor hovers the date"
Send Destroy to hoEvent
Send Destroy to hoEvents
Set ComHideSelection to True
End_Procedure
|
|
108
|
Can I change the color of the control's border (EBN files)
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComAppearance to (|CI$1aabbc8 + OLEEtched)
End_Procedure
|
|
107
|
Is it possible to change the color for days that are not in the month
Procedure OnCreate
Forward Send OnCreate
Set ComFirstDay to OLEMonday
Set ComShowNonMonthDays to True
Set ComNonMonthDaysColor to (RGB(255,0,0))
End_Procedure
|
|
106
|
How can I change the foreground color for non-working days
Procedure OnCreate
Forward Send OnCreate
Set ComFirstDay to OLEMonday
Set ComNonworkingDaysForeColor to (RGB(255,0,0))
End_Procedure
|
|
105
|
How do I change the appearance for the months
Procedure OnCreate
Forward Send OnCreate
Set ComBackground OLEexDateHeader to (RGB(0,0,128))
Set ComBackground OLEexDateHeaderForeColor to (RGB(255,255,255))
End_Procedure
|
|
104
|
How can I show the more months with its full size
Procedure OnCreate
Forward Send OnCreate
Set ComAutoSize to OLEexFitClient
Set ComMaxMonthX to 2
Set ComMaxMonthY to 2
End_Procedure
|
|
103
|
How can I show the calendar with its full size
Procedure OnCreate
Forward Send OnCreate
Set ComAutoSize to OLEexFitClient
Set ComMaxMonthX to 1
Set ComMaxMonthY to 1
End_Procedure
|
|
102
|
How can I hide the separator above the Today button
Procedure OnCreate
Forward Send OnCreate
Set ComBackground OLEexDateSeparatorBar to (ComBackColor(Self))
End_Procedure
|
|
101
|
How do I limit the dates being displayed or selected
Procedure OnCreate
Forward Send OnCreate
Set ComMaxMonthX to 1
Set ComMaxMonthY to 1
Set ComShowYearScroll to False
Set ComMinDate to "1/1/2001"
Set ComMaxDate to "1/31/2001"
Set ComDate to "1/1/2001"
End_Procedure
|