|
2381
|
I am using EBN for my milestone bars, but they appear very small on high DPI resolutions
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABM8GACAADACAxRDAMgBQKAAzQFAYahqGKGAAGOD4JhUAIIRZGMIjFDcEwxC6EX7kIAJCb+IIDATCIyjAIoWhxFKGZYlYAoJDENo0QRCcZTRI8NQGCyEQwnOQZDiWFofR6CEIlAZJRjoOo5DJGGL0WAaAxCEzVMYjNBIUQTICBaCgOCLCgkYJWT5aMi2XZlWzdNhTVIfC4XYq+dp3UZJF4XXZtaTpPjALxwG5rerJGTkP7hb74LauBzdAbHLaxTCsKwzEZtZBjWR4RimOY9RLEMqxbKcDxvIKnZzpehYHomCTlOjUdhzfYtKy+cp7azbejbJrmZ5DWzGbr3HC+Az3KK+cbyOo6XgVYaLZDjOh5DhkgwAY7mgdg5F2Hg2DIB5Xm0eA6F4HJ/HeLZPnGeg8F2TgHHuT5qm2fA8B4W5vjuY5vmSdQkle7p/m+dx+FwN5RHMYYfGeRZ5GYH42joAw+B+ZxmAcWwgBWYZ9gOHAGEYERdmEN5KBUaJghYXZEgKXI4G4Hh1GINIVl+A5akgdglgmIgoi0a4FmIOIiCMQJOjQRQJEAQCAgA==" to Nothing
Get ComAdd of hoAppearance 2 "CP:1 0 -1D 11D 1D" to Nothing
Get ComAdd of hoAppearance 3 "gBFLBCJwBAEHhEJAAEhABIICg6AADACAxRDAMgBQKAAzQFAYahqGKGAAGOD4JhUAIIRZGMIjFDcEwxC6EX7kIAJCb+IIDATCIyjAIoWhxFKGZYlYAoJDENo0QRCcZTRI8NQGCyEQ4nOQZDiWFofR6CEIlAZJRjoOo5DJGGL1GAeAxCEzVMYjNBIUQTICBaCgOCAYhYcJWT5aMi2XZlWzaaBnWauC4rRrObp3XhbMB3TbkSznP66bhvXA7MrvBJ+YDdGJLMwTC4YYrAGawe6MGxPEaRY7jeQ5Ha+KzxS7EWDXBTdCS1DBeD7pY76LouN45Ty7dAxLTNDyrKq0KzrWR7A7+ZTnXBFTDJXgSNThGx+cYfXCcJrGdYpEi2N6uHgHAuCZJmScp4FyXBNnYB5SGcdSTiaGoMm+ZA7jsFpph8Shnk+Z5shMex4iuUADj+YZiHuPI+k8Z5km+cB8hcZgVlAWpfHeDZlHmX43ioCR6mCJ4pn0fANFMEI3gQSx3lEbYBESV52AuBpgleNgHHkYQIEoFB9CESBRnCBohlgcgMgqYooD2VRwiIWBJAODBLHiHgfHoIoYmYLIOh+SJeCGBJjCAAY2GoHR3B4KoRmOSQmCuERHmkDA/ECZJpDISIOmUSROAuEwkmiTgigSHwCkiIgjiWYg6FaEogjMUIyCaZhiG4P4FCWKQCDWC5ElmBhhhiZRYmoaYaGaOQFG2DQfAmXhnDsTAyiqhwoBoDoGiAZ5piocINCEZYyHyHAohoHoEiSaQqCYeYFGAJZ2g8eIEloJJ3DKSxqHyNoliiORuhgXhbkmbomh8Zh5iaIooioShygwXwqhWcobHWHB3GKJYbhmRIaAMYZrHcChMiWa5alWE4NCSapOj0WpsGsAomjIahrC6GY0heAxYlwNwtGMcpUHObY1l6WY2G2VY5AMOpRBQJQBICA=" to Nothing
Get ComAdd of hoAppearance 4 "CP:3 0 -1D 11D 1D" to Nothing
Send Destroy to hoAppearance
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 128
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComCopy of hoBars "Milestone" "Milestonee3" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComColor of hoBar to |CI$2000000
Set ComHeight of hoBar to 22
Send Destroy to hoBar
Send Destroy to hoBars
Variant voBars1
Get ComBars of hoChart to voBars1
Handle hoBars1
Get Create (RefClass(cComBars)) to hoBars1
Set pvComObject of hoBars1 to voBars1
Variant voBar1
Get ComCopy of hoBars1 "Milestone" "Milestonee4" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComColor of hoBar1 to |CI$4000000
Set ComHeight of hoBar1 to 22
Send Destroy to hoBar1
Send Destroy to hoBars1
Send Destroy to hoChart
Set ComDefaultItemHeight to 28
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Milestone")) "Milestone" "1/2/2001" "1/2/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"milestonee3.ebn")) "Milestonee3" "1/2/2001" "1/2/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"milestonee4.ebn")) "Milestonee4" "1/2/2001" "1/2/2001" Nothing Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
2380
|
How can I vertically scroll the control
// Occurs after a new Item has been inserted to Items collection.
Procedure OnComAddItem HITEM llItem
Forward Send OnComAddItem llItem
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems llItem "Task" (ComCellValue(hoItems,llItem,2)) (ComCellValue(hoItems,llItem,4)) Nothing Nothing
Send Destroy to hoItems
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComColumnAutoResize to False
Variant v
Handle hoPrivDBEngine
Get Create (RefClass(cComPrivDBEngine)) to hoPrivDBEngine // Import the 'Microsoft Office 15.0 Access database engine Object Library' library
Variant voDatabase
Get ComOpenDatabase of hoPrivDBEngine "C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb" Nothing Nothing Nothing to voDatabase
Handle hoDatabase
Get Create (RefClass(cComDatabase)) to hoDatabase
Set pvComObject of hoDatabase to voDatabase
Get ComOpenRecordset of hoDatabase "Orders" Nothing Nothing Nothing to v
Send Destroy to hoDatabase
Send Destroy to hoPrivDBEngine
Set ComDataSource to v
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "8/4/1994"
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 256
Send Destroy to hoChart
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComAllowCellValueToItemBar of hoItems1 to True
Send Destroy to hoItems1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComItem of hoColumns 2 to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComItem of hoColumns1 4 to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 2
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Set ComLayout to "Collapse="";VScroll=10"
Send ComEndUpdate
End_Procedure
|
|
2379
|
Export the items as a two-dimensional array
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderAppearance to OLEEtched
Set ComScrollBySingleLine to True
Set ComLinesAtRoot to OLEexGroupLinesOutside
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Desc" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 32
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "Amount" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexTotalColumn to "sum(current,rec,%1)"
Set ComFormatColumn of hoColumn1 to "currency(value)"
Send Destroy to hoColumn1
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComLockedItemCount of hoItems OLEexTop to 1
Variant h
Get ComLockedItem of hoItems OLEexTop 0 to h
Set ComCellValue of hoItems h 0 to "All"
Set ComCellValue of hoItems h 1 to "sum(all,rec,%1)"
Set ComCellValueFormat of hoItems h 1 to OLEexTotalField
Variant r
Get ComAddItem of hoItems "Root 1" to r
Variant g1
Get ComInsertItem of hoItems r "Group A" to g1
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 1")) 1 to 1
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 2")) 1 to 2
Set ComCellState of hoItems (ComItemByIndex(hoItems,3)) 0 to 1
Variant g2
Get ComInsertItem of hoItems r "Group B" to g2
Set ComCellValue of hoItems (ComInsertItem(hoItems,g2,"Item 3")) 1 to 3
Set ComCellValue of hoItems (ComInsertItem(hoItems,g2,"Item 4")) 1 to 4
Set ComExpandItem of hoItems g1 to True
Set ComExpandItem of hoItems r to True
Get ComAddItem of hoItems "divider" to h
Set ComItemDivider of hoItems h to 0
Set ComSelectableItem of hoItems h to False
Set ComSortableItem of hoItems h to False
Set ComItemHeight of hoItems h to 1
Get ComAddItem of hoItems "Root 2" to r
Get ComInsertItem of hoItems r "Group C" to g1
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 5")) 1 to 5
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 6")) 1 to 6
Set ComSelectItem of hoItems (ComItemByIndex(hoItems,2)) to True
Send Destroy to hoItems
Send ComPutItems (ComExport(Self,"array","all")) Nothing
Send ComEndUpdate
End_Procedure
|
|
2378
|
Export only expanded items
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderAppearance to OLEEtched
Set ComScrollBySingleLine to True
Set ComLinesAtRoot to OLEexGroupLinesOutside
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Desc" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 32
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "Amount" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexTotalColumn to "sum(current,rec,%1)"
Set ComFormatColumn of hoColumn1 to "currency(value)"
Send Destroy to hoColumn1
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComLockedItemCount of hoItems OLEexTop to 1
Variant h
Get ComLockedItem of hoItems OLEexTop 0 to h
Set ComCellValue of hoItems h 0 to "All"
Set ComCellValue of hoItems h 1 to "sum(all,rec,%1)"
Set ComCellValueFormat of hoItems h 1 to OLEexTotalField
Variant r
Get ComAddItem of hoItems "Root 1" to r
Variant g1
Get ComInsertItem of hoItems r "Group A" to g1
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 1")) 1 to 1
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 2")) 1 to 2
Set ComCellState of hoItems (ComItemByIndex(hoItems,3)) 0 to 1
Variant g2
Get ComInsertItem of hoItems r "Group B" to g2
Set ComCellValue of hoItems (ComInsertItem(hoItems,g2,"Item 3")) 1 to 3
Set ComCellValue of hoItems (ComInsertItem(hoItems,g2,"Item 4")) 1 to 4
Set ComExpandItem of hoItems g1 to True
Set ComExpandItem of hoItems r to True
Get ComAddItem of hoItems "divider" to h
Set ComItemDivider of hoItems h to 0
Set ComSelectableItem of hoItems h to False
Set ComSortableItem of hoItems h to False
Set ComItemHeight of hoItems h to 1
Get ComAddItem of hoItems "Root 2" to r
Get ComInsertItem of hoItems r "Group C" to g1
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 5")) 1 to 5
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 6")) 1 to 6
Set ComSelectItem of hoItems (ComItemByIndex(hoItems,2)) to True
Send Destroy to hoItems
Send ComEndUpdate
Showln (ComExport(Self,"","only(expanded)"))
End_Procedure
|
|
2377
|
Export only selectable, sortable leaf items that are neither locked nor dividers
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderAppearance to OLEEtched
Set ComScrollBySingleLine to True
Set ComLinesAtRoot to OLEexGroupLinesOutside
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Desc" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 32
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "Amount" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexTotalColumn to "sum(current,rec,%1)"
Set ComFormatColumn of hoColumn1 to "currency(value)"
Send Destroy to hoColumn1
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComLockedItemCount of hoItems OLEexTop to 1
Variant h
Get ComLockedItem of hoItems OLEexTop 0 to h
Set ComCellValue of hoItems h 0 to "All"
Set ComCellValue of hoItems h 1 to "sum(all,rec,%1)"
Set ComCellValueFormat of hoItems h 1 to OLEexTotalField
Variant r
Get ComAddItem of hoItems "Root 1" to r
Variant g1
Get ComInsertItem of hoItems r "Group A" to g1
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 1")) 1 to 1
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 2")) 1 to 2
Set ComCellState of hoItems (ComItemByIndex(hoItems,3)) 0 to 1
Variant g2
Get ComInsertItem of hoItems r "Group B" to g2
Set ComCellValue of hoItems (ComInsertItem(hoItems,g2,"Item 3")) 1 to 3
Set ComCellValue of hoItems (ComInsertItem(hoItems,g2,"Item 4")) 1 to 4
Set ComExpandItem of hoItems g1 to True
Set ComExpandItem of hoItems r to True
Get ComAddItem of hoItems "divider" to h
Set ComItemDivider of hoItems h to 0
Set ComSelectableItem of hoItems h to False
Set ComSortableItem of hoItems h to False
Set ComItemHeight of hoItems h to 1
Get ComAddItem of hoItems "Root 2" to r
Get ComInsertItem of hoItems r "Group C" to g1
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 5")) 1 to 5
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 6")) 1 to 6
Set ComSelectItem of hoItems (ComItemByIndex(hoItems,2)) to True
Send Destroy to hoItems
Send ComEndUpdate
Showln (ComExport(Self,"","only(leaf,sortable,selectable,!divider,!locked)"))
End_Procedure
|
|
2376
|
Export only non-divider items
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderAppearance to OLEEtched
Set ComScrollBySingleLine to True
Set ComLinesAtRoot to OLEexGroupLinesOutside
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Desc" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 32
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "Amount" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexTotalColumn to "sum(current,rec,%1)"
Set ComFormatColumn of hoColumn1 to "currency(value)"
Send Destroy to hoColumn1
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComLockedItemCount of hoItems OLEexTop to 1
Variant h
Get ComLockedItem of hoItems OLEexTop 0 to h
Set ComCellValue of hoItems h 0 to "All"
Set ComCellValue of hoItems h 1 to "sum(all,rec,%1)"
Set ComCellValueFormat of hoItems h 1 to OLEexTotalField
Variant r
Get ComAddItem of hoItems "Root 1" to r
Variant g1
Get ComInsertItem of hoItems r "Group A" to g1
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 1")) 1 to 1
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 2")) 1 to 2
Set ComCellState of hoItems (ComItemByIndex(hoItems,3)) 0 to 1
Variant g2
Get ComInsertItem of hoItems r "Group B" to g2
Set ComCellValue of hoItems (ComInsertItem(hoItems,g2,"Item 3")) 1 to 3
Set ComCellValue of hoItems (ComInsertItem(hoItems,g2,"Item 4")) 1 to 4
Set ComExpandItem of hoItems g1 to True
Set ComExpandItem of hoItems r to True
Get ComAddItem of hoItems "divider" to h
Set ComItemDivider of hoItems h to 0
Set ComSelectableItem of hoItems h to False
Set ComSortableItem of hoItems h to False
Set ComItemHeight of hoItems h to 1
Get ComAddItem of hoItems "Root 2" to r
Get ComInsertItem of hoItems r "Group C" to g1
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 5")) 1 to 5
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 6")) 1 to 6
Set ComSelectItem of hoItems (ComItemByIndex(hoItems,2)) to True
Send Destroy to hoItems
Send ComEndUpdate
Showln (ComExport(Self,"","only(!divider)"))
End_Procedure
|
|
2375
|
Export only selectable items
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderAppearance to OLEEtched
Set ComScrollBySingleLine to True
Set ComLinesAtRoot to OLEexGroupLinesOutside
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Desc" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 32
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "Amount" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexTotalColumn to "sum(current,rec,%1)"
Set ComFormatColumn of hoColumn1 to "currency(value)"
Send Destroy to hoColumn1
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComLockedItemCount of hoItems OLEexTop to 1
Variant h
Get ComLockedItem of hoItems OLEexTop 0 to h
Set ComCellValue of hoItems h 0 to "All"
Set ComCellValue of hoItems h 1 to "sum(all,rec,%1)"
Set ComCellValueFormat of hoItems h 1 to OLEexTotalField
Variant r
Get ComAddItem of hoItems "Root 1" to r
Variant g1
Get ComInsertItem of hoItems r "Group A" to g1
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 1")) 1 to 1
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 2")) 1 to 2
Set ComCellState of hoItems (ComItemByIndex(hoItems,3)) 0 to 1
Variant g2
Get ComInsertItem of hoItems r "Group B" to g2
Set ComCellValue of hoItems (ComInsertItem(hoItems,g2,"Item 3")) 1 to 3
Set ComCellValue of hoItems (ComInsertItem(hoItems,g2,"Item 4")) 1 to 4
Set ComExpandItem of hoItems g1 to True
Set ComExpandItem of hoItems r to True
Get ComAddItem of hoItems "divider" to h
Set ComItemDivider of hoItems h to 0
Set ComSelectableItem of hoItems h to False
Set ComSortableItem of hoItems h to False
Set ComItemHeight of hoItems h to 1
Get ComAddItem of hoItems "Root 2" to r
Get ComInsertItem of hoItems r "Group C" to g1
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 5")) 1 to 5
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 6")) 1 to 6
Set ComSelectItem of hoItems (ComItemByIndex(hoItems,2)) to True
Send Destroy to hoItems
Send ComEndUpdate
Showln (ComExport(Self,"","only(selectable)"))
End_Procedure
|
|
2374
|
Export only sortable, but not locked items
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderAppearance to OLEEtched
Set ComScrollBySingleLine to True
Set ComLinesAtRoot to OLEexGroupLinesOutside
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Desc" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 32
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "Amount" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexTotalColumn to "sum(current,rec,%1)"
Set ComFormatColumn of hoColumn1 to "currency(value)"
Send Destroy to hoColumn1
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComLockedItemCount of hoItems OLEexTop to 1
Variant h
Get ComLockedItem of hoItems OLEexTop 0 to h
Set ComCellValue of hoItems h 0 to "All"
Set ComCellValue of hoItems h 1 to "sum(all,rec,%1)"
Set ComCellValueFormat of hoItems h 1 to OLEexTotalField
Variant r
Get ComAddItem of hoItems "Root 1" to r
Variant g1
Get ComInsertItem of hoItems r "Group A" to g1
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 1")) 1 to 1
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 2")) 1 to 2
Set ComCellState of hoItems (ComItemByIndex(hoItems,3)) 0 to 1
Variant g2
Get ComInsertItem of hoItems r "Group B" to g2
Set ComCellValue of hoItems (ComInsertItem(hoItems,g2,"Item 3")) 1 to 3
Set ComCellValue of hoItems (ComInsertItem(hoItems,g2,"Item 4")) 1 to 4
Set ComExpandItem of hoItems g1 to True
Set ComExpandItem of hoItems r to True
Get ComAddItem of hoItems "divider" to h
Set ComItemDivider of hoItems h to 0
Set ComSelectableItem of hoItems h to False
Set ComSortableItem of hoItems h to False
Set ComItemHeight of hoItems h to 1
Get ComAddItem of hoItems "Root 2" to r
Get ComInsertItem of hoItems r "Group C" to g1
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 5")) 1 to 5
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 6")) 1 to 6
Set ComSelectItem of hoItems (ComItemByIndex(hoItems,2)) to True
Send Destroy to hoItems
Send ComEndUpdate
Showln (ComExport(Self,"","only(sortable,!locked)"))
End_Procedure
|
|
2373
|
Export only checked items on specified column
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderAppearance to OLEEtched
Set ComScrollBySingleLine to True
Set ComLinesAtRoot to OLEexGroupLinesOutside
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Desc" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 32
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "Amount" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexTotalColumn to "sum(current,rec,%1)"
Set ComFormatColumn of hoColumn1 to "currency(value)"
Send Destroy to hoColumn1
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComLockedItemCount of hoItems OLEexTop to 1
Variant h
Get ComLockedItem of hoItems OLEexTop 0 to h
Set ComCellValue of hoItems h 0 to "All"
Set ComCellValue of hoItems h 1 to "sum(all,rec,%1)"
Set ComCellValueFormat of hoItems h 1 to OLEexTotalField
Variant r
Get ComAddItem of hoItems "Root 1" to r
Variant g1
Get ComInsertItem of hoItems r "Group A" to g1
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 1")) 1 to 1
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 2")) 1 to 2
Set ComCellState of hoItems (ComItemByIndex(hoItems,3)) 0 to 1
Variant g2
Get ComInsertItem of hoItems r "Group B" to g2
Set ComCellValue of hoItems (ComInsertItem(hoItems,g2,"Item 3")) 1 to 3
Set ComCellValue of hoItems (ComInsertItem(hoItems,g2,"Item 4")) 1 to 4
Set ComExpandItem of hoItems g1 to True
Set ComExpandItem of hoItems r to True
Get ComAddItem of hoItems "divider" to h
Set ComItemDivider of hoItems h to 0
Set ComSelectableItem of hoItems h to False
Set ComSortableItem of hoItems h to False
Set ComItemHeight of hoItems h to 1
Get ComAddItem of hoItems "Root 2" to r
Get ComInsertItem of hoItems r "Group C" to g1
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 5")) 1 to 5
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 6")) 1 to 6
Set ComSelectItem of hoItems (ComItemByIndex(hoItems,2)) to True
Send Destroy to hoItems
Send ComEndUpdate
Showln (ComExport(Self,"","only(checked[0])"))
End_Procedure
|
|
2372
|
Export only filtered, not locked or divider items
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderAppearance to OLEEtched
Set ComScrollBySingleLine to True
Set ComLinesAtRoot to OLEexGroupLinesOutside
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Desc" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 32
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "Amount" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexTotalColumn to "sum(current,rec,%1)"
Set ComFormatColumn of hoColumn1 to "currency(value)"
Send Destroy to hoColumn1
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComLockedItemCount of hoItems OLEexTop to 1
Variant h
Get ComLockedItem of hoItems OLEexTop 0 to h
Set ComCellValue of hoItems h 0 to "All"
Set ComCellValue of hoItems h 1 to "sum(all,rec,%1)"
Set ComCellValueFormat of hoItems h 1 to OLEexTotalField
Variant r
Get ComAddItem of hoItems "Root 1" to r
Variant g1
Get ComInsertItem of hoItems r "Group A" to g1
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 1")) 1 to 1
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 2")) 1 to 2
Set ComCellState of hoItems (ComItemByIndex(hoItems,3)) 0 to 1
Variant g2
Get ComInsertItem of hoItems r "Group B" to g2
Set ComCellValue of hoItems (ComInsertItem(hoItems,g2,"Item 3")) 1 to 3
Set ComCellValue of hoItems (ComInsertItem(hoItems,g2,"Item 4")) 1 to 4
Set ComExpandItem of hoItems g1 to True
Set ComExpandItem of hoItems r to True
Get ComAddItem of hoItems "divider" to h
Set ComItemDivider of hoItems h to 0
Set ComSelectableItem of hoItems h to False
Set ComSortableItem of hoItems h to False
Set ComItemHeight of hoItems h to 1
Get ComAddItem of hoItems "Root 2" to r
Get ComInsertItem of hoItems r "Group C" to g1
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 5")) 1 to 5
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 6")) 1 to 6
Set ComSelectItem of hoItems (ComItemByIndex(hoItems,2)) to True
Send Destroy to hoItems
Send ComEndUpdate
Showln (ComExport(Self,"","only(visible,!locked,!divider)"))
End_Procedure
|
|
2371
|
Export only selected items
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderAppearance to OLEEtched
Set ComScrollBySingleLine to True
Set ComLinesAtRoot to OLEexGroupLinesOutside
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Desc" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 32
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "Amount" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexTotalColumn to "sum(current,rec,%1)"
Set ComFormatColumn of hoColumn1 to "currency(value)"
Send Destroy to hoColumn1
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComLockedItemCount of hoItems OLEexTop to 1
Variant h
Get ComLockedItem of hoItems OLEexTop 0 to h
Set ComCellValue of hoItems h 0 to "All"
Set ComCellValue of hoItems h 1 to "sum(all,rec,%1)"
Set ComCellValueFormat of hoItems h 1 to OLEexTotalField
Variant r
Get ComAddItem of hoItems "Root 1" to r
Variant g1
Get ComInsertItem of hoItems r "Group A" to g1
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 1")) 1 to 1
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 2")) 1 to 2
Set ComCellState of hoItems (ComItemByIndex(hoItems,3)) 0 to 1
Variant g2
Get ComInsertItem of hoItems r "Group B" to g2
Set ComCellValue of hoItems (ComInsertItem(hoItems,g2,"Item 3")) 1 to 3
Set ComCellValue of hoItems (ComInsertItem(hoItems,g2,"Item 4")) 1 to 4
Set ComExpandItem of hoItems g1 to True
Set ComExpandItem of hoItems r to True
Get ComAddItem of hoItems "divider" to h
Set ComItemDivider of hoItems h to 0
Set ComSelectableItem of hoItems h to False
Set ComSortableItem of hoItems h to False
Set ComItemHeight of hoItems h to 1
Get ComAddItem of hoItems "Root 2" to r
Get ComInsertItem of hoItems r "Group C" to g1
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 5")) 1 to 5
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 6")) 1 to 6
Set ComSelectItem of hoItems (ComItemByIndex(hoItems,2)) to True
Send Destroy to hoItems
Send ComEndUpdate
Showln (ComExport(Self,"","only(selected)"))
End_Procedure
|
|
2370
|
Export only locked items
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderAppearance to OLEEtched
Set ComScrollBySingleLine to True
Set ComLinesAtRoot to OLEexGroupLinesOutside
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Desc" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 32
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "Amount" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexTotalColumn to "sum(current,rec,%1)"
Set ComFormatColumn of hoColumn1 to "currency(value)"
Send Destroy to hoColumn1
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComLockedItemCount of hoItems OLEexTop to 1
Variant h
Get ComLockedItem of hoItems OLEexTop 0 to h
Set ComCellValue of hoItems h 0 to "All"
Set ComCellValue of hoItems h 1 to "sum(all,rec,%1)"
Set ComCellValueFormat of hoItems h 1 to OLEexTotalField
Variant r
Get ComAddItem of hoItems "Root 1" to r
Variant g1
Get ComInsertItem of hoItems r "Group A" to g1
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 1")) 1 to 1
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 2")) 1 to 2
Set ComCellState of hoItems (ComItemByIndex(hoItems,3)) 0 to 1
Variant g2
Get ComInsertItem of hoItems r "Group B" to g2
Set ComCellValue of hoItems (ComInsertItem(hoItems,g2,"Item 3")) 1 to 3
Set ComCellValue of hoItems (ComInsertItem(hoItems,g2,"Item 4")) 1 to 4
Set ComExpandItem of hoItems g1 to True
Set ComExpandItem of hoItems r to True
Get ComAddItem of hoItems "divider" to h
Set ComItemDivider of hoItems h to 0
Set ComSelectableItem of hoItems h to False
Set ComSortableItem of hoItems h to False
Set ComItemHeight of hoItems h to 1
Get ComAddItem of hoItems "Root 2" to r
Get ComInsertItem of hoItems r "Group C" to g1
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 5")) 1 to 5
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 6")) 1 to 6
Set ComSelectItem of hoItems (ComItemByIndex(hoItems,2)) to True
Send Destroy to hoItems
Send ComEndUpdate
Showln (ComExport(Self,"","only(locked)"))
End_Procedure
|
|
2369
|
Export the leaf items of the control, excluding parent or grouped items
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderAppearance to OLEEtched
Set ComScrollBySingleLine to True
Set ComLinesAtRoot to OLEexGroupLinesOutside
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Desc" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 32
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "Amount" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexTotalColumn to "sum(current,rec,%1)"
Set ComFormatColumn of hoColumn1 to "currency(value)"
Send Destroy to hoColumn1
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComLockedItemCount of hoItems OLEexTop to 1
Variant h
Get ComLockedItem of hoItems OLEexTop 0 to h
Set ComCellValue of hoItems h 0 to "All"
Set ComCellValue of hoItems h 1 to "sum(all,rec,%1)"
Set ComCellValueFormat of hoItems h 1 to OLEexTotalField
Variant r
Get ComAddItem of hoItems "Root 1" to r
Variant g1
Get ComInsertItem of hoItems r "Group A" to g1
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 1")) 1 to 1
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 2")) 1 to 2
Set ComCellState of hoItems (ComItemByIndex(hoItems,3)) 0 to 1
Variant g2
Get ComInsertItem of hoItems r "Group B" to g2
Set ComCellValue of hoItems (ComInsertItem(hoItems,g2,"Item 3")) 1 to 3
Set ComCellValue of hoItems (ComInsertItem(hoItems,g2,"Item 4")) 1 to 4
Set ComExpandItem of hoItems g1 to True
Set ComExpandItem of hoItems r to True
Get ComAddItem of hoItems "divider" to h
Set ComItemDivider of hoItems h to 0
Set ComSelectableItem of hoItems h to False
Set ComSortableItem of hoItems h to False
Set ComItemHeight of hoItems h to 1
Get ComAddItem of hoItems "Root 2" to r
Get ComInsertItem of hoItems r "Group C" to g1
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 5")) 1 to 5
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 6")) 1 to 6
Set ComSelectItem of hoItems (ComItemByIndex(hoItems,2)) to True
Send Destroy to hoItems
Send ComEndUpdate
Showln (ComExport(Self,"","leaf"))
End_Procedure
|
|
2368
|
Export all checked and visible items (the first column in the columns list specifies the index of the column used to query the checkbox state)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderAppearance to OLEEtched
Set ComScrollBySingleLine to True
Set ComLinesAtRoot to OLEexGroupLinesOutside
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Desc" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 32
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "Amount" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexTotalColumn to "sum(current,rec,%1)"
Set ComFormatColumn of hoColumn1 to "currency(value)"
Send Destroy to hoColumn1
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComLockedItemCount of hoItems OLEexTop to 1
Variant h
Get ComLockedItem of hoItems OLEexTop 0 to h
Set ComCellValue of hoItems h 0 to "All"
Set ComCellValue of hoItems h 1 to "sum(all,rec,%1)"
Set ComCellValueFormat of hoItems h 1 to OLEexTotalField
Variant r
Get ComAddItem of hoItems "Root 1" to r
Variant g1
Get ComInsertItem of hoItems r "Group A" to g1
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 1")) 1 to 1
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 2")) 1 to 2
Set ComCellState of hoItems (ComItemByIndex(hoItems,3)) 0 to 1
Variant g2
Get ComInsertItem of hoItems r "Group B" to g2
Set ComCellValue of hoItems (ComInsertItem(hoItems,g2,"Item 3")) 1 to 3
Set ComCellValue of hoItems (ComInsertItem(hoItems,g2,"Item 4")) 1 to 4
Set ComExpandItem of hoItems g1 to True
Set ComExpandItem of hoItems r to True
Get ComAddItem of hoItems "divider" to h
Set ComItemDivider of hoItems h to 0
Set ComSelectableItem of hoItems h to False
Set ComSortableItem of hoItems h to False
Set ComItemHeight of hoItems h to 1
Get ComAddItem of hoItems "Root 2" to r
Get ComInsertItem of hoItems r "Group C" to g1
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 5")) 1 to 5
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 6")) 1 to 6
Set ComSelectItem of hoItems (ComItemByIndex(hoItems,2)) to True
Send Destroy to hoItems
Send ComEndUpdate
Showln (ComExport(Self,"","chk"))
End_Procedure
|
|
2367
|
Export the selected-items
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderAppearance to OLEEtched
Set ComScrollBySingleLine to True
Set ComLinesAtRoot to OLEexGroupLinesOutside
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Desc" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 32
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "Amount" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexTotalColumn to "sum(current,rec,%1)"
Set ComFormatColumn of hoColumn1 to "currency(value)"
Send Destroy to hoColumn1
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComLockedItemCount of hoItems OLEexTop to 1
Variant h
Get ComLockedItem of hoItems OLEexTop 0 to h
Set ComCellValue of hoItems h 0 to "All"
Set ComCellValue of hoItems h 1 to "sum(all,rec,%1)"
Set ComCellValueFormat of hoItems h 1 to OLEexTotalField
Variant r
Get ComAddItem of hoItems "Root 1" to r
Variant g1
Get ComInsertItem of hoItems r "Group A" to g1
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 1")) 1 to 1
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 2")) 1 to 2
Set ComCellState of hoItems (ComItemByIndex(hoItems,3)) 0 to 1
Variant g2
Get ComInsertItem of hoItems r "Group B" to g2
Set ComCellValue of hoItems (ComInsertItem(hoItems,g2,"Item 3")) 1 to 3
Set ComCellValue of hoItems (ComInsertItem(hoItems,g2,"Item 4")) 1 to 4
Set ComExpandItem of hoItems g1 to True
Set ComExpandItem of hoItems r to True
Get ComAddItem of hoItems "divider" to h
Set ComItemDivider of hoItems h to 0
Set ComSelectableItem of hoItems h to False
Set ComSortableItem of hoItems h to False
Set ComItemHeight of hoItems h to 1
Get ComAddItem of hoItems "Root 2" to r
Get ComInsertItem of hoItems r "Group C" to g1
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 5")) 1 to 5
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 6")) 1 to 6
Set ComSelectItem of hoItems (ComItemByIndex(hoItems,2)) to True
Send Destroy to hoItems
Send ComEndUpdate
Showln (ComExport(Self,"","sel"))
End_Procedure
|
|
2366
|
Export the visible items, excluding child items of collapsed elements, non-visible items (such as those with a height of 0), and items that do not match the current filter
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderAppearance to OLEEtched
Set ComScrollBySingleLine to True
Set ComLinesAtRoot to OLEexGroupLinesOutside
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Desc" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 32
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "Amount" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexTotalColumn to "sum(current,rec,%1)"
Set ComFormatColumn of hoColumn1 to "currency(value)"
Send Destroy to hoColumn1
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComLockedItemCount of hoItems OLEexTop to 1
Variant h
Get ComLockedItem of hoItems OLEexTop 0 to h
Set ComCellValue of hoItems h 0 to "All"
Set ComCellValue of hoItems h 1 to "sum(all,rec,%1)"
Set ComCellValueFormat of hoItems h 1 to OLEexTotalField
Variant r
Get ComAddItem of hoItems "Root 1" to r
Variant g1
Get ComInsertItem of hoItems r "Group A" to g1
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 1")) 1 to 1
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 2")) 1 to 2
Set ComCellState of hoItems (ComItemByIndex(hoItems,3)) 0 to 1
Variant g2
Get ComInsertItem of hoItems r "Group B" to g2
Set ComCellValue of hoItems (ComInsertItem(hoItems,g2,"Item 3")) 1 to 3
Set ComCellValue of hoItems (ComInsertItem(hoItems,g2,"Item 4")) 1 to 4
Set ComExpandItem of hoItems g1 to True
Set ComExpandItem of hoItems r to True
Get ComAddItem of hoItems "divider" to h
Set ComItemDivider of hoItems h to 0
Set ComSelectableItem of hoItems h to False
Set ComSortableItem of hoItems h to False
Set ComItemHeight of hoItems h to 1
Get ComAddItem of hoItems "Root 2" to r
Get ComInsertItem of hoItems r "Group C" to g1
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 5")) 1 to 5
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 6")) 1 to 6
Set ComSelectItem of hoItems (ComItemByIndex(hoItems,2)) to True
Send Destroy to hoItems
Send ComEndUpdate
Showln (ComExport(Self,"","vis"))
End_Procedure
|
|
2365
|
Export all items, including the hidden or collapsed items
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderAppearance to OLEEtched
Set ComScrollBySingleLine to True
Set ComLinesAtRoot to OLEexGroupLinesOutside
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Desc" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 32
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "Amount" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexTotalColumn to "sum(current,rec,%1)"
Set ComFormatColumn of hoColumn1 to "currency(value)"
Send Destroy to hoColumn1
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComLockedItemCount of hoItems OLEexTop to 1
Variant h
Get ComLockedItem of hoItems OLEexTop 0 to h
Set ComCellValue of hoItems h 0 to "All"
Set ComCellValue of hoItems h 1 to "sum(all,rec,%1)"
Set ComCellValueFormat of hoItems h 1 to OLEexTotalField
Variant r
Get ComAddItem of hoItems "Root 1" to r
Variant g1
Get ComInsertItem of hoItems r "Group A" to g1
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 1")) 1 to 1
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 2")) 1 to 2
Set ComCellState of hoItems (ComItemByIndex(hoItems,3)) 0 to 1
Variant g2
Get ComInsertItem of hoItems r "Group B" to g2
Set ComCellValue of hoItems (ComInsertItem(hoItems,g2,"Item 3")) 1 to 3
Set ComCellValue of hoItems (ComInsertItem(hoItems,g2,"Item 4")) 1 to 4
Set ComExpandItem of hoItems g1 to True
Set ComExpandItem of hoItems r to True
Get ComAddItem of hoItems "divider" to h
Set ComItemDivider of hoItems h to 0
Set ComSelectableItem of hoItems h to False
Set ComSortableItem of hoItems h to False
Set ComItemHeight of hoItems h to 1
Get ComAddItem of hoItems "Root 2" to r
Get ComInsertItem of hoItems r "Group C" to g1
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 5")) 1 to 5
Set ComCellValue of hoItems (ComInsertItem(hoItems,g1,"Item 6")) 1 to 6
Set ComSelectItem of hoItems (ComItemByIndex(hoItems,2)) to True
Send Destroy to hoItems
Send ComEndUpdate
Showln (ComExport(Self,"","all"))
End_Procedure
|
|
2364
|
Bolds only the expanded items
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderAppearance to OLEEtched
Set ComHeaderHeight to 24
Set ComLinesAtRoot to OLEexLinesAtRoot
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Variant voConditionalFormat
Get ComAdd of hoConditionalFormats "%CX0" Nothing to voConditionalFormat
Handle hoConditionalFormat
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
Set pvComObject of hoConditionalFormat to voConditionalFormat
Set ComBold of hoConditionalFormat to True
Send Destroy to hoConditionalFormat
Send Destroy to hoConditionalFormats
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Description" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems (ComInsertItem(hoItems,h,"Child 2")) "Sub-Child 2" to Nothing
Set ComCellState of hoItems (ComInsertItem(hoItems,h,"Child 3")) 0 to 1
Set ComExpandItem of hoItems h to True
Get ComAddItem of hoItems "Root 2" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Get ComInsertItem of hoItems h "Child 3" to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
2363
|
Displays the root item's index and value/caption using expressions
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderAppearance to OLEEtched
Set ComHeaderHeight to 24
Set ComLinesAtRoot to OLEexLinesAtRoot
Set ComAutoDrag to OLEexAutoDragPositionAny
Set ComAllowCopyPaste to (OLEexAllowPaste + OLEexAllowCut + OLEexAllowCopy)
Set ComSingleSel to False
Set ComDrawGridLines to OLEexRowLines
Set ComGridLineStyle to OLEexGridLinesSolid
Set ComGridLineColor to (RGB(208,208,208))
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Variant voConditionalFormat
Get ComAdd of hoConditionalFormats "%CC0 and %CX0" Nothing to voConditionalFormat
Handle hoConditionalFormat
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
Set pvComObject of hoConditionalFormat to voConditionalFormat
Set ComBold of hoConditionalFormat to True
Send Destroy to hoConditionalFormat
Send Destroy to hoConditionalFormats
Variant voConditionalFormats1
Get ComConditionalFormats to voConditionalFormats1
Handle hoConditionalFormats1
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats1
Set pvComObject of hoConditionalFormats1 to voConditionalFormats1
Variant voConditionalFormat1
Get ComAdd of hoConditionalFormats1 "1" Nothing to voConditionalFormat1
Handle hoConditionalFormat1
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat1
Set pvComObject of hoConditionalFormat1 to voConditionalFormat1
Set ComBold of hoConditionalFormat1 to True
Set ComApplyTo of hoConditionalFormat1 to |CI$2
Send Destroy to hoConditionalFormat1
Send Destroy to hoConditionalFormats1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Description" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Set ComPartialCheck of hoColumn to True
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "Index" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComFormatColumn of hoColumn1 to "1 index ``"
Set ComPosition of hoColumn1 to 0
Set ComWidth of hoColumn1 to 16
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn2
Get ComAdd of hoColumns2 "Root-Index" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComFormatColumn of hoColumn2 to "root(1 index ``)"
Set ComPosition of hoColumn2 to 1
Set ComWidth of hoColumn2 to 32
Set ComDef of hoColumn2 OLEexCellBackColor to 15790320
Send Destroy to hoColumn2
Send Destroy to hoColumns2
Variant voColumns3
Get ComColumns to voColumns3
Handle hoColumns3
Get Create (RefClass(cComColumns)) to hoColumns3
Set pvComObject of hoColumns3 to voColumns3
Variant voColumn3
Get ComAdd of hoColumns3 "Root-Value" to voColumn3
Handle hoColumn3
Get Create (RefClass(cComColumn)) to hoColumn3
Set pvComObject of hoColumn3 to voColumn3
Set ComFormatColumn of hoColumn3 to "root(%0)"
Set ComPosition of hoColumn3 to 2
Set ComWidth of hoColumn3 to 32
Set ComDef of hoColumn3 OLEexCellBackColor to 15790320
Send Destroy to hoColumn3
Send Destroy to hoColumns3
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems (ComInsertItem(hoItems,h,"Child 2")) "Sub-Child 2" to Nothing
Set ComCellState of hoItems (ComInsertItem(hoItems,h,"Child 3")) 0 to 1
Set ComExpandItem of hoItems h to True
Get ComAddItem of hoItems "Root 2" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Get ComInsertItem of hoItems h "Child 3" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
2362
|
Displays the parent item's index and caption/value using expressions
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderAppearance to OLEEtched
Set ComHeaderHeight to 24
Set ComLinesAtRoot to OLEexLinesAtRoot
Set ComAutoDrag to OLEexAutoDragPositionAny
Set ComAllowCopyPaste to (OLEexAllowPaste + OLEexAllowCut + OLEexAllowCopy)
Set ComSingleSel to False
Set ComDrawGridLines to OLEexRowLines
Set ComGridLineStyle to OLEexGridLinesSolid
Set ComGridLineColor to (RGB(208,208,208))
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Variant voConditionalFormat
Get ComAdd of hoConditionalFormats "%CC0 and %CX0" Nothing to voConditionalFormat
Handle hoConditionalFormat
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
Set pvComObject of hoConditionalFormat to voConditionalFormat
Set ComBold of hoConditionalFormat to True
Send Destroy to hoConditionalFormat
Send Destroy to hoConditionalFormats
Variant voConditionalFormats1
Get ComConditionalFormats to voConditionalFormats1
Handle hoConditionalFormats1
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats1
Set pvComObject of hoConditionalFormats1 to voConditionalFormats1
Variant voConditionalFormat1
Get ComAdd of hoConditionalFormats1 "1" Nothing to voConditionalFormat1
Handle hoConditionalFormat1
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat1
Set pvComObject of hoConditionalFormat1 to voConditionalFormat1
Set ComBold of hoConditionalFormat1 to True
Set ComApplyTo of hoConditionalFormat1 to |CI$2
Send Destroy to hoConditionalFormat1
Send Destroy to hoConditionalFormats1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Description" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Set ComPartialCheck of hoColumn to True
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "Index" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComFormatColumn of hoColumn1 to "1 index `I`"
Set ComPosition of hoColumn1 to 0
Set ComWidth of hoColumn1 to 16
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn2
Get ComAdd of hoColumns2 "Parent-Index" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComFormatColumn of hoColumn2 to "parent(1 index `I`)"
Set ComPosition of hoColumn2 to 1
Set ComWidth of hoColumn2 to 32
Set ComDef of hoColumn2 OLEexCellBackColor to 15790320
Send Destroy to hoColumn2
Send Destroy to hoColumns2
Variant voColumns3
Get ComColumns to voColumns3
Handle hoColumns3
Get Create (RefClass(cComColumns)) to hoColumns3
Set pvComObject of hoColumns3 to voColumns3
Variant voColumn3
Get ComAdd of hoColumns3 "Parent-Value" to voColumn3
Handle hoColumn3
Get Create (RefClass(cComColumn)) to hoColumn3
Set pvComObject of hoColumn3 to voColumn3
Set ComFormatColumn of hoColumn3 to "parent(%0)"
Set ComPosition of hoColumn3 to 2
Set ComWidth of hoColumn3 to 32
Set ComDef of hoColumn3 OLEexCellBackColor to 15790320
Send Destroy to hoColumn3
Send Destroy to hoColumns3
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems (ComInsertItem(hoItems,h,"Child 2")) "Sub-Child 2" to Nothing
Set ComCellState of hoItems (ComInsertItem(hoItems,h,"Child 3")) 0 to 1
Set ComExpandItem of hoItems h to True
Get ComAddItem of hoItems "Root 2" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Get ComInsertItem of hoItems h "Child 3" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
2361
|
Copying and Pasting the Selection Programmatically
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Set ComLinesAtRoot to OLEexLinesAtRoot
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Set ComFirstVisibleDate of hoChart to "1/1/2025"
Set ComPaneWidth of hoChart False to 128
Variant v
Get ComSelBackColor to v
Set ComSelBackColor of hoChart to v
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComOverlaidType of hoBar to OLEexOverlaidBarsCascade
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Set ComSingleSel to False
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Tasks" to Nothing
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2025" "1/8/2025" "T1" Nothing
Send ComAddBar of hoItems h "Task" "1/7/2025" "1/13/2025" "T2" Nothing
Set ComSelectItem of hoItems h to True
Get ComAddItem of hoItems "Task 2" to h
Send ComAddBar of hoItems h "Task" "1/2/2025" "1/8/2025" "T1" Nothing
Send ComAddBar of hoItems h "Task" "1/7/2025" "1/13/2025" "T2" Nothing
Set ComSelectItem of hoItems h to True
Send Destroy to hoItems
Send ComIndentSelection False
Send ComCopySelection
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Send ComUnselectAll of hoItems1
Send Destroy to hoItems1
Send ComPaste Nothing
Send ComEndUpdate
End_Procedure
|
|
2360
|
Enable Copy, Cut and Paste Clipboard operations
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Set ComLinesAtRoot to OLEexLinesAtRoot
Set ComAllowCopyPaste to (OLEexAllowPaste + OLEexAllowCut + OLEexAllowCopy)
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Variant voConditionalFormat
Get ComAdd of hoConditionalFormats "%CC0 and %CX0" Nothing to voConditionalFormat
Handle hoConditionalFormat
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
Set pvComObject of hoConditionalFormat to voConditionalFormat
Set ComBold of hoConditionalFormat to True
Send Destroy to hoConditionalFormat
Send Destroy to hoConditionalFormats
Variant voConditionalFormats1
Get ComConditionalFormats to voConditionalFormats1
Handle hoConditionalFormats1
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats1
Set pvComObject of hoConditionalFormats1 to voConditionalFormats1
Get ComAdd of hoConditionalFormats1 "1" Nothing to Nothing
Send Destroy to hoConditionalFormats1
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Set ComFirstVisibleDate of hoChart to "1/1/2025"
Set ComPaneWidth of hoChart False to 128
Variant v
Get ComSelBackColor to v
Set ComSelBackColor of hoChart to v
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComOverlaidType of hoBar to OLEexOverlaidBarsCascade
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Set ComSingleSel to False
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Tasks" to Nothing
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2025" "1/8/2025" "T1" Nothing
Send ComAddBar of hoItems h "Task" "1/7/2025" "1/13/2025" "T2" Nothing
Set ComSelectItem of hoItems h to True
Get ComAddItem of hoItems "Task 2" to h
Send ComAddBar of hoItems h "Task" "1/2/2025" "1/8/2025" "T1" Nothing
Send ComAddBar of hoItems h "Task" "1/7/2025" "1/13/2025" "T2" Nothing
Set ComSelectItem of hoItems h to True
Send Destroy to hoItems
Send ComIndentSelection False
Send ComEndUpdate
End_Procedure
|
|
2359
|
Adjusts the hierarchy of selected items by changing their parent
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Set ComLinesAtRoot to OLEexLinesAtRoot
Set ComSingleSel to False
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Tasks" to Nothing
Set ComSelectItem of hoItems (ComAddItem(hoItems,"Task A")) to True
Set ComSelectItem of hoItems (ComAddItem(hoItems,"Task B")) to True
Send Destroy to hoItems
Send ComIndentSelection False
Send ComEndUpdate
End_Procedure
|
|
2358
|
How can I change the visual appearance for selected bars (EBN, frame, dash, enlarged)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 2 "gBFLBCJwBAEHhEJAAEhABMcGACAADACAxRDAMgBQKAAzQFAYahqGKGAAGOD4JhUAIIRZGMIjFDcEwxC6NIpAWCYRDEMw4AJCI4DRCIZBuGyPRhASQZUhmHIDTbIEBxfIMIxLE6YaBjObIaoSGYfUhCMowG79GgBJp/YqncaKCgSHwyUrNEbgRDQEw9L6BaxqCj6OhWLQ1CTZdowSKoYTXBq3IhkGiYZpyO5gABYVLWHY0ExNFCVJYjOT5RiONaHABOM43JKkfT9IC/KpxGhoWxSdo6ABXVz2DBNRz5EjHaoyHQ5Ypmc4JZbleZZTbFdSjT6BbS2KzLRzSb5aXhqMI6XD+XTJKK+YIkeqZLjGJaEYblGKZPruOz3MrQOCwCAfBafZHBsaYojqmovhkSpnGuegbBiXYjGccJblsdpxFqTgyjeW5Nl4fAbnyLpmBIUA0hiToHFOmBjFcRgECENQHEYQxkCQKBumCBZcBgRYPkYIQaGwERoEEFRsBUCBWBaBZhCafgYgaYYYHIHh4iGeIGBWBJiCgYgPgkYR4h4KIIl8JIGBkUwUmOLRyECUAQIC" to Nothing
Get ComAdd of hoAppearance 1 "CP:2 -2 -2 2 2" to Nothing
Send Destroy to hoAppearance
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Set ComFirstVisibleDate of hoChart to "1/1/2002"
Set ComSelBarColor of hoChart to |CI$1000000
Set ComPaneWidth of hoChart False to 48
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems Nothing to Nothing
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2002" "1/4/2002" "A" Nothing
Send ComAddBar of hoItems h "Task" "1/6/2002" "1/10/2002" "B" Nothing
Send ComAddBar of hoItems h "Task" "1/11/2002" "1/14/2002" "C" Nothing
Set ComItemBar of hoItems h "A" OLEexBarSelected to True
Set ComItemBar of hoItems h "B" OLEexBarSelected to True
Get ComAddItem of hoItems Nothing to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
2357
|
Specify the size of the Columns panel
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderHeight to 24
Set ComHeaderAppearance to OLEEtched
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "City" to Nothing
Variant voColumn
Get ComAdd of hoColumns "Start" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComVisible of hoColumn to False
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "End" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComVisible of hoColumn1 to False
Send Destroy to hoColumn1
Send Destroy to hoColumns
Set ComColumnsFloatBarRect to ",,96"
Set ComColumnsFloatBarVisible to (OLEexColumnsFloatBarVisibleAsChild + OLEexColumnsFloatBarVisibleIncludeCheckColumns)
Send ComEndUpdate
End_Procedure
|
|
2356
|
Show a vertical line between pivot and Columns panel (EBN color)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABRsIQAAYAQGKIYBkAKBQAGaAoDDUNQxQwAAxwfBMKgBBCLIxhEYobgmGIXRpFICQTIcBhaGIZRiAKCRTDmHwyRCNIwCLD8QxtDqBY4gOZZXhal4cJTgMaBYi+Pw3DZHcbvBRkewzHQAKgnSjoDhEMg1CTVVYTDKdOSzDyEX7sIAACpOIZQVJVEY1VT8cyxIyEZimSypWqiYJ0Ty6cQwTAIgI" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexColumnsFloatBackColor to |CI$1000000
Set ComHeaderHeight to 24
Set ComHeaderAppearance to OLEEtched
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "City" to Nothing
Variant voColumn
Get ComAdd of hoColumns "Start" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComVisible of hoColumn to False
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "End" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComVisible of hoColumn1 to False
Send Destroy to hoColumn1
Send Destroy to hoColumns
Set ComColumnsFloatBarVisible to (OLEexColumnsFloatBarVisibleAsChild + OLEexColumnsFloatBarVisibleIncludeCheckColumns)
Send ComEndUpdate
End_Procedure
|
|
2355
|
Change the background of the Columns panel (EBN color)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABNoCg6AADACAxRDAMgBQKAAzQFAYahqGKGAAGOD4JhUAIIRZGMIjFDcEwxC6NIpAWLoJDCH4mSTHYxgJIMWwzDiBZgkCA4fiGEYnThCIxzTJ0aw1CKbYRAKCUKoUAJFsSnQAJIgOO4lULPMIhDDQKQTIKBahoehqIhaEQyDSJNb2DCIahhMSEbKtCooDhGFZUWzLVxTJJNawHJqJJDuOTpSjKH4+RjWFKUXR9b4BJSNAgqeCQTiSWZEVxRUS0XbGCyZLSQY7uAAMKgOVoDYzdGLwHTtOwrMa1QAsDSbKqWZ5uRpHcQ5aAGN5DPbMbqwOaqLznAaLQLtG4RTikVRPTDYaj437+OaHGyNbI6HTNPpTlWDJWjYXI8l8C4fg6GYAAEEISgGJJGHQOocgyIwYnqKhYAAIQTH2MYRjQJBRAmZptmEAYIjGU5dk8UgOFgBJUgCTQIBYBoBmCCAmAqApghgDJUDmYQFCCZoEk2OBUm+BZPCgZgagaYZIHYHoHmGWBcm8NwiEiFJVgmYgji4Kg6GKSI2C6C5jAiRgygwIojiycINkyeJmAYPJjkiTg+g+ZAIkCdIQkyWQWDuDxkBkJhKguZAzlIRQzGQc5ODWFJlEkVhWhWZYJFYTYTmUE4yF6F5mAmBhihiZhJhYX4WmQaAUnWGpOlmNhuhuZwJkYcocmcSY4naHZlkmKhrDuJ5JnYfofmgCgGgKIJnlmXJ2h4TQKBosRokoNoOiOaQKDSd4kmiChMncPBpgoZoaiaaZKHaHonmmE5iiKJRpDicomimaoKiaKoqmqSoeiIPgogqPotiyaxKlYPA+GuCqbBMa5KnaPovmwCwGj6LgP24RIhiyCwmkqMpsksNpKD6LQLBqOIzi0SxWlaHZtAOahPssM5Wi+IYtlsXpijKbZ5lyTo5mAE4UlqOpjHOQpEjubyanKPJvEuNgVj2TY1CCao+k2G52AyP5wAwBp9DYZZ1CCaxsAABAEICA" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexColumnsFloatBackColor to |CI$1000000
Set ComHeaderHeight to 24
Set ComHeaderAppearance to OLEEtched
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "City" to Nothing
Variant voColumn
Get ComAdd of hoColumns "Start" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComVisible of hoColumn to False
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "End" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComVisible of hoColumn1 to False
Send Destroy to hoColumn1
Send Destroy to hoColumns
Set ComColumnsFloatBarVisible to (OLEexColumnsFloatBarVisibleAsChild + OLEexColumnsFloatBarVisibleIncludeCheckColumns)
Send ComEndUpdate
End_Procedure
|
|
2354
|
Change the background of the Columns panel (solid color)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderHeight to 24
Set ComHeaderAppearance to OLEEtched
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "City" to Nothing
Variant voColumn
Get ComAdd of hoColumns "Start" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComVisible of hoColumn to False
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "End" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComVisible of hoColumn1 to False
Send Destroy to hoColumn1
Send Destroy to hoColumns
Set ComColumnsFloatBarVisible to (OLEexColumnsFloatBarVisibleAsChild + OLEexColumnsFloatBarVisibleIncludeCheckColumns)
Set ComBackground OLEexColumnsFloatBackColor to (RGB(240,240,240))
Send ComEndUpdate
End_Procedure
|
|
2353
|
Change the visual appearance of the Columns panel
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABNoCg6AADACAxRDAMgBQKAAzQFAYahqGKGAAGOD4JhUAIIRZGMIjFDcEwxC6NIpAWLoJDCH4mSTHYxgJIMWwzDiBZgkCA4fiGEYnThCIxzTJ0aw1CKbYRAKCUKoUAJFsSnQAJIgOO4lULPMIhDDQKQTIKBahoehqIhaEQyDSJNb2DCIahhMSEbKtCooDhGFZUWzLVxTJJNawHJqJJDuOTpSjKH4+RjWFKUXR9b4BJSNAgqeCQTiSWZEVxRUS0XbGCyZLSQY7uAAMKgOVoDYzdGLwHTtOwrMa1QAsDSbKqWZ5uRpHcQ5aAGN5DPbMbqwOaqLznAaLQLtG4RTikVRPTDYaj437+OaHGyNbI6HTNPpTlWDJWjYXI8l8C4fg6GYAAEEISgGJJGHQOocgyIwYnqKhYAAIQTH2MYRjQJBRAmZptmEAYIjGU5dk8UgOFgBJUgCTQIBYBoBmCCAmAqApghgDJUDmYQFCCZoEk2OBUm+BZPCgZgagaYZIHYHoHmGWBcm8NwiEiFJVgmYgji4Kg6GKSI2C6C5jAiRgygwIojiycINkyeJmAYPJjkiTg+g+ZAIkCdIQkyWQWDuDxkBkJhKguZAzlIRQzGQc5ODWFJlEkVhWhWZYJFYTYTmUE4yF6F5mAmBhihiZhJhYX4WmQaAUnWGpOlmNhuhuZwJkYcocmcSY4naHZlkmKhrDuJ5JnYfofmgCgGgKIJnlmXJ2h4TQKBosRokoNoOiOaQKDSd4kmiChMncPBpgoZoaiaaZKHaHonmmE5iiKJRpDicomimaoKiaKoqmqSoeiIPgogqPotiyaxKlYPA+GuCqbBMa5KnaPovmwCwGj6LgP24RIhiyCwmkqMpsksNpKD6LQLBqOIzi0SxWlaHZtAOahPssM5Wi+IYtlsXpijKbZ5lyTo5mAE4UlqOpjHOQpEjubyanKPJvEuNgVj2TY1CCao+k2G52AyP5wAwBp9DYZZ1CCaxsAABAEICA" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexColumnsFloatAppearance to |CI$1000000
Set ComBackground OLEexColumnsFloatCaptionBackColor to (RGB(246,246,246))
Set ComBackColorHeader to |CI$1000000
Set ComHeaderHeight to 24
Set ComHeaderAppearance to OLEEtched
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "City" to Nothing
Variant voColumn
Get ComAdd of hoColumns "Start" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComVisible of hoColumn to False
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "End" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComVisible of hoColumn1 to False
Send Destroy to hoColumn1
Send Destroy to hoColumns
Set ComDescription OLEexColumnsFloatBar to "Show/Hide"
Set ComColumnsFloatBarVisible to OLEexColumnsFloatBarVisibleIncludeCheckColumns
Send ComEndUpdate
End_Procedure
|
|
2352
|
Defines the symbol used to indicate repeated captions, providing a clear visual cue for identical entries (ditto mark)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderAppearance to OLEEtched
Set ComHeaderHeight to 24
Set ComDrawGridLines to OLEexRowLines
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Country" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComShowIdem of hoColumn to "<fgcolor gray>〃"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Spain" to Nothing
Get ComAddItem of hoItems "Spain" to Nothing
Get ComAddItem of hoItems "Spain" to Nothing
Get ComAddItem of hoItems "Spain" to Nothing
Get ComAddItem of hoItems "Germany" to Nothing
Get ComAddItem of hoItems "Germany" to Nothing
Get ComAddItem of hoItems "Germany" to Nothing
Get ComAddItem of hoItems "Germany" to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
2351
|
Defines the symbol used to indicate repeated captions, providing a clear visual cue for identical entries (space)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderAppearance to OLEEtched
Set ComHeaderHeight to 24
Set ComDrawGridLines to OLEexRowLines
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Country" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComShowIdem of hoColumn to " "
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Spain" to Nothing
Get ComAddItem of hoItems "Spain" to Nothing
Get ComAddItem of hoItems "Spain" to Nothing
Get ComAddItem of hoItems "Spain" to Nothing
Get ComAddItem of hoItems "Germany" to Nothing
Get ComAddItem of hoItems "Germany" to Nothing
Get ComAddItem of hoItems "Germany" to Nothing
Get ComAddItem of hoItems "Germany" to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
2350
|
Displays a glitch funnel for drop-down filter buttons (empty or active)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Set ComRenderType of hoAppearance to -1
Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABa8IQAAYAQGKIYBkAKBQAGaAoDDUNQxQwAAxwfBMKgBBCLIxhEYobgmGIXRpFMbxCKQahLEiTIhGUYJHgmK4tRiAUgxVDkBxrECZYqjcBZOiwLQ2TxDM7DNKUCBnIoABhGOaYDh+IQNQjUFKwTRFGRxK4EIRKAyTDLQdRyGSMMbjdQpBCbMiMRqhESKRq2UwYRYCFS1NalaztO6BUAvK67YrWez/YBfF+SfwGeqDYReWAPfgWERnQrGMLxbD8KwZAKTRjkGJ4XhuB41TbQMqufL9ByXHKSSDpGjaXjeO5VVjYNAvS69UzXNq3bhtQAOXCMEwCgI=" to Nothing
Get ComAdd of hoAppearance 2 "CP:1 -2 0 0 0" to Nothing
Send Destroy to hoAppearance
Set ComDrawGridLines to OLEexAllLines
Set ComGridLineStyle to OLEexGridLinesGeometric
Set ComShowFocusRect to False
Set ComBackground OLEexHeaderFilterBarButton to |CI$2000000
Set ComBackground OLEexHeaderFilterBarActive to |CI$2000001
Set ComHeaderAppearance to OLEEtched
Set ComBackColorHeader to (RGB(255,255,255))
Set ComHeaderHeight to 24
Set ComHeaderVisible to OLEexHeaderVisibleExtendLevels
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "1st col" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDisplayFilterButton of hoColumn to True
Set ComDisplayFilterPattern of hoColumn to False
Set ComFilter of hoColumn to "Item B"
Set ComFilterType of hoColumn to OLEexFilter
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "2nd col" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Item A" to Nothing
Get ComAddItem of hoItems "Item B" to Nothing
Get ComAddItem of hoItems "Item C" to Nothing
Send Destroy to hoItems
Send ComApplyFilter
Send ComEndUpdate
End_Procedure
|
|
2349
|
Stack vs Cascade
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComScrollBySingleLine to True
Set ComHeaderAppearance to OLEFlat
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Type" to Nothing
Send Destroy to hoColumns
Set ComBackColorAlternate to (RGB(240,240,240))
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Set ComAllowCreateBar of hoChart to OLEexCreateBarAuto
Set ComAllowLinkBars of hoChart to False
Set ComResizeUnitScale of hoChart to OLEexHour
Set ComPaneWidth of hoChart False to 128
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComCopy of hoBars "Task" "T1" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComOverlaidType of hoBar to OLEexOverlaidBarsCascade
Set ComDef of hoBar OLEexBarCaption to "<%=%9%>"
Send Destroy to hoBar
Send Destroy to hoBars
Variant voBars1
Get ComBars of hoChart to voBars1
Handle hoBars1
Get Create (RefClass(cComBars)) to hoBars1
Set pvComObject of hoBars1 to voBars1
Variant voBar1
Get ComCopy of hoBars1 "Task" "T2" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComOverlaidType of hoBar1 to (OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack)
Set ComDef of hoBar1 OLEexBarCaption to "<%=%9%>"
Send Destroy to hoBar1
Send Destroy to hoBars1
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Cascade" to h
Send ComAddBar of hoItems h "T1" "1/2/2001" "1/4/2001" "A1" Nothing
Send ComAddBar of hoItems h "T1" "1/3/2001" "1/5/2001" "A2" Nothing
Send ComAddBar of hoItems h "T1" "1/4/2001" "1/7/2001" "A3" Nothing
Send ComAddBar of hoItems h "T1" "1/2/2001" "1/7/2001" "A4" Nothing
Send ComAddBar of hoItems h "T1" "1/8/2001" "1/12/2001" "A5" Nothing
Send ComAddBar of hoItems h "T1" "1/8/2001" "1/12/2001" "A6" Nothing
Send ComAddBar of hoItems h "T1" "1/8/2001" "1/12/2001" "A7" Nothing
Send ComAddBar of hoItems h "T1" "1/8/2001" "1/12/2001" "A8" Nothing
Send ComAddBar of hoItems h "T1" "1/8/2001" "1/12/2001" "A9" Nothing
Send ComAddBar of hoItems h "T1" "1/8/2001" "1/12/2001" "AA" Nothing
Get ComAddItem of hoItems "Stack-AutoArrange" to h
Send ComAddBar of hoItems h "T2" "1/2/2001" "1/4/2001" "A1" Nothing
Send ComAddBar of hoItems h "T2" "1/3/2001" "1/5/2001" "A2" Nothing
Send ComAddBar of hoItems h "T2" "1/4/2001" "1/7/2001" "A3" Nothing
Send ComAddBar of hoItems h "T2" "1/2/2001" "1/7/2001" "A4" Nothing
Send ComAddBar of hoItems h "T2" "1/8/2001" "1/12/2001" "A5" Nothing
Send ComAddBar of hoItems h "T2" "1/8/2001" "1/12/2001" "A6" Nothing
Send ComAddBar of hoItems h "T2" "1/8/2001" "1/12/2001" "A7" Nothing
Send ComAddBar of hoItems h "T2" "1/8/2001" "1/12/2001" "A8" Nothing
Send ComAddBar of hoItems h "T2" "1/8/2001" "1/12/2001" "A9" Nothing
Send ComAddBar of hoItems h "T2" "1/8/2001" "1/12/2001" "AA" Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
2348
|
Horizontally(left) align the multi-line caption of the bar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Set ComHeaderAppearance to OLEEtched
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComPaneWidth of hoChart False to 128
Set ComLevelCount of hoChart to 2
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComSelectableItem of hoItems (ComAddItem(hoItems,Nothing)) to False
Variant h
Get ComAddItem of hoItems "Task 1" to h
Set ComItemHeight of hoItems h to 42
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/7/2001" "K1" "This is a bit of 1'st line<br>2'nd line<br>3'rd line"
Set ComItemBar of hoItems h "K1" OLEexBarHAlignCaption to 0
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
2347
|
Defines the colors, to display overlapping links
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Name" to Nothing
Send Destroy to hoColumns
Set ComAntiAliasing to True
Set ComOverlapLinksColors to "black,gray,lightgray"
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Set ComFirstVisibleDate of hoChart to "12/28/2000"
Set ComPaneWidth of hoChart False to 64
Set ComShowLinks of hoChart to (OLEexChangeColorOnOverlap + OLEexPreventOverlapMixt + OLEexShowDefaultLinks)
Set ComNonworkingDays of hoChart to 0
Set ComLinksStyle of hoChart to OLEexLinkSolid
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "" to Nothing
Variant h1
Get ComAddItem of hoItems "Item 1" to h1
Send ComAddBar of hoItems h1 "Task" "1/3/2001" "1/6/2001" "A" Nothing
Send ComAddBar of hoItems h1 "Task" "1/8/2001" "1/11/2001" "B" Nothing
Send ComAddBar of hoItems h1 "Task" "1/13/2001" "1/16/2001" "C" Nothing
Send ComAddBar of hoItems h1 "Task" "1/18/2001" "1/21/2001" "D" Nothing
Send ComAddLink of hoItems "Link1" h1 "D" h1 "A"
Send ComAddLink of hoItems "Link2" h1 "C" h1 "B"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
2346
|
The exPreventOverlapMixt option can be combined with the exChangeColorOnOverlap flag, allowing overlapping links to alternately adjust their width while also changing colors
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Name" to Nothing
Send Destroy to hoColumns
Set ComAntiAliasing to True
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Set ComFirstVisibleDate of hoChart to "12/28/2000"
Set ComPaneWidth of hoChart False to 64
Set ComShowLinks of hoChart to (OLEexChangeColorOnOverlap + OLEexPreventOverlapMixt + OLEexShowDefaultLinks)
Set ComNonworkingDays of hoChart to 0
Set ComLinksStyle of hoChart to OLEexLinkSolid
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "" to Nothing
Variant h1
Get ComAddItem of hoItems "Item 1" to h1
Send ComAddBar of hoItems h1 "Task" "1/3/2001" "1/6/2001" "A" Nothing
Send ComAddBar of hoItems h1 "Task" "1/8/2001" "1/11/2001" "B" Nothing
Send ComAddBar of hoItems h1 "Task" "1/13/2001" "1/16/2001" "C" Nothing
Send ComAddBar of hoItems h1 "Task" "1/18/2001" "1/21/2001" "D" Nothing
Send ComAddLink of hoItems "Link1" h1 "D" h1 "A"
Send ComAddLink of hoItems "Link2" h1 "C" h1 "B"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
2345
|
The exChangeColorOnOverlap flag changes the color for links in areas where they overlap with other links, enhancing clarity and distinction between them
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComAntiAliasing to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Name" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Set ComFirstVisibleDate of hoChart to "12/28/2000"
Set ComPaneWidth of hoChart False to 64
Set ComShowLinks of hoChart to (OLEexChangeColorOnOverlap + OLEexShowDefaultLinks)
Set ComNonworkingDays of hoChart to 0
Set ComLinksStyle of hoChart to OLEexLinkSolid
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "" to Nothing
Variant h1
Get ComAddItem of hoItems "Item 1" to h1
Send ComAddBar of hoItems h1 "Task" "1/3/2001" "1/6/2001" "A" Nothing
Send ComAddBar of hoItems h1 "Task" "1/8/2001" "1/11/2001" "B" Nothing
Send ComAddBar of hoItems h1 "Task" "1/13/2001" "1/16/2001" "C" Nothing
Send ComAddBar of hoItems h1 "Task" "1/18/2001" "1/21/2001" "D" Nothing
Send ComAddLink of hoItems "Link1" h1 "D" h1 "A"
Send ComAddLink of hoItems "Link2" h1 "C" h1 "B"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
2344
|
How can I assign a multiple-lines caption to an bar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Set ComHeaderAppearance to OLEEtched
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComPaneWidth of hoChart False to 128
Set ComLevelCount of hoChart to 2
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComSelectableItem of hoItems (ComAddItem(hoItems,Nothing)) to False
Variant h
Get ComAddItem of hoItems "Task 1" to h
Set ComItemHeight of hoItems h to 42
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/7/2001" "K1" Nothing
Set ComItemBar of hoItems h "K1" OLEexBarCaption to "This is a bit of 1'st line<br>2'nd line<br>3'rd line"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
2343
|
The text on the chart overlap the rest of the bars, while using OverlaidType property on exOverlaidBarsStack
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 48
Set ComFirstVisibleDate of hoChart to "1/3/2002"
Set ComLevelCount of hoChart to 2
Set ComFirstWeekDay of hoChart to OLEexMonday
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComAdd of hoBars "Text" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComDef of hoBar OLEexBarHAlignCaption to 0
Send Destroy to hoBar
Send Destroy to hoBars
Variant voBars1
Get ComBars of hoChart to voBars1
Handle hoBars1
Get Create (RefClass(cComBars)) to hoBars1
Set pvComObject of hoBars1 to voBars1
Variant voBar1
Get ComItem of hoBars1 "Task" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComDef of hoBar1 OLEexBarHAlignCaption to 0
Set ComOverlaidType of hoBar1 to (OLEexOverlaidBarsIncludeCaption + OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack)
Set ComOverlaidGroup of hoBar1 to "Text,Task"
Send Destroy to hoBar1
Send Destroy to hoBars1
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Default" to h
Send ComAddBar of hoItems h "Text" "1/4/2002" "1/4/2002" "" "This is another text"
Send ComAddBar of hoItems h "Task" "1/6/2002" "1/8/2002" "A" "This is a bit of text"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
2342
|
We are running our application on an Azure server using RDP, with the server language set to English. However, my client has their national language set to Swedish, but the tooltip is displaying dates in the English format (mm/dd/yyyy) instead of the Swedish format (yyyy-mm-dd) (method 2)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Def" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComAllowCreateBar of hoChart to OLEexNoCreateBar
Set ComPaneWidth of hoChart False to 64
Set ComLevelCount of hoChart to 2
Set ComFirstVisibleDate of hoChart to "1/1/2010"
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComDef of hoBar OLEexBarToolTip to "<%=`Start: ` + (date(%1) format `yyyy-MM-dd` )%>"
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task" to h
Send ComAddBar of hoItems h "Task" "1/2/2010" "1/5/2010" "A" "A"
Send ComAddBar of hoItems h "Task" "1/5/2010" "1/8/2010" "B" "B"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
2341
|
We are running our application on an Azure server using RDP, with the server language set to English. However, my client has their national language set to Swedish, but the tooltip is displaying dates in the English format (mm/dd/yyyy) instead of the Swedish format (yyyy-mm-dd) (method 1)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Def" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComAllowCreateBar of hoChart to OLEexNoCreateBar
Set ComPaneWidth of hoChart False to 64
Set ComLevelCount of hoChart to 2
Set ComFirstVisibleDate of hoChart to "1/1/2010"
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComDef of hoBar OLEexBarToolTip to "<%=`Start: ` + year(%1) + `-` + (month(%1) lpad `00`) + `-` + (day(%1) lpad `00`)%>"
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task" to h
Send ComAddBar of hoItems h "Task" "1/2/2010" "1/5/2010" "A" "A"
Send ComAddBar of hoItems h "Task" "1/5/2010" "1/8/2010" "B" "B"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
2340
|
How can I replace or add an icon at runtime
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComReplaceIcon "gAAAABgYACEHgUJFEEAAWhUJCEJEEJggEhMCYEXjUbjkJQECj8gj8hAEjkshYEpk8kf8ClsulsvAExmcvf83js5nU7nkCeEcn8boMaocXosCB9Hn09pkzcEuoL/fE+OkYB0gB9YhIHrddgVcr9aktZADAD8+P8CgIA==" Nothing to Nothing
Get ComReplaceIcon "C:\images\favicon.ico" 0 to Nothing
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComPaneWidth of hoChart False to 128
Set ComLevelCount of hoChart to 2
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "K1" Nothing
Set ComItemBar of hoItems h "K1" OLEexBarCaption to "<img>1</img>"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
2339
|
How can I define the sensitivity for link selection when the user clicks or selects a link
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComMouseMove llButton llShift llX llY
Variant v
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Get ComLinkFromPoint of hoChart -1 -1 to v
Send Destroy to hoChart
Showln v
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComFirstVisibleDate of hoChart1 to "12/29/2000"
Set ComPaneWidth of hoChart1 False to 64
Set ComLevelCount of hoChart1 to 2
Set ComLinksWidth of hoChart1 to 1026
Send Destroy to hoChart1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Get ComAddItem of hoItems Nothing to Nothing
Variant h2
Get ComAddItem of hoItems "Task 2" to h2
Send ComAddBar of hoItems h2 "Task" "1/8/2001" "1/10/2001" "K2" Nothing
Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
Get ComAddItem of hoItems Nothing to Nothing
Variant h3
Get ComAddItem of hoItems "Task 3" to h3
Send ComAddBar of hoItems h3 "Task" "1/14/2001" "1/16/2001" "K3" Nothing
Send ComAddLink of hoItems "L2" h2 "K2" h3 "K3"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
2338
|
How can I let the user to create task-bars for leaf0-items only, when AllowCreateBar is exCreateBarAuto
// Fired when the user creates a new bar.
Procedure OnComCreateBar HITEM llItem DateTime llDateStart DateTime llDateEnd
Forward Send OnComCreateBar llItem llDateStart llDateEnd
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Showln "Call RemoveBar if the ChildCount property returns a non-zero value" (ComChildCount(hoItems,llItem))
Send ComRemoveBar of hoItems llItem "newbar"
Send Destroy to hoItems
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComLinesAtRoot to OLEexLinesAtRoot
Set ComHeaderVisible to OLEexHeaderVisibleExtendLevels
Set ComHeaderAppearance to OLEEtched
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComAllowCreateBar of hoChart to OLEexCreateBarAuto
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 128
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant h
Get ComAddItem of hoItems1 "Root" to h
Get ComInsertItem of hoItems1 h "Child 1" to Nothing
Get ComInsertItem of hoItems1 h "Child 2" to Nothing
Set ComExpandItem of hoItems1 h to True
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
2337
|
How can I convert the exBarStart/exBarEnd property to a string (by default it returns as VARIANT/VT_DATE type, method 3)
// Occurs when a bar is moving or resizing.
Procedure OnComBarResizing HITEM llItem Variant llKey
Forward Send OnComBarResizing llItem llKey
Variant v
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComItemBar of hoItems llItem llKey OLEexBarStartStr to v
Send Destroy to hoItems
Showln "Start" llKey v
Variant v1
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComItemBar of hoItems1 llItem llKey OLEexBarEndStr to v1
Send Destroy to hoItems1
Showln "End" llKey v1
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Set ComDebug to True
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "9/20/2006"
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 96
Set ComResizeUnitScale of hoChart to OLEexMinute
Send Destroy to hoChart
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Send ComAddBar of hoItems2 (ComAddItem(hoItems2,"Task 1")) "Task" "9/21/2006" "9/24/2006" "K1" Nothing
Send ComAddBar of hoItems2 (ComAddItem(hoItems2,"Task 2")) "Task" "9/22/2006" "9/25/2006" "K2" Nothing
Send ComAddBar of hoItems2 (ComAddItem(hoItems2,"Task 3")) "Task" "9/23/2006" "9/26/2006" "K3" Nothing
Send Destroy to hoItems2
Send ComEndUpdate
End_Procedure
|
|
2336
|
How can I convert the exBarStart/exBarEnd property to a string (by default it returns as VARIANT/VT_DATE type, method 2)
// Occurs when a bar is moving or resizing.
Procedure OnComBarResizing HITEM llItem Variant llKey
Forward Send OnComBarResizing llItem llKey
Variant vA
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComItemBar of hoItems llItem llKey OLEexBarStart to vA
Send Destroy to hoItems
Showln "Start" llKey (ComFormatABC(Self,"dateF(value)",vA,Nothing,Nothing))
Variant vA1
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComItemBar of hoItems1 llItem llKey OLEexBarEnd to vA1
Send Destroy to hoItems1
Showln "End" llKey (ComFormatABC(Self,"dateF(value)",vA1,Nothing,Nothing))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Set ComDebug to True
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "9/20/2006"
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 96
Set ComResizeUnitScale of hoChart to OLEexMinute
Send Destroy to hoChart
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Send ComAddBar of hoItems2 (ComAddItem(hoItems2,"Task 1")) "Task" "9/21/2006" "9/24/2006" "K1" Nothing
Send ComAddBar of hoItems2 (ComAddItem(hoItems2,"Task 2")) "Task" "9/22/2006" "9/25/2006" "K2" Nothing
Send ComAddBar of hoItems2 (ComAddItem(hoItems2,"Task 3")) "Task" "9/23/2006" "9/26/2006" "K3" Nothing
Send Destroy to hoItems2
Send ComEndUpdate
End_Procedure
|
|
2335
|
How can I convert the exBarStart/exBarEnd property to a string (by default it returns as VARIANT/VT_DATE type, method 1)
// Occurs when a bar is moving or resizing.
Procedure OnComBarResizing HITEM llItem Variant llKey
Forward Send OnComBarResizing llItem llKey
Variant vA
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComItemBar of hoItems llItem llKey OLEexBarStart to vA
Send Destroy to hoItems
Showln "Start" llKey (ComFormatABC(Self,"date(value) format `MM/dd/yyyy HH:mm:ss`",vA,Nothing,Nothing))
Variant vA1
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComItemBar of hoItems1 llItem llKey OLEexBarEnd to vA1
Send Destroy to hoItems1
Showln "End" llKey (ComFormatABC(Self,"date(value) format `MM/dd/yyyy HH:mm:ss`",vA1,Nothing,Nothing))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Set ComDebug to True
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "9/20/2006"
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 96
Set ComResizeUnitScale of hoChart to OLEexMinute
Send Destroy to hoChart
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Send ComAddBar of hoItems2 (ComAddItem(hoItems2,"Task 1")) "Task" "9/21/2006" "9/24/2006" "K1" Nothing
Send ComAddBar of hoItems2 (ComAddItem(hoItems2,"Task 2")) "Task" "9/22/2006" "9/25/2006" "K2" Nothing
Send ComAddBar of hoItems2 (ComAddItem(hoItems2,"Task 3")) "Task" "9/23/2006" "9/26/2006" "K3" Nothing
Send Destroy to hoItems2
Send ComEndUpdate
End_Procedure
|
|
2334
|
Add/Remove/Updates the item-bar's resources
// Occurs when the user presses and then releases the left mouse button over the tree control.
Procedure OnComClick
Forward Send OnComClick
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComSelectedItem of hoItems 0 to h
Set ComItemBar of hoItems h (ComFirstItemBar(hoItems,h)) OLEexBarResources to "+R4[10%]"
Send Destroy to hoItems
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderAppearance to OLEEtched
Set ComHeaderHeight to 24
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 96
Set ComLevelCount of hoChart to 2
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComDef of hoBar OLEexBarHAlignCaption to 18
Set ComDef of hoBar OLEexBarCaption to "<%=%49%>"
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Machines" to Nothing
Send Destroy to hoColumns
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAddItem of hoItems1 "Machine 1" to h
Send ComAddBar of hoItems1 h "Task" "1/6/2001" "1/12/2001" "K1" Nothing
Set ComItemBar of hoItems1 h "K1" OLEexBarResources to "R1,R2"
Get ComAddItem of hoItems1 "Machine 2" to h
Send ComAddBar of hoItems1 h "Task" "1/4/2001" "1/14/2001" "K2" Nothing
Set ComItemBar of hoItems1 h "K2" OLEexBarResources to "R2[75%],R3"
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
2333
|
Distributes resources to a bar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderAppearance to OLEEtched
Set ComHeaderHeight to 24
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 96
Set ComLevelCount of hoChart to 2
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComDef of hoBar OLEexBarHAlignCaption to 18
Set ComDef of hoBar OLEexBarCaption to "<%=%49%>"
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Machines" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Machine 1" to h
Send ComAddBar of hoItems h "Task" "1/6/2001" "1/12/2001" "K1" Nothing
Set ComItemBar of hoItems h "K1" OLEexBarResources to "R1,R2"
Get ComAddItem of hoItems "Machine 2" to h
Send ComAddBar of hoItems h "Task" "1/4/2001" "1/14/2001" "K2" Nothing
Set ComItemBar of hoItems h "K2" OLEexBarResources to "R2[75%],R3"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
2332
|
How can I display additional information about a time zone when the user clicks on it (expandable)
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 0
Set ComLevelCount of hoChart to 2
Set ComFirstVisibleDate of hoChart to "12/20/2009"
Send ComMarkTimeZone of hoChart "TZ" "1/1/2010" "1/3/2010" 65280 "1;;<c>TimeZone<b><off -4><a ;exp=just more info about>*</a></b>;1"
Send Destroy to hoChart
End_Procedure
|
|
2331
|
How can I have a tooltip for a marked TimeZone
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComMouseMove llButton llShift llX llY
Variant vToolTip
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Get ComTimeZoneFromPoint of hoChart -1 -1 to vToolTip
Send Destroy to hoChart
Send ComShowToolTip vToolTip "" "+8" Nothing
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComPaneWidth of hoChart1 False to 0
Set ComLevelCount of hoChart1 to 2
Set ComFirstVisibleDate of hoChart1 to "12/28/2009"
Send ComMarkTimeZone of hoChart1 "Top" "1/1/2010" "1/5/2010" 16711680 "1;;<fgcolor=FFFFFF>Top;1"
Send ComMarkTimeZone of hoChart1 "Partial" "1/8/2010" "1/12/2010" 16711680 "50;;<fgcolor=FFFFFF>Partial;1"
Send ComMarkTimeZone of hoChart1 "Default" "1/15/2010" "1/19/2010" 16711680 ";;<fgcolor=FFFFFF>Default;1"
Send Destroy to hoChart1
End_Procedure
|
|
2330
|
Can I set a filter that automatically adds a * before and after the word, so the user can just search for 'cat' and it becomes '*cat*' automatically
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderAppearance to OLEEtched
Set ComHeaderHeight to 24
Set ComLinesAtRoot to OLEexLinesAtRoot
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Items" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDisplayFilterButton of hoColumn to True
Set ComDisplayFilterPattern of hoColumn to True
Set ComDef of hoColumn OLEexFilterPatternTemplate to "*<%filter%>*"
Set ComFilterType of hoColumn to OLEexPattern
Set ComFilter of hoColumn to "1"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems h to True
Get ComAddItem of hoItems "Root 2" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Send Destroy to hoItems
Send ComApplyFilter
Send ComEndUpdate
End_Procedure
|
|
2329
|
The fine dotted lines in the control appear much thicker than the standard ones we've been using. How can we fix this
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderAppearance to OLEEtched
Set ComHeaderHeight to 24
Set ComDrawGridLines to OLEexAllLines
Set ComGridLineStyle to OLEexGridLinesGeometric
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComGridLineStyle of hoChart to OLEexGridLinesGeometric
Set ComDrawGridLines of hoChart to OLEexAllLines
Send Destroy to hoChart
Set ComColumnAutoResize to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Column 2" to Nothing
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Get ComAdd of hoColumns2 "Column 3" to Nothing
Send Destroy to hoColumns2
Variant voColumns3
Get ComColumns to voColumns3
Handle hoColumns3
Get Create (RefClass(cComColumns)) to hoColumns3
Set pvComObject of hoColumns3 to voColumns3
Get ComAdd of hoColumns3 "Column 4" to Nothing
Send Destroy to hoColumns3
Send ComEndUpdate
End_Procedure
|
|
2328
|
Load data as a tree using a parent-id relationship
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComColumnAutoResize to False
Set ComHeaderAppearance to OLEEtched
Set ComHeaderHeight to 24
Set ComDrawGridLines to OLEexVLines
Set ComLinesAtRoot to OLEexLinesAtRoot
Variant rs
Get Comcreateobject "ADODB.Recordset" to rs
Send ComOpen "Select * FROM Employees WHERE 1=0" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.mdb" OLEadOpenStatic OLEadLockOptimistic Nothing
Set ComDataSource to rs
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComItem of hoColumns 0 to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 128
Send Destroy to hoColumn
Send Destroy to hoColumns
Get Comcreateobject "ADODB.Recordset" to rs
Send ComOpen "Employees" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.mdb" OLEadOpenStatic OLEadLockOptimistic Nothing
Send ComPutItems rs ";0;17"
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComExpandItem of hoItems 0 to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
2327
|
Is there a way to change the contents of the drop down editor based on a value in another column
// Occurs after a new Item has been inserted to Items collection.
Procedure OnComAddItem HITEM llItem
Forward Send OnComAddItem llItem
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellEditorVisible of hoItems llItem 0 to OLEexEditorVisible
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComCellEditorVisible of hoItems1 llItem 1 to OLEexEditorVisible
Send Destroy to hoItems1
End_Procedure
// Occurs when the edit operation starts.
Procedure OnComEditOpen
Forward Send OnComEditOpen
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Variant v
Get ComCellValue of hoItems2 (ComFocusItem(hoItems2)) 0 to v
Variant c
Get ComCellCaption of hoItems2 (ComFocusItem(hoItems2)) 0 to c
Send Destroy to hoItems2
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComItem of hoColumns 1 to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Send ComClearItems of hoEditor
Send ComAddItem of hoEditor v c Nothing
Send Destroy to hoEditor
Send Destroy to hoColumn
Send Destroy to hoColumns
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderAppearance to OLEEtched
Set ComHeaderHeight to 24
Set ComGridLineStyle to OLEexGridLinesGeometric
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "DropDownList" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Variant voEditor1
Get ComEditor of hoColumn1 to voEditor1
Handle hoEditor1
Get Create (RefClass(cComEditor)) to hoEditor1
Set pvComObject of hoEditor1 to voEditor1
Set ComEditType of hoEditor1 to OLEDropDownListType
Send ComAddItem of hoEditor1 1 "First" Nothing
Send ComAddItem of hoEditor1 2 "Second" Nothing
Send ComAddItem of hoEditor1 3 "Third" Nothing
Send Destroy to hoEditor1
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Set ComDrawGridLines to OLEexAllLines
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn2
Get ComAdd of hoColumns2 "DropDownList-Related" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Variant voEditor2
Get ComEditor of hoColumn2 to voEditor2
Handle hoEditor2
Get Create (RefClass(cComEditor)) to hoEditor2
Set pvComObject of hoEditor2 to voEditor2
Set ComEditType of hoEditor2 to OLEDropDownListType
Send Destroy to hoEditor2
Send Destroy to hoColumn2
Send Destroy to hoColumns2
Variant voItems3
Get ComItems to voItems3
Handle hoItems3
Get Create (RefClass(cComItems)) to hoItems3
Set pvComObject of hoItems3 to voItems3
Set ComCellValue of hoItems3 (ComAddItem(hoItems3,1)) 1 to -1
Set ComCellValue of hoItems3 (ComAddItem(hoItems3,2)) 1 to -1
Set ComCellValue of hoItems3 (ComAddItem(hoItems3,3)) 1 to -1
Set ComLockedItemCount of hoItems3 OLEexBottom to 1
Variant h
Get ComLockedItem of hoItems3 OLEexBottom 0 to h
Set ComItemDivider of hoItems3 h to 0
Set ComItemDividerLineAlignment of hoItems3 h to OLEDividerTop
Set ComCellEditorVisible of hoItems3 h 0 to False
Set ComCellSingleLine of hoItems3 h 0 to False
Set ComCellValueFormat of hoItems3 h 0 to OLEexHTML
Set ComCellValue of hoItems3 h 0 to "The drop down editor in the second column is filled during the <b>EditOpen event</b>, and the values are based on the selection on the first column."
Send Destroy to hoItems3
Send ComEndUpdate
End_Procedure
|
|
2326
|
Highlight the editable fields
// Occurs when the user changes the cell's content.
Procedure OnComChange HITEM llItem Integer llColIndex Variant llNewValue
Forward Send OnComChange llItem llColIndex llNewValue
Send ComRefresh
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComFreezeEvents True
Send ComBeginUpdate
Set ComHeaderAppearance to OLEEtched
Set ComHeaderHeight to 24
Set ComLinesAtRoot to OLEexLinesAtRoot
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Variant voConditionalFormat
Get ComAdd of hoConditionalFormats "%CE1" Nothing to voConditionalFormat
Handle hoConditionalFormat
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
Set pvComObject of hoConditionalFormat to voConditionalFormat
Set ComBold of hoConditionalFormat to True
Set ComBackColor of hoConditionalFormat to (RGB(245,245,245))
Set ComApplyTo of hoConditionalFormat to |CI$1
Send Destroy to hoConditionalFormat
Variant voConditionalFormat1
Get ComAdd of hoConditionalFormats "%CE2" Nothing to voConditionalFormat1
Handle hoConditionalFormat1
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat1
Set pvComObject of hoConditionalFormat1 to voConditionalFormat1
Set ComBold of hoConditionalFormat1 to True
Set ComBackColor of hoConditionalFormat1 to (RGB(245,245,245))
Set ComApplyTo of hoConditionalFormat1 to |CI$2
Send Destroy to hoConditionalFormat1
Variant voConditionalFormat2
Get ComAdd of hoConditionalFormats "%CE3" Nothing to voConditionalFormat2
Handle hoConditionalFormat2
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat2
Set pvComObject of hoConditionalFormat2 to voConditionalFormat2
Set ComBold of hoConditionalFormat2 to True
Set ComBackColor of hoConditionalFormat2 to (RGB(245,245,245))
Set ComApplyTo of hoConditionalFormat2 to |CI$3
Send Destroy to hoConditionalFormat2
Send Destroy to hoConditionalFormats
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Description" to Nothing
Variant voColumn
Get ComAdd of hoColumns "Qty" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLESpinType
Send Destroy to hoEditor
Set ComDef of hoColumn OLEexTotalColumn to "sum(current,rec,%1)"
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "Price" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexTotalColumn to "avg(current,rec,%2)"
Variant voEditor1
Get ComEditor of hoColumn1 to voEditor1
Handle hoEditor1
Get Create (RefClass(cComEditor)) to hoEditor1
Set pvComObject of hoEditor1 to voEditor1
Set ComEditType of hoEditor1 to OLESpinType
Send Destroy to hoEditor1
Send Destroy to hoColumn1
Variant voColumn2
Get ComAdd of hoColumns "Amount" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComComputedField of hoColumn2 to "%1 * %2"
Set ComDef of hoColumn2 OLEexTotalColumn to "sum(current,rec,%3)"
Send Destroy to hoColumn2
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant r
Get ComAddItem of hoItems "Root" to r
Variant g1
Get ComInsertItem of hoItems r "Group 1" to g1
Variant h
Get ComInsertItem of hoItems g1 "Item 1" to h
Set ComCellValue of hoItems h 1 to 1
Set ComCellValue of hoItems h 2 to 10
Get ComInsertItem of hoItems g1 "Item 2" to h
Set ComCellValue of hoItems h 1 to 2
Set ComCellValue of hoItems h 2 to 11
Variant g2
Get ComInsertItem of hoItems r "Group 2" to g2
Get ComInsertItem of hoItems g2 "Item 1" to h
Set ComCellValue of hoItems h 1 to 3
Set ComCellValue of hoItems h 2 to 12
Get ComInsertItem of hoItems g2 "Item 2" to h
Set ComCellValue of hoItems h 1 to 4
Set ComCellValue of hoItems h 2 to 13
Set ComExpandItem of hoItems 0 to True
Send Destroy to hoItems
Send ComEndUpdate
Send ComFreezeEvents False
End_Procedure
|
|
2325
|
Highlight the total fields
// Occurs when the user changes the cell's content.
Procedure OnComChange HITEM llItem Integer llColIndex Variant llNewValue
Forward Send OnComChange llItem llColIndex llNewValue
Send ComRefresh
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComFreezeEvents True
Send ComBeginUpdate
Set ComHeaderAppearance to OLEEtched
Set ComHeaderHeight to 24
Set ComLinesAtRoot to OLEexLinesAtRoot
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Variant voConditionalFormat
Get ComAdd of hoConditionalFormats "%CT1" Nothing to voConditionalFormat
Handle hoConditionalFormat
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
Set pvComObject of hoConditionalFormat to voConditionalFormat
Set ComForeColor of hoConditionalFormat to (RGB(128,128,128))
Set ComApplyTo of hoConditionalFormat to |CI$1
Send Destroy to hoConditionalFormat
Variant voConditionalFormat1
Get ComAdd of hoConditionalFormats "%CT2" Nothing to voConditionalFormat1
Handle hoConditionalFormat1
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat1
Set pvComObject of hoConditionalFormat1 to voConditionalFormat1
Set ComForeColor of hoConditionalFormat1 to (RGB(128,128,128))
Set ComApplyTo of hoConditionalFormat1 to |CI$2
Send Destroy to hoConditionalFormat1
Variant voConditionalFormat2
Get ComAdd of hoConditionalFormats "%CT3" Nothing to voConditionalFormat2
Handle hoConditionalFormat2
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat2
Set pvComObject of hoConditionalFormat2 to voConditionalFormat2
Set ComForeColor of hoConditionalFormat2 to (RGB(128,128,128))
Set ComApplyTo of hoConditionalFormat2 to |CI$3
Send Destroy to hoConditionalFormat2
Send Destroy to hoConditionalFormats
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Description" to Nothing
Variant voColumn
Get ComAdd of hoColumns "Qty" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLESpinType
Send Destroy to hoEditor
Set ComDef of hoColumn OLEexTotalColumn to "sum(current,rec,%1)"
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "Price" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexTotalColumn to "avg(current,rec,%2)"
Variant voEditor1
Get ComEditor of hoColumn1 to voEditor1
Handle hoEditor1
Get Create (RefClass(cComEditor)) to hoEditor1
Set pvComObject of hoEditor1 to voEditor1
Set ComEditType of hoEditor1 to OLESpinType
Send Destroy to hoEditor1
Send Destroy to hoColumn1
Variant voColumn2
Get ComAdd of hoColumns "Amount" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComComputedField of hoColumn2 to "%1 * %2"
Set ComDef of hoColumn2 OLEexTotalColumn to "sum(current,rec,%3)"
Send Destroy to hoColumn2
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant r
Get ComAddItem of hoItems "Root" to r
Variant g1
Get ComInsertItem of hoItems r "Group 1" to g1
Variant h
Get ComInsertItem of hoItems g1 "Item 1" to h
Set ComCellValue of hoItems h 1 to 1
Set ComCellValue of hoItems h 2 to 10
Get ComInsertItem of hoItems g1 "Item 2" to h
Set ComCellValue of hoItems h 1 to 2
Set ComCellValue of hoItems h 2 to 11
Variant g2
Get ComInsertItem of hoItems r "Group 2" to g2
Get ComInsertItem of hoItems g2 "Item 1" to h
Set ComCellValue of hoItems h 1 to 3
Set ComCellValue of hoItems h 2 to 12
Get ComInsertItem of hoItems g2 "Item 2" to h
Set ComCellValue of hoItems h 1 to 4
Set ComCellValue of hoItems h 2 to 13
Set ComExpandItem of hoItems 0 to True
Send Destroy to hoItems
Send ComEndUpdate
Send ComFreezeEvents False
End_Procedure
|
|
2324
|
Highlight the leaf items
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Variant voConditionalFormat
Get ComAdd of hoConditionalFormats "%CC0=0" Nothing to voConditionalFormat
Handle hoConditionalFormat
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
Set pvComObject of hoConditionalFormat to voConditionalFormat
Set ComForeColor of hoConditionalFormat to (RGB(128,128,128))
Send Destroy to hoConditionalFormat
Send Destroy to hoConditionalFormats
Set ComHeaderAppearance to OLEEtched
Set ComHeaderHeight to 24
Set ComLinesAtRoot to OLEexLinesAtRoot
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Item" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 16
Send Destroy to hoColumn
Get ComAdd of hoColumns "Desc" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant hR
Get ComAddItem of hoItems "Root" to hR
Set ComCellValue of hoItems hR 1 to "The root directory /"
Set ComExpandItem of hoItems hR to True
Variant h
Get ComInsertItem of hoItems hR "Home" to h
Set ComCellValue of hoItems h 1 to "The home directory with user directories Alice and Bob"
Get ComInsertItem of hoItems h "Alice" to Nothing
Get ComInsertItem of hoItems h "Bob" to Nothing
Set ComExpandItem of hoItems h to True
Get ComInsertItem of hoItems hR "Etc" to h
Set ComCellValue of hoItems h 1 to "The etc directory with one configuration file"
Get ComInsertItem of hoItems h "nginx.conf" to h
Set ComCellValue of hoItems (ComInsertItem(hoItems,hR,"Var")) 1 to "The var directory"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
2323
|
Highlight the parent items
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Variant voConditionalFormat
Get ComAdd of hoConditionalFormats "%CC0" Nothing to voConditionalFormat
Handle hoConditionalFormat
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
Set pvComObject of hoConditionalFormat to voConditionalFormat
Set ComForeColor of hoConditionalFormat to (RGB(255,0,0))
Send Destroy to hoConditionalFormat
Send Destroy to hoConditionalFormats
Set ComHeaderAppearance to OLEEtched
Set ComHeaderHeight to 24
Set ComLinesAtRoot to OLEexLinesAtRoot
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Item" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 16
Send Destroy to hoColumn
Get ComAdd of hoColumns "Desc" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant hR
Get ComAddItem of hoItems "Root" to hR
Set ComCellValue of hoItems hR 1 to "The root directory /"
Set ComExpandItem of hoItems hR to True
Variant h
Get ComInsertItem of hoItems hR "Home" to h
Set ComCellValue of hoItems h 1 to "The home directory with user directories Alice and Bob"
Get ComInsertItem of hoItems h "Alice" to Nothing
Get ComInsertItem of hoItems h "Bob" to Nothing
Set ComExpandItem of hoItems h to True
Get ComInsertItem of hoItems hR "Etc" to h
Set ComCellValue of hoItems h 1 to "The etc directory with one configuration file"
Get ComInsertItem of hoItems h "nginx.conf" to h
Set ComCellValue of hoItems (ComInsertItem(hoItems,hR,"Var")) 1 to "The var directory"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
2322
|
Highlight the item being expanded or collapsed
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Variant voConditionalFormat
Get ComAdd of hoConditionalFormats "%CX0" Nothing to voConditionalFormat
Handle hoConditionalFormat
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
Set pvComObject of hoConditionalFormat to voConditionalFormat
Set ComBold of hoConditionalFormat to True
Send Destroy to hoConditionalFormat
Send Destroy to hoConditionalFormats
Set ComHeaderAppearance to OLEEtched
Set ComHeaderHeight to 24
Set ComLinesAtRoot to OLEexLinesAtRoot
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Item" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 16
Send Destroy to hoColumn
Get ComAdd of hoColumns "Desc" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant hR
Get ComAddItem of hoItems "Root" to hR
Set ComCellValue of hoItems hR 1 to "The root directory /"
Set ComExpandItem of hoItems hR to True
Variant h
Get ComInsertItem of hoItems hR "Home" to h
Set ComCellValue of hoItems h 1 to "The home directory with user directories Alice and Bob"
Get ComInsertItem of hoItems h "Alice" to Nothing
Get ComInsertItem of hoItems h "Bob" to Nothing
Set ComExpandItem of hoItems h to True
Get ComInsertItem of hoItems hR "Etc" to h
Set ComCellValue of hoItems h 1 to "The etc directory with one configuration file"
Get ComInsertItem of hoItems h "nginx.conf" to h
Set ComCellValue of hoItems (ComInsertItem(hoItems,hR,"Var")) 1 to "The var directory"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
2321
|
I am using exTotalColumn. Is there an option to exclude specific cells to display the total
// Occurs when the user changes the cell's content.
Procedure OnComChange HITEM llItem Integer llColIndex Variant llNewValue
Forward Send OnComChange llItem llColIndex llNewValue
Send ComRefresh
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComFreezeEvents True
Send ComBeginUpdate
Set ComHeaderAppearance to OLEEtched
Set ComHeaderHeight to 24
Set ComLinesAtRoot to OLEexLinesAtRoot
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Description" to Nothing
Variant voColumn
Get ComAdd of hoColumns "Qty" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLESpinType
Send Destroy to hoEditor
Set ComDef of hoColumn OLEexTotalColumn to "sum(current,rec,%1)"
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "Price" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexTotalColumn to "avg(current,rec,%2)"
Variant voEditor1
Get ComEditor of hoColumn1 to voEditor1
Handle hoEditor1
Get Create (RefClass(cComEditor)) to hoEditor1
Set pvComObject of hoEditor1 to voEditor1
Set ComEditType of hoEditor1 to OLESpinType
Send Destroy to hoEditor1
Send Destroy to hoColumn1
Variant voColumn2
Get ComAdd of hoColumns "Amount" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComComputedField of hoColumn2 to "%1 * %2"
Set ComDef of hoColumn2 OLEexTotalColumn to "sum(current,rec,%3)"
Send Destroy to hoColumn2
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant r
Get ComAddItem of hoItems "Root" to r
Variant g1
Get ComInsertItem of hoItems r "Group 1" to g1
Set ComFormatCell of hoItems g1 2 to "`<average missing>`"
Set ComCellEditorVisible of hoItems g1 2 to False
Set ComCellBold of hoItems g1 2 to True
Set ComCellForeColor of hoItems g1 2 to (RGB(255,0,0))
Variant h
Get ComInsertItem of hoItems g1 "Item 1" to h
Set ComCellValue of hoItems h 1 to 1
Set ComCellValue of hoItems h 2 to 10
Get ComInsertItem of hoItems g1 "Item 2" to h
Set ComCellValue of hoItems h 1 to 2
Set ComCellValue of hoItems h 2 to 11
Variant g2
Get ComInsertItem of hoItems r "Group 2" to g2
Get ComInsertItem of hoItems g2 "Item 1" to h
Set ComCellValue of hoItems h 1 to 3
Set ComCellValue of hoItems h 2 to 12
Get ComInsertItem of hoItems g2 "Item 2" to h
Set ComCellValue of hoItems h 1 to 4
Set ComCellValue of hoItems h 2 to 13
Set ComExpandItem of hoItems 0 to True
Send Destroy to hoItems
Send ComEndUpdate
Send ComFreezeEvents False
End_Procedure
|
|
2320
|
How can I add a total column
// Occurs when the user changes the cell's content.
Procedure OnComChange HITEM llItem Integer llColIndex Variant llNewValue
Forward Send OnComChange llItem llColIndex llNewValue
Send ComRefresh
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComFreezeEvents True
Send ComBeginUpdate
Set ComHeaderAppearance to OLEEtched
Set ComHeaderHeight to 24
Set ComLinesAtRoot to OLEexLinesAtRoot
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Description" to Nothing
Variant voColumn
Get ComAdd of hoColumns "Qty" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLESpinType
Send Destroy to hoEditor
Set ComDef of hoColumn OLEexTotalColumn to "sum(current,rec,%1)"
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "Price" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexTotalColumn to "avg(current,rec,%2)"
Variant voEditor1
Get ComEditor of hoColumn1 to voEditor1
Handle hoEditor1
Get Create (RefClass(cComEditor)) to hoEditor1
Set pvComObject of hoEditor1 to voEditor1
Set ComEditType of hoEditor1 to OLESpinType
Send Destroy to hoEditor1
Send Destroy to hoColumn1
Variant voColumn2
Get ComAdd of hoColumns "Amount" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComComputedField of hoColumn2 to "%1 * %2"
Set ComDef of hoColumn2 OLEexTotalColumn to "sum(current,rec,%3)"
Send Destroy to hoColumn2
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant r
Get ComAddItem of hoItems "Root" to r
Variant g1
Get ComInsertItem of hoItems r "Group 1" to g1
Variant h
Get ComInsertItem of hoItems g1 "Item 1" to h
Set ComCellValue of hoItems h 1 to 1
Set ComCellValue of hoItems h 2 to 10
Get ComInsertItem of hoItems g1 "Item 2" to h
Set ComCellValue of hoItems h 1 to 2
Set ComCellValue of hoItems h 2 to 11
Variant g2
Get ComInsertItem of hoItems r "Group 2" to g2
Get ComInsertItem of hoItems g2 "Item 1" to h
Set ComCellValue of hoItems h 1 to 3
Set ComCellValue of hoItems h 2 to 12
Get ComInsertItem of hoItems g2 "Item 2" to h
Set ComCellValue of hoItems h 1 to 4
Set ComCellValue of hoItems h 2 to 13
Set ComExpandItem of hoItems 0 to True
Send Destroy to hoItems
Send ComEndUpdate
Send ComFreezeEvents False
End_Procedure
|
|
2319
|
Is it possible when I move the horizontal scroll bar, that the whole chart scrolls live during move the horizontal scroll bar. Not it scrolls just when I release the left mouse, not during change the horizontal scroll position
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 0
Set ComLevelCount of hoChart to 2
Set ComToolTip of hoChart to ""
Send Destroy to hoChart
End_Procedure
|
|
2318
|
The exLinkStyle is not valid (the style of the link is still solid) if the link's width is greater than 1. What can be done
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComPaneWidth of hoChart False to 128
Send Destroy to hoChart
Set ComAntiAliasing to True
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Variant h2
Get ComAddItem of hoItems "Task 2" to h2
Send ComAddBar of hoItems h2 "Task" "1/5/2001" "1/7/2001" "K2" Nothing
Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
Set ComLink of hoItems "L1" OLEexLinkStyle to 2
Set ComLink of hoItems "L1" OLEexLinkWidth to 2
Variant h3
Get ComAddItem of hoItems "Task 4" to h3
Send ComAddBar of hoItems h3 "Task" "1/8/2001" "1/10/2001" "K3" Nothing
Send ComAddLink of hoItems "L2" h2 "K2" h3 "K3"
Set ComLink of hoItems "L2" OLEexLinkStyle to 1
Set ComLink of hoItems "L2" OLEexLinkWidth to 2
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
2317
|
How can I change the tooltip's margins (method 2)
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComMouseMove llButton llShift llX llY
Variant vToolTip
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Get ComBarFromPoint of hoChart -1 -1 to vToolTip
Send Destroy to hoChart
Send ComShowToolTip vToolTip Nothing Nothing Nothing Nothing
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComToolTipMargin to "16,8"
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Def" to Nothing
Send Destroy to hoColumns
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComAllowCreateBar of hoChart1 to OLEexNoCreateBar
Set ComPaneWidth of hoChart1 False to 64
Set ComLevelCount of hoChart1 to 2
Set ComFirstVisibleDate of hoChart1 to "1/1/2010"
Variant voBars
Get ComBars of hoChart1 to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComDef of hoBar OLEexBarToolTip to "..."
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task" to h
Send ComAddBar of hoItems h "Task" "1/2/2010" "1/5/2010" "A" "A"
Send ComAddBar of hoItems h "Task" "1/5/2010" "1/8/2010" "B" "B"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
2316
|
Are there any properties to set text margins at tooltip, like Margins="5,5" (method 1). Margins is used to get some space between text and the tooltips border
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComMouseMove llButton llShift llX llY
Variant vToolTip
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Get ComBarFromPoint of hoChart -1 -1 to vToolTip
Send Destroy to hoChart
Send ComShowToolTip vToolTip Nothing Nothing Nothing Nothing
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComToolTipMargin to "16,8"
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Def" to Nothing
Send Destroy to hoColumns
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComAllowCreateBar of hoChart1 to OLEexNoCreateBar
Set ComPaneWidth of hoChart1 False to 64
Set ComLevelCount of hoChart1 to 2
Set ComFirstVisibleDate of hoChart1 to "1/1/2010"
Variant voBars
Get ComBars of hoChart1 to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComDef of hoBar OLEexBarToolTip to "..."
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task" to h
Send ComAddBar of hoItems h "Task" "1/2/2010" "1/5/2010" "A" "A"
Send ComAddBar of hoItems h "Task" "1/5/2010" "1/8/2010" "B" "B"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
2315
|
exShowExtendedLinks
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDefaultItemHeight to 24
Set ComHeaderHeight to 20
Set ComHeaderAppearance to OLEEtched
Set ComAntiAliasing to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 48
Set ComLevelCount of hoChart to 2
Set ComUnitScale of hoChart to OLEexHour
Set ComFirstVisibleDate of hoChart to "1/10/2024"
Variant voLevel
Get ComLevel of hoChart 1 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComDrawTickLines of hoLevel to OLEexLevelNoLine
Send ComDrawTickLinesFrom of hoLevel 0 OLEexLevelDotLine
Send Destroy to hoLevel
Set ComAllowResizeChart of hoChart to (|CI$fffffef9 + OLEexAllowChangeUnitScale + OLEexAllowResizeChartMiddle + OLEexAllowResizeChartHeader)
Set ComShowLinks of hoChart to OLEexShowExtendedLinks
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"T1")) "Task" "1/10/2024 10:00:00 AM" "1/10/2024 10:20:00 AM" "T1" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"T2")) "Task" "1/10/2024 9:00:00 AM" "1/10/2024 12:00:00 PM" "T2" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"T3")) "Task" "1/10/2024 8:00:00 AM" "1/10/2024 8:30:00 AM" "T3" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"T4")) "Task" "1/10/2024 8:00:00 AM" "1/10/2024 8:30:00 AM" "T4" Nothing
Send ComAddLink of hoItems "L13" (ComItemByIndex(hoItems,0)) "T1" (ComItemByIndex(hoItems,2)) "T3"
Send ComAddLink of hoItems "L14" (ComItemByIndex(hoItems,0)) "T1" (ComItemByIndex(hoItems,3)) "T4"
Send ComAddLink of hoItems "L24" (ComItemByIndex(hoItems,1)) "T2" (ComItemByIndex(hoItems,3)) "T4"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
2314
|
According to the documentation of the ShowExtendedLinksEnum value exShowExtendedLinks (1) it is possible to distinctly visualise links (rather than showing them one over another) when two or more links start or end on the same bar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDefaultItemHeight to 24
Set ComHeaderHeight to 20
Set ComHeaderAppearance to OLEEtched
Set ComAntiAliasing to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 48
Set ComLevelCount of hoChart to 2
Set ComUnitScale of hoChart to OLEexHour
Set ComFirstVisibleDate of hoChart to "1/10/2024"
Variant voLevel
Get ComLevel of hoChart 1 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComDrawTickLines of hoLevel to OLEexLevelNoLine
Send ComDrawTickLinesFrom of hoLevel 0 OLEexLevelDotLine
Send Destroy to hoLevel
Set ComAllowResizeChart of hoChart to (|CI$fffffef9 + OLEexAllowChangeUnitScale + OLEexAllowResizeChartMiddle + OLEexAllowResizeChartHeader)
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"T1")) "Task" "1/10/2024 10:00:00 AM" "1/10/2024 10:20:00 AM" "T1" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"T2")) "Task" "1/10/2024 9:00:00 AM" "1/10/2024 12:00:00 PM" "T2" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"T3")) "Task" "1/10/2024 8:00:00 AM" "1/10/2024 8:30:00 AM" "T3" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"T4")) "Task" "1/10/2024 8:00:00 AM" "1/10/2024 8:30:00 AM" "T4" Nothing
Send ComAddLink of hoItems "L1" (ComItemByIndex(hoItems,0)) "T1" (ComItemByIndex(hoItems,2)) "T3"
Send ComAddLink of hoItems "L2" (ComItemByIndex(hoItems,1)) "T2" (ComItemByIndex(hoItems,3)) "T4"
Set ComLink of hoItems "L2" OLEexLinkShowRound to 4
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
2313
|
How to use arrows key left/right to move the cursor left/right inside the text
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Edit" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLEEditType
Set ComOption of hoEditor OLEexLeftArrow to False
Set ComOption of hoEditor OLEexRightArrow to False
Send Destroy to hoEditor
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "000" to Nothing
Get ComAddItem of hoItems "111" to Nothing
Get ComAddItem of hoItems "222" to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
2312
|
How can I force the cursor to jump to the end of the editor once the user clicks the cell
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComSelBackColor to (ComBackColor(Self))
Set ComSelForeColor to (ComForeColor(Self))
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Edit" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLEEditType
Set ComOption of hoEditor OLEexEditSelStart to -1
Send Destroy to hoEditor
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "000" to Nothing
Get ComAddItem of hoItems "111" to Nothing
Get ComAddItem of hoItems "222" to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
2311
|
How can I show the overview with a different color except or outside the selection
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAEhABVIDg6AADACAxRDAMgBQKAAzAJBIYhiGgcYCgMZBSDeCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADE2YAoJDUN4nDKMMDybBkRxtDCPIDnGQoDiGI4nSbKIzSCKMQhrEKZZrnaLJFgOTY8ABLEBvfSgASof6MKBlKhKGoiUo2SCFEaBTBNHxDL6raqqWJ5HDINQlWzbcjjKKFYRbOqTZDkGj4XqKTo3YBAdZSXJsXwTGKkji3ZgMOR3HaQaTjOgINpuDZdRzkUYZUDFSwSDqQIRtCpbJqzFZDZbLNbYBYME47AayID0CbdCgmaalSZHNxbVa0BzpXrFLw1TLoDy8AJ+ABseKzfo9PxdIygZRzKJ8aofE+YxynIfJcC8QgbCmL5eiEPIKH6RABlibJpicW4/FcAx/HOYRGmud4+CcHxdmiDhkGEIIIEkQJSGMHQHFGSBlFEUITEmewAAQIQ2AYRpDGQJAoEIXhXCkCB5kmSAdmgVZPmgZJ8gaT4oHSeIHk8aIEnWCJiEiFgmgmYoIiYJIIE8aB8niB0pmyfIGE+ZYmDQPpjgOUg6DqY5DgYPg2mQAxqEKEJkEkFhGhGZIJA4QA2mOY4GDwOsumCe4NAACJKDoPQOFkZJThaSoZHSGYXmYCYGGKGJmEmFhmCsJoDFYag5iaSISDIAAjAkPJLhyS4JlYbA5iSeZmHqHpnkmdh+hOZx5lSOAzGgSQ+DAAAimkNIkiKTh6DSbIjmkChGhKJJpEoVoWiSaJThyKImmSWI4ACCwNkqBhgDsahKhaJopmqComiqKpqkqEhghKYpAAIJIQmYA46jaLZrgqZo6i6a5KnaPotiZRQkiyIg6lIXw7myCwmkqMpsksNpOjObQLCKQYQiwOpOEKGAPAsZpajabZLHaXo3m4C4GlmNJNisVpFjWZZzkaao6m6S42m6O5vAuRpyjqLhLhidYxgmE5KnqPpvkudp+j+cAMAcAo+i8WIOkSPZuguZwDkKcJMDafpBE8XAengPJxEwVwWkWcYMGcGpGnGTBTBCRIwhkXwikichMhcJpJnKDIPB+NYNimAgqkucwMkcMoInKO4fC2F5ikyZw6k6c5MncPpPnOLJXAiTZJhOXxGlGdINCcSpSnSTQ3E6UY0CuYgulSdRNFcVpVnWDRnFSVBwh0axeledgNFsXJRA+HYXGaWZ2g2JxqlqdpNjcZZYmYCJDHKXJ3E2K4doux3gbE8OEF4ygtjuH6L8eAHAHgFGCO8bY2QZgZDiBwJ4FRijxE4G8DoxBxj6B6EINwTADjvBaMseYHBng1GaPMTg7wepxA4J4Rx8RjgfCYFMeoEQ6BpGqPUTob2MD2A6IQLoNAKiHAuG0WYAAJCVBCCETAHR3DMFWPgDwD29j4E8CoV4sw7imAIIcJASggAHBeBIJw5grikCmHoSYNxWjrH2BMAoNgqAZE8O0GYEg5DgAIG8DgxwjhXGaCYZIcgnxBGSDILgmwTjKHkJMNwqgjCREoGEC4RRMifHqJcYokQ6BgEYJEUIaQOhlHIIESAECAg=" to Nothing
Send Destroy to hoAppearance
Set ComBackColorLevelHeader to (ComBackColor(Self))
Set ComBackground OLEexOverviewSelResize to (RGB(1,0,0))
Set ComBackground OLEexOverviewSelOut to (RGB(240,240,240))
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComOverviewSelBackColor of hoChart to (RGB(255,255,255))
Send Destroy to hoChart
Set ComBackground OLEexOverviewSelUnit to |CI$1000000
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComFirstVisibleDate of hoChart1 to "6/21/2001"
Set ComPaneWidth of hoChart1 False to 48
Set ComOverviewVisible of hoChart1 to (|CI$400 + OLEexOverviewShowSelMargins + OLEexOverviewShowMargins + OLEexOverviewShowDateTimeScaleBottom + OLEexOverviewShowAllVisible)
Set ComOverviewHeight of hoChart1 to 64
Set ComLevelCount of hoChart1 to 2
Set ComUnitScale of hoChart1 to OLEexDay
Set ComLabel of hoChart1 OLEexHour to ""
Set ComLabel of hoChart1 OLEexMinute to ""
Set ComLabel of hoChart1 OLEexSecond to ""
Set ComAllowOverviewZoom of hoChart1 to OLEexAlwaysZoom
Send Destroy to hoChart1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2001" "1/11/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 2")) "Task" "7/2/2001" "7/11/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 3")) "Task" "11/2/2001" "11/11/2001" Nothing Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
2310
|
Resize the chart using the overview's selection left and right margins (blue)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComBackColorLevelHeader to (ComBackColor(Self))
Set ComBackground OLEexOverviewSelResize to (RGB(0,0,255))
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "6/21/2001"
Set ComPaneWidth of hoChart False to 48
Set ComOverviewVisible of hoChart to (|CI$400 + OLEexOverviewShowSelMargins + OLEexOverviewShowMargins + OLEexOverviewShowDateTimeScaleBottom + OLEexOverviewShowAllVisible)
Set ComOverviewHeight of hoChart to 64
Set ComLevelCount of hoChart to 2
Set ComUnitScale of hoChart to OLEexDay
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2001" "1/11/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 2")) "Task" "7/2/2001" "7/11/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 3")) "Task" "11/2/2001" "11/11/2001" Nothing Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
2309
|
Resize the chart using the overview's selection left and right margins (black)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComBackColorLevelHeader to (ComBackColor(Self))
Set ComBackground OLEexOverviewSelResize to (RGB(1,0,0))
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "6/21/2001"
Set ComPaneWidth of hoChart False to 48
Set ComOverviewVisible of hoChart to (|CI$400 + OLEexOverviewShowSelMargins + OLEexOverviewShowMargins + OLEexOverviewShowDateTimeScaleBottom + OLEexOverviewShowAllVisible)
Set ComOverviewHeight of hoChart to 64
Set ComLevelCount of hoChart to 2
Set ComUnitScale of hoChart to OLEexDay
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2001" "1/11/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 2")) "Task" "7/2/2001" "7/11/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 3")) "Task" "11/2/2001" "11/11/2001" Nothing Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
2308
|
Disable temporarily the column's sort, resize and drag and drop
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComOnResizeControl to OLEexResizeChart
Set ComSortBarVisible to True
Set ComSortBarCaption to "<fgcolor 808080><c>the header and the sort-bar are disabled (no drag and drop is allowed)"
Set ComAllowGroupBy to True
Set ComHeaderEnabled to False
Set ComHeaderAppearance to OLEEtched
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Index" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComFormatColumn of hoColumn to "1 index ``"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "Pos" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComFormatColumn of hoColumn1 to "1 apos ``"
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn2
Get ComAdd of hoColumns2 "Edit" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Variant voEditor
Get ComEditor of hoColumn2 to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLEEditType
Send Destroy to hoEditor
Send Destroy to hoColumn2
Send Destroy to hoColumns2
Set ComGridLineStyle to OLEexGridLinesGeometric
Set ComDrawGridLines to OLEexVLines
Set ComGridLineColor to (RGB(224,224,224))
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComAllowCreateBar of hoChart to OLEexCreateBarAuto
Set ComLevelCount of hoChart to 2
Set ComFirstVisibleDate of hoChart to "12/28/2000"
Set ComPaneWidth of hoChart False to 196
Set ComGridLineStyle of hoChart to OLEexGridLinesGeometric
Set ComDrawGridLines of hoChart to OLEexAllLines
Variant voLevel
Get ComLevel of hoChart 1 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComDrawGridLines of hoLevel to True
Variant v
Get ComGridLineColor to v
Set ComGridLineColor of hoLevel to v
Send Destroy to hoLevel
Send Destroy to hoChart
Send ComEndUpdate
End_Procedure
|
|
2307
|
Adds a Finish-Start(FS) link (method 3)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Name" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Set ComFirstVisibleDate of hoChart to "12/28/2000"
Set ComPaneWidth of hoChart False to 64
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Item 1" to h1
Send ComAddBar of hoItems h1 "Task" "1/3/2001" "1/6/2001" Nothing Nothing
Variant h2
Get ComAddItem of hoItems "Item 2" to h2
Send ComAddBar of hoItems h2 "Task" "1/3/2001" "1/6/2001" Nothing Nothing
Send ComAddLink of hoItems "Link1" h1 "" h2 ""
Get ComSchedulePDM of hoItems 0 "" to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
2306
|
Adds a Start-Start(SS) link (method 3)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Name" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Set ComFirstVisibleDate of hoChart to "12/28/2000"
Set ComPaneWidth of hoChart False to 64
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Item 1" to h1
Send ComAddBar of hoItems h1 "Task" "1/3/2001" "1/6/2001" Nothing Nothing
Variant h2
Get ComAddItem of hoItems "Item 2" to h2
Send ComAddBar of hoItems h2 "Task" "1/3/2001" "1/6/2001" Nothing Nothing
Send ComAddLink of hoItems "Link1" h1 "" h2 ""
Set ComLink of hoItems "Link1" OLEexLinkStartPos to 0
Set ComLink of hoItems "Link1" OLEexLinkEndPos to 0
Get ComSchedulePDM of hoItems 0 "" to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
2305
|
Adds a Finish-Finish(FF) link (method 3)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Name" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Set ComFirstVisibleDate of hoChart to "12/28/2000"
Set ComPaneWidth of hoChart False to 64
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Item 1" to h1
Send ComAddBar of hoItems h1 "Task" "1/3/2001" "1/6/2001" Nothing Nothing
Variant h2
Get ComAddItem of hoItems "Item 2" to h2
Send ComAddBar of hoItems h2 "Task" "1/3/2001" "1/6/2001" Nothing Nothing
Send ComAddLink of hoItems "Link1" h1 "" h2 ""
Set ComLink of hoItems "Link1" OLEexLinkStartPos to 2
Set ComLink of hoItems "Link1" OLEexLinkEndPos to 2
Get ComSchedulePDM of hoItems 0 "" to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
2304
|
Adds a Start-Finish(SF) link (method 3)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Name" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Set ComFirstVisibleDate of hoChart to "12/28/2000"
Set ComPaneWidth of hoChart False to 64
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Item 1" to h1
Send ComAddBar of hoItems h1 "Task" "1/3/2001" "1/6/2001" Nothing Nothing
Variant h2
Get ComAddItem of hoItems "Item 2" to h2
Send ComAddBar of hoItems h2 "Task" "1/3/2001" "1/6/2001" Nothing Nothing
Send ComAddLink of hoItems "Link1" h1 "" h2 ""
Set ComLink of hoItems "Link1" OLEexLinkStartPos to 0
Set ComLink of hoItems "Link1" OLEexLinkEndPos to 2
Get ComSchedulePDM of hoItems 0 "" to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
2303
|
Adds a Finish-Start(FS) link (method 2)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Name" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Set ComFirstVisibleDate of hoChart to "12/28/2000"
Set ComPaneWidth of hoChart False to 64
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Item 1" to h1
Send ComAddBar of hoItems h1 "Task" "1/3/2001" "1/6/2001" Nothing Nothing
Variant h2
Get ComAddItem of hoItems "Item 2" to h2
Send ComAddBar of hoItems h2 "Task" "1/3/2001" "1/6/2001" Nothing Nothing
Set ComItemBar of hoItems h2 "" OLEexBarPredecessor to "1FS"
Get ComSchedulePDM of hoItems 0 "" to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
2302
|
Adds a Start-Start(SS) link (method 2)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Name" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Set ComFirstVisibleDate of hoChart to "12/28/2000"
Set ComPaneWidth of hoChart False to 64
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Item 1" to h1
Send ComAddBar of hoItems h1 "Task" "1/3/2001" "1/6/2001" Nothing Nothing
Variant h2
Get ComAddItem of hoItems "Item 2" to h2
Send ComAddBar of hoItems h2 "Task" "1/3/2001" "1/6/2001" Nothing Nothing
Set ComItemBar of hoItems h2 "" OLEexBarPredecessor to "1SS"
Get ComSchedulePDM of hoItems 0 "" to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
2301
|
Adds a Finish-Finish(FF) link (method 2)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Name" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Set ComFirstVisibleDate of hoChart to "12/28/2000"
Set ComPaneWidth of hoChart False to 64
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Item 1" to h1
Send ComAddBar of hoItems h1 "Task" "1/3/2001" "1/6/2001" Nothing Nothing
Variant h2
Get ComAddItem of hoItems "Item 2" to h2
Send ComAddBar of hoItems h2 "Task" "1/3/2001" "1/6/2001" Nothing Nothing
Set ComItemBar of hoItems h2 "" OLEexBarPredecessor to "1FF"
Get ComSchedulePDM of hoItems 0 "" to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|