|
346
|
How can I bound the control to a data source
// Error event - Fired when an internal error occurs.
FUNCTION scheduleEvents_Error(OBJECT schedule, INT Error, STRING Description)
Message( Description );
END
OBJECT rs,schedule;
schedule = ObjectByName("AN1") ;
ObjectAssociateEvents("scheduleEvents", schedule);
rs = CreateObject("ADOR.Recordset");
_ObjectCallMethod( rs , "Open", "Events","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExSchedule\Sample\Access\datasource.mdb",3,3);
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "11/11/2013");
_ObjectCallMethod(schedule, "ExecuteTemplate", "DataField(1) = `Start`");
_ObjectCallMethod(schedule, "ExecuteTemplate", "DataField(2) = `End`");
_ObjectCallMethod(schedule, "ExecuteTemplate", "DataField(11) = `Extra`");
_ObjectSetProperty( schedule , "DataSource", rs);
_ObjectCallMethod( schedule , "EndUpdate");
|
|
345
|
Loading events from a XML file
OBJECT schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "LoadXML", "C:\Program Files (x86)\Exontrol\ExSchedule\Sample\VFP\XML\schedule.xml");
|
|
344
|
Generates a PDF document on a single A0 page with no margins
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "1/10/2001");
events = _ObjectGetProperty( schedule , "Events");
_ObjectCallMethod( events , "Add", "1/10/2001 9:00:00 AM","1/10/2001 12:30:00 PM");
_ObjectCallMethod( events , "Add", "1/10/2001 9:00:00 AM","1/10/2001 12:30:00 PM");
_ObjectCallMethod( schedule , "EndUpdate");
var_CopyTo = _ObjectCallMethod(schedule, "ExecuteTemplate", "CopyTo(`c:/temp/sample.pdf|33.11 in x 46.81 in|0 0 0 0|single`)");
|
|
343
|
Generates a PDF document that scales the content proportionally by 75% using B3 pages (default margins)
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "1/10/2001");
events = _ObjectGetProperty( schedule , "Events");
_ObjectCallMethod( events , "Add", "1/10/2001 9:00:00 AM","1/10/2001 12:30:00 PM");
_ObjectCallMethod( events , "Add", "1/10/2001 9:00:00 AM","1/10/2001 12:30:00 PM");
_ObjectCallMethod( schedule , "EndUpdate");
var_CopyTo = _ObjectCallMethod(schedule, "ExecuteTemplate", "CopyTo(`c:/temp/sample.pdf|6.93 in x 9.84 in||75%`)");
|
|
342
|
Generates a PDF document that fits the content exactly to 3 A4 pages wide by 2 pages tall (default margins)
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "1/10/2001");
events = _ObjectGetProperty( schedule , "Events");
_ObjectCallMethod( events , "Add", "1/10/2001 9:00:00 AM","1/10/2001 12:30:00 PM");
_ObjectCallMethod( events , "Add", "1/10/2001 9:00:00 AM","1/10/2001 12:30:00 PM");
_ObjectCallMethod( schedule , "EndUpdate");
var_CopyTo = _ObjectCallMethod(schedule, "ExecuteTemplate", "CopyTo(`c:/temp/sample.pdf|||3 x 2f`)");
|
|
341
|
Generates a PDF document that fits the content to 3 A3-landscape pages wide by 2 pages tall (custom margins)
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "1/10/2001");
events = _ObjectGetProperty( schedule , "Events");
_ObjectCallMethod( events , "Add", "1/10/2001 9:00:00 AM","1/10/2001 12:30:00 PM");
_ObjectCallMethod( events , "Add", "1/10/2001 9:00:00 AM","1/10/2001 12:30:00 PM");
_ObjectCallMethod( schedule , "EndUpdate");
var_CopyTo = _ObjectCallMethod(schedule, "ExecuteTemplate", "CopyTo(`c:/temp/sample.pdf|16.54 in x 11.69 in|5 mm 5 mm 5 mm 5 mm|3 x 2`)");
|
|
340
|
Generates a PDF document that fits the content to 2 Letter pages tall, automatically determining the number of pages wide (default margins)
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "1/10/2001");
events = _ObjectGetProperty( schedule , "Events");
_ObjectCallMethod( events , "Add", "1/10/2001 9:00:00 AM","1/10/2001 12:30:00 PM");
_ObjectCallMethod( events , "Add", "1/10/2001 9:00:00 AM","1/10/2001 12:30:00 PM");
_ObjectCallMethod( schedule , "EndUpdate");
var_CopyTo = _ObjectCallMethod(schedule, "ExecuteTemplate", "CopyTo(`c:/temp/sample.pdf|8.50 in x 11.00 in||x 2`)");
|
|
339
|
Generates a PDF document that fits the content to 1 page wide and as many A4 pages tall as required (default margins)
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "1/10/2001");
events = _ObjectGetProperty( schedule , "Events");
_ObjectCallMethod( events , "Add", "1/10/2001 9:00:00 AM","1/10/2001 12:30:00 PM");
_ObjectCallMethod( events , "Add", "1/10/2001 9:00:00 AM","1/10/2001 12:30:00 PM");
_ObjectCallMethod( schedule , "EndUpdate");
var_CopyTo = _ObjectCallMethod(schedule, "ExecuteTemplate", "CopyTo(`c:/temp/sample.pdf|||1 x`)");
|
|
338
|
Generates a PDF document on a single A4 page (default margins)
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "1/10/2001");
events = _ObjectGetProperty( schedule , "Events");
_ObjectCallMethod( events , "Add", "1/10/2001 9:00:00 AM","1/10/2001 12:30:00 PM");
_ObjectCallMethod( events , "Add", "1/10/2001 9:00:00 AM","1/10/2001 12:30:00 PM");
_ObjectCallMethod( schedule , "EndUpdate");
var_CopyTo = _ObjectCallMethod(schedule, "ExecuteTemplate", "CopyTo(`c:/temp/sample.pdf|||single`)");
|
|
337
|
How do I limit the number of all-day events to a range of 1 to 25 items
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( schedule , "AllowSelectCreateEvent", 2);
_ObjectSetProperty( schedule , "OnResizeControl", 2048);
_ObjectSetProperty( schedule , "ShowAllDayHeader", -1);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "5/21/2012");
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "value >= #5/20/2012# and value <= #5/26/2012#");
_ObjectSetProperty( schedule , "ShowViewCompact", -1);
_ObjectSetProperty( schedule , "AllowAllDayEventScroll", 1053073);
_ObjectSetProperty( schedule , "BodyEventBackColor", 8421504);
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(165) = 14474460");
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/21/2012","5/24/2012") , "AllDayEvent", -1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/22/2012","5/23/2012") , "AllDayEvent", -1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/22/2012","5/24/2012") , "AllDayEvent", -1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/22/2012","5/25/2012") , "AllDayEvent", -1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/22/2012","5/25/2012") , "AllDayEvent", -1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/23/2012","5/25/2012") , "AllDayEvent", -1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/24/2012","5/25/2012") , "AllDayEvent", -1);
_ObjectCallMethod( schedule , "EndUpdate");
|
|
336
|
Arranges all days to a single column (vertically)
OBJECT calendar,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(41) = -2147483644");
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectCallMethod(schedule, "TemplatePut", "Dim calObj")
_ObjectCallMethod(schedule, "TemplatePut", calendar)
_ObjectCallMethod(schedule, "ExecuteTemplate", "calObj.SelectDate(#1/1/2006#) = True");
_ObjectCallMethod( calendar , "Select", 3);
_ObjectSetProperty( schedule , "ShowViewCompact", 2);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "OnSelectDate", 0);
_ObjectCallMethod(schedule, "ExecuteTemplate", "TimeScales.Item(0).Visible = False");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
335
|
Arrange the view to display weekdays vertically across 7 rows, with one row for each weekday
OBJECT calendar,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(41) = -2147483644");
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectCallMethod(schedule, "TemplatePut", "Dim calObj")
_ObjectCallMethod(schedule, "TemplatePut", calendar)
_ObjectCallMethod(schedule, "ExecuteTemplate", "calObj.SelectDate(#1/1/2001#) = True");
_ObjectSetProperty( calendar , "Selection", "month(value) = 1");
_ObjectSetProperty( schedule , "ShowViewCompact", 4);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "OnSelectDate", 0);
_ObjectCallMethod(schedule, "ExecuteTemplate", "TimeScales.Item(0).Visible = False");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
334
|
Ubuntu appearance
OBJECT appearance,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( schedule , "BackColor", 16777215);
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(6) = 16777216");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(28) = 8421504");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(29) = 8421504");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(8) = 16777216");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(41) = 16777216");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(36) = 255");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(19) = 721420288");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(20) = 16777215");
_ObjectSetProperty( schedule , "ScrollHeight", 13);
_ObjectSetProperty( schedule , "ScrollWidth", 13);
_ObjectSetProperty( schedule , "ScrollButtonWidth", 13);
_ObjectSetProperty( schedule , "ScrollButtonHeight", 13);
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(64) = 16777216");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(511) = 16777215");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(18) = 16777216");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(256) = 33554432");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(257) = Background(256)");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(258) = 67108864");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(259) = Background(256)");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(260) = 100663296");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(261) = 117440512");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(262) = Background(260)");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(263) = 134217728");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(264) = 167772160");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(265) = Background(264)");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(266) = 201326592");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(267) = Background(264)");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(276) = 234881024");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(268) = Background(276)");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(272) = Background(276)");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(384) = 301989888");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(385) = Background(384)");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(386) = 335544320");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(387) = Background(384)");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(388) = 369098752");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(389) = 385875968");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(390) = Background(388)");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(391) = 419430400");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(392) = 436207616");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(393) = Background(392)");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(394) = 469762048");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(395) = Background(392)");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(404) = 503316480");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(396) = Background(404)");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(400) = Background(404)");
appearance = _ObjectGetProperty( schedule , "VisualAppearance");
_ObjectCallMethod( appearance , "Add", 1,"gBFLBCJwBAEHhEJAEGg4BL4Cg6AADACAxRDAMgBQKAAzQFAYaBmG6GAAGEaRWgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMaTV" +
"J8bQ2ASEZwjNhGBT0AJEUZFU6ABJMZRRICeYRAaKwIoGJYaUhRdCxPCIZBqEqua7iEZRQqCCZkWZUMB1BC9JwHCKXbSpSi6NAAMokXDcMxzHIEfQ1ISBbpuWB5KrGfgA" +
"BhCNqBVS8LpcVJSQAxfIaKwXAYgYRgNqSFIFXYRBKqYDxSZaDpuWYWWDaNzWFY9SzHVzDMShHCYDx7I55S5dGYUXjkN1c6A3XJ8WraT6xbTVUB6Dj/BRvDjWJi6EALIx" +
"fiqCxbCQFpIg4e4Dk6XJoCEJQDEmDJoHUOQZEYMgFDUQIEE2dhGiKMAxEeBxFCWbwAA4GY+BKFRSi4fxfnesAAmAJ54j0MBMEMUJXDYTwzlCdIDGCeA6BCBJgmgHgJgK" +
"YJTlSZw6E6KBuB2BwhmgegWgKDYYDidQ6CGSIgmqCoikgcgjgKTxDlYJw6g6M4iDSDYjFiXg0guYknHZKIzjIQIQiQGQOEODwjmOWJqDsDpZC4TYTCSaQ6EgPYPGkBJt" +
"hWJYJDIVoPCUQ5eEwO4lnnTAYCYORwneF4OmOPJshoZo5ipWJmGOXhjDuZw5lYaYcmOSYcniGhPAmch+DuZ5aAIeQ+A+CgAnGIYogOQoHiKI5KBCeYig8KhChIPBpBoU" +
"oND4T4aFCcomimQ5KhuJ9tGCeYng8OoSiYPIqFqIohXQI5OA2K4gnqPoyD0KgTmqLYMGGGpmjiDBjkqWJ7gwTxrAKQoPiwCp0nsPpkhsJhUjKDxonKRw+k8aYelEPZtD" +
"sVhnjOD5D1WIQtjOYpdjeaBInKWQ/Cia4UngPhuGOZpijYagrjabooi6M5wn2PJvEuVp2gWL4ICKeQxC+O5tAEgI=");
_ObjectCallMethod( appearance , "Add", 43,"gBFLBCJwBAEHhEJAEGg4BPIDg6AADACAxRDAMgBQKAAzQFAYaBmG6GAAGIYxYgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDEAkRRdDSOYDmGQYDiCIoRShOMaTV" +
"J8bQ2ASEaAmWK2RJgJwAUTRcTTYAEUxlFChJakAC4bA2QYlRpSNIUNC8IhkGoSa6sCIRVDCYYJWTZc61PDVKQHKKXbTgOjqNowNIkXDcMxzHIEfQ1HCVMBpfAqShsE5s" +
"AAFdYRPTVNSXQi6ILka4IbpOCaHQLVUB4VQdMy5RyEbCtKIrDqiZpkabcMgVDjAATdRK8dSyCS6MiKfgAVDrGw3FauCYlObKIyyaz4JxoAKtbrfcaaLKXGABNLUNDiao" +
"Oi8EYvmQch2lCEBECSIBpDGHQOicIwokYQJOgYEIJj4eJQloEgomKQhzhIEJEF0MQRmSCZLA0H5Pm+dZ8H+X5oAWfYAooDAAH8BBxmCcICGCOAqAyA5gmgRgNgSYJHnI" +
"Bx+gTE5xBARwTjAQQck6QQAHIOphniBgjSkKIGB2CghmGSJtgYTwYFmfASkeM5EEJK5YHya4IiIQZODuCZhlEAgrggBAxlCbYNCMF5qBcNBElGdJyBCBxDjoHw7GQKB6" +
"DiFRlgkDJthETppDScoMh+IRAH8PJEEGVJuUiWJmCmGgm0wK4LiQU40EWGYmCOThgDQRQiAIZAdg6eRyDeFplBmfBChqRwzjgRIRgQWZyHmHYkiecBUCCDxBBgdw8AQQ" +
"ZY1cZoaFaF4aGWSRyHMOxEHoToPD0JxxFiBA9GoE5CgkO5mFOOorisaB6BgdQ7kQaZwEiAoqGOVh3BYSBjloMARiCIQUHeLQsBsDhzDubAoEwSQeg8GpwnaHZFjIIJ2B" +
"KB4jkgSAeE8ChInCNZthoTBHh8KQjkYMASm0WxGk+IxfiEdIKD2RJBmycgSiMWxynAPBtkEJB4j0IYrFCcQTAeQ5KmoPZnHEfILD4BJBnScwSi+WwsnGQgPCwKp6jKTw" +
"hC6fYTE8PAIniHZGCINJ4BOB5jk8BZEEeS5uE6RIPBiUwgDyJZsHCc5GHEe4glEGQInOZBPB+DxMisKZHGWYQ0HwPJxEyTJzh0cwDmYdwZgkE5qGIPREnIAJ0BOZl7ku" +
"GJFAGdxLk1XpQFEIAPF0EJ6h2RoCEye5VnUYgEnUFA0iERxilkDxNFcZA9HYY5UFKWI1lObh3BqSRDmwUlvm2HkdoswPCbGsPkHg7RNgQc0J4YQnh4i6DcFkOA2glgfE" +
"EKEA4wh4jiE+icTw3A7ggD2NEc4sBVBCA8PwLI+XtjkGCPsKYHwODZHeNMOoHByhNGmPUIgIR2jSDoCcdg7gcCTCOOgVwQhPDiFuHEboHwOjXDkEIe4vRviBG+AocgMR" +
"4jaDtBIcwTgPjeC+JscweRvCPFCOkfI/hXidB2MAXwzACjtCAJACAABACAICA");
_ObjectCallMethod( appearance , "Add", 2,"gBFLBCJwBAEHhEJAEGg4BMsMQAAYAQGKIYBkAKBQAGaAoDDQMw3QwAAwjGK0EwsACEIrjKCRShyCYZRhGcTSBIAYRKASEYjlCBBTiKK4hSJAYKwTKcBxBF5/YRnGKpE" +
"gkCIJFAaJhnIapZDKGKQB6lMgiNoqGoVQKKEyVHKwAAxC4EJbmGKlTTdOz2PY9dgWFYNRzNMq0LItKw2SZRVwAVzXdo2PZdZztNS2bbuG5LcrefZ4W5cFbXfglfTTPLB" +
"LitJpMMLLDhtZBkOQ4caWqZ0Yhedz5MamOoGQZCM5OTJrfxmXj1PTYGZ4Ya2W5JQx7cQWZaVda9bzwYXcB4HRzlcTyPK0bStQACfqGYxuG5cDaeMqFZjnOi2DZNaADMJ" +
"bG6Lw4k8N4blOGx1HuPQeg8XgTGGSJlHQAA2m8FgzCGsJljOOx6h2BYPkKdRrjYWx9CaZAOHYAA/k6Q40m8MZMiMNJADEDIDHyYA4huM5JigPYbkOSJjDkDhjDiUA1A0" +
"ZxYm4bZflSaZ9HqHRzH4BAzEwEwUkgMIMFMJJHDITJTDyUg1E4E4MmWBxfngdQBIC");
_ObjectCallMethod( appearance , "Add", 4,"gBFLBCJwBAEHhEJAEGg4BNEMQAAYAQGKIYBkAKBQAGaAoDDQMw3QwAAxDGLEEwsACEIrjKCRShyCYZRhGcTSBIAYRKASEmpyRAgZxFFiQZCgMDYJjSA4gTA/cIzVDUS" +
"QSBCESgNEwzULUchlDDIA7SYQRGyXDQbIRFCZaUjcAAYRaCEwTFDSUJYWB7HqeewbDqKZJnWZaNi2XYjCKOZYAK6sCyrIqydJ3WrbVwXFatezxPy8bbuGr8AbrBqGPri" +
"GJPVhODTrPTBbjtNw3DaRLqXKrmOZZVi6XLLT7HcCvS6MUaRL6nLjqOjqfj7S4BSC5HpeWwdExVMK3azgGxPNiCVpeWZ2XadfALEbNcz0cRYTwPA6LDKSZoAFrXJbmXY" +
"yluZJdjsNhHAOCZIk4aA1AADQmiMXRkjYXQ8h4XILn+MZvkYegxnmbZWnuBh2j4YQxFebA2DeP4xkUcZMlMQJTDQDQjFUAxPAABJwn8MAfjKXI5C8TYjGyXg7k6c5AnQ" +
"bJhEORJeH0H4zCWXw0mAeIGCKAoNEMWJZC+DATBGZwvh0Ip4juCgMGMIJMDaDZDHoI4IFAECAgA==");
_ObjectCallMethod( appearance , "Add", 6,"gBFLBCJwBAEHhEJAEGg4BOQDg6AADACAxRDAMgBQKAAzQFAYaBmG6GAAGIYxYgmFgAQhFcZQSKUOQTDKMIziaQJADCJQCQk2MBJJDAMAlSJKEhRVDsBxrEKBZFJDCIZ" +
"BqEqeZ7iEZZPiAN4sTLOExgbBIPQ/BKZAAfeCaThqQZARxQUI0IItDALJKlIqCtpkBydHKoKotKpqZpiNpaQLXFByfCMRR1BIDLIvKyLAo+fAADBXdwyeJoaSjFSQIps" +
"C54DqUAKOBTfV6xPIkEgRBIoDRMM5DVLIZQxSA5VIEERuRQ0GyERQvMALHiEGIXLBSGRxPSuaqcaBqF6YBhFUTZOiwLKtayLOrafqEYpqGqbGA9V4yaz/cYxKzLQrjMp" +
"aG6PAeC8J4zlmbpsHYO4ag0VpCleKJEGMMh5lUKonM0RBjj0XovH+G5dmidB7DyHhPEcc49l6aw7E6Y4kmoOpLneOZvDKHJikmPgtguEpxlwPZdkOYZxD2Dw3lmWg8mA" +
"A4+AMOxOGOHJqDmDoDiWZQvAyIwwk8AALAKUI4DaTZDHyeA+E+F5OBIfIPDOTJ1HYTwzjCbQ7mAI4yB0OhOFiAJRDSTRSmyPgwgAAo9kGBRPEiPgxD2T4YE4FQ9GEc42" +
"ACCBjykaQ5CQGRwmYLJgkkJgKD6T4znCd4LmMKRJncPBPBiZhXgCJAThyYg4k4U4kxYCp4CoYgtg+WZ2GeE5jDOVhMgWY4jjYWg6mWQ4iHNKoomoeQtwKcJ8D8Z54EWd" +
"g9h8aJdlqDoOykaA6g4M4QmYOBnEoNJtiOaQaE6FQ9g+Chcn+K5rAqQoeigKgqhCZYpirVASiUIp6Fmdwvh6awAkSMIrDqBojikaJpmqOoqiuWoyheJhdhOSocjEaxbC" +
"KJ4yiCKpuiuKxfHqRpejULB6l6SYkCyOpwnmL4PYKah7i4CpajiNgLGsapNjcKYDlKGo0iAC42laLhthsMpnjOLZbHqMonmwa46mOKhuGuIprjCbpMBKVY4i0e4Sn2Qh" +
"wAuVp3jScJrgab5Ei8G56miNApjuZwZkGMQcCKW4zm8axHBiLQxiwHplkmXx8gKeInHIO5unCHxuGmJJ1gULxnmYbg7mmc4uHGMYxxqOITiMKA+X8HYjkibh/COWQEmi" +
"HQOHmXwljKT5JDoER8E8eJWhqT5iBOLgdlSThIHmX4uGSN5bEiGZmiOUxNgYYA5GSaoXA4fZQjMLRLhiIgqgsBseIhR/B8B2JcVY8A8pHHCOEAI5hID8FqCEZAtiFgFA" +
"uFAMIewDi+DkI4O4KR4CPGyN4PATh4AMAOFlXgLAnDmB0CYCY3h3CfAeKUdgeh4CHFeDYPAQwZi0MqD0B4UxrCpB0DwSIskyCzDGLYdwOxzh0EQGsYgZgPhrG2KoXwQx" +
"MDbE0G0aIhwYA3HcAsQwXYXiZFYGwHoTg1ACICA==");
_ObjectCallMethod( appearance , "Add", 7,"gBFLBCJwBAEHhEJAEGg4BVwDg6AADACAxRDAMgBQKAAzQFAYaBmG6GAAGIYxYgmFgAQhFcZQSKUOQTDKMIziaQJADCJQCQk2MBJJDAMAlSJKEhRVDsBxrEKBZFJDCIZ" +
"BqEqeZ7iEZZPiAN4sTLOExgbBIPQ/BKZAAfeCaThqQZARxQUI0IItDALJKlIqCtpkBydHKoKotKpqZpiNpaQLXFByfCMRR1BIDLIvKyLAo+fAADBXdwyeJoaSjFSQIps" +
"C54DqUAKOBTfV6xPIkEgRBIoDRMM5DVLIZQxSA5VIEERuRQ0GyERQvMALHiEGIXLBSGRxPSuaqOZJmFTVVYEaR1ICUJamW6qApiXpkZpnWigPZeLqtfyuLCtCaJcoLFJ" +
"MGcOgdE6J4LkmZJmHOOZ2myJJfFEZo1FwcxqFUToClEWIuFgPA+C6dx7kGVpsHaOZdC6JwnH2RplDmHZziCKR7gsQpZmgeoKDKGIqCcCZygmcQ8B8M5Em0O4OnOJJrH4" +
"HYTgyZA5k4A4ImQNxNmOBgaDkYJCgiOAukucAAhkb4MmMPJRHcTw3lCcQ7CEQ4pnYOZhhecJfgiDY4gYIA4gwQwYkiAhKiAAZACbOA5lwPJfBOSgTDuTojjCbIOA6KBo" +
"mYN8pAyXA3E4AxmD0OAOBOCZBCcQACEiFQmA+A5knkPBdkeRgzHyTo4F4VA4g4M4Yl6BxNiMcJfDYDYjHWdg7AkMhYhmGUEmSeg+iTNhyg0JQJkiaQ6GJLZhDaTZZm4f" +
"R9k6WYYhiIQJgmKhrDwYwTj4M4El+I4xl8OhhmmWh4h6J5DHYUomGYehygaJ5PCOOJwgSIRKBye4uiuKRwzqDZjGCWQ3CeehqjIPorEqWo4DuXRChKTYzGuawCkKMQlC" +
"sGoaiyZpKlaN4TmcE40mYdhiCOFpRg8bQ7BaMY1myC2bhOa5DmqO47i4OwGkOOYpjuIpJjaYRLDyIYzi+O5GmWNRuHoFppHcLo4FKXY3k6K4Gn6PJwAuVwCj2bI7jabw" +
"+nCOxQmyNYwnuKp4jNsZoiSRRvEsHJ6gwKgpDoNYNk6CoiHWJROBMaoUisap8GKHYaiaSJHBuBYlDuAZ+ksJ4THyV5DDEfAGh2IZohmMhPg2IYKiGf40E2SwGHmTB0Co" +
"GoIHcI18HSFBtmyJoph2TgjG6LA2GqY42jCQ40DOao3DyNRch6JoFjXW5ik8TYKFMUJZCgfROEyRpfG0JZ+hWMsGgoRfgvA2ucMomgPBZFoCUHAURpCrH+CwJYUhzB7B" +
"+NAGgHBHB2GEDwFw0wjDDA4FQHIDwiAZDYPUGAnA5wjG+DkAwhwFB6SGIUDIrAfgvGyMoOgTAYD8Du9gMwGRFBjGQqoRA4RdiHEoN0aowh8pKH8HYB49w0grAmDAMgTw" +
"KC5DKEEKwVwKhOBYN0BQPhfAJGkHYPAhwQotGAAcHITQAi9EeEsagqQ8jFDmIYdYGRXDLFsO4fYZwfhuDIbUfYdgsi9BUK8Yw2hNAGESKYKQFByhVAICcDgix/h7HELA" +
"NIjQoiuH6E4NIASAg");
_ObjectCallMethod( appearance , "Add", 8,"gBFLBCJwBAEHhEJAEGg4BEQDg6AADACAxRDAMgBQKAAzQFAYaBmG6GAAGIYxYgmFgAQhFcZQSKUOQTDKMIziaQJADCJQCQk2MBJJDAMAlSJKEhRVDsBxrEKBZFJDCIZ" +
"BqEqeZ7iEZZPiAN4sTLOExgbBIPQ/BKZAAfeCaThqQZARxQUI0IItDALJKlIqCtpkBydHKoKotKpqZpiNpaQLXFByfCMRR1BIDLIvKyLAo+fAADBXdwyeJoaSjFSQIps" +
"C54DqUAKOBTfV6xPIkEgRBIoDRMM5DVLIZQxSA5VIEERuRQ0GyERQvMALHiEGIXLBSGRxPSuaqSZZnFgWJZVBSNJicJ4oO6qMqKZpsZ5oWjgPZeLqtfyzLSuChqKpDJp" +
"UGsPBeE8J5nHGYZePeGhdDUQphHKPJmlSKodAWRxBG6eZ3j8fg/C6Y5xnGbx6j2HpdheHwXiKOh5l6FxQuqChiiSeIBk+aAlnIfJdkOXgHDyTxDlCcA8E8E44m8PAeDK" +
"aI9DAQACHyIQpE0QxUlaAhiEOegMH0D5IDieA8iECBcnGBZPAMNJODQCoSiyLgAAmNwEnODpiFgKZxgoIJTlyd4LA8M4+BcOwOlOOJpDqDs6CROQiHCH4PGIWIcnuFZP" +
"GkCZaDyYRjkISA7SCVJ1CaCZSgIUIUg+eYmFSFYlgkCZ7gWDpzi4SB+A8aREh+GZJnmJJ/hqY53HIVw+mWE5eG+BYnCONh0h2J4JmofA/GeKg2GmBQPCkJJuUWQ4ygeF" +
"IohmKg9HyChyiSLInGmeh6hCJIpEoWZ5iIJxqCqG4fE+SZ+gGKJOmoTtYGceomhqFRfBoOoNiwKwqhodYmCsaZuisPxqAsFoiHYahKk6J4wCaCpeCSGwoAmOpIiwahal" +
"KGYwiuCgyjqI5tDqdpWjAaI7BqIQrCuSxWkuLRslsYpP4maxKhGNQsiqfpoh4bJonifR9C6WgJlqEhnBmTpnjWaI7mIbY+iWSgSn6PIwUCAo0HASZCgWN5uhwBh+kCZY" +
"5HSaw7Gga5+mCQokAkChDg6ZBpHoSZECUORSnaEAihgHgsD0IwDjKMYYGYOYWDiDojksDgngrMhKBSPwOhOLhNCgCg4HYHx1g0WguCcfYPhyQZZDyIpjDIMgqCMYACAI" +
"cJenOZprgKXxNFYYg9iWNx4nAcJhiMARUCsSwCk2fR7k+KAuiyVRfhoCJxDySpmmmax6B6FRLGQLJcD0EhbH0DsY4iRNDwBwGUSIaAti9AUK4dQ2hNBGEyKsDQlRiDpB" +
"8FECYcwUg9FABUPYJAiBsHgK4NQAiAg==");
_ObjectCallMethod( appearance , "Add", 10,"gBFLBCJwBAEHhEJAEGg4BMEMQAAYAQGKIYBkAKBQAGaAoDDQMw3QwAAxDGLEEwsACEIrjKCRShyCYZRhGcTSBIAYRKASEmpyRAgZxFFiQZCgMDYJjSA4gTA/cIzVDUS" +
"QSBCESgNEwzULUchlDDIA7SYQRGyXDQbIRFCZaUjcAAYRaCEwTFIUeL+d54HhbNrXAYdSjNMCxLIMEwrEqOZJmWbaJpXCaNZoDV5eE5uY5rXzMwgxDDte4DRLhMJ6Xpe" +
"bB3SaNZDmM40DSNMzLNrdMK9LAeGzWMYiZzzPK9DzPM6+R5LUjTNKeR5HVZfFTZNo3F5NRYaeJ+YZ5NB1HSNcyfPqqaw0bStRh7UABW5jG4sTa9fz3TLMOY5botQzTOg" +
"AFsLhXi6ewHD8e4HHidx3k8F4Lk+BJYAALJWmuPBOg+HYkGofAOl8L4DFOQ6ljUGp+g8V4HmgdB/kgMgMgQf5HEeUZhH4H4niSOxzB8QZKA4GxhAgRgRgOBwoBmPYCB+" +
"OAtm4cxhkeWYkgYIIoHoHYGlySIBnyCQigiDY+gmIYoioIoBl+EABAEgI");
_ObjectCallMethod( appearance , "Add", 12,"gBFLBCJwBAEHhEJAEGg4BNEMQAAYAQGKIYBkAKBQAGaAoDDQMw3QwAAxDGLEEwsACEIrjKCRShyCYZRhGcTSBIAYRKASEmpyRAgZxFFiQZCgMDYJjSA4gTA/cIzVDUS" +
"QSBCESgNEwzULUchlDDIA7SYQRGyXDQbIRFCZaUjcAAYRaCEwTFIUeS8ahrWxXdgWETZOi+LauS6rWrzAqMZBmGybRroDp6dY7OK5LjsAwbDJsXJeWybNrXOa9cD0PS9" +
"Tr4MzzPrDPpkWaaBo3FaZaJ3XTbLCre0zcjzPQ9TzPPoWSZHUrSXj0BjcTZBUjVXa0VgLFYzZY/VDTdx0ba9JyBRzJMy3OLABZKfTCbbcN43LieJaBYjkZI1AAKWp6Zp" +
"tkKcw3E8XBLmGcJ5myPZeA8B4LBug5UCsFgdj0FwvEaZZ3iwPgui+Hx3j+WpEjEGJsj8P4nkGbw5EqeAEjmAJgBKPZzDqHxXCWeR+l6ApBkkOJODOEIugSSo4FYFoFiE" +
"Mo4mYOYOHgKZ6H8IJnjWSoIl4BoWAuCAiFiCgpG6Yh4DYK4LmIKI1n2CojEiEY6gmUAQICA==");
_ObjectCallMethod( appearance , "Add", 14,"gBFLBCJwBAEHhEJAEGg4BSoCg6AADACAxRDAMgBQKAAzQFAYaBmG6GAAGIYxYgmFgAQhFcZQSKUOQTDKMIziaQJADCJQCQk2MBJJDAMAlSJKEhRVDsBxrEKBZFJDCIZ" +
"BqEqeZ7iEZZPiAN4sTLOExgbBIPQ/DZ/YRqGKqBoCHJCQjRAi0MAtEyVCwLYRpSA6OjmUJSRrVNpVTJ9BzbLydIRAawoJqGZpeRrJEIgRBJIDSMY6DpOIxRRiBZpIEIT" +
"ODxUK0pJ0WRTYYROqFETxCxZVrXN5nWbfHD3Og6LpMeyLKqIY5lGDYZimJYtTzWNg2TqOY52P4+aRqGrADKVbbVdT2NA0TSre00TjQNK2DYtYzbOK+bRuG6aVp2ZY1Tx" +
"pjcW5uB2c5bHGOpeGkGoMCYIwhi2SxtDaW5clae0DmCbI4FuTgHBeSZElMao2Bufw+nabw0jsL4MCcTJaGwTZXiGahzh6V49lofRdiODJgDgTg3HmfBvBqUw9lQNwgEg" +
"GZrgIXwIDIEEgCOEZQDeIQ2GmOA2CEeBlmmBpemgdZzgMYgDhID4EFuF50jsbANjiJJagEYo4CILYCmKeB+CEOIODOFglg2TYImWS4KiAd4yD8fBkBODgxhEJBolWPIO" +
"COKJyE2BwkAOCgwhCZBZB4WISmOOBqD6AolAkehCDkJRJgoSYWGYaQ6GiB4lCmAhVHeWYpg4GIZGOWZKC6GonFmMhhhWJ4Zj4ZIWiKSZOFGFJoDmYhIhKJ46CIZ4fmWe" +
"gKHeDYnikMoJiUJo5jaBIjmcCZ2FyGhpFoeoOiYZ5JG4T4dCiSheRmKQZkaI4rCcaY6hCJopDkdoliMaYKkKOIfiuKh2jyK5rHqJobjAaAahqPYxGkKwCiSMIqmoFpMi" +
"yKo6C6NYnmqCw2jONYpGkHgnigaoqCqAIMGMOQeBWOAsHsPoBgiZBymoAB0k2Op+luIAuFaZhHDOW4DAiRQyCEexSmIfRfHMYJeDeTgpB2XBwFwNopkcchcjeLgjgCDJ" +
"nF2UR2lueQdjYZxOHOIYjDQTRDA3oQakaOYwDaDo2lMFw9l+RAEIC");
_ObjectCallMethod( appearance , "Add", 18,"gBFLBCJwBAEHhEJAEGg4BL8MQAAYAQGKIYBkAKBQAGaAoDDQMw3QwAAxDGLEEwsACEIrjKCRShyCYZRhGcTSBIAYRKASEmpyRAgZxFFiQZCgMDYJjSA4gTA/cIzVDUS" +
"QSBCESgNEwzULUchlDDIA7SYQRGyXDQbIRFCZaUjcAAYRaCEwTFIUeS8chyXQbBqmdZNVTYNI1DT2TZdVTZN63LSnNznPbCYzcWY1bjOO5LYrkeZ7HqefAcDwLBKHYZg" +
"U5tMzDNqubJtXoeR5cIwXFqVZhiThOG4rHqgah5zw5PgTKZNUbCAAZdomVaNZDmahiLz6MyhZZtWJ7QAYdiWNbCfq4bQdHBGbwmcE6MSyLy5JobYz8OzoEDQNBOEK3Rh" +
"gveDwNncAxNkIOh1HiTB2FMNY+mAcRuDCGxNjGS4Mlsbo4BgDBGEOTxDmmUppnYWRQAWVZjmMM4MgMLJOH0TxHl2JIBlOM4wm0O5dhMMI8C+TAzHGcA7k6c5FksYBfig" +
"ZYWE6UAzn2fRYk2WBAkYLYLhKdIzC2S44h4KYKCKKI2CyCgAAQBCAgA==");
_ObjectCallMethod( appearance , "Add", 20,"gBFLBCJwBAEHhEJAEGg4BN0MQAAYAQGKIYBkAKBQAGaAoDDQMw3QwAAxDGLEEwsACEIrjKCRShyCYZRhGcTSBIAYRKASEmpyRAgZxFFiQZCgMDYJjSA4gTA/cIzVDUS" +
"QSBCESgNEwzULUchlDDIA7SYQRGyXDQbIRFCZaUjcAAYRaCEwTFIUeS8bpvXBZZoGUYZSTNMQxbJ2TZdVTZN63LSnNxXrieaJqbKZVwHCaRcDwPC9LyvNgjb4LQ57MKx" +
"HBZbqNUzNNA0bxvG6mEYVS7LMxxEAGaZxXjDMYyWR5LheS4xRJydRfJ6nbxpdwA4YZRrrBy7FqpOSrW5PXrmXAAXZeWBddz3RzbKKpK7yKp88K3JqMLauS6vJgeXZGWB" +
"2BcHYuFqL4bj4WwuheTpnHuQ4MnccY4lyHIVH8c49k+TYvlgLDXG2PZmkKegchuJR2i+HYnGuTRDFiWQtkuEp0nIZQfHYJZ5HmE4zAGIAvloBoOAkf5ZGSbJjDkThyni" +
"QQxEsJ4AlcNhNjOOZjGCGBHj4FBmlANR6CkNBgBcRI+CqSpykyKArAsCJODWDQjGiZg4g0AAEAQgI");
_ObjectCallMethod( appearance , "Add", 22,"gBFLBCJwBAEHhEJAEGg4BLYDg6AADACAxRDAMgBQKAAzQFAYaBmG6GAAGIYxYgmFgAQhFcZQSKUOQTDKMIziaQJADCJQEQjBIwCKAUUhnESWZCjKLYDjSIYDSBIUQxC" +
"KQahLHifJAGegpZhuRYaAbCIKxfBMYgAf6EagjKgJfhyQYJULWFLSFIALw2DylKYgOjqSo+G5UWhCIyyXCNVyrGSbiTRWBlQxxOCLZAAWypLC0NIlSAOFLDDJ9cRBOqN" +
"Aoua4bYrmtIEIRKAyTDLQdRyGSMMmiIEsJrOIyGaCRIgmYIDUrdYYROpmO4bDSpNhZJjGPTtPjBLKtS4qeqSbZ5Xzed74LgeE4DRrDcbxPIbfrKc5sYLZWbgPYeThbMR" +
"iDGGQrFWQpxiKUxqjkHIuHcU4xliax2DsfJum8I43lmbp0HufY/A+H5LmucZ2DofJ+BcOxDj+WwvB2AwplUWYVBcYJJC+TATBCZw6A6I4YmgOhfjODJkDmTg3giYg4k4" +
"Y4GBWBoOFgcgegaYgIHYIYHmIKIWBcOYhHOFZ7HiDoIDiaYCAwSAaAMNQNGMYI2HcIJDiyaQ6g6OAuA0eJOGgLJlgOIRThoEoRg4SQiEqEZkkkJhNhKZJpESZh4E6CQM" +
"meEBOhkYhBDqI4Xn4NA2FAMp8kIMRdnMXJtDuDp3ioPB6l4eA+DoeQgmOKg+hyYJJlIcodGeCZeHqHYnDeZgPhcDoTjIOx7E6M41mgO4NEMVJYhiDBUAyNAtkuJ4WGgP" +
"APAoToThmTp3iCbw7iaCgeh6GZoHaXJED+ahKgYCYpA+eoaiOKRqAqNoG3WWo0m+Jl4mWaIjkuNAMjALJLHOWo+DyDwzlaQA9A8KwAnGMRPAORJzjGTwrCSc4yGyWwel" +
"CKIqgsTonikLRqiyf40C0CwekuMotmsOpe5KSp4neLpLHQDY5C6DwbjSdA9E8U5Om8PQuFuSJ0DybAbki7QPFuUp9jybp7FKJI/jAI5/ASNZwGwApxj0L4rkqcY+G8S5" +
"QnaNAu4mPgwAwQxklsNxPHwdpw7ybB+v0bhsgMEpJm4XIgnaSoykyJwukqbhbkMMg9jII5UneR5xlOXJZDaDZcXwQJMmMQJUG6C5bhsHQ+GuY5jd8NIdC8R5SHUA5bEy" +
"VI1B0TxWlUdYNEsTg9nSI5cnmUp0hyDY6C8NATFGVnDCMGNUgwc5bFwPhPiOaNbE+HZPHWXQ3G2Px6lyd49H8PkX47xuAOH2MEdwexbDtDmEEEwPEABADgBkf4Rg0CGG" +
"yLgN44gTjnBYH4eYHBngvGaJ8Q47wcjPDmLwf4RRoD0E4MkfQfRPhnHKO0ZIGx9gdAyMcHQ3A5h6C6BYAooQ4BXGuI4LYlRui5B6O8Oo3wchVHOGoLgdg+iEAQIAQBAQ" +
"=");
_ObjectCallMethod( appearance , "Add", 23,"gBFLBCJwBAEHhEJAEGg4BMoDg6AADACAxRDAMgBQKAAzQFAYaBmG6GAAGIYxYgmFgAQhFcZQSKUOQTDKMIziaQJADCJQEQjBIwCKAUUhnESWZCjKLYDjSIYDSBIUQxC" +
"KQahLHifJAGegpZhuRYaAbCIKxfBMYgAf6EagjKgJfhyQYJULWFLSFIALw2DylKYgOjqSo+G5UWhCIyyXCNVyrGSbiTRWBlQxxOCLZAAWypLC0NIlSAOFLDDJ9cRBOqN" +
"Aoua4bYjKIAIQiUBomGahajkMoYZAcKSAAIITabRoNUIiRBNQQHJa7QwidTMcw2GpSbAuC5reoaTJUS5NE5SNJkZRJFSYb5wG78DwnB6NYTkOJ5Hh+BztGa4JztKpbEp" +
"+AeMJrEWNgLDWKpdDiHhQjEGJsgcC4Jkaax2DsPJ+h8R4rlubJ3nqfg+m+F5DlWaB2nqPIOCYIwZhGXgoF2MphlgWYVBcbI3CoSpCjiZQ5E4cx4mAOJNiMcJfuEcxglk" +
"NxhGgYgXgYYZIG4HoGiICB2CGB5NHMZJcDYDYjHSWQ2k2Yx0l4OIOEOFJmgICpoAYAwzEycxEhwJ5KCgLJmgODgzHSXw4GKY4ElwNxOAiLJehKJJIjITYSmSaRGFCFJk" +
"nkPJagsIRJByYILCQQx4mGApOHibIhg4DQkAyLArksF50kqDBOHOBJjDkXhDhCYIMA2eA+EiEQOAmYh6h2Z5JmYfYemeagGgAOEznyYs/imVJjhCTg5kyZIbk4YwckkM" +
"oKlKPIyECW4SHyZg5k6A4QmaJxpniRJo3CehCG6HAmnqHoqhuXZyhCeg+g+Ooei2K5rBqMIhiuKwKiyZQ4mmZ83C8K56HqPA5mmY4eAwOZbhKAQDCUG4DkScg8g6A4km" +
"yNBOjOHJpDqKZLGKV4nk6Kxyl4OgtluAoziwLZLgye45GsepSl+NguAsZpujsbpbF6Tg8iyQhpAMJhjjOJpXDrmo0mqPxOiOMp+j8b5HmMBJBnAbAmmaQRwjudwNkIXp" +
"cAGaI/k6Q4nASQIuAOKp4CeUAyiyLQsAyMwwk4O4OnOQJskkMhzj8KQ7E6c48m3cp8jsMM7CyVwxk2cxMmMNpNA6TI3DGSpyEyNJwDKMgsHiMBAmkIwyDsKIPA0NxNDw" +
"dAshcUA8PaOxUlWNRdF8WpWHWTRjF6Vp1n0dxblOdJTksUpLHUDIXEuUhdhmII0gISwbDicw8g8M5THKXZsmOI4eYvRPBbGsPsXwbxuAPACMEd45xLCpGEO4KweRzi9A" +
"8DAJIYArgWBKKQA4ARPjlDiGALIkxYjhE6Bwcopw8jzGeJ8E41wfjRDoD0D4TRpD1A6CcKo0x6h9CeEAPgnwOD+CQHcOYcRqB5GWBYPgoxZjKB0EQZIOgoBeFcFcQg5g" +
"8COC+I0cI+BrivD4FAHQXRqAIEAIAgIA=");
_ObjectCallMethod( appearance , "Add", 25,"gBFLBCJwBAEHhEJAEGg4BegCg6AADACAxRDAMgBQKAAzQFAYaBmG6GAAGIYxYgmFgAQhFcZQSKUOQTDKMIziaQJADCJQEQjBIwCKAUUhnESWZCjKLYDjSIYDSBIUQxC" +
"KQahLHifJAGegpZhuRYaAbCIKxfBMYgAf6EagjKgJfhyQYJULWFLSFIALw2DylKYgOjqSo+G5UWhCIyyXCNVyrGSbiTRWBlQxxOCLZAAWypLC0NIlSAOFLDDJ9cRBOqN" +
"Aoua4bYrmtIEIRKAyTDLQdRyGSMMmiIEsJrOIyGaCRIgmYIDUrdYYROpmO4bDSpNhXJbWAShKyuJ4oKiJUjqQI0ThPd74HgOC4XRLHcLyPDcVxHC57XJSNqVbY2BgPMZ" +
"rEWNgrCWIpdEKIxTDMGYsmcS4tladB6noHpPGeL4rlma52nwPZ/C8d5TmOdZ5nqPJvF8I4vkSUAokoUogjgLoLkcYRmFQXYylyLgsAsI5AnAPBOngPJtDuDpzjCbkjEg" +
"TJrDsTpTi4GYHiGWBkmoOwOkiDglgkIhoiYKIKmIc4yCCCAhhONgZgUIJjjoDwsEsMpUjgLhgFgHJVDWTYXHiJg8E8E5KEYPJkFOSgPgRNw+BGDQhEOPgXDuYQ5FIFIV" +
"GWCReFqFYlkkZhSgUIxJDicIEE8GQuEmAAKgMPJRDSUAyiyLQsAyUw8lAeoPHeJZ6DyTxDlCcoeCeM5OEeERkgmbhJhEDwqBKBoRGgegWgiIpoFkGoAhGZ5ZmydIeB4d" +
"4qHINIdjKWQDCeCgCg4Dg8E+GoGiIPgqBOXJ4XwaogncPZPGqLotisKpqiyJwqEqQ5+jaK5rDqVo3iyKxKlif4rmwCpGiuMJqHqJokD4ZgpAkAwmluU5yk6M5tAsRpSD" +
"6bRLFaVo1CuGp6lWNhrGsbo9jcbR7gaUo4myYhxjkQJJlIfIihGDwjnabo7m8C46mSPJPkscJ/jObxrmKX49m8S4OnEPxkhsKAACoWxzEyVA1G+fAnAqQpwkwNwOkObp" +
"sBiVoDAsVFcDSTRZAqIg/jGTB3B6R5yAyBwikichMhcIIpk+AoQiYKgMhMLJOHYYIyk4OAtGoE5rCaTZzgyZwmiiI4Sl4OQuCAaAYn9ixykoQpBg0U5OHiRxrm0N0oHU" +
"DRHFKU5xl0KJzkGTRihIAYCHQJxnEKABKkIfIhCkSY2mWS5ZlyXYlkyWp2g2LxlCgdgihcYJXGAdAEICA");
_ObjectCallMethod( appearance , "Add", 26,"gBFLBCJwBAEHhEJAEGg4BMUMQAAYAQGKIYBkAKBQAGaAoDDQMw3QwAAxDGLEEwsACEIrjKCRShyCYZRhGcTSBIAYRKASEmpyRAgZxFFiQZCgMDYJjSA4gTA/cIzVDUS" +
"QSBCESgNEwzULUchlDDIA7SYQRGyXDQbIRFCZaUjcAAYRaCEwTFDTJKoa6vLArewbEqOXzTNS2DYNUzrSLMdCBZ4uIAHWbZd51XbdV4XXbVbLieR5XKcdybIZdWTaNw7" +
"TwPDaNaT7PLIL4yHD3UbRdaGNq1TYtXhuJY9OxqNBzfIHTxZTjQNQ4ThuNh2J5cOTYNBaTQ7YaObjPNI1yxLWK3Ph0cBsWhvA6DZKOZJmdzxfIteK1AyDIQdXRPDb+JJ" +
"1HqPYYEwVhPCsXR4macAOhwLhdluCJxGCMRZB2XQekCZZjm8XYbm4BwTCGFZJl4ZA9noPADlGAJEDGTYzHSYB6l4R5BiQaRfFMNgJDuWI4BIBh1k8Y4+AwNwgCKcI/DC" +
"XoTDCbA7E6dg0jMLZLjgfghggIgohYJIIAsYpkj2BZMGMYgBgMGJAAEcxAEAgIA==");
_ObjectCallMethod( appearance , "Add", 28,"gBFLBCJwBAEHhEJAEGg4BM8MQAAYAQGKIYBkAKBQAGaAoDDQMw3QwAAxDGLEEwsACEIrjKCRShyCYZRhGcTSBIAYRKASEmpyRAgZxFFiQZCgMDYJjSA4gTA/cIzVDUS" +
"QSBCESgNEwzULUchlDDIA7SYQRGyXDQbIRFCZaUjcAAYRaCEwTFDTCKOZavLArewbEqOXzGMizLLNAyjOq+cKBZ4uIAHWbZd51XbdV4XXazarqex4HgeFwHCaSaDNNA0" +
"TS3DhleTzR7HMhuZ43TbTCDTM60LR4bbWO4hOxzNBfB6HZxJd6UPQwdoNUzjPTpTzTFa2JytUyPJawXY3Vr2QxmX4/X5VeBVfg9UarNqOO47bwLWrzA59Uy8OBVNaOUR" +
"hlaPxdHOTxLnqXR0j6Z5uDGfQuBqPZLmaUxyF4CxuneAx/HiWQrjyThegWWY0lsbovlgLBPG6GZGmMOQfEOXJyDyDwyliOQvE0QxclkfweBgBgDD0C5zAiRgwBqJhxm4" +
"eBdgONZJgKDYykoBhzEwVgwAAToKgKMIwgkYh4hoKIKmKKIYisK5LDcdI+DSIIYgkcxAEAgI=");
_ObjectCallMethod( appearance , "Add", 30,"gBFLBCJwBAEHhEJAEGg4BTQCg6AADACAxRDAMgBQKAAzQFAYaBmG6GAAGIYxYgmFgAQhFcZQSKUOQTDKMIziaQJADCJQEQjBIwCKAUUhnESWZCjKLYDjSIYDSBIUQxC" +
"KQahLHifJAGegpZhuRYaAbCIKxfDbfwTJyNKAneLKBgmQ5WTDMUgBPDYPSVJiNKgACwoWpKZoJDTKcQ2TScZRuAADIzDCr5Yq6WpgAACEIlAZJRjoOo5DJGGQHCigABC" +
"EzhMZDNFSCZeQLSdy3HCyWYNOyLWiaRp8axzG6daBnehZdtyJajaZqOoaXo+W5NAZ7Hqed5XVbZXjgOJnLZNZq7QrGcRxXJ4DguB4PRrFchxHJcPxfE6ZYZwN63NrsdY" +
"/jiWhsHYWwNhacZAlMao2DoLg3AuCZJmScx5HyfovE+M5Rm6dZ7n2PwPh+S5LmKb42BuLZ3A6RZvAMOpOkOOJODQDQ2lyYh+k4OAiAob4gjgJgMgOYJoEYDYEmECBSBK" +
"BRbmgGJODOTQzjIARAk0YxgloNRNHMagGgmW4IiCYoKiKSImC6CpiniNgwgyYwolWOIJA2GIElsQJMhMLJPHSX4jgYQYQl+OQSEKERkgkHhKhGJJJCYTYSmSaREmEdJj" +
"lMPQDDCTE4lsfodlkdY3heDgJgIYoXmYSYGGWGJmGmJhohqWx5GyX4WAyKRckcMoNgMZJcDaTZDH4eIeieGZuH6HxoAmcoCh+aA6AaBIhmgagmgUN5nFMcJEhyUAzDyU" +
"Q1CAMxMlpYhqF6GYmCmKh2hyJ5pjqBoeiiKgKg6JopGqCoQl6JRpCMVQDDmToDiiP4WA0aZaCINxrHqZJai4K46mqPIvmuawGj2MJsAsEpCjETZYmiPwwgwY4gmkOodj" +
"OXJRHeTAjBSSIOg0eZalkNwtjsdpajebZLgKXo4G4S4OmaOIugMcgkDbm4QkhGgjFWfY0F3FwTC6C5jAoVY8E2CJqn4NgNjufwBkAMAsBcBJBnAPAnAYNpZiMYhVj4DA" +
"rliVB2C8MAAjMLZLjwXwZkYMYsHcHJHnGPIHB6SIyAyDwmkkcoMhMKpIlANAEICA=");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
333
|
How can I replace or add an icon at runtime
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "5/24/2012");
_ObjectCallMethod( schedule , "ReplaceIcon", "gAAAABgYACEHgUJFEEAAWhUJCEJEEJggEhMCYEXjUbjkJQECj8gj8hAEjkshYEpk8kf8ClsulsvAExmcvf83js5nU7nkCeEcn8boMaocXosCB9Hn09pkzcEuoL/fE+O" +
"kYB0gB9YhIHrddgVcr9aktZADAD8+P8CgIA==");
_ObjectCallMethod( schedule , "ReplaceIcon", "C:\images\favicon.ico",0);
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/24/2012 11:30:00 AM","5/24/2012 2:30:00 PM") , "Pictures", "0");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/24/2012 12:45:00 PM","5/24/2012 3:45:00 PM") , "Pictures", "0");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
332
|
Expandable-caption
// AddEvent event - Notifies your application once the a new event is added.
FUNCTION scheduleEvents_AddEvent(OBJECT schedule, OBJECT Ev)
' Ev.Editable = 3
END
// AnchorClick event - Occurs when an anchor element is clicked.
FUNCTION scheduleEvents_AnchorClick(OBJECT schedule, STRING AnchorID, STRING Options)
Message( AnchorID );
END
OBJECT event,events,schedule;
schedule = ObjectByName("AN1") ;
ObjectAssociateEvents("scheduleEvents", schedule);
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( schedule , "AllowUndoRedo", -1);
_ObjectSetProperty( schedule , "SelectEventStyle", 48);
_ObjectSetProperty( schedule , "DefaultEventLongLabel", "");
_ObjectSetProperty( schedule , "DefaultEventShortLabel", "");
_ObjectSetProperty( schedule , "CreateEventLabel", "");
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "1/10/2001");
_ObjectSetProperty( schedule , "OnResizeControl", 3073);
events = _ObjectGetProperty( schedule , "Events");
event = _ObjectCallMethod( events , "Add", "1/10/2001 9:00:00 AM","1/10/2001 12:30:00 PM");
_ObjectSetProperty( event , "Editable", 19);
_ObjectSetProperty( event , "LabelAlign", 4);
_ObjectSetProperty( event , "LongLabel", "<solidline> <c><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAA+AAgAECMcTi4AMwAM4Aj" +
"MGhEGOUVAA4AAwk8plcqihwAElg0wiUlOkOiUEgQvgcFhsKhkIhUQiUUnccj0gn0jmMagUlowAMNOpEfkMNkkmlEqrctjQmAAjAA5AA2sssHcbnkdq1Ln1QtVSjQAAEB" +
"A==>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AECMwAM8DAB" +
"vABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==> " +
"650;</a><br>+ withdraw(amount: Currency)");
event = _ObjectCallMethod( events , "Add", "1/10/2001 10:00:00 AM","1/10/2001 1:00:00 PM");
_ObjectSetProperty( event , "Editable", 19);
_ObjectSetProperty( event , "LongLabel", "just another label");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
331
|
Expandable-caption
OBJECT event,events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( schedule , "SelectEventStyle", 48);
_ObjectSetProperty( schedule , "DefaultEventLongLabel", "");
_ObjectSetProperty( schedule , "DefaultEventShortLabel", "");
_ObjectSetProperty( schedule , "CreateEventLabel", "");
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "1/10/2001");
_ObjectSetProperty( schedule , "AllowEditEvent", 0);
events = _ObjectGetProperty( schedule , "Events");
event = _ObjectCallMethod( events , "Add", "1/10/2001 9:00:00 AM","1/10/2001 12:30:00 PM");
_ObjectSetProperty( event , "Editable", 19);
_ObjectSetProperty( event , "LabelAlign", 4);
_ObjectSetProperty( event , "LongLabel", "<solidline><b>Header</b></solidline><br>Line1<r><a ;exp=show lines>+</a><br>Line2<br>Line3");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
330
|
Display a custom tooltip
// MouseMove event - Occurs when the user moves the mouse.
FUNCTION scheduleEvents_MouseMove(OBJECT schedule, INT Button, INT Shift, INT X, INT Y)
_ObjectCallMethod( schedule , "ShowToolTip", "new content",X,"","+8","+8");
END
|
|
329
|
Force hover-all feature
OBJECT schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(500) = -1");
|
|
328
|
Disable hover-all feature (Windows 11 or greater)
OBJECT schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(500) = 1");
|
|
327
|
Display a custom tooltip
// MouseMove event - Occurs when the user moves the mouse.
FUNCTION scheduleEvents_MouseMove(OBJECT schedule, INT Button, INT Shift, INT X, INT Y)
_ObjectCallMethod( schedule , "ShowToolTip", "new content","","","+8","+8");
END
|
|
326
|
Shows the tooltip of the object moved relative to its default position
// MouseMove event - Occurs when the user moves the mouse.
FUNCTION scheduleEvents_MouseMove(OBJECT schedule, INT Button, INT Shift, INT X, INT Y)
_ObjectCallMethod( schedule , "ShowToolTip", "<null>","<null>","","+8","+8");
END
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
ObjectAssociateEvents("scheduleEvents", schedule);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "5/24/2012");
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/24/2012 10:00:00 AM","5/24/2012 12:00:00 PM") , "ToolTip", "just a tooltip");
_ObjectCallMethod( events , "Add", "5/24/2012 10:45:00 AM","5/24/2012 12:45:00 PM");
_ObjectCallMethod( events , "Add", "5/24/2012 1:45:00 PM","5/24/2012 3:45:00 PM");
|
|
325
|
Clear Undo/Redo queue (method 2)
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( schedule , "AllowUndoRedo", -1);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "1/10/2001");
events = _ObjectGetProperty( schedule , "Events");
_ObjectCallMethod( events , "Add", "1/10/2001 10:00:00 AM","1/10/2001 11:30:00 AM");
_ObjectCallMethod( events , "Add", "1/10/2001 9:00:00 AM","1/10/2001 12:30:00 PM");
c = _ObjectGetProperty( schedule , "UndoRedoQueueLength");
_ObjectSetProperty( schedule , "UndoRedoQueueLength", 0);
_ObjectSetProperty( schedule , "UndoRedoQueueLength", c);
Message( _ObjectCallMethod(schedule, "ExecuteTemplate", "UndoListAction()") );
_ObjectCallMethod( schedule , "EndUpdate");
|
|
324
|
Clear Undo/Redo queue (method 1)
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( schedule , "AllowUndoRedo", -1);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "1/10/2001");
events = _ObjectGetProperty( schedule , "Events");
_ObjectCallMethod( events , "Add", "1/10/2001 10:00:00 AM","1/10/2001 11:30:00 AM");
_ObjectCallMethod( events , "Add", "1/10/2001 9:00:00 AM","1/10/2001 12:30:00 PM");
_ObjectSetProperty( schedule , "AllowUndoRedo", -1);
Message( _ObjectCallMethod(schedule, "ExecuteTemplate", "UndoListAction()") );
_ObjectCallMethod( schedule , "EndUpdate");
|
|
323
|
Removes Redo operations
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( schedule , "AllowUndoRedo", -1);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "1/10/2001");
events = _ObjectGetProperty( schedule , "Events");
_ObjectCallMethod( events , "Add", "1/10/2001 10:00:00 AM","1/10/2001 11:30:00 AM");
_ObjectCallMethod( events , "Add", "1/10/2001 9:00:00 AM","1/10/2001 12:30:00 PM");
_ObjectCallMethod( schedule , "Undo");
_ObjectCallMethod( schedule , "RedoRemoveAction", 13);
Message( _ObjectCallMethod(schedule, "ExecuteTemplate", "RedoListAction()") );
_ObjectCallMethod( schedule , "EndUpdate");
|
|
322
|
Removes Undo operations
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( schedule , "AllowUndoRedo", -1);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "1/10/2001");
events = _ObjectGetProperty( schedule , "Events");
_ObjectCallMethod( events , "Add", "1/10/2001 10:00:00 AM","1/10/2001 11:30:00 AM");
_ObjectCallMethod( events , "Add", "1/10/2001 9:00:00 AM","1/10/2001 12:30:00 PM");
_ObjectCallMethod( schedule , "UndoRemoveAction", 13);
Message( _ObjectCallMethod(schedule, "ExecuteTemplate", "UndoListAction()") );
_ObjectCallMethod( schedule , "EndUpdate");
|
|
321
|
Record the UI operations as a block of undo/redo operations
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( schedule , "AllowUndoRedo", -1);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "1/10/2001");
_ObjectCallMethod( schedule , "StartBlockUndoRedo");
events = _ObjectGetProperty( schedule , "Events");
_ObjectCallMethod( events , "Add", "1/10/2001 10:00:00 AM","1/10/2001 11:30:00 AM");
_ObjectCallMethod( events , "Add", "1/10/2001 9:00:00 AM","1/10/2001 12:30:00 PM");
_ObjectCallMethod( schedule , "EndBlockUndoRedo");
Message( _ObjectCallMethod(schedule, "ExecuteTemplate", "UndoListAction()") );
_ObjectCallMethod( schedule , "EndUpdate");
|
|
320
|
Groups the next to current Undo/Redo Actions in a single block
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( schedule , "AllowUndoRedo", -1);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "1/10/2001");
events = _ObjectGetProperty( schedule , "Events");
_ObjectCallMethod( events , "Add", "1/10/2001 10:00:00 AM","1/10/2001 11:30:00 AM");
_ObjectCallMethod( events , "Add", "1/10/2001 9:00:00 AM","1/10/2001 12:30:00 PM");
_ObjectCallMethod( schedule , "GroupUndoRedoActions", 2);
Message( _ObjectCallMethod(schedule, "ExecuteTemplate", "UndoListAction()") );
_ObjectCallMethod( schedule , "EndUpdate");
|
|
319
|
Limits the number of entries within the Undo/Redo queue
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( schedule , "AllowUndoRedo", -1);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "1/10/2001");
_ObjectSetProperty( schedule , "UndoRedoQueueLength", 1);
events = _ObjectGetProperty( schedule , "Events");
_ObjectCallMethod( events , "Add", "1/10/2001 10:00:00 AM","1/10/2001 11:30:00 AM");
_ObjectCallMethod( events , "Add", "1/10/2001 9:00:00 AM","1/10/2001 12:30:00 PM");
Message( _ObjectCallMethod(schedule, "ExecuteTemplate", "UndoListAction()") );
_ObjectCallMethod( schedule , "EndUpdate");
|
|
318
|
Lists the Redo actions that can be performed on the control
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( schedule , "AllowUndoRedo", -1);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "1/10/2001");
events = _ObjectGetProperty( schedule , "Events");
_ObjectCallMethod( events , "Add", "1/10/2001 10:00:00 AM","1/10/2001 11:30:00 AM");
_ObjectCallMethod( events , "Add", "1/10/2001 9:00:00 AM","1/10/2001 12:30:00 PM");
_ObjectCallMethod( schedule , "Undo");
Message( _ObjectCallMethod(schedule, "ExecuteTemplate", "RedoListAction()") );
_ObjectCallMethod( schedule , "EndUpdate");
|
|
317
|
Lists the Undo actions that can be performed on the control
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( schedule , "AllowUndoRedo", -1);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "1/10/2001");
events = _ObjectGetProperty( schedule , "Events");
_ObjectCallMethod( events , "Add", "1/10/2001 10:00:00 AM","1/10/2001 11:30:00 AM");
_ObjectCallMethod( events , "Add", "1/10/2001 9:00:00 AM","1/10/2001 12:30:00 PM");
Message( _ObjectCallMethod(schedule, "ExecuteTemplate", "UndoListAction()") );
_ObjectCallMethod( schedule , "EndUpdate");
|
|
316
|
Checks whether the Undo operation is possible
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( schedule , "AllowUndoRedo", -1);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "1/10/2001");
events = _ObjectGetProperty( schedule , "Events");
_ObjectCallMethod( events , "Add", "1/10/2001 10:00:00 AM","1/10/2001 11:30:00 AM");
_ObjectCallMethod( events , "Add", "1/10/2001 9:00:00 AM","1/10/2001 12:30:00 PM");
_ObjectCallMethod( schedule , "Undo");
Message( "CanRedo" );
Message( _ObjectGetProperty( schedule , "CanRedo") );
_ObjectCallMethod( schedule , "EndUpdate");
|
|
315
|
Call Redo by code
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( schedule , "AllowUndoRedo", -1);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "1/10/2001");
events = _ObjectGetProperty( schedule , "Events");
_ObjectCallMethod( events , "Add", "1/10/2001 10:00:00 AM","1/10/2001 11:30:00 AM");
_ObjectCallMethod( events , "Add", "1/10/2001 9:00:00 AM","1/10/2001 12:30:00 PM");
_ObjectCallMethod( schedule , "Undo");
_ObjectCallMethod( schedule , "Redo");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
314
|
Checks whether the Undo operation is possible
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( schedule , "AllowUndoRedo", -1);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "1/10/2001");
events = _ObjectGetProperty( schedule , "Events");
_ObjectCallMethod( events , "Add", "1/10/2001 10:00:00 AM","1/10/2001 11:30:00 AM");
_ObjectCallMethod( events , "Add", "1/10/2001 9:00:00 AM","1/10/2001 12:30:00 PM");
Message( "CanUndo" );
Message( _ObjectGetProperty( schedule , "CanUndo") );
_ObjectCallMethod( schedule , "EndUpdate");
|
|
313
|
Call Undo by code
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( schedule , "AllowUndoRedo", -1);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "1/10/2001");
events = _ObjectGetProperty( schedule , "Events");
_ObjectCallMethod( events , "Add", "1/10/2001 10:00:00 AM","1/10/2001 11:30:00 AM");
_ObjectCallMethod( events , "Add", "1/10/2001 9:00:00 AM","1/10/2001 12:30:00 PM");
_ObjectCallMethod( schedule , "Undo");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
312
|
Save the calendar-event's properties for Undo/Redo operations, by code
OBJECT event,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( schedule , "AllowUndoRedo", -1);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "1/10/2001");
_ObjectCallMethod( _ObjectGetProperty( schedule , "Events") , "Add", "1/10/2001 10:00:00 AM","1/10/2001 11:30:00 AM");
_ObjectCallMethod( schedule , "StartBlockUndoRedo");
event = _ObjectCallMethod( _ObjectGetProperty( schedule , "Events") , "Add", "1/10/2001 9:00:00 AM","1/10/2001 12:30:00 PM");
h = _ObjectGetProperty( event , "StartUpdateEvent");
_ObjectSetProperty( event , "BodyBackColor", 65536);
_ObjectSetProperty( event , "BodyForeColor", 16777215);
_ObjectSetProperty( event , "StatusColor", 255);
_ObjectCallMethod( event , "EndUpdateEvent", h);
_ObjectCallMethod( schedule , "EndBlockUndoRedo");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
311
|
No color is restored for the calendar-event when Undo/Redo operation is performed
OBJECT event,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( schedule , "AllowUndoRedo", -1);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "1/10/2001");
_ObjectCallMethod( _ObjectGetProperty( schedule , "Events") , "Add", "1/10/2001 10:00:00 AM","1/10/2001 11:30:00 AM");
_ObjectCallMethod( schedule , "StartBlockUndoRedo");
event = _ObjectCallMethod( _ObjectGetProperty( schedule , "Events") , "Add", "1/10/2001 9:00:00 AM","1/10/2001 12:30:00 PM");
h = _ObjectGetProperty( event , "StartUpdateEvent");
_ObjectSetProperty( event , "BodyBackColor", 65536);
_ObjectSetProperty( event , "BodyForeColor", 16777215);
_ObjectSetProperty( event , "StatusColor", 255);
_ObjectCallMethod( event , "EndUpdateEvent", h);
_ObjectCallMethod( schedule , "EndBlockUndoRedo");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
310
|
How can I ensure that a specified calendar-event fits the control's visible area
OBJECT events,pattern,schedule;
schedule = ObjectByName("AN1") ;
events = _ObjectGetProperty( schedule , "Events");
pattern = _ObjectGetProperty( _ObjectCallMethod( events , "Add", "1/10/2001 9:00:00 AM","1/10/2001 12:30:00 PM") , "BodyPattern");
_ObjectSetProperty( pattern , "Type", 6);
_ObjectSetProperty( pattern , "Color", 14737632);
_ObjectCallMethod( _ObjectCallMethod( events , "Add", "1/10/2001 9:00:00 AM","1/10/2001 12:30:00 PM") , "EnsureVisible");
|
|
309
|
LayoutEndChanging(exUndo), LayoutEndChanging(exRedo) or LayoutEndChanging(exUndoRedoUpdate) notifiy your application once a Undo/Redo operation is executed (CTRL+Z, CTRL+Y) or updated
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
FUNCTION scheduleEvents_LayoutEndChanging(OBJECT schedule, INT Operation)
Message( "LayoutEndChanging" );
Message( Operation );
END
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
ObjectAssociateEvents("scheduleEvents", schedule);
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( schedule , "AllowUndoRedo", -1);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "1/10/2001");
events = _ObjectGetProperty( schedule , "Events");
_ObjectCallMethod( events , "Add", "1/10/2001 9:00:00 AM","1/10/2001 12:30:00 PM");
_ObjectCallMethod( events , "Add", "1/10/2001 9:00:00 AM","1/10/2001 12:30:00 PM");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
308
|
Turn on the Undo/Redo feature
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( schedule , "AllowUndoRedo", -1);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "1/10/2001");
events = _ObjectGetProperty( schedule , "Events");
_ObjectCallMethod( events , "Add", "1/10/2001 9:00:00 AM","1/10/2001 12:30:00 PM");
_ObjectCallMethod( events , "Add", "1/10/2001 9:00:00 AM","1/10/2001 12:30:00 PM");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
307
|
How can I make the header (date/group) always visible, so it stays on the top while the user scrolls the chart
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
FUNCTION scheduleEvents_LayoutEndChanging(OBJECT schedule, INT Operation)
Message( Operation );
_ObjectSetProperty( schedule , "DayViewHeight", 2016);
END
OBJECT calendar,events,group,groups,schedule;
schedule = ObjectByName("AN1") ;
ObjectAssociateEvents("scheduleEvents", schedule);
_ObjectCallMethod( schedule , "BeginUpdate");
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectCallMethod(schedule, "TemplatePut", "Dim calObj")
_ObjectCallMethod(schedule, "TemplatePut", calendar)
_ObjectCallMethod(schedule, "ExecuteTemplate", "calObj.SelectDate(#5/20/2012#) = True");
_ObjectCallMethod( calendar , "Select", 3);
_ObjectSetProperty( schedule , "ScrollBars", 2);
_ObjectSetProperty( schedule , "ShowViewCompact", 3);
_ObjectSetProperty( schedule , "DayViewHeight", 2016);
_ObjectCallMethod(schedule, "ExecuteTemplate", "TimeScales.Item(0).MinorTimeRuler = `00:10`");
_ObjectSetProperty( schedule , "DayStartTime", "00:00");
_ObjectSetProperty( schedule , "DayEndTime", "24:00");
_ObjectSetProperty( schedule , "OnResizeControl", 3073);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "5/24/2012");
_ObjectSetProperty( schedule , "DisplayGroupingButton", -1);
_ObjectSetProperty( schedule , "ShowGroupingEvents", -1);
_ObjectSetProperty( schedule , "ApplyGroupingColors", 0);
groups = _ObjectGetProperty( schedule , "Groups");
group = _ObjectCallMethod( groups , "Add", 1,"Group 1");
_ObjectSetProperty( group , "Visible", -1);
_ObjectSetProperty( group , "EventBackColor", 8421504);
_ObjectSetProperty( group , "Title", "1'st Group");
group = _ObjectCallMethod( groups , "Add", 2,"Group 2");
_ObjectSetProperty( group , "Visible", -1);
_ObjectSetProperty( group , "EventBackColor", 255);
_ObjectSetProperty( group , "Title", "2'nd Group");
_ObjectSetProperty( schedule , "DefaultEventLongLabel", "<%=%256%><br>Group's Caption: <b><%=%262%></b><br>Group's Title: <b><%=%263%></b>");
_ObjectSetProperty( schedule , "DefaultEventShortLabel", _ObjectGetProperty( schedule , "DefaultEventLongLabel"));
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/24/2012 1:00:00 AM","5/24/2012 2:00:00 AM") , "GroupID", 1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/24/2012 1:45:00 AM","5/24/2012 2:30:00 AM") , "GroupID", 2);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/24/2012 2:30:00 AM","5/24/2012 4:30:00 AM") , "GroupID", 1);
_ObjectCallMethod( schedule , "EndUpdate");
|
|
306
|
It appears that Width property of the Group does not what. What am I doing wrong
OBJECT events,group,groups,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "1/10/2001");
_ObjectSetProperty( schedule , "DisplayGroupingButton", -1);
_ObjectSetProperty( schedule , "ShowGroupingEvents", -1);
_ObjectSetProperty( schedule , "OnResizeControl", 3073);
groups = _ObjectGetProperty( schedule , "Groups");
group = _ObjectCallMethod( groups , "Add", 1,"Group 1");
_ObjectSetProperty( group , "Title", "First");
_ObjectSetProperty( group , "Visible", -1);
group = _ObjectCallMethod( groups , "Add", 2,"Group 2");
_ObjectSetProperty( group , "Title", "Second");
_ObjectSetProperty( group , "Visible", -1);
group = _ObjectCallMethod( groups , "Add", 3,"Group 3");
_ObjectSetProperty( group , "Title", "Third");
_ObjectSetProperty( group , "Visible", -1);
_ObjectSetProperty( schedule , "DayViewWidth", 144);
_ObjectCallMethod(schedule, "ExecuteTemplate", "Groups.Item(1).Width = 48");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Groups.Item(2).Width = 48");
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "1/10/2001 9:00:00 AM","1/10/2001 12:30:00 PM") , "GroupID", 1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "1/10/2001 10:00:00 AM","1/10/2001 1:00:00 PM") , "GroupID", 2);
_ObjectCallMethod( schedule , "EndUpdate");
|
|
305
|
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "5/24/2012");
_ObjectSetProperty( schedule , "ImageSize", 32);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Font") , "Size", 16);
_ObjectSetProperty( _ObjectGetProperty( schedule , "EventsFont") , "Size", 16);
_ObjectSetProperty( _ObjectGetProperty( schedule , "TimeScaleFont") , "Size", 16);
_ObjectCallMethod(schedule, "ExecuteTemplate", "TimeScales.Item(0).Width = 128");
_ObjectCallMethod( schedule , "Images", "gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOq" +
"NUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlw" +
"yV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+C" +
"MPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9" +
"FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5" +
"y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIk" +
"FgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMt" +
"NhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/Xi" +
"oW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X" +
"4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT" +
"6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUV" +
"DNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJy" +
"T8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5Wzlf" +
"fEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC" +
"6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8R" +
"gH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" +
"RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==");
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/24/2012 11:30:00 AM","5/24/2012 2:30:00 PM") , "Pictures", "1/2");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/24/2012 12:45:00 PM","5/24/2012 3:45:00 PM") , "Pictures", "1,2");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
304
|
ImageSize property on 16 (default) (specifies the size of control' icons)
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "5/24/2012");
_ObjectSetProperty( schedule , "ImageSize", 16);
_ObjectCallMethod( schedule , "Images", "gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOq" +
"dSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVt" +
"tmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8a" +
"cvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtT" +
"GsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgP" +
"nwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg==");
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/24/2012 11:30:00 AM","5/24/2012 2:30:00 PM") , "Pictures", "1/2");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/24/2012 12:45:00 PM","5/24/2012 3:45:00 PM") , "Pictures", "1,2");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
303
|
Is it possible to show a different background color for alternate days
OBJECT schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(41) = 0");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(42) = 0");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(159) = 15790320");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(160) = 8421504");
_ObjectCallMethod( _ObjectGetProperty( schedule , "Calendar") , "Select", 3);
|
|
302
|
How can I select all events
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "5/24/2012");
events = _ObjectGetProperty( schedule , "Events");
_ObjectCallMethod( events , "Add", "5/24/2012 10:00:00 AM","5/24/2012 12:00:00 PM");
_ObjectCallMethod( events , "Add", "5/24/2012 10:00:00 AM","5/24/2012 12:00:00 PM");
_ObjectCallMethod( schedule , "SelectAll");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
301
|
How can I unselect all events
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "5/24/2012");
events = _ObjectGetProperty( schedule , "Events");
_ObjectCallMethod( events , "Add", "5/24/2012 10:00:00 AM","5/24/2012 12:00:00 PM");
_ObjectCallMethod( events , "Add", "5/24/2012 10:00:00 AM","5/24/2012 12:00:00 PM");
_ObjectCallMethod( schedule , "SelectAll");
_ObjectSetProperty( schedule , "Selection", "");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
300
|
How do I immediately select a newly added event
// AddEvent event - Notifies your application once the a new event is added.
FUNCTION scheduleEvents_AddEvent(OBJECT schedule, OBJECT Ev)
' Ev.Selected = True
END
|
|
299
|
I would like to know if this allows me to setup a number of room(column). Let's say, i need to go up to 10 rooms is it possible. Also, the possibility to have a complete week of that 10 rooms.
OBJECT calendar,events,group,groups,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( schedule , "OnResizeControl", 2048);
_ObjectSetProperty( schedule , "DisplayGroupingButton", -1);
_ObjectSetProperty( schedule , "ShowGroupingEvents", -1);
_ObjectSetProperty( schedule , "BodyEventForeColor", 16777215);
_ObjectSetProperty( schedule , "DayStartTime", "09:00");
_ObjectSetProperty( schedule , "DayEndTime", "14:00");
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectCallMethod(schedule, "TemplatePut", "Dim calObj")
_ObjectCallMethod(schedule, "TemplatePut", calendar)
_ObjectCallMethod(schedule, "ExecuteTemplate", "calObj.SelectDate(#5/24/2012#) = True");
_ObjectCallMethod( calendar , "Select", 3);
_ObjectSetProperty( schedule , "ScrollBars", 0);
_ObjectSetProperty( schedule , "ShowViewCompact", 1);
groups = _ObjectGetProperty( schedule , "Groups");
group = _ObjectCallMethod( groups , "Add", 1,"1");
_ObjectSetProperty( group , "Visible", -1);
_ObjectSetProperty( group , "EventBackColor", 255);
_ObjectSetProperty( group , "HeaderBackColor", _ObjectGetProperty( group , "EventBackColor"));
_ObjectSetProperty( group , "HeaderForeColor", 16777215);
group = _ObjectCallMethod( groups , "Add", 2,"2");
_ObjectSetProperty( group , "Visible", -1);
_ObjectSetProperty( group , "EventBackColor", 204);
_ObjectSetProperty( group , "HeaderBackColor", _ObjectGetProperty( group , "EventBackColor"));
_ObjectSetProperty( group , "HeaderForeColor", 16777215);
group = _ObjectCallMethod( groups , "Add", 3,"3");
_ObjectSetProperty( group , "Visible", -1);
_ObjectSetProperty( group , "EventBackColor", 153);
_ObjectSetProperty( group , "HeaderBackColor", _ObjectGetProperty( group , "EventBackColor"));
_ObjectSetProperty( group , "HeaderForeColor", 16777215);
group = _ObjectCallMethod( groups , "Add", 4,"4");
_ObjectSetProperty( group , "Visible", -1);
_ObjectSetProperty( group , "EventBackColor", 102);
_ObjectSetProperty( group , "HeaderBackColor", _ObjectGetProperty( group , "EventBackColor"));
_ObjectSetProperty( group , "HeaderForeColor", 16777215);
group = _ObjectCallMethod( groups , "Add", 5,"5");
_ObjectSetProperty( group , "Visible", -1);
_ObjectSetProperty( group , "EventBackColor", 51);
_ObjectSetProperty( group , "HeaderBackColor", _ObjectGetProperty( group , "EventBackColor"));
_ObjectSetProperty( group , "HeaderForeColor", 16777215);
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/24/2012 10:00:00 AM","5/24/2012 12:00:00 PM") , "GroupID", 1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/24/2012 10:45:00 AM","5/24/2012 12:30:00 PM") , "GroupID", 2);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/24/2012 11:30:00 AM","5/24/2012 1:30:00 PM") , "GroupID", 3);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/24/2012 10:45:00 AM","5/24/2012 12:30:00 PM") , "GroupID", 4);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/24/2012 10:45:00 AM","5/24/2012 12:30:00 PM") , "GroupID", 5);
_ObjectCallMethod( schedule , "EndUpdate");
|
|
298
|
I would like to know if this allows me to setup a number of room(column). Let's say, i need to go up to 10 rooms is it possible
OBJECT events,group,groups,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( schedule , "OnResizeControl", 2048);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "5/24/2012");
_ObjectSetProperty( schedule , "DisplayGroupingButton", -1);
_ObjectSetProperty( schedule , "ShowGroupingEvents", -1);
_ObjectSetProperty( schedule , "BodyEventForeColor", 16777215);
_ObjectSetProperty( schedule , "DayStartTime", "09:00");
_ObjectSetProperty( schedule , "DayEndTime", "14:00");
groups = _ObjectGetProperty( schedule , "Groups");
group = _ObjectCallMethod( groups , "Add", 1,"Room1");
_ObjectSetProperty( group , "Visible", -1);
_ObjectSetProperty( group , "EventBackColor", 255);
_ObjectSetProperty( group , "HeaderBackColor", _ObjectGetProperty( group , "EventBackColor"));
_ObjectSetProperty( group , "HeaderForeColor", 16777215);
group = _ObjectCallMethod( groups , "Add", 2,"Room2");
_ObjectSetProperty( group , "Visible", -1);
_ObjectSetProperty( group , "EventBackColor", 204);
_ObjectSetProperty( group , "HeaderBackColor", _ObjectGetProperty( group , "EventBackColor"));
_ObjectSetProperty( group , "HeaderForeColor", 16777215);
group = _ObjectCallMethod( groups , "Add", 3,"Room3");
_ObjectSetProperty( group , "Visible", -1);
_ObjectSetProperty( group , "EventBackColor", 153);
_ObjectSetProperty( group , "HeaderBackColor", _ObjectGetProperty( group , "EventBackColor"));
_ObjectSetProperty( group , "HeaderForeColor", 16777215);
group = _ObjectCallMethod( groups , "Add", 4,"Room4");
_ObjectSetProperty( group , "Visible", -1);
_ObjectSetProperty( group , "EventBackColor", 102);
_ObjectSetProperty( group , "HeaderBackColor", _ObjectGetProperty( group , "EventBackColor"));
_ObjectSetProperty( group , "HeaderForeColor", 16777215);
group = _ObjectCallMethod( groups , "Add", 5,"Room5");
_ObjectSetProperty( group , "Visible", -1);
_ObjectSetProperty( group , "EventBackColor", 51);
_ObjectSetProperty( group , "HeaderBackColor", _ObjectGetProperty( group , "EventBackColor"));
_ObjectSetProperty( group , "HeaderForeColor", 16777215);
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/24/2012 10:00:00 AM","5/24/2012 12:00:00 PM") , "GroupID", 1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/24/2012 10:45:00 AM","5/24/2012 12:30:00 PM") , "GroupID", 2);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/24/2012 11:30:00 AM","5/24/2012 1:30:00 PM") , "GroupID", 3);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/24/2012 10:45:00 AM","5/24/2012 12:30:00 PM") , "GroupID", 4);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/24/2012 10:45:00 AM","5/24/2012 12:30:00 PM") , "GroupID", 5);
_ObjectCallMethod( schedule , "EndUpdate");
|
|
297
|
Please could you let me know if it is possible to change the increment when the user scrolls the mouse wheel as its to slow by default
OBJECT schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( schedule , "VerticalScrollWheel", 3);
|
|
296
|
I am using the DefaultEventLongLabel property to specify the event's label. Is it possible to change the way the event's label is displayed when it is an all day event (sample 2)
OBJECT event,events,group,groups,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( schedule , "SelectEventStyle", 48);
_ObjectSetProperty( schedule , "AllowAllDayEventScroll", 4416);
_ObjectSetProperty( schedule , "DefaultEventLongLabel", "<%=%><%= ( %3 = 0 ? (`Group's ID:` + %4 + `<br>Group's Caption:` + %262 + `<br>Group's Title: ` + %263 + `<br>` + %256 ) : ( (" +
"`Group's ID:` + %4 + ` , ` + %256 ) replace `<br>` with `,` ) ) %>");
_ObjectSetProperty( schedule , "DefaultEventShortLabel", "<%=%><%= ( %3 = 0 ? (`Group's ID:` + %4 + `<br>Group's Caption:` + %262 + `<br>Group's Title: ` + %263 + `<br>` + %256 ) : ( " +
"(`Group's ID:` + %4 + ` , ` + %256 ) ) replace `<br>` with `\r\n` ) %>");
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "1/10/2001");
_ObjectSetProperty( schedule , "DisplayGroupingButton", -1);
_ObjectSetProperty( schedule , "ShowGroupingEvents", -1);
_ObjectSetProperty( schedule , "HeaderGroupHeight", 1);
_ObjectSetProperty( schedule , "ShowAllDayHeader", -1);
_ObjectSetProperty( schedule , "OnResizeControl", 3073);
groups = _ObjectGetProperty( schedule , "Groups");
group = _ObjectCallMethod( groups , "Add", 1,"Group 1");
_ObjectSetProperty( group , "Title", "First");
_ObjectSetProperty( group , "Visible", -1);
group = _ObjectCallMethod( groups , "Add", 2,"Group 2");
_ObjectSetProperty( group , "Title", "Second");
_ObjectSetProperty( group , "Visible", -1);
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "1/10/2001 9:00:00 AM","1/10/2001 12:30:00 PM") , "GroupID", 1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "1/10/2001 10:00:00 AM","1/10/2001 1:00:00 PM") , "GroupID", 2);
event = _ObjectCallMethod( events , "Add", "1/10/2001","1/10/2001");
_ObjectSetProperty( event , "GroupID", 1);
_ObjectSetProperty( event , "AllDayEvent", -1);
event = _ObjectCallMethod( events , "Add", "1/10/2001","1/10/2001");
_ObjectSetProperty( event , "GroupID", 2);
_ObjectSetProperty( event , "AllDayEvent", -1);
event = _ObjectCallMethod( events , "Add", "1/10/2001","1/10/2001");
_ObjectSetProperty( event , "GroupID", 2);
_ObjectSetProperty( event , "AllDayEvent", -1);
_ObjectCallMethod( schedule , "EndUpdate");
|
|
295
|
I am using the DefaultEventLongLabel property to specify the event's label. Is it possible to change the way the event's label is displayed when it is an all day event (sample 1)
OBJECT event,events,group,groups,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( schedule , "SelectEventStyle", 48);
_ObjectSetProperty( schedule , "DefaultEventLongLabel", "<%=%><%= %4 < 0 ? `<b>` + %256 + `</b> <off -4>(all)` : ( (`Group's ID:` + %4 + `<br>Group's Caption:` + %262 + `<br>Group's " +
"Title: ` + %263 + `<br>` + %256 ) replace ( %3 ? `<br>` : ``) with `,` ) %>");
_ObjectSetProperty( schedule , "DefaultEventShortLabel", "<%=%><%= %4 < 0 ? %256 : ( %3 = 0 ? (`Group's ID:` + %4 + `<br>Group's Caption:` + %262 + `<br>Group's Title: ` + %263 + `<br" +
">` + %256 ) : ( (`Group's ID:` + %4 + ` , ` + %256 ) ) replace `<br>` with `\r\n` ) %>");
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "1/10/2001");
_ObjectSetProperty( schedule , "DisplayGroupingButton", -1);
_ObjectSetProperty( schedule , "ShowGroupingEvents", -1);
_ObjectSetProperty( schedule , "HeaderGroupHeight", 1);
_ObjectSetProperty( schedule , "ShowAllDayHeader", -1);
_ObjectSetProperty( schedule , "OnResizeControl", 3073);
groups = _ObjectGetProperty( schedule , "Groups");
group = _ObjectCallMethod( groups , "Add", 1,"Group 1");
_ObjectSetProperty( group , "Title", "First");
_ObjectSetProperty( group , "Visible", -1);
group = _ObjectCallMethod( groups , "Add", 2,"Group 2");
_ObjectSetProperty( group , "Title", "Second");
_ObjectSetProperty( group , "Visible", -1);
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "1/10/2001 9:00:00 AM","1/10/2001 12:30:00 PM") , "GroupID", 1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "1/10/2001 10:00:00 AM","1/10/2001 1:00:00 PM") , "GroupID", 2);
event = _ObjectCallMethod( events , "Add", "1/10/2001","1/10/2001");
_ObjectSetProperty( event , "GroupID", 1);
_ObjectSetProperty( event , "AllDayEvent", -1);
event = _ObjectCallMethod( events , "Add", "1/10/2001","1/10/2001");
_ObjectSetProperty( event , "GroupID", -1);
_ObjectSetProperty( event , "AllDayEvent", -1);
event = _ObjectCallMethod( events , "Add", "1/10/2001","1/10/2001");
_ObjectSetProperty( event , "GroupID", 2);
_ObjectSetProperty( event , "AllDayEvent", -1);
_ObjectCallMethod( schedule , "EndUpdate");
|
|
294
|
The Event.Caption does not support HTML, and so if using in DefaultEventLongLabel/DefaultEventShortLabel no HTML is applied, instead HTML tags are displayed as plain text. What can be done
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "5/24/2012");
_ObjectSetProperty( schedule , "DefaultEventLongLabel", "<%=%><%=%5%><br><%=%256%>");
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/24/2012 9:00:00 AM","5/24/2012 10:00:00 AM") , "Caption", "textzeile1<br>textzeile2<br>textzeile3");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/24/2012 10:00:00 AM","5/24/2012 11:00:00 AM") , "Caption", "textzeile1<br><fgcolor-FF0000><b>textzeile2</b></fgcolor>");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
293
|
Please could you let me know how I can remove/hide the time scale/marks from the scheduler. I am creating a month view that only requires a box for the day and no time markers required
OBJECT calendar,events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectCallMethod(schedule, "ExecuteTemplate", "TimeScales.Item(0).Visible = False");
_ObjectSetProperty( schedule , "OnResizeControl", 2048);
_ObjectSetProperty( schedule , "ShowViewCompact", -1);
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "5/24/2012");
_ObjectCallMethod( calendar , "Select", 2);
events = _ObjectGetProperty( schedule , "Events");
_ObjectCallMethod( events , "Add", "5/24/2012 10:00:00 AM","5/24/2012 12:00:00 PM");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/24/2012 10:45:00 AM","5/24/2012 12:30:00 PM") , "ShowStatus", 0);
_ObjectCallMethod( events , "Add", "5/24/2012 11:30:00 AM","5/24/2012 1:30:00 PM");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
292
|
Is it possible to lock down the view to allow resizing of the days column but not to allow the scrolling outside of the dictated time zone
OBJECT calendar,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "5/21/2012");
_ObjectSetProperty( calendar , "Selection", "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)");
_ObjectSetProperty( schedule , "OnResizeControl", 768);
_ObjectSetProperty( schedule , "ScrollBars", 2);
_ObjectSetProperty( schedule , "ShowViewCompact", 1);
_ObjectSetProperty( schedule , "AllowMoveSchedule", 0);
_ObjectSetProperty( schedule , "AllowResizeSchedule", 0);
_ObjectSetProperty( schedule , "AllowToggleSchedule", 0);
_ObjectSetProperty( schedule , "AllowExchangePanels", 0);
_ObjectSetProperty( schedule , "AllowMoveTimeScale", 0);
_ObjectSetProperty( schedule , "AllowResizeTimeScale", 0);
_ObjectSetProperty( schedule , "AllowMultiDaysEvent", 0);
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(36) = Background(37)");
_ObjectCallMethod(schedule, "ExecuteTemplate", "TimeScales.Item(0).MinorTimeRuler = `00:10`");
_ObjectSetProperty( schedule , "DayStartTime", "10:00");
_ObjectSetProperty( schedule , "DayEndTime", "14:00");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
291
|
I would also like to control the column view to only show 5 days at a time with a side scroll, how would I achieve this please
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( schedule , "OnResizeControl", 2048);
_ObjectSetProperty( schedule , "ShowAllDayHeader", -1);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "5/21/2012");
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)");
_ObjectSetProperty( schedule , "ShowViewCompact", -1);
_ObjectSetProperty( schedule , "ScrollBars", 2);
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/22/2012","5/23/2012") , "AllDayEvent", -1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/21/2012","5/24/2012") , "AllDayEvent", -1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/22/2012","5/24/2012") , "AllDayEvent", -1);
_ObjectCallMethod( schedule , "EndUpdate");
|
|
290
|
Can I force the schedule grid to only show a single day and then to step through each day using either a custom button click or using the built in schedule calendar
OBJECT calendar,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectCallMethod(schedule, "TemplatePut", "Dim calObj")
_ObjectCallMethod(schedule, "TemplatePut", calendar)
_ObjectCallMethod(schedule, "ExecuteTemplate", "calObj.SelectDate(#5/20/2012#) = True");
_ObjectCallMethod( calendar , "Select", 5);
_ObjectSetProperty( schedule , "OnResizeControl", 768);
_ObjectSetProperty( schedule , "ScrollBars", 0);
_ObjectSetProperty( schedule , "ShowViewCompact", 1);
_ObjectSetProperty( schedule , "AllowMoveSchedule", 0);
_ObjectSetProperty( schedule , "AllowResizeSchedule", 0);
_ObjectSetProperty( schedule , "AllowToggleSchedule", 0);
_ObjectSetProperty( schedule , "AllowExchangePanels", 0);
_ObjectSetProperty( schedule , "AllowMoveTimeScale", 0);
_ObjectSetProperty( schedule , "AllowResizeTimeScale", 0);
_ObjectSetProperty( schedule , "AllowMultiDaysEvent", 0);
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(36) = Background(37)");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
289
|
Can I colour the background of the schedulers grid from a time point to another EG 9:00 to 12:00. This is to show users that they can only book appointments in this time zone
OBJECT markzone,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( schedule , "OnResizeControl", 768);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "6/27/2012");
markzone = _ObjectCallMethod( _ObjectGetProperty( schedule , "MarkZones") , "Add", "zoneA","6/27/2012 9:00:00 AM","6/27/2012 11:00:00 AM");
_ObjectSetProperty( _ObjectGetProperty( markzone , "Pattern") , "Type", 0);
_ObjectSetProperty( markzone , "LongLabel", "Yellow");
_ObjectSetProperty( markzone , "BackColor", 65535);
markzone = _ObjectCallMethod( _ObjectGetProperty( schedule , "MarkZones") , "Add", "zoneB","6/27/2012 12:00:00 PM","6/27/2012 1:30:00 PM");
_ObjectSetProperty( _ObjectGetProperty( markzone , "Pattern") , "Type", 0);
_ObjectSetProperty( markzone , "LongLabel", "Green");
_ObjectSetProperty( markzone , "BackColor", 65280);
_ObjectCallMethod( schedule , "EndUpdate");
|
|
288
|
My programming language has the following format for date 2012-05-24-13.04.06.810000 every other format returns a compiler error. Is there a possibility to use a string for the date
OBJECT marktime,marktimes,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", _ObjectCallMethod( schedule , "ExecuteTemplate", "#5/24/2012#"));
marktimes = _ObjectGetProperty( schedule , "MarkTimes");
marktime = _ObjectCallMethod( marktimes , "Add", "timer",_ObjectCallMethod( schedule , "ExecuteTemplate", "#5/24/2012 11:35#"));
_ObjectSetProperty( marktime , "Movable", -1);
_ObjectSetProperty( marktime , "LineColor", 16711680);
_ObjectSetProperty( marktime , "StatusEventBackColor", 16711680);
_ObjectSetProperty( marktime , "TimeScaleLineColor", 16711680);
_ObjectSetProperty( marktime , "TimeScaleLabel", "<fgcolor=0000FF><b><%hh%>:<%nn%> <%AM/PM%>");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
287
|
How do I display a picture with transparency
// PictureClick event - Occurs when the user clicks a picture within an event ( Event.Pictures/ExtraPictures ).
FUNCTION scheduleEvents_PictureClick(OBJECT schedule, STRING Key)
Message( Key );
END
OBJECT events,expictures,schedule;
schedule = ObjectByName("AN1") ;
ObjectAssociateEvents("scheduleEvents", schedule);
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( schedule , "ShowSelectEvent", 0);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "5/24/2012");
expictures = _ObjectGetProperty( schedule , "Pictures");
_ObjectCallMethod( expictures , "Add", "pic1","gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonN" +
"a2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRd" +
"PyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/Q" +
"Wk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDA" +
"W4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRBy" +
"EQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2Cyd" +
"hGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIi" +
"eRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0Dp" +
"PhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIia" +
"GwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrB" +
"MGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHx" +
"TAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+As" +
"fwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAK" +
"B4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0Hgf" +
"xniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUD" +
"QXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUC" +
"yEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfg" +
"Jh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6" +
"HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2" +
"DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgG" +
"o8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF" +
"0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5A" +
"gjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJY" +
"S43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmiXE0IsLY1gtip" +
"G0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBt" +
"AuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBK" +
"gFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZ" +
"BIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAn" +
"BdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAV" +
"B7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBPhSBTBSBjgyhv" +
"BPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAhhLA6ArAFBrAf" +
"AbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBp" +
"Big8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAGhvh7g0AgAahv" +
"A2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/gXh6B8hbh8B/" +
"hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sUhMh0gmh1hLg9" +
"hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4AfgZh/AVhdg/hz" +
"B7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BG" +
"gKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBA" +
"A/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAAChp" +
"AkgiAggqAsAEhigrAkgmASAygKB/BVhVB7hTBNg3BNA2hQBOg4BAAAgiBhB1BIA8BMgCAxBxAGAbhBAJgJgHBnAkhyhQBjBhgmAoBBgwgaAPBghJgLgShogYAxAIAZAZ" +
"AghLBhhQAEgPAEAwgBAwhIgkBBBwhwAYBhhsBoBhhtAbAqArgrh8hehLBVAqA7grgXhPA+Bkglh+h6i4hfh7hehygvgMB9hPhEh9gXh/AKgihUhBh/A1hwA1gwAdh8AS" +
"g4AEB+ADh8AAB+AFh8AThHBxg7B4BmhFBZABAABjgbgwh2gBg4A8grArB/3UgDgQBfgzhpBzhpgUhOYogKBlBZB+ARgAA+NxgDhZgWBcgKg9BfgjBRhogngj4zBCg6Af" +
"ApAzBwB+OiBtA2AbA/hHqYg6ADBZBMBNgfgfAfBfByh4g8BUAiAkgyBMBAg4AcA+BsgyAZBGgRgFA/gbAIh/h6h2AMh/huheg9hbB6h6g6hJhA1zAc5RhhgN5TBLASB3" +
"gIXagQAMAGBdAghJhUAvhahohBAiBshzBzBTB4A9AzhTgDh9AOAZBjBfAPAOAeA2ZlBKAJB61xhBE+gmhKATiWhnBvhlhrAcgMghhGg2hBAQA4B85xBWBQBQXiBIAcho" +
"hkhih/gN36hyBqhiDRgABQgoB0AJAKBvAbAkAxhlBzAVgVAVBJA2gbANg5gdAOAWBrh2gzAW6HBIiagwh9hRhiBTBGAVgAgNB3g5giB/grARBlA6B/gsBhhjaTB2A0Aa" +
"BQhahah6hWBVBVBlAUB+hNAEh2BVAtkNhSgFBxAAOjBOg2gxBhBTgnAzB9ADABAAh/BohRgjgzBPhrhVgaAaAagihWArSxA0gGhzB3gBhgAdhVPTgOhgA8gShjAsgcgj" +
"hUhcBdg+zcBshsgsgtgvAvAPA5hdguBWBUs1LxBbh7gsBahLhzBtjjBpg9AABDgjA6hVBtB0hygt7IAhAz7Jg3AkgkhEtvh5hYhRBhAhBzB6g9AsgwA3hng0AFgNB6hH" +
"B7hRBrgxAcBaAGVWhYgehXgjhLgcBvBththxhd7egugB7gBThoAzh57igHA5A3BYgsW8gshMgiAgBZgQh0AKghA3hLsfAGAwAWB0ARgagNBXhWBWAEB+7yBTga7zhpB6" +
"BqBKBmh0g6AZAxBdhuhnAvWAB6huA0BGhIhGBzuRgcgThpAZAABigYAUhThRhbcEgEBmgpgHgWcHgsAUh+g6B8AsBoA+B6gGgGgxBTB6hVA2h2ACZYAxhSAAhIASB0gn" +
"gQAphyg0hf3pAJgrAMBwg4BZAYgVAihihKgVhzgMBhg/h9AAAqBRh0BbgTsbgHhwAbhFATANhNBMhMhYgwhlhihRAThT6WBahYh6AzhZgLBAA7h6ALhJgLBZBnhzhthA" +
"hAhGB7h7htOfA0hzh4gxhJgBg6hThzBlg4hchyBFc/AsA0hIBihGEnB8BQgvAkgBggAhAmBvBrgngNBGhTgTAThWg1B5gsgAhABRBTgZB+AYAZBxBMBMhPBbJ9BohlhI" +
"B/Awh+g/gOAAAuBhhBhUB2gXBSgagKgXgXAXAtA5AXAdBvhCBJBKgrgqBEAHhjBjhO7dBthhBGh7B7BaAdgAzWgxBthXBTACAoAuAuAOBBBxgXgpF2AFhEhtgHgDACg1" +
"AfARAiVxAHA4Af9zhc0CB3BOAoATApBWhCp0gJA+hTA7gnAxhWgEhqgEgQB+BzBweFANBGBahVgZB6oehXBwBrAphiAkBCAhhbB0AEBLA3guBfg/AtArgvgXhVGUhfBP" +
"hwBlHFBYhcBlh0AxAYgb6phyA0A3g3hPgAAEA9ACgpgqBNAPAPAWBuB1B1BVBUgNBbgvBUhvgPhqgdheBoBxgUAFgiAsAPgN8VhvhxBWg4ANhRBSA+hNB8AwASAjh+B8" +
"B8AcAMhMg3A0DThhgxhRgGBahxhggBApBEWFBmhS+/BBBhhwgIB4BgAYAJhJgOA2BDARgAhmF6A4gGB8Bo/Jgrg/Bfh/hXBnA8gOAEAWgZAUAIH8ApAshmA8Bjgcg5/U" +
"gehh/WB3gxhNhugiAaA7AcBFgcgRADhSBWAThPBzgyBPALgSAABHABBRhCA72hBpBpApA/4BBrgBhKBFgnBfAZgYA2grgMhWBAgkAChgBBBWhzBiBkh0BghxeEZdALg9" +
"iNBvbw7whhhvBbgwgIhygrBfgrBTA6AhgvhjAYg+haBAF4vH4cze70OQyenwMnkQoiQrzCFQA9SUXGy9CMMAuywARTOoQYIFaLgw9RErSKcCginiCw7MHqeDoXjsuW69" +
"iWxWKDgAjGAaQQvTiMBuN1ugSmcgaaDsOSyDjA/Tm2FEN2E33AMEwTlUtAACAgAVAM2yhh0O0gVFuJCQHnogCO4QonwkVR4ShoaiOHmq/iCPTwiQmuBmgXGjgqjh2RA2" +
"HCUfHoiES4gi7EgcyU/xymE4UwSNCU3EMVA2YikFCiSycVCIBBGR2CdGQUBU9wqWVswAUgRIwGwIlkBFmImECyGcEUL3SESm1HIOFS9kgxRQsQIJCosyAmQg8HIslA+R" +
"YOEI6EwtS2cHyiiYJHAlAC0iiAUmEzEiksmHUrWUKBqAoih0OMyAIAAKSQFwnRTAEmS9Mwa36GQOhhCc5BcA8gAcFAfTJCEOSiDEsSaNEuC0EMrjRD8XB4LYziiOIJgN" +
"ACNAAEkRROEQrhCGAgkBA");
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/24/2012 10:00:00 AM","5/24/2012 12:00:00 PM") , "Pictures", "pic1");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
286
|
I need a border around each event/item on scheduler. Can you direct me to propery to use (to all)
// AddEvent event - Notifies your application once the a new event is added.
FUNCTION scheduleEvents_AddEvent(OBJECT schedule, OBJECT Ev)
' Ev.BodyBackgroundExt = "[frame=RGB(0,0,0),framethick]"
END
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
ObjectAssociateEvents("scheduleEvents", schedule);
_ObjectSetProperty( schedule , "SelectEventStyle", 48);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "1/10/2001");
_ObjectSetProperty( schedule , "OnResizeControl", 3073);
_ObjectSetProperty( schedule , "StatusEventSize", 0);
_ObjectCallMethod(schedule, "ExecuteTemplate", "DefaultEventPadding(-1) = 4");
events = _ObjectGetProperty( schedule , "Events");
_ObjectCallMethod( events , "Add", "1/10/2001 9:00:00 AM","1/10/2001 12:30:00 PM");
_ObjectCallMethod( events , "Add", "1/10/2001 9:00:00 AM","1/10/2001 1:00:00 PM");
_ObjectCallMethod( events , "Add", "1/10/2001 12:30:00 PM","1/10/2001 1:00:00 PM");
|
|
285
|
I need a border around each event/item on scheduler. Can you direct me to propery to use (distinct)
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( schedule , "SelectEventStyle", 48);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "1/10/2001");
_ObjectSetProperty( schedule , "OnResizeControl", 3073);
_ObjectSetProperty( schedule , "StatusEventSize", 0);
_ObjectCallMethod(schedule, "ExecuteTemplate", "DefaultEventPadding(-1) = 4");
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "1/10/2001 9:00:00 AM","1/10/2001 12:30:00 PM") , "BodyBackgroundExt", "[frame=RGB(0,0,0),framethick]");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "1/10/2001 9:00:00 AM","1/10/2001 1:00:00 PM") , "BodyBackgroundExt", "[frame=RGB(128,128,128),framethick]");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "1/10/2001 12:30:00 PM","1/10/2001 1:00:00 PM") , "BodyBackgroundExt", "[frame=RGB(0,0,0),framethick]");
|
|
284
|
How can I change/specify the caption of the groups, when the user clicks the drop down button
OBJECT events,group,groups,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "5/24/2012");
_ObjectSetProperty( schedule , "DisplayGroupingButton", -1);
_ObjectSetProperty( schedule , "ShowGroupingEvents", -1);
groups = _ObjectGetProperty( schedule , "Groups");
group = _ObjectCallMethod( groups , "Add", 1,"Group A");
_ObjectSetProperty( group , "Caption", "<fgcolor=808080><c><b>Group A</b><c><br><font ;6>France, Romania, Albania and Switzerland");
_ObjectSetProperty( group , "Visible", -1);
_ObjectSetProperty( group , "EventBackColor", 8421504);
group = _ObjectCallMethod( groups , "Add", 2,"Group B");
_ObjectSetProperty( group , "Caption", "<fgcolor=FF0000><c><b>Group B</b><c><br><font ;6>England, Russia, Wales and Slovakia");
_ObjectSetProperty( group , "Visible", -1);
_ObjectSetProperty( group , "EventBackColor", 255);
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/24/2012 10:00:00 AM","5/24/2012 12:00:00 PM") , "GroupID", 1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/24/2012 10:45:00 AM","5/24/2012 12:30:00 PM") , "GroupID", 2);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/24/2012 11:30:00 AM","5/24/2012 1:30:00 PM") , "GroupID", 1);
_ObjectCallMethod( schedule , "EndUpdate");
|
|
283
|
Is it possible to hide the group header, but still display the groups/captions
OBJECT events,group,groups,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectCallMethod(schedule, "ExecuteTemplate", "HTMLPicture(`pic1`) = `gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmiXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBPhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAhhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAGhvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sUhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4AfgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAACB5gkgiAggqAsAEhigrglg0ASAqgKBWgng7hSg9gdBPyphph0gQgeoOgyBNBMBIBMBnhjBsgEBJgMACAIgSBhAQAzAwg7BXA6A4BKgUBHB8Agg4BJgIgBA3ASAQAFAIhkhhAEA/ABRgBIhQAFgTgQhFARAEgsgkhngmAMAdhJh6A3gdBUhXBHhzhaB5hFB1HEgNgasJAOB1Bq3OB3Aeh3vth3A9gSgkh/g5hJ01A/hthbB9hQB/gCB4DPgCA9BAAeBYAGh2AAhvgBAvhkBZBOBiB5gsB2gsACBwB8AFBWBegGA6AOLkgvgiBvAABIhvh/AnAvhUhShIBmgzBRhLAyg+gDABB3gBgOhAA6AmAuBDBvA7hTA0hfAagfgfhXhrB5A4gyACAHAHgHhdh+A/B/gTh8AcAvBlhgOnhfBngyAZK2A4BMAlgqBohVAJAUAKAFALgaAmgthBA7AlhigLh/ghBAA0LxBchch8g6A7g7hbh3B+heBBBgB3B3A3ARhtBLgsBfgXBXh5A/g+B/hqBzh5heh0BagohIgBg4B/ApAatAg6BdBBBWBrhMA8AbgGAhhlByg5AvB+gzhFhihxBxghAjgeBlgEByB5h8g5gMA8BQgtBRAGh6B7gjgTZzANArArgrh+hquoAlhSgpB5B6B6A6BYBb57g858hcghAHhbAvhWhMhKAkBeKBguh/hRgNAjAjgjh6h0BshZg7AWALBZhD6KvyAtgtg7husuhJhJh7gYAzAihRhohJBnBtBGgNg9h3A4hogfgcAcA8ApBmBPBnhZAEAwALBngwBtp5gYAZgZhJg9h6BpBSgxA1g1hVga6XgsA2A3g3wIA9AR6pA9ARBIgYBnhjhxgTBRBIB2h3B0gYhuBxhRAHhPgnhciZh1gCAzAEgGBWBdADgPgoA/gXgIAEAuAKBbA+hRBBhRBohSgUAygAgIghgTh+hGAYBrghBQhoA2gNA7AEAQB5hxgmBSBpg0B4AJhChPg5ABAIBUBTgi4jAHBEBEgdAIhAB5hhA0gIggAhB5ACAWgahDgABFBjh3hThKABgJB5B2gzAagBBfhwB4AIh5BFAThbhohjBjBDT3BIgXgSgoBEhtgkAyAHARhkAtBoBrBrAzAqgMBcAXhgBbgkh7hghyAiBQBShSgShEgphFhzh7hIgzhgB2B2A2A4A0g0hUgXAMAGAlA6hNATB8k5gAgMgdBjBWB0BuBOBfA/AegBgBAjh8hTh3BZA9hoBUgBgKBRBvAvgChhhrhuAFBvA/AZBMgqB7B7h7hKh2h2g2gPg1A9hEgkANgOAjhhAwh9gxARAwg8B6heh3gQAdPFgiA/beAZABAd8lgQgKBEgPggBBAzhhBEgbhnAPBwg/hnA2hcBWB5AQBCA8gUBehjhIAfAABMAkB6BbhuhnBsgXgRggAAhhB5j+A/qYgEhbhrkOgqBuAIhVhuhrgyBuAuBLAdolAXBBggAGAyNFAABCgnhRALBUh9gdAFB6AOguhlAYB5hHhIByB3grB9hrAlhAAHBKBChCgCgNB8BdBf9XgngqhqhDgkAAAoAw7ShThwhsBrBoB7hRgvgBByg+AjhBBUgABkgJAuAjAMhEh+gggeAPA/gJg7BOhuh1ATBxBOgIvMAthpgv9wcYg1A1AFBnhmhmguh277ZQhiAGcchkgIgOhcBGhYBXgUBZbABVc5gTB1BEgAhJBUha+BB0h4+Chng4hjgyBygd7agAA1hCAQUPgRg8A7hNAQBQBwhaAFBQh0BCB4g4h1hoeRBhgp+Shnhxi8hhgygagABrAZAWBcBkgtgQA0Ahr4gkhLgvdwB/hzBtBagrgfBfA6h1hnAmguAiA8ANgLACA8AUgagOg3h0d5iBgBBCBjbIhWAGgYANAggsBthwBQAOzogx+yBHr+AGAuA0A0A2AGBPZoBnBAAwAIgnB5hcBmB3BWhWBWB+BdBcBcB8AZhsU6hxBuBgh7g7gwgVgBhuABiEh1giAmgBASAiABBWBkhAgZg0AEA1BRhQgNAwhyAgAMA0hsAxBNg7BsAbBmgQBxAUJZB1hQgMBZAVAPrchOBYgyg8gPg0hYA3gUAzAtBpB6gaB2Qvhhg/gEBoA8gshMg7AlAYgDBsBcAbACAKg6hWCthtqBAAhXgvhDgsA9hDAZAygthLADAVgSAkhhBsANBLAAhZgdBTArhAAQBDgTh6gEBnBNBHAVhrAPBAFkUnmLgChRECkYhG03G4rBi83imysh3uoBMaTqulIkxwIyAHSCmCcCGclnAegWGTOzSSUVurCrHwKymKmBA5EeSAivxCGV8rEopTmNwCOnA+mkIQ6sSeiEQlkKHTkp36CVC7BWPDcJ3SmgBYAASSKTiIriEYEFAQ=`");
_ObjectCallMethod(schedule, "ExecuteTemplate", "HTMLPicture(`pic2`) = `gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmiXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBPhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAhhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAGhvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sUhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4AfgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAADBngkgiAggqAsAEhiiig2AqUgBPA5hnB3Bshug3A9g7BbhthqALPBglN0gCgUoQh4AQAIgAgVgTAhBEAIBYACBIhEB4hggoASBiBKBsBJARRDhwBkgMABBrAQADA+AUAlAmhGBJBaAVALghgSgaA2gpApgpgEgigEBehTBAhLB2g7Bdhdgzhnhih3gvg9AbA9gWhUAHgnB5BPhMgZh5hnh/g/h5hvgzAMB9hPgNh7gnh6h1vtAIA9hVAggVggAbAoWrgAB1ABhGhBg/AAg+hng4huAAB9BjhbATiLhihNgQB2gegoBkgxrEgxAQAQBGgABpAdgJgfgfhpgRBWh8h+tWgmhpgXAABgAzuAYRAhAtAEhfBVhVBVA/BsLNAWAyBpAZhRgChhBwg4BUjtB/LiAehMgCAeBwg+B9hiY9g7BThpgkgXAlA0AMgAgCBBhghshRAUBbBBBthOhYBxgvh/BgANAOgbg3hvAuAvgvAvAXBjhFgkB1hBADgHgPAkATBJh0gWAbBcgzgZA75YBbhUhWBaBqBegxhjgHAEg9hcBMg8BQg6V8h1gegPBXhOBjA0gAgkX2AFhggphNBmBOB+ZSgDBxBdAdAdhihWgagahXBdg7h3gzB6B6h6BvBmhIgkAyA6uihKAGhAggBQAoAIBCBJgwAZBigZhTANhz5+A1hs5/g9A3g3hXhEAgBygXAuhdAyAshaA0AohiX/A1h0h8BThzheAFgLAWAcA9h/B+A8hOh/ApgxAABAh7gIgHB6g7BeBABghggghfBWhWgmgCAYADBrgYAJg9AAhehgB5hGBj6KBbAbA1g/21gEgQBMBs40AHgOAeB0AV6oAphxAyhiBHhghbhuoEB/AgA5gUgAAhBQhoBPhMBHgCgPBpBEAqgqAqBcBIg9guArArALAZgEABBMBqlEAzAohGQ8gAgjACgASQq7hNAvBvhoBwBhhfAmAQBfKYg7gEAgBBAFhQBuBFhcg7g0s6gSMxhhAageBgB4BEAHgjBKBJhOhmh2A7V4jtBGAuAogcA1hLAlAQKehwBFhdBxgshXgrgUgUAUAkBzhHBhAhhDgHA+glAdAJAWAAASh1hQh4A5ghg8g5Bvg7h1hLB0h0BohRhJBVAUAeAshgApgqBSBeBbA4gxhQBSBSASAxB4A7A6A6AsBnBOAfBOgegbAbOoYxAb5uBGgkgHAjhqBvgDAHh64bAOAHAYQPACh4BegTgpgVA68JhMh7h3hvh3hABKg8BqADvRBLhThqh3BvB2hBgICDA5hHAPgdhzA2Bcg4BggHBZhlhdh7h2B4whAoBDgagIA2BbAGAZB5gEgkABAAB+AFh0hMAXgvhfZVhqBrglglASBhAQhkAMBVARg9hUhdA9AVARBlhuBkgJgTgOAe8zBLBwhQgQhp7dhXhtBfTJBJBFBFhFhKhyhlhLhDgUAfBkARB0gyBhBpBrAKAAAwAGATAZhb9FBNhQgeFVgNBGhDgjhchnhzBmBMgJh0h1h1gZgngmgmhigHAAgFhZBthMAhhshygEgCAygFnlB7AoBIAjgbg0BRACgKAihchLgGAwAvguguhHBGBJgzDtB9BzAWgtgBBwAwgiBJhAgAAyhChTAQglg0AHgfASAXhNBTAkArtGhLAAApgtATBlhSA/gAAMASB/AMA9B9HUhPAyBzBzgrhWBIYwhVByBhgjhHB8ArBXgsgJgRAqhEABhrA4hxhDAygXBBBXheBRARAGAwgmBBgoBZBgBVh1hrAmgtAWALBO8sBkh5BnBPgPgkhLAEgqgBhjBihKAoB2goBgklgfBdBfgxgyhcBYhYg4hJBgAMg2hkhJAShwg1hrhXAsgog+A2VGBHhZA6htgbB/hOgdg7hBARhhhhgTBqB9BEAVgbgrh+hTBchsg/AHhCgUgBAlhehcA1AqhkBsA1iOBqPEgJhpBIATA+gfAvgWgnApA3gYASB725he22BXgJh3gCAggiAQhVBWBWBKAog/ByhBBhAhA61gAvggBmAiBVgRLNgYAPhvAqgth1gnhLAAhFmbhcguBugaBPgBAwAyAyBiBHAOB/gGgQAFBJgbgNB/hR/fB+BjhDgHglghhETkgkgIgsgggyhNAuAgBXAgBbBYAygqgqhQhbg7B3BOBSB6h8AjBThDh8gvgbhzCIBoBhB8f0hNgIB7BEhghKBXBThdEpDkheg/B+hdB8Brh2htgzBVBAEADiS0kU52cjV4vDsbRgwy6gA0pl5EQke1MpQKMAa4iWgDwJU68n+MHuAScfxUfj+wi6EFuwHC5Wkhgkuwkc40G2qeE8elEOF8lHCNAeTwsMTwqWOyWeIGQjxIbyQB0AFHgLayJHARwI0iE+HuGQEAAlT0IR0KiDWW2I2EYcUoaE8/giYAEiGAEiijXAEGwpx4HmeAWQNXcBFGTwaQikDlE9Bo41iYTuOA4zjnB2qzk2NzeEy4YkGwlQIikAE8hGM805rEEAmAKmUtQEkHuO9yj2u1GofEONxMVR8SiSulw6EMjEESDOTgGgEQi2MjjU5mI5l4pSWl0s1e+vUCXC+iGQtjEIwOCXi+xqAGowVeoQU+jgeX63GgsHeq1CoTREEpAkL0hgNAA9AoFUQTRBYLzAJgIwAEQIhZAAZjNIEUAXMw+gUBQPCNHE0YFBsKgXC8Xg8DsRySGwhQFAWFQYIE0gAB4pjjFcrhcPk4ziMUiy/AMzQwAIZwUPsxwgGsAg0AUCiCOgkQyhEAhFAAzAgCs6h9BYjAqCkgjiEQDA4BEhhuF01SdLoqjaGARwjIY4APF44QEC4JBwNwhDOHEDwRAYDwVF49QxFk9hBA4KQnPMh4BDw9hIEkKDFFgoBGL4IQiEYGS+OQZBdKYLDAIsSwLMM9xkMo+y4OsRRICEkAEBgqShCkEArOMeBBEwTCiCcPgiDoNQpE48A9P4owtJ0CxoMEsACFkQjIM0zQVCk8hRH4LT4LcoT2FkZAmBMeCyAA8QYIASQJBEnSWIg/BtMw0SpOkUDEBsayZAAEADK0GTrAYICzIsuTMLgkBNH45gnOU8QAEgAT5JcFCSCIGgTBkFiNJkHRzLE9g3CA5QJAk0CGBF7gAywSRFE4RCuEIYCCQE=`");
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "5/24/2012");
_ObjectSetProperty( schedule , "DisplayGroupingButton", -1);
_ObjectSetProperty( schedule , "ShowGroupingEvents", -1);
groups = _ObjectGetProperty( schedule , "Groups");
group = _ObjectCallMethod( groups , "Add", 1,"<c><b>Group</b><br><c><img>pic1</img>");
_ObjectSetProperty( group , "Visible", -1);
_ObjectSetProperty( group , "EventBackColor", 8421504);
group = _ObjectCallMethod( groups , "Add", 2,"<c><b>Group</b><br><c><img>pic2</img>");
_ObjectSetProperty( group , "Visible", -1);
_ObjectSetProperty( group , "EventBackColor", 255);
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/24/2012 10:00:00 AM","5/24/2012 12:00:00 PM") , "GroupID", 1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/24/2012 10:45:00 AM","5/24/2012 12:30:00 PM") , "GroupID", 2);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/24/2012 11:30:00 AM","5/24/2012 1:30:00 PM") , "GroupID", 1);
_ObjectSetProperty( schedule , "HeaderGroupHeight", -1);
_ObjectCallMethod( schedule , "EndUpdate");
|
|
282
|
When using the CopyTo method to print a range of dates the printed page is not showing the timescale, is there a way to make it appear (as is, without calendar, multiple-selection)
OBJECT calendar,events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( schedule , "OnResizeControl", 768);
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "#1/1/2016#");
_ObjectSetProperty( calendar , "Selection", "(int((yearday(value) -1- ((7-weekday(value - yearday(value) + 1)) mod 7) )/7) = int((yearday(#1/7/2016#))/7))");
_ObjectSetProperty( schedule , "BorderSelStyle", -1);
_ObjectSetProperty( schedule , "ShowViewCompact", -1);
events = _ObjectGetProperty( schedule , "Events");
_ObjectCallMethod( events , "Add", "1/10/2016 8:30:00 AM","1/10/2016 2:30:00 PM");
_ObjectCallMethod( events , "Add", "1/11/2016 9:30:00 AM","1/11/2016 11:30:00 AM");
_ObjectCallMethod( events , "Add", "1/15/2016 10:30:00 AM","1/15/2016 11:30:00 AM");
s = _ObjectGetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection");
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "0");
var_CopyTo = _ObjectCallMethod(schedule, "ExecuteTemplate", "CopyTo(`c:/temp/test.png`)");
Message( "Look for c:/temp/test.png file" );
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", s);
|
|
281
|
When using the CopyTo method to print a range of dates the printed page is not showing the timescale, is there a way to make it appear (as is, without calendar)
OBJECT calendar,events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( schedule , "OnResizeControl", 768);
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "1/1/2012");
_ObjectCallMethod(schedule, "TemplatePut", "Dim calObj")
_ObjectCallMethod(schedule, "TemplatePut", calendar)
_ObjectCallMethod(schedule, "ExecuteTemplate", "calObj.SelectDate(#1/1/2012#) = False");
events = _ObjectGetProperty( schedule , "Events");
_ObjectCallMethod( events , "Add", "1/1/2012 8:30:00 AM","1/1/2012 9:30:00 AM");
_ObjectCallMethod( events , "Add", "1/1/2012 8:35:00 AM","1/1/2012 9:35:00 AM");
_ObjectCallMethod( events , "Add", "1/1/2012 10:30:00 AM","1/1/2012 12:30:00 PM");
var_CopyTo = _ObjectCallMethod(schedule, "ExecuteTemplate", "CopyTo(`c:/temp/test.png`)");
Message( "Look for c:/temp/test.png file" );
|
|
280
|
When using the CopyTo method to print a range of dates the printed page is not showing the timescale, is there a way to make it appear (as is, with calendar)
OBJECT calendar,events,schedule;
schedule = ObjectByName("AN1") ;
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "1/1/2012");
_ObjectCallMethod(schedule, "TemplatePut", "Dim calObj")
_ObjectCallMethod(schedule, "TemplatePut", calendar)
_ObjectCallMethod(schedule, "ExecuteTemplate", "calObj.SelectDate(#1/1/2012#) = False");
events = _ObjectGetProperty( schedule , "Events");
_ObjectCallMethod( events , "Add", "1/1/2012 8:30:00 AM","1/1/2012 9:30:00 AM");
_ObjectCallMethod( events , "Add", "1/1/2012 8:35:00 AM","1/1/2012 9:35:00 AM");
_ObjectCallMethod( events , "Add", "1/1/2012 10:30:00 AM","1/1/2012 12:30:00 PM");
var_CopyTo = _ObjectCallMethod(schedule, "ExecuteTemplate", "CopyTo(`c:/temp/test.png`)");
Message( "Look for c:/temp/test.png file" );
|
|
279
|
I've seen that all-day header can be limited up to 4, 8 or 12 events. Can I change that limit, for instance, 3 events only
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( schedule , "AllowSelectCreateEvent", 2);
_ObjectSetProperty( schedule , "OnResizeControl", 2048);
_ObjectSetProperty( schedule , "ShowAllDayHeader", -1);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "5/21/2012");
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "value >= #5/20/2012# and value <= #5/26/2012#");
_ObjectSetProperty( schedule , "ShowViewCompact", -1);
_ObjectSetProperty( schedule , "AllowAllDayEventScroll", 4403);
_ObjectSetProperty( schedule , "BodyEventBackColor", 8421504);
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(165) = 14474460");
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/21/2012","5/24/2012") , "AllDayEvent", -1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/22/2012","5/23/2012") , "AllDayEvent", -1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/22/2012","5/24/2012") , "AllDayEvent", -1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/22/2012","5/25/2012") , "AllDayEvent", -1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/22/2012","5/25/2012") , "AllDayEvent", -1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/23/2012","5/25/2012") , "AllDayEvent", -1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/24/2012","5/25/2012") , "AllDayEvent", -1);
_ObjectCallMethod( schedule , "EndUpdate");
|
|
278
|
Is it possible to highlight the newly created event ( runtime creation )
OBJECT schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( schedule , "AllowSelectCreateEvent", 2);
|
|
277
|
Is it possible to select the newly created event ( runtime creation )
OBJECT schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( schedule , "AllowSelectCreateEvent", 1);
|
|
276
|
I have noticed that the all-day header change its background, if has scrolling events. Is it possible to change that (ebn)
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( schedule , "VisualAppearance") , "Add", 1,"gBFLBCJwBAEHhEJAAChABRUIQAAYAQGKIaBoAKBQAGaAoDDQMQ3QwAAwjSLEEwsACEIrjKCRShyCYZRrGQBQTCIZBqEqSZLiEZRQCWIAxATGchwHIEQgND6cIDmMAHf" +
"j2PI+RZKMoRZJUExZFyERhASQZZoyN40UzOc6vfL9KRDEAEIRKAyTDLQdRyGSMMgEVBJBCbMiNBqhESIJo+GI4BhFYSUZalGSnO6gIBAgIA==");
_ObjectSetProperty( schedule , "AllowSelectCreateEvent", 2);
_ObjectSetProperty( schedule , "OnResizeControl", 2048);
_ObjectSetProperty( schedule , "ShowAllDayHeader", -1);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "5/21/2012");
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)");
_ObjectSetProperty( schedule , "ShowViewCompact", -1);
_ObjectSetProperty( schedule , "AllowAllDayEventScroll", 4416);
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(165) = 16777216");
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/22/2012","5/23/2012") , "AllDayEvent", -1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/21/2012","5/24/2012") , "AllDayEvent", -1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/22/2012","5/24/2012") , "AllDayEvent", -1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/22/2012","5/25/2012") , "AllDayEvent", -1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/22/2012","5/25/2012") , "AllDayEvent", -1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/23/2012","5/25/2012") , "AllDayEvent", -1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/24/2012","5/26/2012") , "AllDayEvent", -1);
_ObjectCallMethod( schedule , "EndUpdate");
|
|
275
|
I have noticed that the all-day header change its background, if has scrolling events. Is it possible to change that (solid)
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( schedule , "AllowSelectCreateEvent", 2);
_ObjectSetProperty( schedule , "OnResizeControl", 2048);
_ObjectSetProperty( schedule , "ShowAllDayHeader", -1);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "5/21/2012");
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)");
_ObjectSetProperty( schedule , "ShowViewCompact", -1);
_ObjectSetProperty( schedule , "AllowAllDayEventScroll", 4416);
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(165) = 14474460");
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/22/2012","5/23/2012") , "AllDayEvent", -1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/21/2012","5/24/2012") , "AllDayEvent", -1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/22/2012","5/24/2012") , "AllDayEvent", -1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/22/2012","5/25/2012") , "AllDayEvent", -1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/22/2012","5/25/2012") , "AllDayEvent", -1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/23/2012","5/25/2012") , "AllDayEvent", -1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/24/2012","5/26/2012") , "AllDayEvent", -1);
_ObjectCallMethod( schedule , "EndUpdate");
|
|
274
|
I have noticed that the all-day header change its background, if has scrolling events. Is it possible to remove that
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( schedule , "AllowSelectCreateEvent", 2);
_ObjectSetProperty( schedule , "OnResizeControl", 2048);
_ObjectSetProperty( schedule , "ShowAllDayHeader", -1);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "5/21/2012");
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)");
_ObjectSetProperty( schedule , "ShowViewCompact", -1);
_ObjectSetProperty( schedule , "AllowAllDayEventScroll", 4416);
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(165) = 0");
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/22/2012","5/23/2012") , "AllDayEvent", -1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/21/2012","5/24/2012") , "AllDayEvent", -1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/22/2012","5/24/2012") , "AllDayEvent", -1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/22/2012","5/25/2012") , "AllDayEvent", -1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/22/2012","5/25/2012") , "AllDayEvent", -1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/23/2012","5/25/2012") , "AllDayEvent", -1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/24/2012","5/26/2012") , "AllDayEvent", -1);
_ObjectCallMethod( schedule , "EndUpdate");
|
|
273
|
The user scrolls through the all-day events, when mouse wheel is rotated. Can I disable that
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( schedule , "AllowSelectCreateEvent", 2);
_ObjectSetProperty( schedule , "OnResizeControl", 2048);
_ObjectSetProperty( schedule , "ShowAllDayHeader", -1);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "5/21/2012");
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)");
_ObjectSetProperty( schedule , "ShowViewCompact", -1);
_ObjectSetProperty( schedule , "AllowAllDayEventScroll", 320);
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/22/2012","5/23/2012") , "AllDayEvent", -1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/21/2012","5/24/2012") , "AllDayEvent", -1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/22/2012","5/24/2012") , "AllDayEvent", -1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/22/2012","5/25/2012") , "AllDayEvent", -1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/22/2012","5/25/2012") , "AllDayEvent", -1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/23/2012","5/25/2012") , "AllDayEvent", -1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/24/2012","5/26/2012") , "AllDayEvent", -1);
_ObjectCallMethod( schedule , "EndUpdate");
|
|
272
|
Is it possible to specify the number of all-day events to be visible
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( schedule , "AllowSelectCreateEvent", 2);
_ObjectSetProperty( schedule , "OnResizeControl", 2048);
_ObjectSetProperty( schedule , "ShowAllDayHeader", -1);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "5/21/2012");
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)");
_ObjectSetProperty( schedule , "ShowViewCompact", -1);
_ObjectSetProperty( schedule , "AllowAllDayEventScroll", 4416);
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/22/2012","5/23/2012") , "AllDayEvent", -1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/21/2012","5/24/2012") , "AllDayEvent", -1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/22/2012","5/24/2012") , "AllDayEvent", -1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/22/2012","5/25/2012") , "AllDayEvent", -1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/22/2012","5/25/2012") , "AllDayEvent", -1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/23/2012","5/25/2012") , "AllDayEvent", -1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/24/2012","5/26/2012") , "AllDayEvent", -1);
_ObjectCallMethod( schedule , "EndUpdate");
|
|
271
|
How do I disable scrolling the all-day header
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( schedule , "AllowSelectCreateEvent", 2);
_ObjectSetProperty( schedule , "OnResizeControl", 2048);
_ObjectSetProperty( schedule , "ShowAllDayHeader", -1);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "5/21/2012");
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "value in (#5/21/2012#,#5/22/2012#,#5/23/2012#,#5/24/2012#,#5/25/2012#)");
_ObjectSetProperty( schedule , "ShowViewCompact", -1);
_ObjectSetProperty( schedule , "AllowAllDayEventScroll", 0);
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/22/2012","5/23/2012") , "AllDayEvent", -1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/21/2012","5/24/2012") , "AllDayEvent", -1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/22/2012","5/24/2012") , "AllDayEvent", -1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/22/2012","5/25/2012") , "AllDayEvent", -1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/22/2012","5/25/2012") , "AllDayEvent", -1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/23/2012","5/25/2012") , "AllDayEvent", -1);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/24/2012","5/26/2012") , "AllDayEvent", -1);
_ObjectCallMethod( schedule , "EndUpdate");
|
|
270
|
How can I display the current week only, when the user selects the date in the calendar panel
OBJECT calendar,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( schedule , "OnResizeControl", 129);
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "OnSelectDate", 1);
_ObjectSetProperty( calendar , "Selection", "1/10/2001");
_ObjectSetProperty( calendar , "SingleSel", -1);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "FirstWeekDay", 1);
_ObjectSetProperty( schedule , "ScrollBars", 0);
_ObjectSetProperty( schedule , "ShowViewCompact", -1);
_ObjectSetProperty( schedule , "AllowResizeSchedule", 0);
_ObjectSetProperty( schedule , "AllowMoveSchedule", 0);
_ObjectSetProperty( schedule , "AllowToggleSchedule", 0);
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(35) = Background(34)");
_ObjectCallMethod(schedule, "ExecuteTemplate", "TimeScales.Item(0).AllowResize = False");
_ObjectSetProperty( schedule , "DayViewWidth", 0);
_ObjectCallMethod( schedule , "EndUpdate");
|
|
269
|
How do I capture the control and save it as PDF (Method 2)
OBJECT calendar,events,schedule;
schedule = ObjectByName("AN1") ;
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "6/1/2001");
_ObjectSetProperty( calendar , "Selection", "value in (#6/11/2001#,#6/12/2001#)");
_ObjectSetProperty( schedule , "DayViewWidth", 512);
_ObjectSetProperty( schedule , "DayViewHeight", 512);
events = _ObjectGetProperty( schedule , "Events");
_ObjectCallMethod( events , "Add", "6/11/2001 10:00:00 AM","6/11/2001 1:00:00 PM");
_ObjectCallMethod( events , "Add", "6/12/2001 10:00:00 AM","6/12/2001 1:00:00 PM");
var_CopyTo = _ObjectCallMethod(schedule, "ExecuteTemplate", "CopyTo(`C:/Temp/test.pdf`)");
Message( "Look For: C:/Temp/test.pdf file" );
|
|
268
|
How do I capture the control and save it as PDF (Method 1)
OBJECT calendar,createobject("exontrol.print"),events,schedule;
schedule = ObjectByName("AN1") ;
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "6/1/2001");
_ObjectSetProperty( calendar , "Selection", "value in (#6/11/2001#,#6/12/2001#)");
_ObjectSetProperty( schedule , "DayViewWidth", 512);
_ObjectSetProperty( schedule , "DayViewHeight", 512);
events = _ObjectGetProperty( schedule , "Events");
_ObjectCallMethod( events , "Add", "6/11/2001 10:00:00 AM","6/11/2001 1:00:00 PM");
_ObjectCallMethod( events , "Add", "6/12/2001 10:00:00 AM","6/12/2001 1:00:00 PM");
createobject("exontrol.print") = CreateObject("Exontrol.Print");
_ObjectSetProperty( createobject("exontrol.print") , "Options", "FitToPage=On");
_ObjectSetProperty( createobject("exontrol.print") , "PrintExt", schedule);
_ObjectCallMethod( createobject("exontrol.print") , "CopyTo", "C:/Temp/test.pdf");
Message( "Look For: C:/Temp/test.pdf file" );
|
|
267
|
How do I capture the control and save it as an image (JPG or BMP) (Method 2)
OBJECT calendar,events,schedule;
schedule = ObjectByName("AN1") ;
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "6/1/2001");
_ObjectSetProperty( calendar , "Selection", "value in (#6/11/2001#,#6/12/2001#)");
_ObjectSetProperty( schedule , "DayViewWidth", 512);
_ObjectSetProperty( schedule , "DayViewHeight", 512);
events = _ObjectGetProperty( schedule , "Events");
_ObjectCallMethod( events , "Add", "6/11/2001 10:00:00 AM","6/11/2001 1:00:00 PM");
_ObjectCallMethod( events , "Add", "6/12/2001 10:00:00 AM","6/12/2001 1:00:00 PM");
var_CopyTo = _ObjectCallMethod(schedule, "ExecuteTemplate", "CopyTo(`C:/Temp/test.bmp`)");
var_CopyTo1 = _ObjectCallMethod(schedule, "ExecuteTemplate", "CopyTo(`C:/Temp/test.jpg`)");
Message( "Look For: C:/Temp/test.* file" );
|
|
266
|
How do I capture the control and save it as an image (JPG or BMP) (Method 1)
OBJECT calendar,createobject("exontrol.print"),events,schedule;
schedule = ObjectByName("AN1") ;
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "6/1/2001");
_ObjectSetProperty( calendar , "Selection", "value in (#6/11/2001#,#6/12/2001#)");
_ObjectSetProperty( schedule , "DayViewWidth", 512);
_ObjectSetProperty( schedule , "DayViewHeight", 512);
events = _ObjectGetProperty( schedule , "Events");
_ObjectCallMethod( events , "Add", "6/11/2001 10:00:00 AM","6/11/2001 1:00:00 PM");
_ObjectCallMethod( events , "Add", "6/12/2001 10:00:00 AM","6/12/2001 1:00:00 PM");
createobject("exontrol.print") = CreateObject("Exontrol.Print");
_ObjectSetProperty( createobject("exontrol.print") , "Options", "FitToPage=On");
_ObjectSetProperty( createobject("exontrol.print") , "PrintExt", schedule);
_ObjectCallMethod( createobject("exontrol.print") , "CopyTo", "C:/Temp/test.bmp");
_ObjectCallMethod( createobject("exontrol.print") , "CopyTo", "C:/Temp/test.jpg");
Message( "Look For: C:/Temp/test.* file" );
|
|
265
|
Recurrence: The 2nd to last weekday of the month
OBJECT calendar,events,highlight,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "9/29/1997");
_ObjectSetProperty( calendar , "ShowNonMonthDays", 0);
_ObjectSetProperty( calendar , "MaxMonthY", 4);
_ObjectSetProperty( calendar , "FirstWeekDay", 1);
highlight = _ObjectGetProperty( calendar , "HighlightEvent");
_ObjectSetProperty( _ObjectGetProperty( highlight , "Pattern") , "Type", 256);
_ObjectSetProperty( highlight , "Bold", 0);
_ObjectSetProperty( schedule , "ShowViewCompact", -1);
_ObjectSetProperty( schedule , "BorderSelStyle", -1);
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(81) = 15790320");
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "9/29/1997 9:00:00 AM","9/29/1997 2:00:00 PM") , "Repetitive", "FREQ=MONTHLY;BYDAY=MO,TU,WE,TH,FR;BYSETPOS=-2");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
264
|
Recurrence: The 3rd instance into the month of one of Tuesday, Wednesday or Thursday, for the next 3 months
OBJECT calendar,events,highlight,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "9/4/1997");
_ObjectSetProperty( calendar , "ShowNonMonthDays", 0);
_ObjectSetProperty( calendar , "MaxMonthY", 4);
_ObjectSetProperty( calendar , "FirstWeekDay", 1);
highlight = _ObjectGetProperty( calendar , "HighlightEvent");
_ObjectSetProperty( _ObjectGetProperty( highlight , "Pattern") , "Type", 256);
_ObjectSetProperty( highlight , "Bold", 0);
_ObjectSetProperty( schedule , "ShowViewCompact", -1);
_ObjectSetProperty( schedule , "BorderSelStyle", -1);
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(81) = 15790320");
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "9/4/1997 9:00:00 AM","9/4/1997 2:00:00 PM") , "Repetitive", "FREQ=MONTHLY;COUNT=3;BYDAY=TU,WE,TH;BYSETPOS=3");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
263
|
Recurrence: The last work day of the month
OBJECT calendar,events,highlight,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "9/30/1997");
_ObjectSetProperty( calendar , "ShowNonMonthDays", 0);
_ObjectSetProperty( calendar , "MaxMonthY", 4);
_ObjectSetProperty( calendar , "FirstWeekDay", 1);
highlight = _ObjectGetProperty( calendar , "HighlightEvent");
_ObjectSetProperty( _ObjectGetProperty( highlight , "Pattern") , "Type", 256);
_ObjectSetProperty( highlight , "Bold", 0);
_ObjectSetProperty( schedule , "ShowViewCompact", -1);
_ObjectSetProperty( schedule , "BorderSelStyle", -1);
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(81) = 15790320");
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "8/5/1997 9:00:00 AM","8/5/1997 2:00:00 PM") , "Repetitive", "FREQ=MONTHLY;BYDAY=MO,TU,WE,TH,FR;BYSETPOS=-1");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
262
|
Recurrence: An example where the days generated makes a difference because of WKST (Sample 2)
OBJECT calendar,events,highlight,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "8/5/1997");
_ObjectSetProperty( calendar , "ShowNonMonthDays", 0);
_ObjectSetProperty( calendar , "MaxMonthY", 4);
_ObjectSetProperty( calendar , "FirstWeekDay", 0);
highlight = _ObjectGetProperty( calendar , "HighlightEvent");
_ObjectSetProperty( _ObjectGetProperty( highlight , "Pattern") , "Type", 256);
_ObjectSetProperty( highlight , "Bold", 0);
_ObjectSetProperty( schedule , "ShowViewCompact", -1);
_ObjectSetProperty( schedule , "BorderSelStyle", -1);
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(81) = 15790320");
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "8/5/1997 9:00:00 AM","8/5/1997 2:00:00 PM") , "Repetitive", "FREQ=WEEKLY;INTERVAL=2;COUNT=4;BYDAY=TU,SU");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
261
|
Recurrence: An example where the days generated makes a difference because of WKST (Sample 1)
OBJECT calendar,events,highlight,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "8/5/1997");
_ObjectSetProperty( calendar , "ShowNonMonthDays", 0);
_ObjectSetProperty( calendar , "MaxMonthY", 4);
_ObjectSetProperty( calendar , "FirstWeekDay", 1);
highlight = _ObjectGetProperty( calendar , "HighlightEvent");
_ObjectSetProperty( _ObjectGetProperty( highlight , "Pattern") , "Type", 256);
_ObjectSetProperty( highlight , "Bold", 0);
_ObjectSetProperty( schedule , "ShowViewCompact", -1);
_ObjectSetProperty( schedule , "BorderSelStyle", -1);
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(81) = 15790320");
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "8/5/1997 9:00:00 AM","8/5/1997 2:00:00 PM") , "Repetitive", "FREQ=WEEKLY;INTERVAL=2;COUNT=4;BYDAY=TU,SU");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
260
|
Recurrence: Every four years, the first Tuesday after a Monday in November, forever (U.S. Presidential Election day)
OBJECT calendar,events,highlight,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "11/5/1996");
_ObjectSetProperty( calendar , "ShowNonMonthDays", 0);
_ObjectSetProperty( calendar , "MaxMonthY", 4);
_ObjectSetProperty( calendar , "FirstWeekDay", 1);
highlight = _ObjectGetProperty( calendar , "HighlightEvent");
_ObjectSetProperty( _ObjectGetProperty( highlight , "Pattern") , "Type", 256);
_ObjectSetProperty( highlight , "Bold", 0);
_ObjectSetProperty( schedule , "ShowViewCompact", -1);
_ObjectSetProperty( schedule , "BorderSelStyle", -1);
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(81) = 15790320");
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "11/5/1996 9:00:00 AM","11/5/1996 2:00:00 PM") , "Repetitive", "FREQ=YEARLY;INTERVAL=4;BYMONTH=11;BYDAY=TU;BYMONTHDAY=2,3,4,5,6,7,8");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
259
|
Recurrence: The first Saturday that follows the first Sunday of the month, forever
OBJECT calendar,events,highlight,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "9/13/1997");
_ObjectSetProperty( calendar , "ShowNonMonthDays", 0);
_ObjectSetProperty( calendar , "MaxMonthY", 4);
_ObjectSetProperty( calendar , "FirstWeekDay", 1);
highlight = _ObjectGetProperty( calendar , "HighlightEvent");
_ObjectSetProperty( _ObjectGetProperty( highlight , "Pattern") , "Type", 256);
_ObjectSetProperty( highlight , "Bold", 0);
_ObjectSetProperty( schedule , "ShowViewCompact", -1);
_ObjectSetProperty( schedule , "BorderSelStyle", -1);
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(81) = 15790320");
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "9/13/1997 9:00:00 AM","9/13/1997 2:00:00 PM") , "Repetitive", "FREQ=MONTHLY;BYDAY=SA;BYMONTHDAY=7,8,9,10,11,12,13");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
258
|
Recurrence: Every Friday the 13th, forever
OBJECT calendar,events,highlight,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "2/13/1998");
_ObjectSetProperty( calendar , "ShowNonMonthDays", 0);
_ObjectSetProperty( calendar , "MaxMonthY", 4);
_ObjectSetProperty( calendar , "FirstWeekDay", 1);
highlight = _ObjectGetProperty( calendar , "HighlightEvent");
_ObjectSetProperty( _ObjectGetProperty( highlight , "Pattern") , "Type", 256);
_ObjectSetProperty( highlight , "Bold", 0);
_ObjectSetProperty( schedule , "ShowViewCompact", -1);
_ObjectSetProperty( schedule , "BorderSelStyle", -1);
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(81) = 15790320");
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "9/2/1997 9:00:00 AM","9/2/1997 2:00:00 PM") , "Repetitive", "FREQ=MONTHLY;BYDAY=FR;BYMONTHDAY=13");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
257
|
Recurrence: Every Thursday, but only during June, July, and August, forever
OBJECT calendar,events,highlight,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "6/5/1997");
_ObjectSetProperty( calendar , "ShowNonMonthDays", 0);
_ObjectSetProperty( calendar , "MaxMonthY", 4);
_ObjectSetProperty( calendar , "FirstWeekDay", 1);
highlight = _ObjectGetProperty( calendar , "HighlightEvent");
_ObjectSetProperty( _ObjectGetProperty( highlight , "Pattern") , "Type", 256);
_ObjectSetProperty( highlight , "Bold", 0);
_ObjectSetProperty( schedule , "ShowViewCompact", -1);
_ObjectSetProperty( schedule , "BorderSelStyle", -1);
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(81) = 15790320");
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "6/5/1997 9:00:00 AM","6/5/1997 2:00:00 PM") , "Repetitive", "FREQ=YEARLY;BYDAY=TH;BYMONTH=6,7,8");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
256
|
Recurrence: Every Thursday in March, forever
OBJECT calendar,events,highlight,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "3/13/1997");
_ObjectSetProperty( calendar , "ShowNonMonthDays", 0);
_ObjectSetProperty( calendar , "MaxMonthY", 4);
_ObjectSetProperty( calendar , "FirstWeekDay", 1);
highlight = _ObjectGetProperty( calendar , "HighlightEvent");
_ObjectSetProperty( _ObjectGetProperty( highlight , "Pattern") , "Type", 256);
_ObjectSetProperty( highlight , "Bold", 0);
_ObjectSetProperty( schedule , "ShowViewCompact", -1);
_ObjectSetProperty( schedule , "BorderSelStyle", -1);
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(81) = 15790320");
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "3/13/1997 9:00:00 AM","3/13/1997 2:00:00 PM") , "Repetitive", "FREQ=YEARLY;BYMONTH=3;BYDAY=TH");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
255
|
Recurrence: Monday of week number 20 (where the default start of the week is Monday), forever
OBJECT calendar,events,highlight,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "5/12/1997");
_ObjectSetProperty( calendar , "ShowNonMonthDays", 0);
_ObjectSetProperty( calendar , "MaxMonthY", 4);
_ObjectSetProperty( calendar , "FirstWeekDay", 1);
highlight = _ObjectGetProperty( calendar , "HighlightEvent");
_ObjectSetProperty( _ObjectGetProperty( highlight , "Pattern") , "Type", 256);
_ObjectSetProperty( highlight , "Bold", 0);
_ObjectSetProperty( schedule , "ShowViewCompact", -1);
_ObjectSetProperty( schedule , "BorderSelStyle", -1);
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(81) = 15790320");
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/12/1997 9:00:00 AM","5/12/1997 2:00:00 PM") , "Repetitive", "FREQ=YEARLY;BYWEEKNO=20;BYDAY=MO");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
254
|
Recurrence: Every 20th Monday of the year, forever
OBJECT calendar,events,highlight,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "5/19/1997");
_ObjectSetProperty( calendar , "ShowNonMonthDays", 0);
_ObjectSetProperty( calendar , "MaxMonthY", 4);
_ObjectSetProperty( calendar , "FirstWeekDay", 1);
highlight = _ObjectGetProperty( calendar , "HighlightEvent");
_ObjectSetProperty( _ObjectGetProperty( highlight , "Pattern") , "Type", 256);
_ObjectSetProperty( highlight , "Bold", 0);
_ObjectSetProperty( schedule , "ShowViewCompact", -1);
_ObjectSetProperty( schedule , "BorderSelStyle", -1);
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(81) = 15790320");
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "1/1/1997 9:00:00 AM","1/1/1997 2:00:00 PM") , "Repetitive", "FREQ=YEARLY;BYDAY=20MO");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
253
|
Recurrence: Every 3rd year on the 1st, 100th and 200th day for 10 occurrences
OBJECT calendar,events,highlight,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "1/1/1997");
_ObjectSetProperty( calendar , "ShowNonMonthDays", 0);
_ObjectSetProperty( calendar , "MaxMonthY", 4);
_ObjectSetProperty( calendar , "FirstWeekDay", 1);
highlight = _ObjectGetProperty( calendar , "HighlightEvent");
_ObjectSetProperty( _ObjectGetProperty( highlight , "Pattern") , "Type", 256);
_ObjectSetProperty( highlight , "Bold", 0);
_ObjectSetProperty( schedule , "ShowViewCompact", -1);
_ObjectSetProperty( schedule , "BorderSelStyle", -1);
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(81) = 15790320");
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "1/1/1997 9:00:00 AM","1/1/1997 2:00:00 PM") , "Repetitive", "FREQ=YEARLY;INTERVAL=3;COUNT=10;BYYEARDAY=1,100,200");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
252
|
Recurrence: Every other year on January, February, and March for 10 occurrences
OBJECT calendar,events,highlight,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "3/10/1997");
_ObjectSetProperty( calendar , "ShowNonMonthDays", 0);
_ObjectSetProperty( calendar , "MaxMonthY", 4);
_ObjectSetProperty( calendar , "FirstWeekDay", 1);
highlight = _ObjectGetProperty( calendar , "HighlightEvent");
_ObjectSetProperty( _ObjectGetProperty( highlight , "Pattern") , "Type", 256);
_ObjectSetProperty( highlight , "Bold", 0);
_ObjectSetProperty( schedule , "ShowViewCompact", -1);
_ObjectSetProperty( schedule , "BorderSelStyle", -1);
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(81) = 15790320");
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "3/10/1997 9:00:00 AM","3/10/1997 2:00:00 PM") , "Repetitive", "FREQ=YEARLY;INTERVAL=2;COUNT=10;BYMONTH=1,2,3");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
251
|
Recurrence: Yearly in June and July for 10 occurrences
OBJECT calendar,events,highlight,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "6/10/1997");
_ObjectSetProperty( calendar , "ShowNonMonthDays", 0);
_ObjectSetProperty( calendar , "MaxMonthX", 2);
_ObjectSetProperty( calendar , "MaxMonthY", 2);
_ObjectSetProperty( calendar , "FirstWeekDay", 1);
highlight = _ObjectGetProperty( calendar , "HighlightEvent");
_ObjectSetProperty( _ObjectGetProperty( highlight , "Pattern") , "Type", 256);
_ObjectSetProperty( highlight , "Bold", 0);
_ObjectSetProperty( schedule , "ShowViewCompact", -1);
_ObjectSetProperty( schedule , "BorderSelStyle", -1);
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(81) = 15790320");
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "6/10/1997 9:00:00 AM","6/10/1997 2:00:00 PM") , "Repetitive", "FREQ=YEARLY;COUNT=10;BYMONTH=6,7");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
250
|
Recurrence: Every Tuesday, every other month
OBJECT calendar,events,highlight,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "9/2/1997");
_ObjectSetProperty( calendar , "ShowNonMonthDays", 0);
_ObjectSetProperty( calendar , "MaxMonthY", 4);
_ObjectSetProperty( calendar , "FirstWeekDay", 1);
highlight = _ObjectGetProperty( calendar , "HighlightEvent");
_ObjectSetProperty( _ObjectGetProperty( highlight , "Pattern") , "Type", 256);
_ObjectSetProperty( highlight , "Bold", 0);
_ObjectSetProperty( schedule , "ShowViewCompact", -1);
_ObjectSetProperty( schedule , "BorderSelStyle", -1);
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(81) = 15790320");
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "9/2/1997 9:00:00 AM","9/2/1997 2:00:00 PM") , "Repetitive", "FREQ=MONTHLY;INTERVAL=2;BYDAY=TU");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
249
|
Recurrence: Every 18 months on the 10th thru 15th of the month for 10 occurrences
OBJECT calendar,events,highlight,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "9/10/1997");
_ObjectSetProperty( calendar , "ShowNonMonthDays", 0);
_ObjectSetProperty( calendar , "MaxMonthY", 4);
_ObjectSetProperty( calendar , "FirstWeekDay", 1);
highlight = _ObjectGetProperty( calendar , "HighlightEvent");
_ObjectSetProperty( _ObjectGetProperty( highlight , "Pattern") , "Type", 256);
_ObjectSetProperty( highlight , "Bold", 0);
_ObjectSetProperty( schedule , "ShowViewCompact", -1);
_ObjectSetProperty( schedule , "BorderSelStyle", -1);
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(81) = 15790320");
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "9/10/1997 9:00:00 AM","9/10/1997 2:00:00 PM") , "Repetitive", "FREQ=MONTHLY;INTERVAL=18;COUNT=10;BYMONTHDAY=10,11,12,13,14,15");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
248
|
Recurrence: Monthly on the first and last day of the month for 10 occurrences
OBJECT calendar,events,highlight,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "9/30/1997");
_ObjectSetProperty( calendar , "ShowNonMonthDays", 0);
_ObjectSetProperty( calendar , "MaxMonthY", 4);
_ObjectSetProperty( calendar , "FirstWeekDay", 1);
highlight = _ObjectGetProperty( calendar , "HighlightEvent");
_ObjectSetProperty( _ObjectGetProperty( highlight , "Pattern") , "Type", 256);
_ObjectSetProperty( highlight , "Bold", 0);
_ObjectSetProperty( schedule , "ShowViewCompact", -1);
_ObjectSetProperty( schedule , "BorderSelStyle", -1);
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(81) = 15790320");
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "9/3/1997 9:00:00 AM","9/3/1997 2:00:00 PM") , "Repetitive", "FREQ=MONTHLY;COUNT=10;BYMONTHDAY=1,-1");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
247
|
Recurrence: Monthly on the 2nd and 15th of the month for 10 occurrences
OBJECT calendar,events,highlight,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "9/2/1997");
_ObjectSetProperty( calendar , "ShowNonMonthDays", 0);
_ObjectSetProperty( calendar , "MaxMonthY", 4);
_ObjectSetProperty( calendar , "FirstWeekDay", 1);
highlight = _ObjectGetProperty( calendar , "HighlightEvent");
_ObjectSetProperty( _ObjectGetProperty( highlight , "Pattern") , "Type", 256);
_ObjectSetProperty( highlight , "Bold", 0);
_ObjectSetProperty( schedule , "ShowViewCompact", -1);
_ObjectSetProperty( schedule , "BorderSelStyle", -1);
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(81) = 15790320");
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "9/2/1997 9:00:00 AM","9/2/1997 2:00:00 PM") , "Repetitive", "FREQ=MONTHLY;COUNT=10;BYMONTHDAY=2,15");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
246
|
Recurrence: Monthly on the third to the last day of the month, forever
OBJECT calendar,events,highlight,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "9/28/1997");
_ObjectSetProperty( calendar , "ShowNonMonthDays", 0);
_ObjectSetProperty( calendar , "MaxMonthY", 4);
_ObjectSetProperty( calendar , "FirstWeekDay", 1);
highlight = _ObjectGetProperty( calendar , "HighlightEvent");
_ObjectSetProperty( _ObjectGetProperty( highlight , "Pattern") , "Type", 256);
_ObjectSetProperty( highlight , "Bold", 0);
_ObjectSetProperty( schedule , "ShowViewCompact", -1);
_ObjectSetProperty( schedule , "BorderSelStyle", -1);
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(81) = 15790320");
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "9/28/1997 9:00:00 AM","9/28/1997 2:00:00 PM") , "Repetitive", "FREQ=MONTHLY;BYMONTHDAY=-3");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
245
|
Recurrence: Monthly on the second to last Monday of the month for 6 months
OBJECT calendar,events,highlight,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "9/22/1997");
_ObjectSetProperty( calendar , "ShowNonMonthDays", 0);
_ObjectSetProperty( calendar , "MaxMonthY", 4);
_ObjectSetProperty( calendar , "FirstWeekDay", 1);
highlight = _ObjectGetProperty( calendar , "HighlightEvent");
_ObjectSetProperty( _ObjectGetProperty( highlight , "Pattern") , "Type", 256);
_ObjectSetProperty( highlight , "Bold", 0);
_ObjectSetProperty( schedule , "ShowViewCompact", -1);
_ObjectSetProperty( schedule , "BorderSelStyle", -1);
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(81) = 15790320");
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "9/22/1997 9:00:00 AM","9/22/1997 2:00:00 PM") , "Repetitive", "FREQ=MONTHLY;COUNT=6;BYDAY=-2MO");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
244
|
Recurrence: Every other month on the 1st and last Sunday of the month for 10 occurrences
OBJECT calendar,events,highlight,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "9/7/1997");
_ObjectSetProperty( calendar , "ShowNonMonthDays", 0);
_ObjectSetProperty( calendar , "MaxMonthY", 4);
_ObjectSetProperty( calendar , "FirstWeekDay", 1);
highlight = _ObjectGetProperty( calendar , "HighlightEvent");
_ObjectSetProperty( _ObjectGetProperty( highlight , "Pattern") , "Type", 256);
_ObjectSetProperty( highlight , "Bold", 0);
_ObjectSetProperty( schedule , "ShowViewCompact", -1);
_ObjectSetProperty( schedule , "BorderSelStyle", -1);
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(81) = 15790320");
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "9/7/1997 9:00:00 AM","9/7/1997 2:00:00 PM") , "Repetitive", "FREQ=MONTHLY;INTERVAL=2;COUNT=10;BYDAY=1SU,-1SU");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
243
|
Recurrence: Monthly on the 1st Friday until December 24, 1997
OBJECT calendar,events,highlight,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "9/5/1997");
_ObjectSetProperty( calendar , "ShowNonMonthDays", 0);
_ObjectSetProperty( calendar , "MaxMonthY", 4);
_ObjectSetProperty( calendar , "FirstWeekDay", 1);
highlight = _ObjectGetProperty( calendar , "HighlightEvent");
_ObjectSetProperty( _ObjectGetProperty( highlight , "Pattern") , "Type", 256);
_ObjectSetProperty( highlight , "Bold", 0);
_ObjectSetProperty( schedule , "ShowViewCompact", -1);
_ObjectSetProperty( schedule , "BorderSelStyle", -1);
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(81) = 15790320");
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "9/5/1997 9:00:00 AM","9/5/1997 2:00:00 PM") , "Repetitive", "FREQ=MONTHLY;UNTIL=19971224T000000Z;BYDAY=1FR");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
242
|
Recurrence: Monthly on the 1st Friday for ten occurrences
OBJECT calendar,events,highlight,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "9/5/1997");
_ObjectSetProperty( calendar , "ShowNonMonthDays", 0);
_ObjectSetProperty( calendar , "MaxMonthY", 4);
_ObjectSetProperty( calendar , "FirstWeekDay", 1);
highlight = _ObjectGetProperty( calendar , "HighlightEvent");
_ObjectSetProperty( _ObjectGetProperty( highlight , "Pattern") , "Type", 256);
_ObjectSetProperty( highlight , "Bold", 0);
_ObjectSetProperty( schedule , "ShowViewCompact", -1);
_ObjectSetProperty( schedule , "BorderSelStyle", -1);
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(81) = 15790320");
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "9/5/1997 9:00:00 AM","9/5/1997 2:00:00 PM") , "Repetitive", "FREQ=MONTHLY;COUNT=10;BYDAY=1FR");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
241
|
Recurrence: Every other week on Tuesday and Thursday, for 8 occurrences
OBJECT calendar,events,highlight,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "9/16/1997");
_ObjectSetProperty( calendar , "ShowNonMonthDays", 0);
_ObjectSetProperty( calendar , "MaxMonthY", 4);
_ObjectSetProperty( calendar , "FirstWeekDay", 0);
highlight = _ObjectGetProperty( calendar , "HighlightEvent");
_ObjectSetProperty( _ObjectGetProperty( highlight , "Pattern") , "Type", 256);
_ObjectSetProperty( highlight , "Bold", 0);
_ObjectSetProperty( schedule , "ShowViewCompact", -1);
_ObjectSetProperty( schedule , "BorderSelStyle", -1);
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(81) = 15790320");
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "9/2/1997 9:00:00 AM","9/2/1997 2:00:00 PM") , "Repetitive", "FREQ=WEEKLY;INTERVAL=2;COUNT=8;WKST=SU;BYDAY=TU,TH");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
240
|
Recurrence: Every other week on Monday, Wednesday and Friday until December 24, 1997, but starting on Tuesday, September 2, 1997
OBJECT calendar,events,highlight,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "9/17/1997");
_ObjectSetProperty( calendar , "ShowNonMonthDays", 0);
_ObjectSetProperty( calendar , "MaxMonthY", 4);
_ObjectSetProperty( calendar , "FirstWeekDay", 0);
highlight = _ObjectGetProperty( calendar , "HighlightEvent");
_ObjectSetProperty( _ObjectGetProperty( highlight , "Pattern") , "Type", 256);
_ObjectSetProperty( highlight , "Bold", 0);
_ObjectSetProperty( schedule , "ShowViewCompact", -1);
_ObjectSetProperty( schedule , "BorderSelStyle", -1);
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(81) = 15790320");
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "9/2/1997 9:00:00 AM","9/2/1997 2:00:00 PM") , "Repetitive", "FREQ=WEEKLY;INTERVAL=2;UNTIL=19971224T000000Z;WKST=SU;BYDAY=MO,WE,FR");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
239
|
Recurrence: Weekly on Tuesday and Thursday for 5 weeks
OBJECT calendar,events,highlight,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "9/16/1997");
_ObjectSetProperty( calendar , "ShowNonMonthDays", 0);
_ObjectSetProperty( calendar , "MaxMonthY", 4);
_ObjectSetProperty( calendar , "FirstWeekDay", 0);
highlight = _ObjectGetProperty( calendar , "HighlightEvent");
_ObjectSetProperty( _ObjectGetProperty( highlight , "Pattern") , "Type", 256);
_ObjectSetProperty( highlight , "Bold", 0);
_ObjectSetProperty( schedule , "ShowViewCompact", -1);
_ObjectSetProperty( schedule , "BorderSelStyle", -1);
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(81) = 15790320");
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "9/2/1997 9:00:00 AM","9/2/1997 2:00:00 PM") , "Repetitive", "FREQ=WEEKLY;UNTIL=19971007T000000Z;WKST=SU;BYDAY=TU,TH");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
238
|
Recurrence: Weekly on Tuesday and Thursday for 5 weeks
OBJECT calendar,events,highlight,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "9/16/1997");
_ObjectSetProperty( calendar , "ShowNonMonthDays", 0);
_ObjectSetProperty( calendar , "MaxMonthY", 4);
_ObjectSetProperty( calendar , "FirstWeekDay", 0);
highlight = _ObjectGetProperty( calendar , "HighlightEvent");
_ObjectSetProperty( _ObjectGetProperty( highlight , "Pattern") , "Type", 256);
_ObjectSetProperty( highlight , "Bold", 0);
_ObjectSetProperty( schedule , "ShowViewCompact", -1);
_ObjectSetProperty( schedule , "BorderSelStyle", -1);
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(81) = 15790320");
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "9/2/1997 9:00:00 AM","9/2/1997 2:00:00 PM") , "Repetitive", "FREQ=WEEKLY;COUNT=10;WKST=SU;BYDAY=TU,TH");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
237
|
Recurrence: Every other day - forever
OBJECT calendar,events,highlight,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "9/4/1997");
_ObjectSetProperty( calendar , "ShowNonMonthDays", 0);
_ObjectSetProperty( calendar , "MaxMonthY", 4);
_ObjectSetProperty( calendar , "FirstWeekDay", 1);
highlight = _ObjectGetProperty( calendar , "HighlightEvent");
_ObjectSetProperty( _ObjectGetProperty( highlight , "Pattern") , "Type", 256);
_ObjectSetProperty( highlight , "Bold", 0);
_ObjectSetProperty( schedule , "ShowViewCompact", -1);
_ObjectSetProperty( schedule , "BorderSelStyle", -1);
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(81) = 15790320");
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "9/2/1997 9:00:00 AM","9/2/1997 2:00:00 PM") , "Repetitive", "FREQ=DAILY;INTERVAL=2");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
236
|
Recurrence: Daily until December 24, 1997
OBJECT calendar,events,highlight,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "9/17/1997");
_ObjectSetProperty( calendar , "ShowNonMonthDays", 0);
_ObjectSetProperty( calendar , "MaxMonthY", 4);
_ObjectSetProperty( calendar , "FirstWeekDay", 1);
highlight = _ObjectGetProperty( calendar , "HighlightEvent");
_ObjectSetProperty( _ObjectGetProperty( highlight , "Pattern") , "Type", 256);
_ObjectSetProperty( highlight , "Bold", 0);
_ObjectSetProperty( schedule , "ShowViewCompact", -1);
_ObjectSetProperty( schedule , "BorderSelStyle", -1);
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(81) = 15790320");
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "9/2/1997 9:00:00 AM","9/2/1997 2:00:00 PM") , "Repetitive", "FREQ=DAILY;UNTIL=19971224T000000Z");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
235
|
Recurrence: Daily for 10 occurrences
OBJECT calendar,events,highlight,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "9/9/1997");
_ObjectSetProperty( calendar , "ShowNonMonthDays", 0);
_ObjectSetProperty( calendar , "MaxMonthY", 4);
highlight = _ObjectGetProperty( calendar , "HighlightEvent");
_ObjectSetProperty( _ObjectGetProperty( highlight , "Pattern") , "Type", 256);
_ObjectSetProperty( highlight , "Bold", 0);
_ObjectSetProperty( calendar , "FirstWeekDay", 1);
_ObjectSetProperty( schedule , "ShowViewCompact", -1);
_ObjectSetProperty( schedule , "BorderSelStyle", -1);
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(81) = 15790320");
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "9/2/1997 9:00:00 AM","9/2/1997 2:00:00 PM") , "Repetitive", "FREQ=DAILY;COUNT=10");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
234
|
How do I display the week number according, so the January 1st is in the first week
OBJECT calendar,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "1/1/2016");
_ObjectSetProperty( calendar , "FirstWeekDay", 0);
_ObjectSetProperty( calendar , "DisplayWeekNumberAs", 1);
_ObjectCallMethod( schedule , "EndUpdate");
|
|
233
|
How do I display the week number according to ISO8601 standard
OBJECT calendar,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "1/4/2016");
_ObjectSetProperty( calendar , "FirstWeekDay", 1);
_ObjectSetProperty( calendar , "DisplayWeekNumberAs", 0);
_ObjectCallMethod( schedule , "EndUpdate");
|
|
232
|
How do I hide the week number
OBJECT calendar,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "FirstWeekDay", 1);
_ObjectSetProperty( calendar , "ShowWeeks", 0);
_ObjectSetProperty( calendar , "ShowNonMonthDays", 0);
_ObjectCallMethod( schedule , "EndUpdate");
|
|
231
|
How can I change the background color of the all day header
OBJECT calendar,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( schedule , "OnResizeControl", 2048);
_ObjectSetProperty( schedule , "ShowAllDayHeader", -1);
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "FirstWeekDay", 1);
_ObjectCallMethod(schedule, "TemplatePut", "Dim calObj")
_ObjectCallMethod(schedule, "TemplatePut", calendar)
_ObjectCallMethod(schedule, "ExecuteTemplate", "calObj.SelectDate(#5/8/2012#) = True");
_ObjectCallMethod( calendar , "Select", 3);
_ObjectCallMethod(schedule, "ExecuteTemplate", "calObj.SelectDate(#5/15/2012#) = False");
_ObjectCallMethod( calendar , "Select", 19);
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(87) = 15790320");
_ObjectSetProperty( schedule , "HeaderAllDayEventHeight", -20);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( schedule , "Events") , "Add", "5/8/2012","5/17/2012") , "AllDayEvent", -1);
_ObjectCallMethod( schedule , "EndUpdate");
|
|
230
|
How can I display a single text on a specified date
OBJECT schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "5/26/2012");
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "value in (#05/23/2012#,#05/24/2012#,#05/25/2012#)");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( schedule , "NonworkingPatterns") , "Add", 1234,0) , "BackgroundExt", "[text=`<font ;6><fgcolor 808080>just a notice`,align=0x11]");
_ObjectCallMethod( _ObjectGetProperty( schedule , "NonworkingTimes") , "Add", "value = #05/25/2012#","09:00","10:00",1234);
_ObjectCallMethod( schedule , "EndUpdate");
|
|
229
|
I am using the control's DataSource property, the question is how can I get the event's identifier Datafield(exEventID)
OBJECT rs,schedule;
schedule = ObjectByName("AN1") ;
rs = CreateObject("ADOR.Recordset");
_ObjectCallMethod( rs , "Open", "Events","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExSchedule\Sample\Access\datasource.accdb",3,3);
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "11/11/2013");
_ObjectCallMethod(schedule, "ExecuteTemplate", "DataField(1) = `Start`");
_ObjectCallMethod(schedule, "ExecuteTemplate", "DataField(2) = `End`");
_ObjectCallMethod(schedule, "ExecuteTemplate", "DataField(11) = `Extra`");
_ObjectSetProperty( schedule , "DataSource", rs);
_ObjectCallMethod(schedule, "TemplatePut", "Dim _ObObj")
_ObjectCallMethod(schedule, "TemplatePut", _ObjectGetProperty( schedule , "Events"))
Message( _ObjectCallMethod(schedule, "ExecuteTemplate", "_ObObj.Item(1).KnownProperty(12)") );
_ObjectCallMethod( schedule , "EndUpdate");
|
|
228
|
Is it possible to display some text/image on the schedule's view background
OBJECT schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "5/25/2012");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( schedule , "NonworkingPatterns") , "Add", 1234,6) , "BackgroundExt", "[text=`<fgcolor 808080>just a caption`,align=0x11]");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( schedule , "NonworkingPatterns") , "Add", 1235,0) , "BackgroundExt", "[text=`<fgcolor 808080>just another caption`,align=0x11]");
_ObjectCallMethod( _ObjectGetProperty( schedule , "NonworkingTimes") , "Add", "weekday(value) = 5","08:00","08:59:59",1234);
_ObjectCallMethod( _ObjectGetProperty( schedule , "NonworkingTimes") , "Add", "weekday(value) = 5","09:00","09:59:59",1235);
_ObjectCallMethod( _ObjectGetProperty( schedule , "NonworkingTimes") , "Add", "weekday(value) = 5","10:00","10:59:59",1234);
_ObjectCallMethod( schedule , "EndUpdate");
|
|
227
|
How can I display a text on the schedule's view background
OBJECT schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "5/25/2012");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( schedule , "NonworkingPatterns") , "Add", 1234,0) , "BackgroundExt", "[text=`<fgcolor 808080>just a caption`,align=0x11]");
_ObjectCallMethod( _ObjectGetProperty( schedule , "NonworkingTimes") , "Add", "weekday(value) = 5","12:00","13:00",1234);
_ObjectCallMethod( schedule , "EndUpdate");
|
|
226
|
Is it possible to change the visual appearance of the edit's context menu
OBJECT schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( schedule , "VisualAppearance") , "Add", 1,"c:\exontrol\images\normal.ebn");
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(99) = 16777216");
|
|
225
|
How do I customize the edit's context menu
OBJECT schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "Images", "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
_ObjectSetProperty( schedule , "EditContextMenuItems", "Insert[group=3](<img>1</img>[id=57763],<img>2</img>[id=57763])");
|
|
224
|
How can I lock/fix the date header, so it stays on the top while the user scrolls the chart
// LayoutEndChanging event - Notifies your application once the control's layout has been changed.
FUNCTION scheduleEvents_LayoutEndChanging(OBJECT schedule, INT Operation)
Message( Operation );
_ObjectSetProperty( schedule , "DayViewHeight", 2016);
END
OBJECT calendar,schedule;
schedule = ObjectByName("AN1") ;
ObjectAssociateEvents("scheduleEvents", schedule);
_ObjectCallMethod( schedule , "BeginUpdate");
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectCallMethod(schedule, "TemplatePut", "Dim calObj")
_ObjectCallMethod(schedule, "TemplatePut", calendar)
_ObjectCallMethod(schedule, "ExecuteTemplate", "calObj.SelectDate(#5/20/2012#) = True");
_ObjectCallMethod( calendar , "Select", 3);
_ObjectSetProperty( schedule , "ScrollBars", 2);
_ObjectSetProperty( schedule , "ShowViewCompact", 3);
_ObjectSetProperty( schedule , "DayViewHeight", 2016);
_ObjectSetProperty( schedule , "AllowMoveSchedule", 0);
_ObjectSetProperty( schedule , "AllowResizeSchedule", 0);
_ObjectSetProperty( schedule , "AllowToggleSchedule", 0);
_ObjectSetProperty( schedule , "AllowExchangePanels", 0);
_ObjectSetProperty( schedule , "AllowMoveTimeScale", 0);
_ObjectSetProperty( schedule , "AllowResizeTimeScale", 0);
_ObjectSetProperty( schedule , "AllowMultiDaysEvent", 0);
_ObjectCallMethod(schedule, "ExecuteTemplate", "TimeScales.Item(0).MinorTimeRuler = `00:10`");
_ObjectSetProperty( schedule , "DayStartTime", "00:00");
_ObjectSetProperty( schedule , "DayEndTime", "24:00");
_ObjectSetProperty( schedule , "OnResizeControl", 3073);
_ObjectCallMethod( schedule , "EndUpdate");
|
|
223
|
Is there any way to control the vertical size of each hour other than by the font and/or the minor time scale being changed
OBJECT calendar,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectCallMethod(schedule, "TemplatePut", "Dim calObj")
_ObjectCallMethod(schedule, "TemplatePut", calendar)
_ObjectCallMethod(schedule, "ExecuteTemplate", "calObj.SelectDate(#5/20/2012#) = True");
_ObjectCallMethod( calendar , "Select", 3);
_ObjectSetProperty( schedule , "OnResizeControl", 768);
_ObjectSetProperty( schedule , "ScrollBars", 2);
_ObjectSetProperty( schedule , "ShowViewCompact", 1);
_ObjectSetProperty( schedule , "DayViewHeight", 2016);
_ObjectSetProperty( schedule , "AllowMoveSchedule", 0);
_ObjectSetProperty( schedule , "AllowResizeSchedule", 0);
_ObjectSetProperty( schedule , "AllowToggleSchedule", 0);
_ObjectSetProperty( schedule , "AllowExchangePanels", 0);
_ObjectSetProperty( schedule , "AllowMoveTimeScale", 0);
_ObjectSetProperty( schedule , "AllowResizeTimeScale", 0);
_ObjectSetProperty( schedule , "AllowMultiDaysEvent", 0);
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(36) = Background(37)");
_ObjectCallMethod(schedule, "ExecuteTemplate", "TimeScales.Item(0).MinorTimeRuler = `00:10`");
_ObjectSetProperty( schedule , "DayStartTime", "00:00");
_ObjectSetProperty( schedule , "DayEndTime", "24:00");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
222
|
How can I show a single week, no calendar
OBJECT calendar,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectCallMethod(schedule, "TemplatePut", "Dim calObj")
_ObjectCallMethod(schedule, "TemplatePut", calendar)
_ObjectCallMethod(schedule, "ExecuteTemplate", "calObj.SelectDate(#5/20/2012#) = True");
_ObjectCallMethod( calendar , "Select", 3);
_ObjectSetProperty( schedule , "OnResizeControl", 768);
_ObjectSetProperty( schedule , "ScrollBars", 0);
_ObjectSetProperty( schedule , "ShowViewCompact", 1);
_ObjectSetProperty( schedule , "AllowMoveSchedule", 0);
_ObjectSetProperty( schedule , "AllowResizeSchedule", 0);
_ObjectSetProperty( schedule , "AllowToggleSchedule", 0);
_ObjectSetProperty( schedule , "AllowExchangePanels", 0);
_ObjectSetProperty( schedule , "AllowMoveTimeScale", 0);
_ObjectSetProperty( schedule , "AllowResizeTimeScale", 0);
_ObjectSetProperty( schedule , "AllowMultiDaysEvent", 0);
_ObjectCallMethod(schedule, "ExecuteTemplate", "Background(36) = Background(37)");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
221
|
How do I select the dates within a giving interval only
OBJECT calendar,events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "5/1/2012");
_ObjectSetProperty( calendar , "Selection", "(value >= #5/13/2012#) and (value <= #5/26/2012#)");
events = _ObjectGetProperty( schedule , "Events");
_ObjectCallMethod( events , "Add", "5/24/2012 9:00:00 AM","5/24/2012 12:00:00 PM");
_ObjectCallMethod( events , "Add", "5/24/2012 10:45:00 AM","5/24/2012 12:45:00 PM");
_ObjectCallMethod( events , "Add", "5/24/2012 11:30:00 AM","5/24/2012 2:30:00 PM");
_ObjectCallMethod( events , "Add", "5/24/2012 12:45:00 PM","5/24/2012 3:45:00 PM");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
220
|
How do I display the dates within a giving interval only
OBJECT calendar,events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "Selection", "5/24/2012");
_ObjectSetProperty( calendar , "MinDate", "5/13/2012");
_ObjectSetProperty( calendar , "MaxDate", "5/26/2012");
events = _ObjectGetProperty( schedule , "Events");
_ObjectCallMethod( events , "Add", "5/24/2012 9:00:00 AM","5/24/2012 12:00:00 PM");
_ObjectCallMethod( events , "Add", "5/24/2012 10:45:00 AM","5/24/2012 12:45:00 PM");
_ObjectCallMethod( events , "Add", "5/24/2012 11:30:00 AM","5/24/2012 2:30:00 PM");
_ObjectCallMethod( events , "Add", "5/24/2012 12:45:00 PM","5/24/2012 3:45:00 PM");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
219
|
Is it possible that the time is displayed starting from 00:00 to 24:00 00 instead of 08:00 AM to 04:00 PM
OBJECT schedule,timescale;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( schedule , "DayStartTime", "00:00");
_ObjectSetProperty( schedule , "DayEndTime", "24:00");
timescale = _ObjectCallMethod(schedule, "ExecuteTemplate", "TimeScales.Item(0)");
_ObjectSetProperty( timescale , "MajorTimeLabel", "<%hh%>:<%nn%>");
_ObjectSetProperty( timescale , "Width", 32);
|
|
218
|
How do I show a double frame
OBJECT event,events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( schedule , "SelectEventStyle", 48);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "1/10/2001");
_ObjectSetProperty( schedule , "DefaultEventLongLabel", "");
_ObjectSetProperty( schedule , "DefaultEventShortLabel", "");
events = _ObjectGetProperty( schedule , "Events");
event = _ObjectCallMethod( events , "Add", "1/10/2001 8:00:00 AM","1/10/2001 10:00:00 AM");
_ObjectSetProperty( event , "BodyBackgroundExt", "top[25%,back=RGB(255,0,0),align=0x21,pattern=0x000,frame=RGB(0,0,0)],client[back=RGB(255,255,0),align=0x21,pattern=0x000,frame=" +
"RGB(0,0,0)]");
_ObjectCallMethod(schedule, "TemplatePut", "Dim eveObj")
_ObjectCallMethod(schedule, "TemplatePut", event)
_ObjectCallMethod(schedule, "ExecuteTemplate", "eveObj.BodyBackgroundExtValue(1,1) = 255");
_ObjectCallMethod(schedule, "ExecuteTemplate", "eveObj.BodyBackgroundExtValue(1,2) = `35%`");
event = _ObjectCallMethod( events , "Add", "1/10/2001 10:00:00 AM","1/10/2001 12:00:00 PM");
_ObjectSetProperty( event , "BodyBackgroundExt", "top[25%,back=RGB(255,0,0),align=0x22],client[back=RGB(255,255,0),align=0x22]");
_ObjectCallMethod(schedule, "ExecuteTemplate", "eveObj.BodyBackgroundExtValue(1,2) = `35%`");
_ObjectCallMethod(schedule, "ExecuteTemplate", "eveObj.BodyBackgroundExtValue(2,1) = 65535");
event = _ObjectCallMethod( events , "Add", "1/10/2001 12:00:00 PM","1/10/2001 2:00:00 PM");
_ObjectSetProperty( event , "ShowStatus", 0);
_ObjectSetProperty( event , "BodyBackgroundExt", "left[4,back=RGB(128,128,128)],top[25%,back=RGB(255,0,0)],client[back=RGB(255,255,0)],none[(0%,0%,100%,100%),pattern=0x000,frame" +
"=RGB(0,0,0)]");
event = _ObjectCallMethod( events , "Add", "1/10/2001 2:00:00 PM","1/10/2001 4:00:00 PM");
_ObjectSetProperty( event , "ShowStatus", 0);
_ObjectSetProperty( event , "BodyBackgroundExt", "left[4,back=RGB(128,128,128)],top[25%,back=RGB(255,0,0)],client[back=RGB(255,255,0)],none[(4,0%,100%-4,100%),pattern=0x000,fram" +
"e=RGB(0,0,0)]");
|
|
217
|
How can I add more colors on the event
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( schedule , "SelectEventStyle", 48);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "1/10/2001");
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "1/10/2001 9:00:00 AM","1/10/2001 12:30:00 PM") , "BodyBackgroundExt", "bottom[15%](left[65%,frame,back=RGB(128,255,255)],client[back=RGB(255,0,0),frame])");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "1/10/2001 10:00:00 AM","1/10/2001 1:00:00 PM") , "BodyBackgroundExt", "right[15%](bottom[35%,frame,back=RGB(128,255,255)],client[back=RGB(255,0,0),frame])");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "1/10/2001 11:00:00 AM","1/10/2001 2:00:00 PM") , "BodyBackgroundExt", "left[33%,back=RGB(0,128,0)](top[50%,back=RGB(0,255,0)]),left[33%](top[33%,back=RGB(0,255,255)],top[33%,back=RGB(0,0,128)],clien" +
"t[back=RGB(0,0,255)]),client(top[25%,back=RGB(240,240,240)],top[25%,back=RGB(192,192,192)],top[25%,back=RGB(128,128,128)],client" +
"[back=RGB(0,0,0)])");
|
|
216
|
When I have 3 month visible in the calendar section, it seems I can only move back and forth through the months 3 months at a time. Is it possible to move back and forth through the months 1 month at a time
OBJECT calendar,schedule;
schedule = ObjectByName("AN1") ;
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "AlignDate", 0);
_ObjectSetProperty( calendar , "MinMonthY", 2);
_ObjectSetProperty( calendar , "MaxMonthY", 2);
|
|
215
|
How can I bound the control to a data source
// Error event - Fired when an internal error occurs.
FUNCTION scheduleEvents_Error(OBJECT schedule, INT Error, STRING Description)
Message( Description );
END
OBJECT rs,schedule;
schedule = ObjectByName("AN1") ;
ObjectAssociateEvents("scheduleEvents", schedule);
rs = CreateObject("ADOR.Recordset");
_ObjectCallMethod( rs , "Open", "Events","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExSchedule\Sample\Access\datasource.accdb",3,3);
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "11/11/2013");
_ObjectCallMethod(schedule, "ExecuteTemplate", "DataField(1) = `Start`");
_ObjectCallMethod(schedule, "ExecuteTemplate", "DataField(2) = `End`");
_ObjectCallMethod(schedule, "ExecuteTemplate", "DataField(11) = `Extra`");
_ObjectSetProperty( schedule , "DataSource", rs);
_ObjectCallMethod( schedule , "EndUpdate");
|
|
214
|
How can I start drag and drop an event
// OLEStartDrag event - Occurs when the OLEDrag method is called.
FUNCTION scheduleEvents_OLEStartDrag(OBJECT schedule, OBJECT Data, INT AllowedEffects)
' Data.SetData( "your data to be dragged" )
AllowedEffects = 1;
END
OBJECT schedule;
schedule = ObjectByName("AN1") ;
ObjectAssociateEvents("scheduleEvents", schedule);
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( schedule , "OLEDropMode", 1);
_ObjectSetProperty( schedule , "SelectEventStyle", 48);
_ObjectSetProperty( schedule , "DefaultEventLongLabel", "<%=%256%><br><%=%5%>");
_ObjectSetProperty( schedule , "DefaultEventShortLabel", _ObjectGetProperty( schedule , "DefaultEventLongLabel"));
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "1/10/2001");
_ObjectSetProperty( schedule , "OnResizeControl", 3073);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( schedule , "Events") , "Add", "1/10/2001 9:00:00 AM","1/10/2001 12:30:00 PM") , "ExtraLabel", "Click the event and wait to start dragging.");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
213
|
I use the HighlightDate property to mark a date, instead the selection is not visible if I select the same date. What can be done
OBJECT schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( schedule , "ShowHighlightDate", 4353);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "1/1/2001");
_ObjectCallMethod(schedule, "ExecuteTemplate", "HighlightDate(#1/9/2001#) = 65280");
_ObjectCallMethod(schedule, "ExecuteTemplate", "HighlightDate(#1/17/2001#) = `65280,255`");
_ObjectCallMethod(schedule, "ExecuteTemplate", "HighlightDate(#1/25/2001#) = `255,65280,16711680`");
|
|
212
|
How can I arrange the colors to highlight the date vertically
OBJECT schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( schedule , "ShowHighlightDate", 49);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "1/1/2001");
_ObjectCallMethod(schedule, "ExecuteTemplate", "HighlightDate(#1/9/2001#) = 65280");
_ObjectCallMethod(schedule, "ExecuteTemplate", "HighlightDate(#1/17/2001#) = `65280,255`");
_ObjectCallMethod(schedule, "ExecuteTemplate", "HighlightDate(#1/25/2001#) = `255,65280,16711680`");
|
|
211
|
Is it possible to highlight a date in gradient
OBJECT schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( schedule , "ShowHighlightDate", 257);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "1/1/2001");
_ObjectCallMethod(schedule, "ExecuteTemplate", "HighlightDate(#1/9/2001#) = 65280");
_ObjectCallMethod(schedule, "ExecuteTemplate", "HighlightDate(#1/17/2001#) = `65280,255`");
_ObjectCallMethod(schedule, "ExecuteTemplate", "HighlightDate(#1/25/2001#) = `255,65280,16711680`");
|
|
210
|
Is it possible to highlight a date in the calendar panel only
OBJECT schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( schedule , "ShowHighlightDate", 1);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "1/1/2001");
_ObjectCallMethod(schedule, "ExecuteTemplate", "HighlightDate(#1/9/2001#) = 65280");
_ObjectCallMethod(schedule, "ExecuteTemplate", "HighlightDate(#1/17/2001#) = `65280,255`");
_ObjectCallMethod(schedule, "ExecuteTemplate", "HighlightDate(#1/25/2001#) = `255,65280,16711680`");
|
|
209
|
Is it possible to highlight a date in the control
OBJECT schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( schedule , "ShowHighlightDate", 3);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "1/25/2001");
_ObjectCallMethod(schedule, "ExecuteTemplate", "HighlightDate(#1/9/2001#) = 65280");
_ObjectCallMethod(schedule, "ExecuteTemplate", "HighlightDate(#1/17/2001#) = `65280,255`");
_ObjectCallMethod(schedule, "ExecuteTemplate", "HighlightDate(#1/25/2001#) = `255,65280,16711680`");
|
|
208
|
How we need to put "nonworking time" to each group, because staff A is working different times then staff B. Is this possible
OBJECT nonworkingtimes,schedule;
schedule = ObjectByName("AN1") ;
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( schedule , "BodyEventBackColor", 15790320);
_ObjectSetProperty( schedule , "ShowGroupingEvents", -1);
_ObjectSetProperty( schedule , "DisplayGroupingButton", -1);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( schedule , "Groups") , "Add", 1,"Group 1") , "Visible", -1);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( schedule , "Groups") , "Add", 2,"Group 2") , "Visible", -1);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "5/25/2012");
_ObjectCallMethod( _ObjectGetProperty( schedule , "NonworkingPatterns") , "Add", 1234,11);
nonworkingtimes = _ObjectGetProperty( schedule , "NonworkingTimes");
_ObjectCallMethod( nonworkingtimes , "Add", "1","00:00","08:45",1234);
_ObjectSetProperty( _ObjectCallMethod( nonworkingtimes , "Add", "weekday(value) = 5","10:00","11:45",1) , "GroupID", 1);
_ObjectSetProperty( _ObjectCallMethod( nonworkingtimes , "Add", "weekday(value) = 5","12:00","13:00",1234) , "GroupID", 2);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( schedule , "Events") , "Add", "5/25/2012 9:30:00 AM","5/25/2012 1:00:00 PM") , "GroupID", 1);
_ObjectCallMethod( schedule , "EndUpdate");
|
|
207
|
I have a double click event set to launch a window so the user can supply input. The problem is that double click changes the view. How do I change this behavior
// DblClick event - Occurs when the user dblclk the left mouse button over an object.
FUNCTION scheduleEvents_DblClick(OBJECT schedule, INT Shift, INT X, INT Y)
Message( "DblClick " );
Message( X );
Message( Y );
END
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
ObjectAssociateEvents("scheduleEvents", schedule);
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "5/24/2012");
events = _ObjectGetProperty( schedule , "Events");
_ObjectCallMethod( events , "Add", "5/24/2012 10:00:00 AM","5/24/2012 12:00:00 PM");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "5/24/2012 10:45:00 AM","5/24/2012 12:30:00 PM") , "StatusColor", 255);
_ObjectCallMethod( events , "Add", "5/24/2012 11:30:00 AM","5/24/2012 1:30:00 PM");
_ObjectSetProperty( schedule , "AllowEditEvent", 0);
_ObjectSetProperty( schedule , "AllowToggleSchedule", 0);
_ObjectCallMethod( schedule , "EndUpdate");
|
|
206
|
I have two-time scales. How do I change the label while updating the events to show the date-time on the second time-scale
OBJECT events,schedule,timescale;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( schedule , "DayEndTime", "13:00");
timescale = _ObjectCallMethod( _ObjectGetProperty( schedule , "TimeScales") , "Add", "+3:00");
_ObjectSetProperty( timescale , "AlignLeft", -1);
_ObjectSetProperty( timescale , "Caption", "EST <b>+03");
_ObjectCallMethod( schedule , "BeginUpdate");
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "5/24/2012");
_ObjectSetProperty( schedule , "UpdateEventsLabel", "Start: <%=date(%1+3/24)%><br>End: <%=date(%2+3/24)%>");
events = _ObjectGetProperty( schedule , "Events");
_ObjectCallMethod( events , "Add", "5/24/2012 10:00:00 AM","5/24/2012 12:00:00 PM");
_ObjectCallMethod( events , "Add", "5/24/2012 10:45:00 AM","5/24/2012 12:30:00 PM");
_ObjectCallMethod( events , "Add", "5/24/2012 11:30:00 AM","5/24/2012 1:30:00 PM");
_ObjectCallMethod( schedule , "EndUpdate");
|
|
205
|
Is there a way to add a hyperlink to the event that would run a report with parameters
// AnchorClick event - Occurs when an anchor element is clicked.
FUNCTION scheduleEvents_AnchorClick(OBJECT schedule, STRING AnchorID, STRING Options)
Message( AnchorID );
Message( Options );
END
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
ObjectAssociateEvents("scheduleEvents", schedule);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "6/20/2012");
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "6/20/2012 9:00:00 AM","6/20/2012 11:00:00 AM") , "LongLabel", "<%=%256%><br><a 1234;option 1>more ...</a>");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "6/20/2012 11:00:00 AM","6/20/2012 1:00:00 PM") , "LongLabel", "<%=%256%><br><a 1235;option 2>more ...</a>");
|
|
204
|
Can I have multiple months in the calendar section
OBJECT calendar,schedule;
schedule = ObjectByName("AN1") ;
calendar = _ObjectGetProperty( schedule , "Calendar");
_ObjectSetProperty( calendar , "MinMonthY", 2);
_ObjectSetProperty( calendar , "MaxMonthY", 2);
|
|
203
|
I need to make sure that at least the order number stays visible when the event is resized. Is there a way during event modification (another event be added at the same time that makes the event size shrink) to adjust the caption location
OBJECT event,events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "6/20/2012");
events = _ObjectGetProperty( schedule , "Events");
event = _ObjectCallMethod( events , "Add", "6/20/2012 9:00:00 AM","6/20/2012 11:00:00 AM");
_ObjectSetProperty( event , "UserData", 1234);
_ObjectSetProperty( event , "ShortLabel", "<%=%256%><br>Order: <%=%6%>");
_ObjectSetProperty( event , "LongLabel", _ObjectGetProperty( event , "ShortLabel"));
event = _ObjectCallMethod( events , "Add", "6/20/2012 11:00:00 AM","6/20/2012 1:00:00 PM");
_ObjectSetProperty( event , "UserData", 1235);
_ObjectSetProperty( event , "ShortLabel", "<%=%256%>, Order: <%=%6%>");
_ObjectSetProperty( event , "LongLabel", _ObjectGetProperty( event , "ShortLabel"));
|
|
202
|
I need to make sure that at least the order number stays visible when the event is resized. Is there a way during event modification (another event be added at the same time that makes the event size shrink) to adjust the caption location
OBJECT events,schedule;
schedule = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "6/20/2012");
_ObjectSetProperty( schedule , "DefaultEventShortLabel", "<%=%256%><br>Order: <b><%=%6%>");
_ObjectSetProperty( schedule , "DefaultEventLongLabel", _ObjectGetProperty( schedule , "DefaultEventShortLabel"));
events = _ObjectGetProperty( schedule , "Events");
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "6/20/2012 9:00:00 AM","6/20/2012 11:00:00 AM") , "UserData", 1234);
_ObjectSetProperty( _ObjectCallMethod( events , "Add", "6/20/2012 11:00:00 AM","6/20/2012 1:00:00 PM") , "UserData", 1235);
|
|
201
|
Can you add text with links in the event
// AnchorClick event - Occurs when an anchor element is clicked.
FUNCTION scheduleEvents_AnchorClick(OBJECT schedule, STRING AnchorID, STRING Options)
Message( AnchorID );
Message( Options );
END
OBJECT event,events,schedule;
schedule = ObjectByName("AN1") ;
ObjectAssociateEvents("scheduleEvents", schedule);
_ObjectSetProperty( _ObjectGetProperty( schedule , "Calendar") , "Selection", "6/20/2012");
events = _ObjectGetProperty( schedule , "Events");
event = _ObjectCallMethod( events , "Add", "6/20/2012 9:00:00 AM","6/20/2012 11:00:00 AM");
_ObjectSetProperty( event , "ShortLabel", "<a 1><%=%256%></a>");
_ObjectSetProperty( event , "LongLabel", _ObjectGetProperty( event , "ShortLabel"));
event = _ObjectCallMethod( events , "Add", "6/20/2012 11:00:00 AM","6/20/2012 1:00:00 PM");
_ObjectSetProperty( event , "ShortLabel", "<a 2><%=%256%></a>");
_ObjectSetProperty( event , "LongLabel", _ObjectGetProperty( event , "ShortLabel"));
|