|
194
|
Is there a way to do a count but not a count of records but of distinct values
Procedure OnCreate
Forward Send OnCreate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotRows to "0"
Set ComPivotColumns to "unique(5)"
End_Procedure
|
|
193
|
Adds negative values only (method 2)
Procedure OnCreate
Forward Send OnCreate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Variant voAggregates
Get ComAggregates to voAggregates
Handle hoAggregates
Get Create (RefClass(cComAggregates)) to hoAggregates
Set pvComObject of hoAggregates to voAggregates
Variant voAggregate
Get ComAdd of hoAggregates "sumN" "sum" "sumN" "Count-positive" to voAggregate
Handle hoAggregate
Get Create (RefClass(cComAggregate)) to hoAggregate
Set pvComObject of hoAggregate to voAggregate
Set ComFormatValue of hoAggregate to "value < 0 ? value : 0"
Send Destroy to hoAggregate
Send Destroy to hoAggregates
Set ComPivotRows to "0"
Set ComPivotColumns to "sumN(5)"
End_Procedure
|
|
192
|
Adds negative values only (method 1)
Procedure OnCreate
Forward Send OnCreate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Variant voAggregates
Get ComAggregates to voAggregates
Handle hoAggregates
Get Create (RefClass(cComAggregates)) to hoAggregates
Set pvComObject of hoAggregates to voAggregates
Get ComAdd of hoAggregates "sumN" "dbl(pvalue) + (dbl(value) < 0 ? dbl(value) : 0)" "sumN" "Count-positive" to Nothing
Send Destroy to hoAggregates
Set ComPivotRows to "0"
Set ComPivotColumns to "sumN(5)"
End_Procedure
|
|
191
|
Counts positive value only (method 2)
Procedure OnCreate
Forward Send OnCreate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Variant voAggregates
Get ComAggregates to voAggregates
Handle hoAggregates
Get Create (RefClass(cComAggregates)) to hoAggregates
Set pvComObject of hoAggregates to voAggregates
Variant voAggregate
Get ComAdd of hoAggregates "countP" "sum" "countP" "Count-positive" to voAggregate
Handle hoAggregate
Get Create (RefClass(cComAggregate)) to hoAggregate
Set pvComObject of hoAggregate to voAggregate
Set ComFormatValue of hoAggregate to "value > 0 ? 1 : 0"
Send Destroy to hoAggregate
Send Destroy to hoAggregates
Set ComPivotRows to "0"
Set ComPivotColumns to "countP(5),count(5)"
End_Procedure
|
|
190
|
Counts positive value only (method 1)
Procedure OnCreate
Forward Send OnCreate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Variant voAggregates
Get ComAggregates to voAggregates
Handle hoAggregates
Get Create (RefClass(cComAggregates)) to hoAggregates
Set pvComObject of hoAggregates to voAggregates
Get ComAdd of hoAggregates "countP" "dbl(pvalue) + (dbl(value) > 0 ? 1 : 0)" "countP" "Count-positive" to Nothing
Send Destroy to hoAggregates
Set ComPivotRows to "0"
Set ComPivotColumns to "countP(5),count(5)"
End_Procedure
|
|
189
|
Equivalent of UNIQUE aggregate using expression
Procedure OnCreate
Forward Send OnCreate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Variant voAggregates
Get ComAggregates to voAggregates
Handle hoAggregates
Get Create (RefClass(cComAggregates)) to hoAggregates
Set pvComObject of hoAggregates to voAggregates
Variant voAggregate
Get ComAdd of hoAggregates "uniqueEq" "pvalue + ((pvalue contains (';' + value + `;`)) ? `` : (';' + value + `;`))" "uniqueEq" "uniqueEq" to voAggregate
Handle hoAggregate
Get Create (RefClass(cComAggregate)) to hoAggregate
Set pvComObject of hoAggregate to voAggregate
Set ComFormatResult of hoAggregate to "(value count `;`)/2"
Send Destroy to hoAggregate
Send Destroy to hoAggregates
Set ComPivotRows to "0"
Set ComPivotColumns to "unique(5),uniqueEq(5)"
End_Procedure
|
|
188
|
Equivalent of AVG aggregate using expression
Procedure OnCreate
Forward Send OnCreate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Variant voAggregates
Get ComAggregates to voAggregates
Handle hoAggregates
Get Create (RefClass(cComAggregates)) to hoAggregates
Set pvComObject of hoAggregates to voAggregates
Variant voAggregate
Get ComAdd of hoAggregates "avgEq" "dbl(pvalue) + dbl(value)" "avgEq" "avgEq" to voAggregate
Handle hoAggregate
Get Create (RefClass(cComAggregate)) to hoAggregate
Set pvComObject of hoAggregate to voAggregate
Set ComFormatResult of hoAggregate to "value / vcount"
Send Destroy to hoAggregate
Send Destroy to hoAggregates
Set ComPivotRows to "0"
Set ComPivotColumns to "avg(5),avgEq(5)"
End_Procedure
|
|
187
|
Equivalent of COUNT aggregate using expression
Procedure OnCreate
Forward Send OnCreate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Variant voAggregates
Get ComAggregates to voAggregates
Handle hoAggregates
Get Create (RefClass(cComAggregates)) to hoAggregates
Set pvComObject of hoAggregates to voAggregates
Get ComAdd of hoAggregates "countEq" "pvalue + 1" "countEq" "countEq" to Nothing
Send Destroy to hoAggregates
Set ComPivotRows to "0"
Set ComPivotColumns to "count(5),countEq(5)"
End_Procedure
|
|
186
|
Equivalent of SUM aggregate using expression
Procedure OnCreate
Forward Send OnCreate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Variant voAggregates
Get ComAggregates to voAggregates
Handle hoAggregates
Get Create (RefClass(cComAggregates)) to hoAggregates
Set pvComObject of hoAggregates to voAggregates
Get ComAdd of hoAggregates "sumEq" "dbl(pvalue) + dbl(value)" "sumEq" "sumEq" to Nothing
Send Destroy to hoAggregates
Set ComPivotRows to "0"
Set ComPivotColumns to "sum(5),sumEq(5)"
End_Procedure
|
|
185
|
Disable chart stacking
// Occurs when the control's view is changed, such as when data is updated, summarized, sorted, or filtered.
Procedure OnComViewChange
Forward Send OnComViewChange
Variant voCustomView
Get ComCustomView to voCustomView
Handle hoCustomView
Get Create (RefClass(cComCustomView)) to hoCustomView
Set pvComObject of hoCustomView to voCustomView
Variant voGraph
Get ComObject of hoCustomView to voGraph
Handle hoGraph
Get Create (RefClass(cComGraph)) to hoGraph
Set pvComObject of hoGraph to voGraph
Set ComAllowStack of hoGraph to False
Send Destroy to hoGraph
Send Destroy to hoCustomView
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderHeight to 24
Set ComHeaderAppearance to OLEEtched
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotColumnsFloatBarVisible to OLEexPanelVisible
Set ComPivotRows to "0"
Set ComPivotColumns to "sum(5)/12"
Set ComShowBranchRows to OLEexBranchColumns
Set ComPivotBarVisible to (OLEexPivotBarSingleAggregate + OLEexPivotBarDefault)
Variant voCustomView1
Get ComCustomView to voCustomView1
Handle hoCustomView1
Get Create (RefClass(cComCustomView)) to hoCustomView1
Set pvComObject of hoCustomView1 to voCustomView1
Set ComControlID of hoCustomView1 to "exontrol.graph"
Send Destroy to hoCustomView1
Send ComEndUpdate
End_Procedure
|
|
184
|
Can the vertical/horizontal line be hidden when the cursor hovers over the graph chart
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderHeight to 24
Set ComHeaderAppearance to OLEEtched
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotColumnsFloatBarVisible to OLEexPanelVisible
Set ComPivotRows to "0"
Set ComPivotColumns to "sum(5)/12"
Set ComShowBranchRows to OLEexBranchColumns
Set ComPivotBarVisible to (OLEexPivotBarSingleAggregate + OLEexPivotBarDefault)
Variant voCustomView
Get ComCustomView to voCustomView
Handle hoCustomView
Get Create (RefClass(cComCustomView)) to hoCustomView
Set pvComObject of hoCustomView to voCustomView
Set ComLicense of hoCustomView to "XXXXXXXX"
Set ComControlID of hoCustomView to "exontrol.graph"
Variant voGraph
Get ComObject of hoCustomView to voGraph
Handle hoGraph
Get Create (RefClass(cComGraph)) to hoGraph
Set pvComObject of hoGraph to voGraph
Variant voCursor
Get ComCursor of hoGraph to voCursor
Handle hoCursor
Get Create (RefClass(cComCursor)) to hoCursor
Set pvComObject of hoCursor to voCursor
Set ComVisible of hoCursor to False
Send Destroy to hoCursor
Send Destroy to hoGraph
Send Destroy to hoCustomView
Send ComEndUpdate
End_Procedure
|
|
183
|
Define the column caption and row title when the PivotRows property is empty
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderHeight to 24
Set ComHeaderAppearance to OLEEtched
Set ComDescription OLEexColumnEmptyPivotRows to "<c>\"
Set ComDescription OLEexRowEmptyPivotRows to "Total"
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotColumnsFloatBarVisible to OLEexPanelAsChild
Set ComPivotColumns to "sum(5)[content=numeric]"
Set ComShowBranchRows to OLEexBranchColumns
Set ComDrawGridLines to OLEexRowLines
Set ComGridLineStyle to OLEexGridLinesSolid
Send ComEndUpdate
End_Procedure
|
|
182
|
Change the background color of the splitbars
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComBackground OLEexHSplitBar to (RGB(240,240,240))
Set ComBackground OLEexCSplitBar to (RGB(240,240,240))
Set ComHeaderHeight to 24
Set ComHeaderAppearance to OLEEtched
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotColumnsFloatBarVisible to OLEexPanelAsChild
Set ComPivotRows to "0"
Set ComPivotColumns to "sum(5)/12"
Set ComShowBranchRows to OLEexBranchColumns
Set ComPivotBarVisible to (OLEexPivotBarSingleAggregate + OLEexPivotBarDefault)
Set ComDrawGridLines to OLEexVLines
Send ComEndUpdate
End_Procedure
|
|
181
|
Occurs when the control's view is changed, such as when data is updated, summarized, sorted, or filtered
// Occurs when the control's view is changed, such as when data is updated, summarized, sorted, or filtered.
Procedure OnComViewChange
Forward Send OnComViewChange
Variant v
Variant voCustomView
Get ComCustomView to voCustomView
Handle hoCustomView
Get Create (RefClass(cComCustomView)) to hoCustomView
Set pvComObject of hoCustomView to voCustomView
Get ComColumns of hoCustomView to v
Send Destroy to hoCustomView
Showln v
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComHeaderHeight to 24
Set ComHeaderAppearance to OLEEtched
Set ComGridLineStyle to OLEexGridLinesGeometric
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotColumns to "sum(5)/12"
End_Procedure
|
|
180
|
Retrieves the data information about the current view, such as columns, data, ...
// Occurs when the control's view is changed, such as when data is updated, summarized, sorted, or filtered.
Procedure OnComViewChange
Forward Send OnComViewChange
Variant voCustomView
Get ComCustomView to voCustomView
Handle hoCustomView
Get Create (RefClass(cComCustomView)) to hoCustomView
Set pvComObject of hoCustomView to voCustomView
Showln "Columns" (ComColumns(hoCustomView))
Showln "Items" (ComItems(hoCustomView))
Showln "Categories" (ComCategories(hoCustomView))
Showln "Series" (ComSeries(hoCustomView))
Showln "Data" (ComData(hoCustomView))
Send Destroy to hoCustomView
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderHeight to 24
Set ComHeaderAppearance to OLEEtched
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotColumnsFloatBarVisible to OLEexPanelVisible
Set ComPivotRows to "0"
Set ComPivotColumns to "sum(5)"
Set ComShowBranchRows to OLEexBranchColumns
Set ComPivotBarVisible to (OLEexPivotBarSingleAggregate + OLEexPivotBarDefault)
Variant var_CustomView
Get ComCustomView to var_CustomView
Send ComEndUpdate
End_Procedure
|
|
179
|
Access the custom-view
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderHeight to 24
Set ComHeaderAppearance to OLEEtched
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotColumnsFloatBarVisible to OLEexPanelVisible
Set ComPivotRows to "0"
Set ComPivotColumns to "sum(5)"
Set ComShowBranchRows to OLEexBranchColumns
Set ComPivotBarVisible to (OLEexPivotBarSingleAggregate + OLEexPivotBarDefault)
Variant voCustomView
Get ComCustomView to voCustomView
Handle hoCustomView
Get Create (RefClass(cComCustomView)) to hoCustomView
Set pvComObject of hoCustomView to voCustomView
Set ComControlID of hoCustomView to "exontrol.graph"
Variant voGraph
Get ComObject of hoCustomView to voGraph
Handle hoGraph
Get Create (RefClass(cComGraph)) to hoGraph
Set pvComObject of hoGraph to voGraph
Set ComForeColor of hoGraph to (RGB(128,128,128))
Send Destroy to hoGraph
Send Destroy to hoCustomView
Send ComEndUpdate
End_Procedure
|
|
178
|
Switch between custom view and table mode
// Occurs whenever the custom view fires an event.
Procedure OnComOleEvent Variant llEv
Forward Send OnComOleEvent llEv
Variant voCustomView
Get ComCustomView to voCustomView
Handle hoCustomView
Get Create (RefClass(cComCustomView)) to hoCustomView
Set pvComObject of hoCustomView to voCustomView
Set ComVisible of hoCustomView to False
Send Destroy to hoCustomView
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderHeight to 24
Set ComHeaderAppearance to OLEEtched
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotColumnsFloatBarVisible to OLEexPanelVisible
Set ComPivotRows to "0"
Set ComPivotColumns to "sum(5)"
Set ComShowBranchRows to OLEexBranchColumns
Set ComPivotBarVisible to (OLEexPivotBarSingleAggregate + OLEexPivotBarDefault)
Variant voCustomView1
Get ComCustomView to voCustomView1
Handle hoCustomView1
Get Create (RefClass(cComCustomView)) to hoCustomView1
Set pvComObject of hoCustomView1 to voCustomView1
Set ComControlID of hoCustomView1 to "exontrol.graph"
Send Destroy to hoCustomView1
Send ComEndUpdate
End_Procedure
|
|
177
|
'exontrol.graph' component creation failed
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderHeight to 24
Set ComHeaderAppearance to OLEEtched
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotColumnsFloatBarVisible to OLEexPanelVisible
Set ComPivotRows to "0"
Set ComPivotColumns to "sum(5)/12"
Set ComShowBranchRows to OLEexBranchColumns
Set ComPivotBarVisible to (OLEexPivotBarSingleAggregate + OLEexPivotBarDefault)
Variant voCustomView
Get ComCustomView to voCustomView
Handle hoCustomView
Get Create (RefClass(cComCustomView)) to hoCustomView
Set pvComObject of hoCustomView to voCustomView
Set ComLicense of hoCustomView to "XXXXXXXX"
Set ComControlID of hoCustomView to "exontrol.graph"
Send Destroy to hoCustomView
Send ComEndUpdate
End_Procedure
|
|
176
|
How can I change the graphical/chart representation of my data
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderHeight to 24
Set ComHeaderAppearance to OLEEtched
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotColumnsFloatBarVisible to OLEexPanelVisible
Set ComPivotRows to "0"
Set ComPivotColumns to "sum(5)/12"
Set ComShowBranchRows to OLEexBranchColumns
Set ComPivotBarVisible to (OLEexPivotBarSingleAggregate + OLEexPivotBarDefault)
Variant voCustomView
Get ComCustomView to voCustomView
Handle hoCustomView
Get Create (RefClass(cComCustomView)) to hoCustomView
Set pvComObject of hoCustomView to voCustomView
Set ComControlID of hoCustomView to "exontrol.graph"
Variant voGraph
Get ComObject of hoCustomView to voGraph
Handle hoGraph
Get Create (RefClass(cComGraph)) to hoGraph
Set pvComObject of hoGraph to voGraph
Set ComSerieType of hoGraph to "line"
Send Destroy to hoGraph
Send Destroy to hoCustomView
Send ComEndUpdate
End_Procedure
|
|
175
|
Organizes the layout into distinct sections: one for pivot rows, one for pivot columns, and a separate area for defining aggregates
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderHeight to 24
Set ComHeaderAppearance to OLEEtched
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotColumnsFloatBarVisible to OLEexPanelAsChild
Set ComShowBranchRows to OLEexBranchColumns
Set ComPivotRows to "0"
Set ComPivotBarVisible to (OLEexPivotBarSingleAggregate + OLEexPivotBarDefault)
Set ComShowDataOnDblClick to True
Send ComEndUpdate
End_Procedure
|
|
174
|
How can I provide a graphical/chart representation of my data
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderHeight to 24
Set ComHeaderAppearance to OLEEtched
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotColumnsFloatBarVisible to OLEexPanelAsChild
Set ComPivotRows to "0"
Set ComPivotColumns to "sum(5)"
Variant voCustomView
Get ComCustomView to voCustomView
Handle hoCustomView
Get Create (RefClass(cComCustomView)) to hoCustomView
Set pvComObject of hoCustomView to voCustomView
Set ComControlID of hoCustomView to "exontrol.graph"
Send Destroy to hoCustomView
Send ComEndUpdate
End_Procedure
|
|
173
|
Rename the Total caption
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderHeight to 24
Set ComHeaderAppearance to OLEEtched
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotRows to "0"
Set ComPivotColumns to "sum(5)"
Set ComPivotTotals to "/sum[bold]"
Set ComPivotColumnsFloatBarVisible to OLEexPanelAsChild
Set ComFormatPivotTotal to "( iaggregate = 5 ? (ilevel = 0 ? 'Overall amount' : 'Sectional sum') : caggregate )"
Send ComEndUpdate
End_Procedure
|
|
172
|
Specify the size of the Columns panel
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderHeight to 24
Set ComHeaderAppearance to OLEEtched
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotRows to "0"
Set ComPivotColumns to "sum(5)"
Set ComPivotColumnsFloatBarRect to ",,96"
Set ComPivotColumnsFloatBarVisible to OLEexPanelAsChild
Send ComEndUpdate
End_Procedure
|
|
171
|
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
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotRows to "0"
Set ComPivotColumns to "sum(5)"
Set ComPivotColumnsFloatBarVisible to OLEexPanelAsChild
Send ComEndUpdate
End_Procedure
|
|
170
|
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
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotRows to "0"
Set ComPivotColumns to "sum(5)"
Set ComPivotColumnsFloatBarVisible to OLEexPanelAsChild
Send ComEndUpdate
End_Procedure
|
|
169
|
Change the background of the Columns panel (solid color)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderHeight to 24
Set ComHeaderAppearance to OLEEtched
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotRows to "0"
Set ComPivotColumns to "sum(5)"
Set ComPivotColumnsFloatBarVisible to OLEexPanelAsChild
Set ComBackground OLEexColumnsFloatBackColor to (RGB(240,240,240))
Send ComEndUpdate
End_Procedure
|
|
168
|
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
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotRows to "0"
Set ComPivotColumns to "sum(5)"
Set ComPivotColumnsFloatBarVisible to OLEexPanelVisible
Send ComEndUpdate
End_Procedure
|
|
167
|
Display the columns that users can group by or use for aggregate functions (child)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderHeight to 24
Set ComHeaderAppearance to OLEEtched
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotRows to "0"
Set ComPivotColumns to "sum(5)"
Set ComPivotColumnsFloatBarVisible to OLEexPanelAsChild
Send ComEndUpdate
End_Procedure
|
|
166
|
Display the columns that users can group by or use for aggregate functions (float)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderHeight to 24
Set ComHeaderAppearance to OLEEtched
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotRows to "0"
Set ComPivotColumns to "sum(5)"
Set ComPivotColumnsFloatBarVisible to OLEexPanelVisible
Send ComEndUpdate
End_Procedure
|
|
165
|
ShowIdem {string}, specifies the symbol used to indicate repeated captions, offering a clear visual cue for identical entries. This property is effective only when the showBranchRows property is set to exBranchColumns mode
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotRows to "0[bold],2"
Set ComPivotColumns to "sum(5)[content=currency],sum(5)[content=currency]/12:A"
Set ComPivotTotals to "/sum[bold,content=currency]"
Set ComShowBranchRows to OLEexBranchColumns
Set ComShowIdem to "<fgcolor lightgray>〃"
Send ComEndUpdate
End_Procedure
|
|
164
|
exBranchColumns + exBranchIncludeAggregate + exBranchRowDivider
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotRows to "0[bold],2"
Set ComPivotColumns to "sum(5)[content=currency],sum(5)[content=currency]/12:A"
Set ComPivotTotals to "/sum[bold,content=currency]"
Set ComShowBranchRows to (OLEexBranchIncludeAggregate + OLEexBranchRowDivider + OLEexBranchColumns)
Send ComEndUpdate
End_Procedure
|
|
163
|
exBranchColumns + exBranchIncludeAggregate
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotRows to "0[bold],2"
Set ComPivotColumns to "sum(5)[content=currency],sum(5)[content=currency]/12:A"
Set ComPivotTotals to "/sum[bold,content=currency]"
Set ComShowBranchRows to (OLEexBranchIncludeAggregate + OLEexBranchColumns)
Send ComEndUpdate
End_Procedure
|
|
162
|
exBranchColumns
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotRows to "0[bold],2"
Set ComPivotColumns to "sum(5)[content=currency],sum(5)[content=currency]/12:A"
Set ComPivotTotals to "/sum[bold,content=currency]"
Set ComShowBranchRows to OLEexBranchColumns
Send ComEndUpdate
End_Procedure
|
|
161
|
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 ComHeaderHeight to 28
Set ComBackground OLEexHeaderFilterBarButton to |CI$2000000
Set ComBackground OLEexHeaderFilterBarActive to |CI$2000001
Set ComBackground OLEexCursorHoverColumn to -1
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComFilterBarFont to (ComFont(Self))
Set ComDescription OLEexFilterBarAnd to (ComFormatABC(Self,"`<fgcolor=808080> ` + value + ` </fgcolor>`",(ComDescription(Self,OLEexFilterBarAnd)),Nothing,Nothing))
Set ComFilterBarCaption to "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
Set ComFilterBarPromptVisible to (OLEexFilterBarCompact + OLEexFilterBarShowCloseIfRequired + OLEexFilterBarSingleLine + OLEexFilterBarCaptionVisible + OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
Send ComEndUpdate
End_Procedure
|
|
160
|
Can I use a control to generate the data and another to import data (sample 2)
Procedure OnCreate
Forward Send OnCreate
Handle hoPivot
Get Create (RefClass(cComPivot)) to hoPivot // Import the 'ExPivot 1.0 Control Library' library
Get ComImport of hoPivot "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotRows of hoPivot to "0"
Set ComPivotColumns of hoPivot to "sum(5)[caption=<fgcolor red><b>Total]"
Variant d
Get ComExport of hoPivot Nothing Nothing to d
Send Destroy to hoPivot
Get ComImport d Nothing to Nothing
End_Procedure
|
|
159
|
Can I use a control to generate the data and another to import data (sample 1)
Procedure OnCreate
Forward Send OnCreate
Handle hoPivot
Get Create (RefClass(cComPivot)) to hoPivot // Import the 'ExPivot 1.0 Control Library' library
Variant rs
Get Comcreateobject of hoPivot "ADODB.Recordset" to rs
Variant voFields
Get ComFields of hoPivot to voFields
Handle hoFields
Get Create (RefClass(cComFields)) to hoFields
Set pvComObject of hoFields to voFields
Send ComAppend of hoFields "Code" OLEadBSTR Nothing Nothing Nothing
Send ComAppend of hoFields "Customer" OLEadBSTR Nothing Nothing Nothing
Send ComAppend of hoFields "Sales" OLEadDouble Nothing Nothing Nothing
Send Destroy to hoFields
Send ComOpen of hoPivot Nothing Nothing Nothing Nothing Nothing
Send ComAddNew of hoPivot Nothing Nothing
Variant vo
Get ComFields of hoPivot to vo
Handle ho
Get Create (RefClass(cCom)) to ho
Set pvComObject of ho to vo
Variant voField
Get ComItem of ho "Code" to voField
Handle hoField
Get Create (RefClass(cComField)) to hoField
Set pvComObject of hoField to voField
Set ComValue of hoField to "M"
Send Destroy to hoField
Send Destroy to ho
Variant vo1
Get ComFields of hoPivot to vo1
Handle ho1
Get Create (RefClass(cCom)) to ho1
Set pvComObject of ho1 to vo1
Variant voField1
Get ComItem of ho1 "Customer" to voField1
Handle hoField1
Get Create (RefClass(cComField)) to hoField1
Set pvComObject of hoField1 to voField1
Set ComValue of hoField1 to "Jhon Doe"
Send Destroy to hoField1
Send Destroy to ho1
Variant vo2
Get ComFields of hoPivot to vo2
Handle ho2
Get Create (RefClass(cCom)) to ho2
Set pvComObject of ho2 to vo2
Variant voField2
Get ComItem of ho2 "Sales" to voField2
Handle hoField2
Get Create (RefClass(cComField)) to hoField2
Set pvComObject of hoField2 to voField2
Set ComValue of hoField2 to 1234
Send Destroy to hoField2
Send Destroy to ho2
Send ComUpdate of hoPivot Nothing Nothing
Send ComAddNew of hoPivot Nothing Nothing
Variant vo3
Get ComFields of hoPivot to vo3
Handle ho3
Get Create (RefClass(cCom)) to ho3
Set pvComObject of ho3 to vo3
Variant voField3
Get ComItem of ho3 "Code" to voField3
Handle hoField3
Get Create (RefClass(cComField)) to hoField3
Set pvComObject of hoField3 to voField3
Set ComValue of hoField3 to "M"
Send Destroy to hoField3
Send Destroy to ho3
Variant vo4
Get ComFields of hoPivot to vo4
Handle ho4
Get Create (RefClass(cCom)) to ho4
Set pvComObject of ho4 to vo4
Variant voField4
Get ComItem of ho4 "Customer" to voField4
Handle hoField4
Get Create (RefClass(cComField)) to hoField4
Set pvComObject of hoField4 to voField4
Set ComValue of hoField4 to "Jhon Doe"
Send Destroy to hoField4
Send Destroy to ho4
Variant vo5
Get ComFields of hoPivot to vo5
Handle ho5
Get Create (RefClass(cCom)) to ho5
Set pvComObject of ho5 to vo5
Variant voField5
Get ComItem of ho5 "Sales" to voField5
Handle hoField5
Get Create (RefClass(cComField)) to hoField5
Set pvComObject of hoField5 to voField5
Set ComValue of hoField5 to 4567
Send Destroy to hoField5
Send Destroy to ho5
Send ComUpdate of hoPivot Nothing Nothing
Send ComAddNew of hoPivot Nothing Nothing
Variant vo6
Get ComFields of hoPivot to vo6
Handle ho6
Get Create (RefClass(cCom)) to ho6
Set pvComObject of ho6 to vo6
Variant voField6
Get ComItem of ho6 "Code" to voField6
Handle hoField6
Get Create (RefClass(cComField)) to hoField6
Set pvComObject of hoField6 to voField6
Set ComValue of hoField6 to "F"
Send Destroy to hoField6
Send Destroy to ho6
Variant vo7
Get ComFields of hoPivot to vo7
Handle ho7
Get Create (RefClass(cCom)) to ho7
Set pvComObject of ho7 to vo7
Variant voField7
Get ComItem of ho7 "Customer" to voField7
Handle hoField7
Get Create (RefClass(cComField)) to hoField7
Set pvComObject of hoField7 to voField7
Set ComValue of hoField7 to "Jane Doe"
Send Destroy to hoField7
Send Destroy to ho7
Variant vo8
Get ComFields of hoPivot to vo8
Handle ho8
Get Create (RefClass(cCom)) to ho8
Set pvComObject of ho8 to vo8
Variant voField8
Get ComItem of ho8 "Sales" to voField8
Handle hoField8
Get Create (RefClass(cComField)) to hoField8
Set pvComObject of hoField8 to voField8
Set ComValue of hoField8 to 9876
Send Destroy to hoField8
Send Destroy to ho8
Send ComUpdate of hoPivot Nothing Nothing
Send ComAddNew of hoPivot Nothing Nothing
Variant vo9
Get ComFields of hoPivot to vo9
Handle ho9
Get Create (RefClass(cCom)) to ho9
Set pvComObject of ho9 to vo9
Variant voField9
Get ComItem of ho9 "Code" to voField9
Handle hoField9
Get Create (RefClass(cComField)) to hoField9
Set pvComObject of hoField9 to voField9
Set ComValue of hoField9 to "F"
Send Destroy to hoField9
Send Destroy to ho9
Variant vo10
Get ComFields of hoPivot to vo10
Handle ho10
Get Create (RefClass(cCom)) to ho10
Set pvComObject of ho10 to vo10
Variant voField10
Get ComItem of ho10 "Customer" to voField10
Handle hoField10
Get Create (RefClass(cComField)) to hoField10
Set pvComObject of hoField10 to voField10
Set ComValue of hoField10 to "Jane Doe"
Send Destroy to hoField10
Send Destroy to ho10
Variant vo11
Get ComFields of hoPivot to vo11
Handle ho11
Get Create (RefClass(cCom)) to ho11
Set pvComObject of ho11 to vo11
Variant voField11
Get ComItem of ho11 "Sales" to voField11
Handle hoField11
Get Create (RefClass(cComField)) to hoField11
Set pvComObject of hoField11 to voField11
Set ComValue of hoField11 to 5432
Send Destroy to hoField11
Send Destroy to ho11
Send ComUpdate of hoPivot Nothing Nothing
Send Destroy to hoPivot
Set ComDataSource to rs
Set ComPivotRows to "1"
Set ComPivotColumns to "sum(2)"
Variant d
Get ComExport Nothing Nothing to d
Get ComImport d Nothing to Nothing
End_Procedure
|
|
158
|
How can I replace or add an icon at runtime
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComImageSize to 16
Get ComReplaceIcon "gAAAABgYACEHgUJFEEAAWhUJCEJEEJggEhMCYEXjUbjkJQECj8gj8hAEjkshYEpk8kf8ClsulsvAExmcvf83js5nU7nkCeEcn8boMaocXosCB9Hn09pkzcEuoL/fE+OkYB0gB9YhIHrddgVcr9aktZADAD8+P8CgIA==" Nothing to Nothing
Get ComReplaceIcon "C:\images\favicon.ico" 0 to Nothing
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 4 "gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBUrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsYYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVmWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVoWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiSe41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhFCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==" to Nothing
Send Destroy to hoAppearance
Set ComBackColorHeader to |CI$4c6c6c6
Set ComSelBackColor to |CI$4000000
Set ComSelForeColor to (RGB(0,0,1))
Set ComBackground OLEexSelBackColorFilter to (ComSelBackColor(Self))
Set ComBackground OLEexSelForeColorFilter to (ComSelForeColor(Self))
Set ComBackground OLEexBackColorFilter to (ComBackColor(Self))
Set ComBackground OLEexForeColorFilter to (ComForeColor(Self))
Set ComBackground OLEexCursorHoverColumn to -1
Set ComBackground OLEexHeaderFilterBarButton to |CI$4000000
Set ComBackground OLEexHeaderFilterBarActive to |CI$4010101
Set ComBackground OLEexFooterFilterBarButton to |CI$40000ff
Set ComHeaderAppearance to OLEEtched
Set ComGridLineStyle to OLEexGridLinesGeometric
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotRows to "12,0"
Set ComPivotColumns to "sum(5)"
Set ComPivotTotals to "/sum"
Variant voColumns
Get ComDataColumns 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 ComFormatImage of hoColumn to "1"
Send Destroy to hoColumn
Send Destroy to hoColumns
Send ComEndUpdate
End_Procedure
|
|
157
|
Rename the caption of a generated column
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderAppearance to OLEEtched
Set ComHeaderHeight to 24
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotRows to "0"
Set ComPivotColumns to "sum(5)[caption=<fgcolor red><b>Total]"
Send ComEndUpdate
End_Procedure
|
|
156
|
Computed-columns support
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderAppearance to OLEEtched
Set ComHeaderHeight to 24
Set ComGridLineStyle to OLEexGridLinesGeometric
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComBackground OLEexColumnIndexColor to (RGB(128,128,128))
Variant voFormatContents
Get ComFormatContents to voFormatContents
Handle hoFormatContents
Get Create (RefClass(cComFormatContents)) to hoFormatContents
Set pvComObject of hoFormatContents to voFormatContents
Variant voFormatContent
Get ComAdd of hoFormatContents "Cptd" "(%1/%2) format `` replace `.00` with ``" Nothing to voFormatContent
Handle hoFormatContent
Get Create (RefClass(cComFormatContent)) to hoFormatContent
Set pvComObject of hoFormatContent to voFormatContent
Set ComVisible of hoFormatContent to False
Send Destroy to hoFormatContent
Send Destroy to hoFormatContents
Set ComPivotRows to "0"
Set ComPivotColumns to "sum(5),count(0),count(0)[content=Cptd,caption=<b>Computed(=1/2),bold]"
Send ComEndUpdate
End_Procedure
|
|
155
|
Show the index of each (generated-)column
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderAppearance to OLEEtched
Set ComHeaderHeight to 24
Set ComGridLineStyle to OLEexGridLinesGeometric
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComBackground OLEexColumnIndexColor to (RGB(255,0,0))
Send ComEndUpdate
End_Procedure
|
|
154
|
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 ComGridLineStyle to OLEexGridLinesGeometric
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Send ComEndUpdate
End_Procedure
|
|
153
|
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
Send ComShowToolTip "new content" "" "+8" "+8"
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Set ComToolTipMargin to "16,8"
End_Procedure
|
|
152
|
How can i set the sort order of an aggregated column with code
Procedure OnCreate
Forward Send OnCreate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotRows to "0[bold]"
Set ComPivotColumns to "sum(5)"
Variant voColumns
Get ComDataColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get Comitem of hoColumns "Freight" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComSortType of hoColumn to OLESortNumeric
Send Destroy to hoColumn
Send Destroy to hoColumns
Set ComLayout to "singlesort="C1:2""
End_Procedure
|
|
151
|
Force hover-all feature
Procedure OnCreate
Forward Send OnCreate
Set ComBackground OLEexScrollHoverAll to -1
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
End_Procedure
|
|
150
|
Disable hover-all feature (Windows 11 or greater)
Procedure OnCreate
Forward Send OnCreate
Set ComBackground OLEexScrollHoverAll to (RGB(1,0,0))
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
End_Procedure
|
|
149
|
Display a custom tooltip
// 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
Send ComShowToolTip "new content" "" "+8" "+8"
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
End_Procedure
|
|
148
|
Shows the tooltip of the object moved relative to its default position
// 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
Send ComShowToolTip "<null>" "<null>" "+8" "+8"
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
End_Procedure
|
|
147
|
ADOR, MDB (JET)
Procedure OnCreate
Forward Send OnCreate
Variant rs
Get Comcreateobject "ADOR.Recordset" to rs
Send ComOpen "Data" "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExPivot\Sample\Access\sample.mdb" OLEadOpenStatic OLEadLockOptimistic Nothing
Set ComDataSource to rs
End_Procedure
|
|
146
|
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComImageSize to 32
Set ComDefaultItemHeight to 36
Set ComHeaderHeight to (ComDefaultItemHeight(Self))
Variant voStdFont
Get ComFont to voStdFont
Handle hoStdFont
Get Create (RefClass(cComStdFont)) to hoStdFont
Set pvComObject of hoStdFont to voStdFont
Set ComSize of hoStdFont to 16
Send Destroy to hoStdFont
Variant voStdFont1
Get ComFilterBarFont to voStdFont1
Handle hoStdFont1
Get Create (RefClass(cComStdFont)) to hoStdFont1
Set pvComObject of hoStdFont1 to voStdFont1
Variant v
Variant voStdFont2
Get ComFont to voStdFont2
Handle hoStdFont2
Get Create (RefClass(cComStdFont)) to hoStdFont2
Set pvComObject of hoStdFont2 to voStdFont2
Get ComSize of hoStdFont2 to v
Send Destroy to hoStdFont2
Set ComSize of hoStdFont1 to v
Send Destroy to hoStdFont1
Variant voStdFont3
Get ComToolTipFont to voStdFont3
Handle hoStdFont3
Get Create (RefClass(cComStdFont)) to hoStdFont3
Set pvComObject of hoStdFont3 to voStdFont3
Variant v1
Variant voStdFont4
Get ComFont to voStdFont4
Handle hoStdFont4
Get Create (RefClass(cComStdFont)) to hoStdFont4
Set pvComObject of hoStdFont4 to voStdFont4
Get ComSize of hoStdFont4 to v1
Send Destroy to hoStdFont4
Set ComSize of hoStdFont3 to v1
Send Destroy to hoStdFont3
Set ComIndent to 26
Send ComImages ("gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOqNUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlwyV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+CMPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIkFgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMtNhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/XioW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUVDNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJyT8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5WzlffEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8RgH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" + ;
"RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==")
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 "gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDxRDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFYFoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4UkmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqAochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ==" to Nothing
Get ComAdd of hoAppearance 2 ("gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnScg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBpAoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaDRDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+lGNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQBgk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwykuXpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2CyA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8RpBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAeHGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAuhoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwMsCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4g" + ;
"aBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAgswOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBtYQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGBhYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0MgRBCCQAgQEA==") to Nothing
Get ComAdd of hoAppearance 3 ("gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnSeQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJjnOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMaJ9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTGSUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgkXI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BRAjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBEBwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQHoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgRhcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOCQAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYj" + ;
"VHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBsH0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI=") to Nothing
Get ComAdd of hoAppearance 4 "gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBUrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsYYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVmWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVoWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiSe41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhFCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==" to Nothing
Send Destroy to hoAppearance
Set ComBackColorHeader to |CI$4c6c6c6
Set ComSelBackColor to |CI$4000000
Set ComSelForeColor to (RGB(0,0,1))
Set ComCheckImage OLEUnchecked to 16777216
Set ComCheckImage OLEChecked to 33554432
Set ComCheckImage OLEPartialChecked to 50331648
Set ComBackground OLEexSelBackColorFilter to (ComSelBackColor(Self))
Set ComBackground OLEexSelForeColorFilter to (ComSelForeColor(Self))
Set ComBackground OLEexBackColorFilter to (ComBackColor(Self))
Set ComBackground OLEexForeColorFilter to (ComForeColor(Self))
Set ComBackground OLEexCursorHoverColumn to -1
Set ComBackground OLEexHeaderFilterBarButton to |CI$4000000
Set ComBackground OLEexHeaderFilterBarActive to |CI$4010101
Set ComBackground OLEexFooterFilterBarButton to |CI$40000ff
Set ComHeaderAppearance to OLEEtched
Set ComGridLineStyle to OLEexGridLinesGeometric
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotRows to "12,0"
Set ComPivotColumns to "sum(5)"
Set ComPivotTotals to "/sum"
Variant voColumns
Get ComDataColumns 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 ComFormatImage of hoColumn to "value case (default: -1;'Germany': 1;'USA': 2;'Mexico': 3)"
Send Destroy to hoColumn
Send Destroy to hoColumns
Send ComEndUpdate
End_Procedure
|
|
145
|
ImageSize property on 16 (default) (specifies the size of control' icons/images/check-boxes/radio-buttons)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComImageSize to 16
Send ComImages "gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOqdSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVttmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8acvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtTGsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgPnwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg=="
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 4 "gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBUrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsYYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVmWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVoWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiSe41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhFCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==" to Nothing
Send Destroy to hoAppearance
Set ComBackColorHeader to |CI$4c6c6c6
Set ComSelBackColor to |CI$4000000
Set ComSelForeColor to (RGB(0,0,1))
Set ComBackground OLEexSelBackColorFilter to (ComSelBackColor(Self))
Set ComBackground OLEexSelForeColorFilter to (ComSelForeColor(Self))
Set ComBackground OLEexBackColorFilter to (ComBackColor(Self))
Set ComBackground OLEexForeColorFilter to (ComForeColor(Self))
Set ComBackground OLEexCursorHoverColumn to -1
Set ComBackground OLEexHeaderFilterBarButton to |CI$4000000
Set ComBackground OLEexHeaderFilterBarActive to |CI$4010101
Set ComBackground OLEexFooterFilterBarButton to |CI$40000ff
Set ComHeaderAppearance to OLEEtched
Set ComGridLineStyle to OLEexGridLinesGeometric
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotRows to "12,0"
Set ComPivotColumns to "sum(5)"
Set ComPivotTotals to "/sum"
Variant voColumns
Get ComDataColumns 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 ComFormatImage of hoColumn to "value case (default: -1;'Germany': 1;'USA': 2;'Mexico': 3)"
Send Destroy to hoColumn
Send Destroy to hoColumns
Send ComEndUpdate
End_Procedure
|
|
144
|
Is it possible to view all events the control fires
// Notifies the application once the control fires an event.
Procedure OnComEvent Integer llEventID
Forward Send OnComEvent llEventID
Showln (ComEventParam(Self,-2))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotBarVisible to (OLEexPivotBarAllowFormatConditionalAppearance + OLEexPivotBarAllowResizeColumns + OLEexPivotBarAllowUndoRedo + OLEexPivotBarAllowFormatContent + OLEexPivotBarAllowFormatAppearance + OLEexPivotBarAllowValues + OLEexPivotBarShowTotals + OLEexPivotBarAutoFit + OLEexPivotBarSizable + OLEexPivotBarVisible)
Send ComEndUpdate
End_Procedure
|
|
143
|
Does your control support images
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Variant voColumns
Get ComDataColumns 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 ComFormatImage of hoColumn to "value case (default: -1;'Germany': 1;'USA': 2;'Mexico': 3)"
Send Destroy to hoColumn
Send Destroy to hoColumns
Send ComEndUpdate
End_Procedure
|
|
142
|
Is it possible to rename the generated-columns
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderAppearance to OLEEtched
Set ComHeaderHeight to 24
Get ComImport "Item;1;2;3#A;10;20;30#A;20;40;50#A;20;30;20#B;10;10;10#B;20;50;30" "str=`'` eor='#' eof=';' hdr=1" to Nothing
Set ComPivotRows to 0
Set ComPivotColumns to "sum(1),sum(2),sum(3)"
Set ComFormatPivotHeader to "(iaggregate ? (proper(aggregate) + ` <off -4>` + (caption case (default:`None`; 1:`Sunday`; 2:`Monday`; 3:`Tuesday`; 4:`Wednesday`; 5:`Thursday`; 6:`Friday`; 7:`Saturday`)) + `</b>`) : caption)"
Send ComEndUpdate
End_Procedure
|
|
141
|
Is it possible to rename the columns
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComAppendData "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Variant voColumns
Get ComDataColumns 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 ComCaption of hoColumn to "<b>Nation"
Send Destroy to hoColumn
Send Destroy to hoColumns
Send ComRefresh
Send ComEndUpdate
End_Procedure
|
|
140
|
The pivot's rows and columns arer lost once I call the AppendData. Can I add/append data in the background so the layout of the pivot is not lost
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComAppendData "Def" Nothing to Nothing
Get ComAppendData "A" Nothing to Nothing
Get ComAppendData "A" Nothing to Nothing
Get ComAppendData "A" Nothing to Nothing
Set ComPivotRows to 0
Set ComPivotColumns to "count(0)"
Variant s
Get ComLayout to s
Get ComAppendData "B" Nothing to Nothing
Get ComAppendData "B" Nothing to Nothing
Set ComLayout to s
Send ComEndUpdate
End_Procedure
|
|
139
|
Is it possible to add data without clearing the previously data
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComAppendData "Column" Nothing to Nothing
Get ComAppendData "1" Nothing to Nothing
Get ComAppendData "2" Nothing to Nothing
Get ComAppendData "3" Nothing to Nothing
Send ComEndUpdate
End_Procedure
|
|
138
|
How can I change the visual appearance of the Total button
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 "gBFLBCJwBAEHhEJAAEhABAoCg6AADACAxRDgMQBQKAAzQFAcDBvBgABoGEZIJhUAIIRZGMIjFDcEwxC6NIpjeIBSDUJYkSZEAyjBI8ExXFqMQCkGKocgONYgQLHcgxeA0XRYFoYRinWA5PoAMoyTYMdIAnTOM4eU6AATwTSccw0fisAAfeq4Wh+HwIQiUBomGahajkMqDYRVagyCI2a4ZDZCIoVJalLAxCw8KDqGJnMr1R5/MDgOBYogXBqHYhiOAsdhjSYdBK/WLeHI6Y1GS7MMxzLK8cxVaqfMpoMI4FjuS5NU7TMC0PAXdy3LqvbBsOxbHqma5nVSBcC2ba9cz3PK4ABuW7bM6TRKNYbkOA4LiNQaxVSrNKmIwPI5DJ5Ml2co1h0d5vBWDJQEkCI7mIJpykyTZblqdhYDyR5TlmX5RBgeI+D4BxLDkO5nlieh5g2FQ5DOZAiDkDASAmYh7l0RxZncPxfhadZkBmH5jvKLhamMcItBYXgoC4B4CBgFoskEP4hkgdgegcD4zlycA1goAJ5mIc4KjgfJ+D0ToTFGbx4h8Qh2CqDJjEeJg0gyT4DkCYg5kyAhCDeBxjkIQgDHSIgTkIP4NGGFplgGEZkkifhFgSIRHgCXwtAYeQ2B+DYlGkZgqgsIpnEoJxzmWGRiFqGJhmkBhDAwJBZDIYoZCYSQ+BOFAmBkJZBhKZpJlYHIXCYR4lFuHpnkmdh+h+aAKAaAogF6FhWgOIZogoJh/GuHoTl6DojmkChGhKJJpEoVoWiUHAGDCTg6CmSheh6J5qAoTJriiWQUCSb4ploEwpgq4BKjWBomhmc4pAkOpRAQJQBICA==" to Nothing
Get ComAdd of hoAppearance 1 "CP:2 -10 -6 8 8" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexPivotBarTotal to |CI$1000000
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Send ComEndUpdate
End_Procedure
|
|
137
|
Is it possible to highlight the column's header once a filter is applied
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 "gBFLBCJwBAEHhEJAAEhABX8GACAADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwYgmNYiTLAcgANJ0WBaGIZJ4gOT5fDKMoEDRRYADFCscwxJybQAqGQKKb+VgAVY/cTyBIAEQSKA0TDOQ5TSKWB4JPZQRBEbZMNBtBIUJquKaqShdQJCU5FdY3Xblez9P7AMBwLFEC4NQ8YNYuPhjR4dRTIMhvVAsUArFh8Zg9GZZFjmDIDT4ydBLTQwcyVIKnP5qOa6XbmPoCQDYKxZHYxPzVDa3axuL76dqCAT7XrXNy1TbNRrzQKfcJqfCbdw2YaDZLOOT3fjuI4hhKaRzFAHJ+jYQ4xHuY4gHuGIXGeExqC8Tp6C+PoEm+G5ImycRgh0XwvDGa5rgOeoejyXwnFeQp2mkf5ClgBB9gCWIYAwfYAEKV58mkdwOggNArgOXY2EWLoDkKOA0mgbhOGgZApgaSBIHWSYHSmbApgYThmESZYJkIeIkgeCpfliLIHgpMIcmUYYYmODAlg2SI4mWfRfGOEguDcCRjFYAJihCQhJBSDoRmONgKEcI4kFCEJhhOVYTmYnAlEAQhWBMJYJGYWoWmWSR2F6F5lnkWAQhUAgpEieRWEuSYkjWGpmkmNhuhuZwJkYcocmaaYkjyEhngnUA6lEFAlAEgI=" to Nothing
Get ComAdd of hoAppearance 1 "CP:2 -8 -4 2 4" to Nothing
Send Destroy to hoAppearance
Set ComHeaderHeight to 28
Set ComBackground OLEexHeaderFilterBarButton to |CI$1fefefe
Set ComBackground OLEexHeaderFilterBarActive to |CI$1010101
Set ComBackground OLEexCursorHoverColumn to -1
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComFilterBarFont to (ComFont(Self))
Set ComDescription OLEexFilterBarAnd to (ComFormatABC(Self,"`<fgcolor=808080> ` + value + ` </fgcolor>`",(ComDescription(Self,OLEexFilterBarAnd)),Nothing,Nothing))
Set ComFilterBarCaption to "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
Set ComFilterBarPromptVisible to (OLEexFilterBarCompact + OLEexFilterBarShowCloseIfRequired + OLEexFilterBarSingleLine + OLEexFilterBarCaptionVisible + OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
Send ComEndUpdate
End_Procedure
|
|
136
|
How can I change the format the column displays (for instance, displaying no 0:00:00)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Variant voFormatContents
Get ComFormatContents to voFormatContents
Handle hoFormatContents
Get Create (RefClass(cComFormatContents)) to hoFormatContents
Set pvComObject of hoFormatContents to voFormatContents
Get ComAdd of hoFormatContents "notime" "value replace `0:00:00` with ``" Nothing to Nothing
Send Destroy to hoFormatContents
Set ComPivotRows to "9[content=notime]"
Send ComEndUpdate
End_Procedure
|
|
135
|
Is it possible to show the filterbar on top of the rows
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComFilterBarPromptVisible to (OLEexFilterBarTop + OLEexFilterBarShowCloseIfRequired + OLEexFilterBarPromptVisible)
Send ComEndUpdate
End_Procedure
|
|
134
|
How can I uses the control in window-less mode (with no user interface, option 3)
Procedure OnCreate
Forward Send OnCreate
Handle hoPivot
Get Create (RefClass(cComPivot)) to hoPivot // Import the 'ExPivot 1.0 Control Library' library
Get ComImport of hoPivot "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotRows of hoPivot to "0"
Set ComPivotColumns of hoPivot to "avg(5)"
Showln (ComExport(hoPivot,Nothing,Nothing))
Send Destroy to hoPivot
End_Procedure
|
|
133
|
How can I uses the control in window-less mode (with no user interface, option 2)
Procedure OnCreate
Forward Send OnCreate
Handle hoPivot
Get Create (RefClass(cComPivot)) to hoPivot // Import the 'ExPivot 1.0 Control Library' library
Variant rs
Get Comcreateobject of hoPivot "ADOR.Recordset" to rs
Send ComOpen of hoPivot "Data" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExPivot\Sample\Access\sample.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
Send Destroy to hoPivot
Set ComDataSource to rs
Set ComPivotRows to "0"
Set ComPivotColumns to "max(5)"
Showln (ComExport(Self,Nothing,Nothing))
End_Procedure
|
|
132
|
How can I uses the control in window-less mode (with no user interface, option 1)
Procedure OnCreate
Forward Send OnCreate
Handle hoPivot
Get Create (RefClass(cComPivot)) to hoPivot // Import the 'ExPivot 1.0 Control Library' library
Get ComLoadXML of hoPivot "http://www.exontrol.net/testing.xml" to Nothing
Set ComPivotRows of hoPivot to "1"
Set ComPivotColumns of hoPivot to "max(6)"
Showln (ComExport(hoPivot,Nothing,Nothing))
Send Destroy to hoPivot
End_Procedure
|
|
131
|
How can I connect to a DBF file
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant rs
Get Comcreateobject "ADODB.Recordset" to rs
Send ComOpen "Select * From foxcode.DBF" "Provider=vfpoledb;Data Source=C:\Program Files\Microsoft Visual FoxPro 9\" OLEadOpenStatic OLEadLockOptimistic Nothing
Set ComDataSource to rs
Set ComPivotRows to "0"
Set ComPivotColumns to "count(0)[content=numeric],avg(7)[negative,content=numeric]"
Send ComEndUpdate
End_Procedure
|
|
130
|
Export Data in HTML format
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComDescription OLEexFilterBarAnd to (ComFormatABC(Self,"`<fgcolor=808080> ` + value + ` </fgcolor>`",(ComDescription(Self,OLEexFilterBarAnd)),Nothing,Nothing))
Set ComFilterBarCaption to "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
Set ComFilterBarPromptVisible to (OLEexFilterBarCompact + OLEexFilterBarShowCloseIfRequired + OLEexFilterBarSingleLine + OLEexFilterBarCaptionVisible + OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
Variant voFormatConditionalAppearances
Get ComFormatConditionalAppearances to voFormatConditionalAppearances
Handle hoFormatConditionalAppearances
Get Create (RefClass(cComFormatConditionalAppearances)) to hoFormatConditionalAppearances
Set pvComObject of hoFormatConditionalAppearances to voFormatConditionalAppearances
Variant voFormatConditionalAppearance
Get ComAdd of hoFormatConditionalAppearances "G1000" "> 1000" "value > 1000" to voFormatConditionalAppearance
Handle hoFormatConditionalAppearance
Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance
Set pvComObject of hoFormatConditionalAppearance to voFormatConditionalAppearance
Set ComForeColor of hoFormatConditionalAppearance to (RGB(0,0,255))
Send Destroy to hoFormatConditionalAppearance
Variant voFormatConditionalAppearance1
Get ComAdd of hoFormatConditionalAppearances "L1000" "< 1000" "value < 1000" to voFormatConditionalAppearance1
Handle hoFormatConditionalAppearance1
Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance1
Set pvComObject of hoFormatConditionalAppearance1 to voFormatConditionalAppearance1
Set ComForeColor of hoFormatConditionalAppearance1 to (RGB(255,0,0))
Send Destroy to hoFormatConditionalAppearance1
Variant voFormatConditionalAppearance2
Get ComAdd of hoFormatConditionalAppearances "Zero" "zero" "value = 0" to voFormatConditionalAppearance2
Handle hoFormatConditionalAppearance2
Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance2
Set pvComObject of hoFormatConditionalAppearance2 to voFormatConditionalAppearance2
Set ComBackColor of hoFormatConditionalAppearance2 to (RGB(224,224,224))
Send Destroy to hoFormatConditionalAppearance2
Send Destroy to hoFormatConditionalAppearances
Variant voFormatAppearances
Get ComFormatAppearances to voFormatAppearances
Handle hoFormatAppearances
Get Create (RefClass(cComFormatAppearances)) to hoFormatAppearances
Set pvComObject of hoFormatAppearances to voFormatAppearances
Variant voFormatAppearance
Get ComAdd of hoFormatAppearances "grayed" Nothing to voFormatAppearance
Handle hoFormatAppearance
Get Create (RefClass(cComFormatAppearance)) to hoFormatAppearance
Set pvComObject of hoFormatAppearance to voFormatAppearance
Set ComForeColor of hoFormatAppearance to (RGB(128,128,128))
Send Destroy to hoFormatAppearance
Variant voFormatAppearance1
Get ComAdd of hoFormatAppearances "red" Nothing to voFormatAppearance1
Handle hoFormatAppearance1
Get Create (RefClass(cComFormatAppearance)) to hoFormatAppearance1
Set pvComObject of hoFormatAppearance1 to voFormatAppearance1
Set ComForeColor of hoFormatAppearance1 to (RGB(255,0,0))
Send Destroy to hoFormatAppearance1
Variant voFormatAppearance2
Get ComAdd of hoFormatAppearances "green" Nothing to voFormatAppearance2
Handle hoFormatAppearance2
Get Create (RefClass(cComFormatAppearance)) to hoFormatAppearance2
Set pvComObject of hoFormatAppearance2 to voFormatAppearance2
Set ComForeColor of hoFormatAppearance2 to (RGB(0,255,0))
Send Destroy to hoFormatAppearance2
Variant voFormatAppearance3
Get ComAdd of hoFormatAppearances "blue" Nothing to voFormatAppearance3
Handle hoFormatAppearance3
Get Create (RefClass(cComFormatAppearance)) to hoFormatAppearance3
Set pvComObject of hoFormatAppearance3 to voFormatAppearance3
Set ComForeColor of hoFormatAppearance3 to (RGB(0,0,255))
Send Destroy to hoFormatAppearance3
Variant voFormatAppearance4
Get ComAdd of hoFormatAppearances "bgrayed" Nothing to voFormatAppearance4
Handle hoFormatAppearance4
Get Create (RefClass(cComFormatAppearance)) to hoFormatAppearance4
Set pvComObject of hoFormatAppearance4 to voFormatAppearance4
Set ComBackColor of hoFormatAppearance4 to (RGB(128,128,128))
Send Destroy to hoFormatAppearance4
Variant voFormatAppearance5
Get ComAdd of hoFormatAppearances "bred" Nothing to voFormatAppearance5
Handle hoFormatAppearance5
Get Create (RefClass(cComFormatAppearance)) to hoFormatAppearance5
Set pvComObject of hoFormatAppearance5 to voFormatAppearance5
Set ComBackColor of hoFormatAppearance5 to (RGB(255,0,0))
Send Destroy to hoFormatAppearance5
Variant voFormatAppearance6
Get ComAdd of hoFormatAppearances "bgreen" Nothing to voFormatAppearance6
Handle hoFormatAppearance6
Get Create (RefClass(cComFormatAppearance)) to hoFormatAppearance6
Set pvComObject of hoFormatAppearance6 to voFormatAppearance6
Set ComBackColor of hoFormatAppearance6 to (RGB(0,255,0))
Send Destroy to hoFormatAppearance6
Variant voFormatAppearance7
Get ComAdd of hoFormatAppearances "bblue" Nothing to voFormatAppearance7
Handle hoFormatAppearance7
Get Create (RefClass(cComFormatAppearance)) to hoFormatAppearance7
Set pvComObject of hoFormatAppearance7 to voFormatAppearance7
Set ComBackColor of hoFormatAppearance7 to (RGB(0,0,255))
Send Destroy to hoFormatAppearance7
Send Destroy to hoFormatAppearances
Set ComPivotRows to "0[bold],2[grayed]"
Set ComPivotColumns to "sum(5)[L1000],sum(5)[G1000]/12:A"
Set ComPivotTotals to "sum[bold,content=currency,bgrayed]"
Set ComAutoDrag to OLEexAutoDragScroll
Set ComBackColorAlternate to (RGB(240,240,240))
Set ComFilterBarPromptType to OLEexFilterPromptContainsAny
Set ComFilterBarPromptPattern to "France Germany"
Send ComEndUpdate
Showln (ComExport(Self,"htm",Nothing))
End_Procedure
|
|
129
|
Export Data in HTML format (IE)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComDescription OLEexFilterBarAnd to (ComFormatABC(Self,"`<fgcolor=808080> ` + value + ` </fgcolor>`",(ComDescription(Self,OLEexFilterBarAnd)),Nothing,Nothing))
Set ComFilterBarCaption to "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
Set ComFilterBarPromptVisible to (OLEexFilterBarCompact + OLEexFilterBarShowCloseIfRequired + OLEexFilterBarSingleLine + OLEexFilterBarCaptionVisible + OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
Variant voFormatConditionalAppearances
Get ComFormatConditionalAppearances to voFormatConditionalAppearances
Handle hoFormatConditionalAppearances
Get Create (RefClass(cComFormatConditionalAppearances)) to hoFormatConditionalAppearances
Set pvComObject of hoFormatConditionalAppearances to voFormatConditionalAppearances
Variant voFormatConditionalAppearance
Get ComAdd of hoFormatConditionalAppearances "G1000" "> 1000" "value > 1000" to voFormatConditionalAppearance
Handle hoFormatConditionalAppearance
Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance
Set pvComObject of hoFormatConditionalAppearance to voFormatConditionalAppearance
Set ComForeColor of hoFormatConditionalAppearance to (RGB(0,0,255))
Send Destroy to hoFormatConditionalAppearance
Variant voFormatConditionalAppearance1
Get ComAdd of hoFormatConditionalAppearances "L1000" "< 1000" "value < 1000" to voFormatConditionalAppearance1
Handle hoFormatConditionalAppearance1
Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance1
Set pvComObject of hoFormatConditionalAppearance1 to voFormatConditionalAppearance1
Set ComForeColor of hoFormatConditionalAppearance1 to (RGB(255,0,0))
Send Destroy to hoFormatConditionalAppearance1
Variant voFormatConditionalAppearance2
Get ComAdd of hoFormatConditionalAppearances "Zero" "zero" "value = 0" to voFormatConditionalAppearance2
Handle hoFormatConditionalAppearance2
Get Create (RefClass(cComFormatConditionalAppearance)) to hoFormatConditionalAppearance2
Set pvComObject of hoFormatConditionalAppearance2 to voFormatConditionalAppearance2
Set ComBackColor of hoFormatConditionalAppearance2 to (RGB(224,224,224))
Send Destroy to hoFormatConditionalAppearance2
Send Destroy to hoFormatConditionalAppearances
Variant voFormatAppearances
Get ComFormatAppearances to voFormatAppearances
Handle hoFormatAppearances
Get Create (RefClass(cComFormatAppearances)) to hoFormatAppearances
Set pvComObject of hoFormatAppearances to voFormatAppearances
Variant voFormatAppearance
Get ComAdd of hoFormatAppearances "grayed" Nothing to voFormatAppearance
Handle hoFormatAppearance
Get Create (RefClass(cComFormatAppearance)) to hoFormatAppearance
Set pvComObject of hoFormatAppearance to voFormatAppearance
Set ComForeColor of hoFormatAppearance to (RGB(128,128,128))
Send Destroy to hoFormatAppearance
Variant voFormatAppearance1
Get ComAdd of hoFormatAppearances "red" Nothing to voFormatAppearance1
Handle hoFormatAppearance1
Get Create (RefClass(cComFormatAppearance)) to hoFormatAppearance1
Set pvComObject of hoFormatAppearance1 to voFormatAppearance1
Set ComForeColor of hoFormatAppearance1 to (RGB(255,0,0))
Send Destroy to hoFormatAppearance1
Variant voFormatAppearance2
Get ComAdd of hoFormatAppearances "green" Nothing to voFormatAppearance2
Handle hoFormatAppearance2
Get Create (RefClass(cComFormatAppearance)) to hoFormatAppearance2
Set pvComObject of hoFormatAppearance2 to voFormatAppearance2
Set ComForeColor of hoFormatAppearance2 to (RGB(0,255,0))
Send Destroy to hoFormatAppearance2
Variant voFormatAppearance3
Get ComAdd of hoFormatAppearances "blue" Nothing to voFormatAppearance3
Handle hoFormatAppearance3
Get Create (RefClass(cComFormatAppearance)) to hoFormatAppearance3
Set pvComObject of hoFormatAppearance3 to voFormatAppearance3
Set ComForeColor of hoFormatAppearance3 to (RGB(0,0,255))
Send Destroy to hoFormatAppearance3
Variant voFormatAppearance4
Get ComAdd of hoFormatAppearances "bgrayed" Nothing to voFormatAppearance4
Handle hoFormatAppearance4
Get Create (RefClass(cComFormatAppearance)) to hoFormatAppearance4
Set pvComObject of hoFormatAppearance4 to voFormatAppearance4
Set ComBackColor of hoFormatAppearance4 to (RGB(128,128,128))
Send Destroy to hoFormatAppearance4
Variant voFormatAppearance5
Get ComAdd of hoFormatAppearances "bred" Nothing to voFormatAppearance5
Handle hoFormatAppearance5
Get Create (RefClass(cComFormatAppearance)) to hoFormatAppearance5
Set pvComObject of hoFormatAppearance5 to voFormatAppearance5
Set ComBackColor of hoFormatAppearance5 to (RGB(255,0,0))
Send Destroy to hoFormatAppearance5
Variant voFormatAppearance6
Get ComAdd of hoFormatAppearances "bgreen" Nothing to voFormatAppearance6
Handle hoFormatAppearance6
Get Create (RefClass(cComFormatAppearance)) to hoFormatAppearance6
Set pvComObject of hoFormatAppearance6 to voFormatAppearance6
Set ComBackColor of hoFormatAppearance6 to (RGB(0,255,0))
Send Destroy to hoFormatAppearance6
Variant voFormatAppearance7
Get ComAdd of hoFormatAppearances "bblue" Nothing to voFormatAppearance7
Handle hoFormatAppearance7
Get Create (RefClass(cComFormatAppearance)) to hoFormatAppearance7
Set pvComObject of hoFormatAppearance7 to voFormatAppearance7
Set ComBackColor of hoFormatAppearance7 to (RGB(0,0,255))
Send Destroy to hoFormatAppearance7
Send Destroy to hoFormatAppearances
Set ComShowBranchRows to (OLEexBranchIncludeAggregate + OLEexBranchTree)
Set ComPivotRows to "0[bold],2[grayed]"
Set ComPivotColumns to "sum(5)[L1000],sum(5)[G1000]/12:A"
Set ComPivotTotals to "/sum[bold,content=currency,bgrayed]"
Set ComAutoDrag to OLEexAutoDragScroll
Set ComBackColorAlternate to (RGB(240,240,240))
Set ComFilterBarPromptType to OLEexFilterPromptContainsAny
Set ComFilterBarPromptPattern to "France Germany"
Send ComEndUpdate
Variant sFile
Move "c:/temp/export.htm" to sFile
Get ComExport sFile "vis" to Nothing
Handle hoShellBrowserWindow
Get Create (RefClass(cComShellBrowserWindow)) to hoShellBrowserWindow // Import the 'Microsoft Internet Controls' library
Get ComNavigate2 of hoShellBrowserWindow sFile Nothing Nothing Nothing Nothing to Nothing
Send Destroy to hoShellBrowserWindow
End_Procedure
|
|
128
|
Export Data in CSV format
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotRows to "0"
Set ComPivotColumns to "sum(5),sum(5)/12:A"
Set ComPivotTotals to "sum[bold,content=currency]"
Set ComAutoDrag to OLEexAutoDragScroll
Set ComBackColorAlternate to (RGB(240,240,240))
Send ComEndUpdate
Showln (ComExport(Self,Nothing,Nothing))
End_Procedure
|
|
127
|
Is it possible to change the visual appearance of the update / reload button being displayed in the control's pivot bar
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 "gBFLBCJwBAEHhEJAAEhABMsGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwCgkBYJDSMAiiaLETwHFKVRwkWBBWjMAAxDZFcggA77fwxHaOAghGgobjaPY+UbGERAAKQahLJamablCSqLjCS4kSLHEbQHTcRSzLKQZBBCCSQKkYx0HScRiwPBIbQkIQmbajOaYDCiQ53QLCAYRXS9PwvI7AMBwLA8EwXBo9DZiIy4WyuGj3R4WchAbIwIxUK6XHhmLjZXg+Bz9T6LQZ0JStEx2SYjAJqOiKU62W9xbAUOxQTpIBJXW7Oc7GTa8dQfPoJaIDLicHgoZ6NLIcOR0abSO42CRrdByfRYMwvisCQKnYOh9i4LwbBINpBHeBxeC6X4TAIEpzkIWgei8L4Qk2boEhWPg9C4SJijIOZ7mEXA/iAX5yBKDx/lmVhEC0Z5ZlKHgGAAYIHkGcQxiCQ5eA4PghAKNgSG0VYXEiJYFl+QAtiCBpdjcDJkB0IgAiYIgBmIQAWCYCoigYZB4DQYpAjoLh3h6SJFgcOpXlAAQBICA==" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexPivotBarReload to |CI$1000000
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComPivotBarVisible to (OLEexPivotBarAllowFormatConditionalAppearance + OLEexPivotBarAllowResizeColumns + OLEexPivotBarAllowUndoRedo + OLEexPivotBarAllowFormatContent + OLEexPivotBarAllowFormatAppearance + OLEexPivotBarAllowValues + OLEexPivotBarShowTotals + OLEexPivotBarAutoFit + OLEexPivotBarSizable + OLEexPivotBarVisible)
Send ComEndUpdate
End_Procedure
|
|
126
|
Is it possible to change the visual appearance of the plus/add new button being displayed in the control's pivot bar
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 "gBFLBCJwBAEHhEJAAEhABDwCg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQSBcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+OpfDxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJegef4zluaJ3nqPJeCYH4BAeX5TDLBpVGqKRRnwf4flefZtHsX54BYAR/F+EwVnUd5eAMMJKDIChygyIQpAoEh4iIJ5JlgXIcgCXpIGoFwnGEQh6BEKBgmMIICHgIJCAiUAzgyUoAhwJohkiRgygwYpiGoKwzGIcgKCkNQNCMRIbCYCRYk4QoMiOchWDwNBjhiJJaDYTRiGiFwlCQAhOE8JBJHITIRgwZRZFCFCZBkOIUhKTRpCWAwgGYQ4El4NxlBifIWCcCYCFoaoMGaKYyG6GxlBmGJdhkCAWBIeA5g4U4QhMJAImkPIShRVxGgQJRlCIUISh+SJpnCZIeBgFgiHgO4OlOMINCISByECDQikkGhuh2JwpmqBogCKaYiC6FwhmkQ4yHgYgYiaHopiuaRakCbIsisSpGjYOwaHYKYMCkK5CA2IxrCwCwFigaJrkLTI6lcdANAEgIA=" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexPivotBarAddNew to |CI$1000000
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Send ComEndUpdate
End_Procedure
|
|
125
|
Is it possible to change the visual appearance of the position signs when user changes the column's position by drag and drop
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComHeaderAppearance to OLEEtched
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 "gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzVIUcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4aDhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DBeEMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5fnueh/h+R5+AKABfkMWgGgGYA4AICoCGCE5WA4CphACMgSD2IRIDIBICmEd5YGCBpRjGBgegWIYIgWdgoGIRQsiKCZiAiJZ0gGQI4jUS4LECOAiBmDJflGfg2BSY4Al4OhGkOCJ2DgFJjGGfgqgiH5Ch4RhGkqOQmEOEpkFkHQYhJRYyESAokGKHhIhKIxJEmf4VGUeRGFmF5iBkchPhYJQ5GoYIZg6Ug6GoFYmkmNhuhulRGHKGoImefh0BUZ4JmYeoemeSZ2H6HQmgoBgXDqXwUAQgI=" to Nothing
Get ComAdd of hoAppearance 2 "CP:1 0 -36 0 0" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexColumnsPositionSign to |CI$2000000
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Send ComEndUpdate
End_Procedure
|
|
124
|
FilterBarCaption ALL Keyword ( sample 2, result )
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComFilterBarFont to (ComFont(Self))
Set ComDescription OLEexFilterBarAnd to (ComFormatABC(Self,"`<fgcolor=808080> ` + value + ` </fgcolor>`",(ComDescription(Self,OLEexFilterBarAnd)),Nothing,Nothing))
Set ComFilterBarCaption to "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
Set ComFilterBarPromptVisible to (OLEexFilterBarCompact + OLEexFilterBarShowCloseIfRequired + OLEexFilterBarSingleLine + OLEexFilterBarCaptionVisible + OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
Send ComEndUpdate
End_Procedure
|
|
123
|
FilterBarCaption ALL Keyword ( sample 1 )
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComFilterBarFont to (ComFont(Self))
Set ComDescription OLEexFilterBarAnd to (ComFormatABC(Self,"`<fgcolor=808080> ` + value + ` </fgcolor>`",(ComDescription(Self,OLEexFilterBarAnd)),Nothing,Nothing))
Set ComFilterBarCaption to "all"
Set ComFilterBarPromptVisible to (OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
Send ComEndUpdate
End_Procedure
|
|
122
|
FilterBarCaption ALLUI Keyword ( sample 2, result )
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComFilterBarFont to (ComFont(Self))
Set ComDescription OLEexFilterBarAnd to (ComFormatABC(Self,"`<fgcolor=808080> ` + value + ` </fgcolor>`",(ComDescription(Self,OLEexFilterBarAnd)),Nothing,Nothing))
Set ComFilterBarCaption to "(( ( allui replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
Set ComFilterBarPromptVisible to (OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
Send ComEndUpdate
End_Procedure
|
|
121
|
FilterBarCaption ALLUI Keyword ( sample 1 )
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComFilterBarFont to (ComFont(Self))
Set ComDescription OLEexFilterBarAnd to (ComFormatABC(Self,"`<fgcolor=808080> ` + value + ` </fgcolor>`",(ComDescription(Self,OLEexFilterBarAnd)),Nothing,Nothing))
Set ComFilterBarCaption to "allui"
Set ComFilterBarPromptVisible to (OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
Send ComEndUpdate
End_Procedure
|
|
120
|
FilterBarCaption AVAILABLE Keyword ( sample 2, result )
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComFilterBarFont to (ComFont(Self))
Set ComDescription OLEexFilterBarAnd to (ComFormatABC(Self,"`<fgcolor=808080> ` + value + ` </fgcolor>`",(ComDescription(Self,OLEexFilterBarAnd)),Nothing,Nothing))
Set ComFilterBarCaption to "(( ( value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` ) + ` ` + ( available replace `[` with `<bgcolor=C0C0C0><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` replace `<s>` with `` replace `</s>` with `` ) + `<fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))"
Set ComFilterBarPromptVisible to (OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
Send ComEndUpdate
End_Procedure
|
|
119
|
FilterBarCaption AVAILABLE Keyword ( sample 1 )
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComFilterBarFont to (ComFont(Self))
Set ComDescription OLEexFilterBarAnd to (ComFormatABC(Self,"`<fgcolor=808080> ` + value + ` </fgcolor>`",(ComDescription(Self,OLEexFilterBarAnd)),Nothing,Nothing))
Set ComFilterBarCaption to "value + ` ` + available"
Set ComFilterBarPromptVisible to (OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
Send ComEndUpdate
End_Procedure
|
|
118
|
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 3, results )
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComFilterBarFont to (ComFont(Self))
Set ComDescription OLEexFilterBarAnd to (ComFormatABC(Self,"`<fgcolor=808080>` + value + `</fgcolor>`",(ComDescription(Self,OLEexFilterBarAnd)),Nothing,Nothing))
Set ComFilterBarCaption to "(`<b>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )) replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>`"
Set ComFilterBarPromptVisible to OLEexFilterBarToggle
Send ComEndUpdate
End_Procedure
|
|
117
|
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 2 )
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComFilterBarFont to (ComFont(Self))
Set ComDescription OLEexFilterBarAnd to (ComFormatABC(Self,"`<fgcolor=808080>` + value + `</fgcolor>`",(ComDescription(Self,OLEexFilterBarAnd)),Nothing,Nothing))
Set ComFilterBarCaption to "value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>`"
Set ComFilterBarPromptVisible to OLEexFilterBarToggle
Send ComEndUpdate
End_Procedure
|
|
116
|
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 1 )
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComDescription OLEexFilterBarAnd to (ComFormatABC(Self,"`<fgcolor=808080>` + value + `</fgcolor>`",(ComDescription(Self,OLEexFilterBarAnd)),Nothing,Nothing))
Set ComFilterBarCaption to "value replace `[` with `<fgcolor=808080>[` replace `]` with `]</fgcolor>`"
Set ComFilterBarPromptVisible to OLEexFilterBarToggle
Send ComEndUpdate
End_Procedure
|
|
115
|
Is it possible to automatically displays the control's filter label to the right
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComFilterBarCaption to "`<r>` + value"
Set ComFilterBarPromptVisible to (OLEexFilterBarShowCloseOnRight + OLEexFilterBarToggle)
Send ComEndUpdate
End_Procedure
|
|
114
|
How can I get the number of results/items being shown in the control's filter bar (sample 4)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComFilterBarFont to (ComFont(Self))
Set ComFilterBarPrompt to (ComFormatABC(Self,"`<b>` + value",(ComFilterBarPrompt(Self)),Nothing,Nothing))
Set ComFilterBarCaption to "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )"
Set ComFilterBarPromptVisible to (OLEexFilterBarCompact + OLEexFilterBarShowCloseOnRight + OLEexFilterBarShowCloseIfRequired + OLEexFilterBarCaptionVisible + OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
Send ComEndUpdate
End_Procedure
|
|
113
|
How can I get the number of results being shown in the control's filter bar (sample 3)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComFilterBarFont to (ComFont(Self))
Set ComFilterBarCaption to "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : ``)"
Set ComFilterBarPromptVisible to (OLEexFilterBarCompact + OLEexFilterBarCaptionVisible + OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
Send ComEndUpdate
End_Procedure
|
|
112
|
How can I get the number of results being shown in the control's filter bar (sample 2, compact)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComFilterBarFont to (ComFont(Self))
Set ComFilterBarCaption to "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? `<off -4> ` + abs(matchitemcount + 1) + ` result(s)` : ``)"
Set ComFilterBarPromptVisible to (OLEexFilterBarCompact + OLEexFilterBarSingleLine + OLEexFilterBarCaptionVisible + OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
Send ComEndUpdate
End_Procedure
|
|
111
|
How can I get the number of results being shown in the control's filter bar (sample 1)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComFilterBarFont to (ComFont(Self))
Set ComFilterBarCaption to "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)"
Set ComFilterBarPromptVisible to (OLEexFilterBarCaptionVisible + OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
Send ComEndUpdate
End_Procedure
|
|
110
|
FilterBarCaption Predefined Keywords
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComLinesAtRoot to OLEexLinesAtRoot
Set ComFilterInclude to OLEexItemsWithChilds
Set ComFilterBarFont to (ComFont(Self))
Set ComFilterBarCaption to "`<fgcolor=0000FF><i>value/current</i></fgcolor>: <fgcolor=808080>` + value + `</fgcolor>` + `<br><fgcolor=0000FF><i>available</i></fgcolor>: ` + available + `<br><fgcolor=0000FF><i>allui</i></fgcolor>: ` + allui + `<br><fgcolor=0000FF><i>all</i></fgcolor>: ` + all + `<br><fgcolor=0000FF><i>itemcount</i></fgcolor>: <fgcolor=808080>` + itemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>visibleitemcount</i></fgcolor>: <fgcolor=808080>` + visibleitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>matchitemcount</i></fgcolor>: <fgcolor=808080>` + matchitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>promptpattern</i></fgcolor>: <fgcolor=808080>` + promptpattern + `</fgcolor>`+ `<br><fgcolor=0000FF><i>leafitemcount</i></fgcolor>: <fgcolor=808080>` + leafitemcount + `</fgcolor>`"
Set ComFilterBarPromptPattern to "USA"
Set ComFilterBarPromptVisible to (OLEexFilterBarCaptionVisible + OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
Send ComEndUpdate
End_Procedure
|
|
109
|
I am using filter prompt feature, and also column's filter, just wondering if possible to compact displaying the filter bar so it won't show on multiple lines
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComFilterBarFont to (ComFont(Self))
Set ComFilterBarCaption to "`<r><i><fgcolor=808080><upline><solidline><sha ;;0>` + value"
Set ComFilterBarPromptPattern to "USA"
Set ComFilterBarPromptVisible to (OLEexFilterBarCompact + OLEexFilterBarSingleLine + OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
Send ComEndUpdate
End_Procedure
|
|
108
|
Just wondering if it is possible to show the filter bar's close button on the right ( sample 2 )
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComFilterBarPromptVisible to (OLEexFilterBarShowCloseOnRight + OLEexFilterBarToggle + OLEexFilterBarPromptVisible)
Set ComFilterBarPrompt to (ComFormatABC(Self,"`<r>` + value",(ComFilterBarPrompt(Self)),Nothing,Nothing))
Send ComEndUpdate
End_Procedure
|
|
107
|
How can I change the visual appearance of the filter bar's close button (EBN)
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 "gBFLBCJwBAEHhEJAAEhABHQDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLOg7IJjyI4/SJAYCydKAWhxIaZKJHCZoEDaTAADCNVAQp6MEIJVbVEI0e79OgBLp/Z7kECIJJAaRjHQdJxGLA8EhtCQhCZteK6SgMKJYXhWQYRXI1JwvMBrWrdQjiOYELQtMKmSZNLYGG4dR5SVJbcYhSYsRRFMoyDIOXYDLKsdYqSpXIThObEGgaPqJYjsUjCMKnR7HVIURrBPC9TBPE69ZgmC6ucKPX51ShKFaBWDZcwFAS+UBuYCAILiEAQGZ1XT8OROicbgJgSTJRlCaZeDsHY7QGR4xkSYp3CaExZAQMgalQYAwjCAAfBANxcA2TgKAUOpDCGFhKg0RpXCwCwDHQHQHEyAIkCkOhbFOGA8A8DohBgRg9AccZcn8EpEjMLI2C2DYxAgQgvAIUIVkoAAPBQDJlECTZ3CCYwDACQwUA8A5MCAWAWDiQi4l8aQOEgLJuBgBgDmYFAzEoIoIl0WALgKYJbBABADAAHgHg8VAMmqCQQDMXABAATYwTmNwBDATJXAiAgjHmNQ5lgQ5QEQEQMmcWg/GwD5ylyNw2gMcJcjsBgBgOQQDDhRpVAMMwnDBFw1B0Ax8D0DxOmmJJIGQTY5hGMAwkwM4CAYLZAmAOJnAqAojiIGg6iieYkmeAYOHaKJDCyCwjH6AoggsQpQliAJLhgaJ0CESBTnyDwjk+cg4g4P5IHIHJ+BWRRzlYWAxiOUxihsY4KjKLJRGqC44FCegkkkM58iAKAPnIWIWD8SRSFSfQnkmewUhYP4GiGKJ7G0TIbCSUoggqUo0lAQ4LnEcBcD8Coiiif4nE+eAAn2HpOkcFJqi4T5SkyMw/kqQown8IBIBOdA+A+DJrBqVxXEqYo4lCApLhGHBnD8S4ymyfxmg+cwQkQP5egOUZIWoEAkjIeIPBMBJBD+TBjBifwvkuc58hQJQPmFrYykkchclSApKjGOBuD+TRDFCfw3mmIxNi8FxFlOXhVC4aYDFyPgvg2YBcBcLZGCGCJ0DSLRzGSWQ/lmY5+mEP5gmMDBZRSMRsFsOxMhMJJ/DsTpTnwaQaE+N5ojuNhdEYNI5C4TZJO1GRDmCaxnA2Yx4n8IpIjOTBQBQC5TgyYw7gUYRYikC0BYRwsDQBoB8eA6Q2hsE0BUXgywZtYCyHMKwnxSAhAQHkIQhRrBaDsCwA4ERiB2EWAIYIXhhiVEgAEUYwwYjyASLge4FhHgRDkM8OQih0jWPkGgBBAQ" to Nothing
Send Destroy to hoAppearance
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComFilterBarPromptVisible to (OLEexFilterBarToggle + OLEexFilterBarPromptVisible)
Set ComBackground OLEexFooterFilterBarButton to |CI$1000000
Send ComEndUpdate
End_Procedure
|
|
106
|
How can I change the visual appearance of the filter bar's close button (solid)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComFilterBarPromptVisible to OLEexFilterBarPromptVisible
Set ComBackground OLEexFooterFilterBarButton to (RGB(255,0,0))
Send ComEndUpdate
End_Procedure
|
|
105
|
Is it possible to prevent definitely showing the filter bar's close button
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComFilterBarPromptVisible to OLEexFilterBarPromptVisible
Set ComBackground OLEexFooterFilterBarButton to -1
Send ComEndUpdate
End_Procedure
|
|
104
|
Is it possible to show the close button only if there is a filter applied
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComFilterBarPromptVisible to (OLEexFilterBarShowCloseIfRequired + OLEexFilterBarPromptVisible)
Send ComEndUpdate
End_Procedure
|
|
103
|
The control's filter bar is not closed once I click the close button (toggle)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComFilterBarCaption to "`<r><fgcolor=808080>` + value"
Set ComFilterBarPromptPattern to "USA"
Set ComFilterBarPromptVisible to (OLEexFilterBarCompact + OLEexFilterBarToggle + OLEexFilterBarSingleLine + OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
Send ComEndUpdate
End_Procedure
|
|
102
|
How can I display the control's filter on a single line
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComFilterBarCaption to "len(value) ? `filter for: <fgcolor 808080>` + value : `<fgcolor 808080>no filter`"
Set ComFilterBarPromptVisible to (OLEexFilterBarSingleLine + OLEexFilterBarVisible)
Send ComEndUpdate
End_Procedure
|
|
101
|
How can I display the control's filter on a single line (prompt-combined)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Get ComImport "C:\Program Files\Exontrol\ExPivot\Sample\data.txt" Nothing to Nothing
Set ComFilterBarCaption to "`<r>` + value"
Set ComFilterBarPromptVisible to (OLEexFilterBarCompact + OLEexFilterBarSingleLine + OLEexFilterBarVisible + OLEexFilterBarPromptVisible)
Send ComEndUpdate
End_Procedure
|