|
1255
|
The Change event is called before changing the value. Is there any event such as Changed that is called after updating the cell's value
// Changed event - Occurs after the user has changed the content of a cell.
FUNCTION gridEvents_Changed(OBJECT grid, INT Item, INT ColIndex)
_ObjectCallMethod(grid, "TemplatePut", "Dim _ObObj,ColIndex,Item")
_ObjectCallMethod(grid, "TemplatePut", _ObjectGetProperty( grid , "Items"))
_ObjectCallMethod(grid, "TemplatePut", ColIndex)
_ObjectCallMethod(grid, "TemplatePut", Item)
Message( _ObjectCallMethod(grid, "ExecuteTemplate", "_ObObj.CellValue(Item,ColIndex)") );
END
OBJECT grid;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( _ObjectGetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Edit") , "Editor") , "EditType", 1);
_ObjectCallMethod( _ObjectGetProperty( grid , "Items") , "AddItem", "Item 1");
_ObjectCallMethod( _ObjectGetProperty( grid , "Items") , "AddItem", "Item 2");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1254
|
How can I reposition the +/- (expand/collapse) icon to show as "number, icon, text" (sample 2)
// AnchorClick event - Occurs when an anchor element is clicked.
FUNCTION gridEvents_AnchorClick(OBJECT grid, STRING AnchorID, STRING Options)
OBJECT items;
i = _ObjectCallMethod( grid , "FormatABC", "int(value)",AnchorID);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,i")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", i)
i = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemByIndex(i)");
exp = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(i)");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,exp,i")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", exp)
_ObjectCallMethod(grid, "TemplatePut", i)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(i) = Me.FormatABC(`not value`,exp)");
END
OBJECT column,columns,editor,grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectCallMethod(grid, "ExecuteTemplate", "HTMLPicture(`expand`) = `gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIBOZSI5CACuZwcdMRAhnIJNIMKWKPBb8MIFiIJOBILJzhQOYc7YYBY5vVBkiIYOhFLB0KZvMx0O5hORlABQMJpNx0FxOIpUEA1FwxFw3RbWe45iK2MpYJJmJJJFQABERmgaAM0AMRJURDd1AF3hUQhQoAIDvsRAURGIBw8ThRaiJpQ4EwsKNURyxgjsRzEKv1TqtXrNbrtfsIAwgASAHAGShQwGQzGABUGEzudAqgyWdSmWw2Fw+sABSHI4AGH1XAGAxGAwywlI6eRqjGi1YuaJJEIJUHBPYqSJYKQAwCBDKbBPbncBibrUKQjGLFQo+TBFfR5GaUAR/KbGICyRxsiCOQClgdJxGoMpkGycpdDqUZ0EoJQJHYVoWCSCA4kEbRlHKRwJiYcYCH0PBNB2JwYCaCRsGcE8LDyfZKg+U59EsAZMlQCgJkcEA9CsywkiKJwiFcIQwEEgI=`");
_ObjectCallMethod(grid, "ExecuteTemplate", "HTMLPicture(`collapse`) = `gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIBOZSI5CACuZwcdMRAhnIJNIMKWKPBb8MIFiIJOBILJzhQOYU7YQBCooJSAiIYOhFLB0KZvMx0O5hORlABQMJpNx0FxOIpUEA1FwxFw3RbWe45iK2MpYJJmJJJFQABERmgaAM0AMRJURDd1AF3hUQhQoAIDvsRAURGIBw8ThRaiJpQ4EwsKNURyzyO13dGEAGYzWcqlWrFarlesA3AGcSAHAGShQwGQzGABUGEv2TAAFUGS26Uy2GwuH1wAKQ5HAAw+s4YwGIwGGWISpVLiXT5MrxiJyJJEIJUHBPYqSXYOQAgBgAB6jJwufxxX7YYhdYhFCSsSwSC4uMLoQajNJAG8QgZAgSIqGMCwRBkAJDicGwuiMeoHGeaRFlAU5qDwQQ6A+CYnlgPQeisGJfl4AJYhsRISjQYwJHIcpmmALAtlMEpkE4YBREmEpPBAARdicSw8AES5fi+fI5g+PpcAAUJKgyCYknaZRrssJIiicIhXCEMBBICA==`");
_ObjectCallMethod(grid, "ExecuteTemplate", "HTMLPicture(`empty`) = `gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIBOZSI5CACuZwcdMRAhnIJNIMKWKPBb8MIFiIJOBILJzhQOYE7YABNTWRIJiIYOhFLB0KZvMx0O5hORlABQMJpNx0FxOIpUEA1FwxFw3RbWe45iK2MpYJJmJJJFQABERmgaAM0AMRJURDd1AF3hUQhQoAIDvsRAURGIBw8ThRaiJpQ4EwsKNURyy/O13dGEAGYzWcqlWrFarlesA3AGcSAHAGShQwGQzGABUGEv2TAAFUGS26Uy2GwuH1wAKQ5HAAw+s4YwGIwGGWYSvDpndpkQ9xhRTJJEIJUHBPdqSGIKYAwBgDUpCfytH57FqoVaTKQTGS0DJ6cDBDzOGwIfANHMIxJDmf5CFIAxwA4Q5HEQVJlEWRxnBkMANjsPoqBSEAElkfZ5CMFJMHCC52BALBGjkDpHCuXIAB2bQdEGaQgFIbbLCSIonCIVwhDAQSAg==`");
_ObjectSetProperty( grid , "HeaderVisible", 0);
_ObjectSetProperty( grid , "HasLines", 0);
_ObjectSetProperty( grid , "HasButtons", 0);
_ObjectSetProperty( grid , "Indent", 12);
_ObjectSetProperty( grid , "DefaultItemHeight", 24);
_ObjectSetProperty( grid , "DrawGridLines", 1);
_ObjectSetProperty( grid , "GridLineStyle", 48);
_ObjectSetProperty( grid , "GridLineColor", 13421772);
_ObjectSetProperty( grid , "ShowFocusRect", 0);
_ObjectSetProperty( grid , "ExpandOnDblClick", 0);
_ObjectSetProperty( grid , "ExpandOnKeys", 0);
columns = _ObjectGetProperty( grid , "Columns");
column = _ObjectCallMethod( columns , "Add", "Item");
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(17) = 1");
_ObjectSetProperty( column , "FormatColumn", "(len(parent(1 index ``)) ? (`<b><fgcolor gray>` + (1 pos ``) + `. ` + `</fgcolor></b>` + (%CC0 ? (`<a ` + (0 index ``) + `>`) :" +
" ``) + `<img>` + (%CC0 ? (not %CX0 ? `expand` : `collapse`) : `empty`) + `:16</img>` + (%CC0 ? (`</a>`) : ``)) : ``) + ` ` + val" +
"ue");
editor = _ObjectGetProperty( column , "Editor");
_ObjectSetProperty( editor , "EditType", 1);
_ObjectCallMethod(grid, "TemplatePut", "Dim ediObj")
_ObjectCallMethod(grid, "TemplatePut", editor)
_ObjectCallMethod(grid, "ExecuteTemplate", "ediObj.Option(116) = `32 4 -4 -4`");
items = _ObjectGetProperty( grid , "Items");
hRoot = _ObjectCallMethod( items , "AddItem", "ACME Corporation");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,hRoot")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", hRoot)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectableItem(hRoot) = False");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(hRoot) = True");
h = _ObjectCallMethod( items , "InsertItem", hRoot,"","Management");
_ObjectCallMethod( items , "InsertItem", h,"","CEO - Alice Brown");
_ObjectCallMethod( items , "InsertItem", h,"","COO - James Lee");
h = _ObjectCallMethod( items , "InsertItem", hRoot,"","HR Department");
_ObjectCallMethod( items , "InsertItem", h,"","Recruiter - Jane Smith");
_ObjectCallMethod( items , "InsertItem", h,"","HR Assistant - Bob Green");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
h = _ObjectCallMethod( items , "InsertItem", h,"","Engineering");
_ObjectCallMethod( items , "InsertItem", h,"","Software Team");
h = _ObjectCallMethod( items , "InsertItem", h,"","Lead Developer - Mark H.");
_ObjectCallMethod( items , "InsertItem", h,"","Frontend Dev - Emily R.");
_ObjectCallMethod( items , "InsertItem", h,"","Backend Dev - Tom W.");
_ObjectCallMethod( items , "InsertItem", hRoot,"","QA Team");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1253
|
How can I reposition the +/- (expand/collapse) icon to show as "number, icon, text" (sample 1)
// AnchorClick event - Occurs when an anchor element is clicked.
FUNCTION gridEvents_AnchorClick(OBJECT grid, STRING AnchorID, STRING Options)
OBJECT items;
i = _ObjectCallMethod( grid , "FormatABC", "int(value)",AnchorID);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,i")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", i)
i = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemByIndex(i)");
exp = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(i)");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,exp,i")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", exp)
_ObjectCallMethod(grid, "TemplatePut", i)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(i) = Me.FormatABC(`not value`,exp)");
END
OBJECT column,columns,grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectCallMethod(grid, "ExecuteTemplate", "HTMLPicture(`expand`) = `gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIBOZSI5CACuZwcdMRAhnIJNIMKWKPBb8MIFiIJOBILJzhQOYc7YYBY5vVBkiIYOhFLB0KZvMx0O5hORlABQMJpNx0FxOIpUEA1FwxFw3RbWe45iK2MpYJJmJJJFQABERmgaAM0AMRJURDd1AF3hUQhQoAIDvsRAURGIBw8ThRaiJpQ4EwsKNURyxgjsRzEKv1TqtXrNbrtfsIAwgASAHAGShQwGQzGABUGEzudAqgyWdSmWw2Fw+sABSHI4AGH1XAGAxGAwywlI6eRqjGi1YuaJJEIJUHBPYqSJYKQAwCBDKbBPbncBibrUKQjGLFQo+TBFfR5GaUAR/KbGICyRxsiCOQClgdJxGoMpkGycpdDqUZ0EoJQJHYVoWCSCA4kEbRlHKRwJiYcYCH0PBNB2JwYCaCRsGcE8LDyfZKg+U59EsAZMlQCgJkcEA9CsywkiKJwiFcIQwEEgI=`");
_ObjectCallMethod(grid, "ExecuteTemplate", "HTMLPicture(`collapse`) = `gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIBOZSI5CACuZwcdMRAhnIJNIMKWKPBb8MIFiIJOBILJzhQOYU7YQBCooJSAiIYOhFLB0KZvMx0O5hORlABQMJpNx0FxOIpUEA1FwxFw3RbWe45iK2MpYJJmJJJFQABERmgaAM0AMRJURDd1AF3hUQhQoAIDvsRAURGIBw8ThRaiJpQ4EwsKNURyzyO13dGEAGYzWcqlWrFarlesA3AGcSAHAGShQwGQzGABUGEv2TAAFUGS26Uy2GwuH1wAKQ5HAAw+s4YwGIwGGWISpVLiXT5MrxiJyJJEIJUHBPYqSXYOQAgBgAB6jJwufxxX7YYhdYhFCSsSwSC4uMLoQajNJAG8QgZAgSIqGMCwRBkAJDicGwuiMeoHGeaRFlAU5qDwQQ6A+CYnlgPQeisGJfl4AJYhsRISjQYwJHIcpmmALAtlMEpkE4YBREmEpPBAARdicSw8AES5fi+fI5g+PpcAAUJKgyCYknaZRrssJIiicIhXCEMBBICA==`");
_ObjectSetProperty( grid , "HeaderVisible", 0);
_ObjectSetProperty( grid , "HasLines", 0);
_ObjectSetProperty( grid , "HasButtons", 0);
_ObjectSetProperty( grid , "Indent", 12);
_ObjectSetProperty( grid , "DefaultItemHeight", 24);
_ObjectSetProperty( grid , "DrawGridLines", 1);
_ObjectSetProperty( grid , "GridLineStyle", 48);
_ObjectSetProperty( grid , "GridLineColor", 13421772);
_ObjectSetProperty( grid , "ShowFocusRect", 0);
_ObjectSetProperty( grid , "ExpandOnDblClick", 0);
_ObjectSetProperty( grid , "ExpandOnKeys", 0);
columns = _ObjectGetProperty( grid , "Columns");
column = _ObjectCallMethod( columns , "Add", "Item");
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(17) = 1");
_ObjectSetProperty( column , "FormatColumn", "(len(parent(1 index ``)) ? (`<b><fgcolor gray>` + (1 pos ``) + `. ` + `</fgcolor></b>` + `<a ` + (0 index ``) + `><img>` + (%CC" +
"0 ? (not %CX0 ? `expand` : `collapse`) : ``) + `:16</img></a>`) : ``) + ` ` + value");
items = _ObjectGetProperty( grid , "Items");
hRoot = _ObjectCallMethod( items , "AddItem", "ACME Corporation");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,hRoot")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", hRoot)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectableItem(hRoot) = False");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(hRoot) = True");
h = _ObjectCallMethod( items , "InsertItem", hRoot,"","Management");
_ObjectCallMethod( items , "InsertItem", h,"","CEO - Alice Brown");
_ObjectCallMethod( items , "InsertItem", h,"","COO - James Lee");
h = _ObjectCallMethod( items , "InsertItem", hRoot,"","HR Department");
_ObjectCallMethod( items , "InsertItem", h,"","Recruiter - Jane Smith");
_ObjectCallMethod( items , "InsertItem", h,"","HR Assistant - Bob Green");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
h = _ObjectCallMethod( items , "InsertItem", h,"","Engineering");
_ObjectCallMethod( items , "InsertItem", h,"","Software Team");
h = _ObjectCallMethod( items , "InsertItem", h,"","Lead Developer - Mark H.");
_ObjectCallMethod( items , "InsertItem", h,"","Frontend Dev - Emily R.");
_ObjectCallMethod( items , "InsertItem", h,"","Backend Dev - Tom W.");
_ObjectCallMethod( items , "InsertItem", hRoot,"","QA Team");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1252
|
Expandable bullet list
// AnchorClick event - Occurs when an anchor element is clicked.
FUNCTION gridEvents_AnchorClick(OBJECT grid, STRING AnchorID, STRING Options)
OBJECT items;
i = _ObjectCallMethod( grid , "FormatABC", "int(value)",AnchorID);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,i")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", i)
i = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemByIndex(i)");
exp = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(i)");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,exp,i")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", exp)
_ObjectCallMethod(grid, "TemplatePut", i)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(i) = Me.FormatABC(`not value`,exp)");
END
OBJECT column,columns,editor,grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectCallMethod(grid, "ExecuteTemplate", "HTMLPicture(`expand`) = `gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIBOZSI5CACuZwcdMRAhnIJNIMKWKPBb8MIFiIJOBILJzhQOYM7YIBXCRNbtiIYOhFLB0KZvMx0O5hORlABQMJpNx0FxOIpUEA1FwxFw3RbWe45iK2MpYJJmJJJFQABERmgaAM0AMRJURDd1AF3hUQhQoAIDvsRAURGIBw8ThRaiJpQ4EwsKNURyzZO13dGEAGYzWcqlWrFarlesA3AGcSAHAGShQwGQzGABUGEv2TAAFUGS26Uy2GwuH1wAKQ5HAAw+s4YwGIwGGWNa6awbST7DBTiLyJJEIJUHBPUqSGJuYYwCAES5pBiQfyEX4QKAFH6QSihJQ/GZlET1FhIcgGnUdoVHMmxajSIghlMKhsGiAAFggQ5dmKcRHEUEhbFAFQBgacABmAAJgAAcAJkAZgNjUcwDFecYcD8QoIDsGJjD6aYaGyHI7mqLRfgGfBcg+TYggkEhakQThtFsEpAE2Xh7goSIJiSHp6haKgPGOXx3j+c5hiKLpri6JAPHWYJREuFJkBCYxcFeYS7ikJQzG0ZIVGKMBYGsVwXDWVQHjqfpjAoYpyE4Z5vH2YoHDkZwzkkUxHC8pwCgifIHBCdk4GMLQVmcXJVhicxWi4IIUiKSQ1A8cBUj+eBEGCFQlFSIophiPRkFAWBLFALhwm+HhKjARpmgSGwNn4AIUCcZZUFEKoVmwywkiKJwiFcIQwEEgI`");
_ObjectCallMethod(grid, "ExecuteTemplate", "HTMLPicture(`collapse`) = `gCJKBOI4NBQaBQAhQNJJIIhShQACERCAIA0RD7zf5hiIBOZSI5CACuZwcdMRAhnIJNIMKWKPBb8MIFiIJOBILJzhQOYM7YIBXCRNbtiIYOhFLB0KZvMx0O5hORlABQMJpNx0FxOIpUEA1FwxFw3RbWe45iK2MpYJJmJJJFQABERmgaAM0AMRJURDd1AF3hUQhQoAIDvsRAURGIBw8ThRaiJpQ4EwsKNURyzZO13dGEAGYzWcqlWrFarlesA3AGcSAHAGShQwGQzGABUGEv2TAAFUGS26Uy2GwuH1wAKQ5HAAw+s4YwGIwGGWNa6awbST7DBTiLZJJEIJUHBPdpSGKOAQxCAzGhIBKfbAvUBsSIPbiVMhLTxJPK3banJB0N5sA8VQRlmCRKjSCRaAIOgCiORISiWaI0DYLJPBYJBxB+LAqAMBRgAsIABjAAhYAOEB5kKDQ5kGZoaCaL5vH2KoEDCbpbDaWRrE8SopE+AA/DcMoZkgAgkhKERDlcdYEHAJRzg4IpyCAKRyl6HZLGONwMEMb5clwWB3n2CZki6FoWC4cwQCbGYukKwhiAwOp3HIEJFGCNBGDyLArE8R56n4RUnlOShHGcXJdgcKQlCOSRdEcLw8DmAoInyexvFeMRGG0DARmsbRZmsfRxleFZeHoD4eEKKRxGmPANgAC5xDAWpYHMW4uCGywkiKJwiFcIQwEEgI`");
_ObjectSetProperty( grid , "HeaderVisible", 0);
_ObjectSetProperty( grid , "HasLines", 0);
_ObjectSetProperty( grid , "HasButtons", 0);
_ObjectSetProperty( grid , "Indent", 12);
_ObjectSetProperty( grid , "DefaultItemHeight", 24);
_ObjectSetProperty( grid , "DrawGridLines", 1);
_ObjectSetProperty( grid , "GridLineStyle", 48);
_ObjectSetProperty( grid , "GridLineColor", 13421772);
_ObjectSetProperty( grid , "ShowFocusRect", 0);
_ObjectSetProperty( grid , "ExpandOnDblClick", 0);
_ObjectSetProperty( grid , "ExpandOnKeys", 0);
columns = _ObjectGetProperty( grid , "Columns");
column = _ObjectCallMethod( columns , "Add", "Item");
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(17) = 1");
_ObjectSetProperty( column , "FormatColumn", "(len(parent(1 index ``)) ? (`<b><fgcolor gray>` + (1 pos ``) + `. ` + `</fgcolor></b>` + `<a ` + (0 index ``) + `><img>` + (%CC" +
"0 ? (not %CX0 ? `expand` : `collapse`) : `collapse`) + `:16</img></a>`) : ``) + ` ` + value");
editor = _ObjectGetProperty( column , "Editor");
_ObjectSetProperty( editor , "EditType", 1);
_ObjectCallMethod(grid, "TemplatePut", "Dim ediObj")
_ObjectCallMethod(grid, "TemplatePut", editor)
_ObjectCallMethod(grid, "ExecuteTemplate", "ediObj.Option(116) = `32D 4D -4D -4D`");
items = _ObjectGetProperty( grid , "Items");
hRoot = _ObjectCallMethod( items , "AddItem", "ACME Corporation");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,hRoot")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", hRoot)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectableItem(hRoot) = False");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(hRoot) = True");
h = _ObjectCallMethod( items , "InsertItem", hRoot,"","Management");
_ObjectCallMethod( items , "InsertItem", h,"","CEO - Alice Brown");
_ObjectCallMethod( items , "InsertItem", h,"","COO - James Lee");
h = _ObjectCallMethod( items , "InsertItem", hRoot,"","HR Department");
_ObjectCallMethod( items , "InsertItem", h,"","Recruiter - Jane Smith");
_ObjectCallMethod( items , "InsertItem", h,"","HR Assistant - Bob Green");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
h = _ObjectCallMethod( items , "InsertItem", h,"","Engineering");
_ObjectCallMethod( items , "InsertItem", h,"","Software Team");
h = _ObjectCallMethod( items , "InsertItem", h,"","Lead Developer - Mark H.");
_ObjectCallMethod( items , "InsertItem", h,"","Frontend Dev - Emily R.");
_ObjectCallMethod( items , "InsertItem", h,"","Backend Dev - Tom W.");
_ObjectCallMethod( items , "InsertItem", hRoot,"","QA Team");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1251
|
Does grouping support multi-column sorting
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "SingleSort", 0);
_ObjectSetProperty( grid , "HeaderVisible", 0);
_ObjectSetProperty( grid , "DrawGridLines", -2);
_ObjectSetProperty( grid , "GridLineStyle", 48);
_ObjectSetProperty( grid , "AllowGroupBy", -1);
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Prefix");
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Region");
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "City");
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Sort");
_ObjectSetProperty( column , "ComputedField", "%1 + %2");
_ObjectSetProperty( column , "Visible", 0);
items = _ObjectGetProperty( grid , "Items");
h = _ObjectCallMethod( items , "AddItem", "+33");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = `Corsica`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,2) = `Bastia `");
h = _ObjectCallMethod( items , "AddItem", "+33");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = `Occitanie`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,2) = `Toulouse `");
h = _ObjectCallMethod( items , "AddItem", "+33");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = `Corsica`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,2) = `Ajaccio`");
h = _ObjectCallMethod( items , "AddItem", "+33");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = `Occitanie`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,2) = `Carcassonne `");
_ObjectSetProperty( grid , "Layout", "multiplesort=^"C0:2^";singlesort=^"C3:1^";");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1250
|
How can I vertically scroll the control
OBJECT grid;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "ColumnAutoResize", 0);
_ObjectSetProperty( grid , "DataSource", _ObjectCallMethod( _ObjectCallMethod( CreateObject("DAO.DBEngine.120") , "OpenDatabase", "C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb") , "OpenRecordset", "Orders"));
_ObjectSetProperty( grid , "Layout", "Collapse=^"^";VScroll=10");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1249
|
Export the items as a two-dimensional array
OBJECT column,columns,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "ScrollBySingleLine", -1);
_ObjectSetProperty( grid , "LinesAtRoot", 5);
columns = _ObjectGetProperty( grid , "Columns");
column = _ObjectCallMethod( columns , "Add", "Desc");
_ObjectSetProperty( column , "Width", 32);
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
column = _ObjectCallMethod( columns , "Add", "Amount");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(20) = `sum(current,rec,%1)`");
_ObjectSetProperty( column , "FormatColumn", "currency(value)");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.LockedItemCount(0) = 1");
h = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.LockedItem(0,0)");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,0) = `All`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = `sum(all,rec,%1)`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValueFormat(h,1) = 4");
r = _ObjectCallMethod( items , "AddItem", "Root 1");
g1 = _ObjectCallMethod( items , "InsertItem", r,"","Group A");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g1")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g1)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 1`),1) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 2`),1) = 2");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(ItemByIndex(3),0) = 1");
g2 = _ObjectCallMethod( items , "InsertItem", r,"","Group B");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g2")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g2)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g2,,`Item 3`),1) = 3");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g2,,`Item 4`),1) = 4");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g1")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g1)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(g1) = True");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,r")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", r)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(r) = True");
h = _ObjectCallMethod( items , "AddItem", "divider");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemDivider(h) = 0");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectableItem(h) = False");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SortableItem(h) = False");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemHeight(h) = 1");
r = _ObjectCallMethod( items , "AddItem", "Root 2");
g1 = _ObjectCallMethod( items , "InsertItem", r,"","Group C");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g1")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g1)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 5`),1) = 5");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 6`),1) = 6");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectItem(ItemByIndex(2)) = True");
_ObjectCallMethod( grid , "PutItems", _ObjectCallMethod( grid , "Export", "array","all"));
_ObjectCallMethod( grid , "EndUpdate");
|
|
1248
|
Export only expanded items
OBJECT column,columns,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "ScrollBySingleLine", -1);
_ObjectSetProperty( grid , "LinesAtRoot", 5);
columns = _ObjectGetProperty( grid , "Columns");
column = _ObjectCallMethod( columns , "Add", "Desc");
_ObjectSetProperty( column , "Width", 32);
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
column = _ObjectCallMethod( columns , "Add", "Amount");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(20) = `sum(current,rec,%1)`");
_ObjectSetProperty( column , "FormatColumn", "currency(value)");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.LockedItemCount(0) = 1");
h = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.LockedItem(0,0)");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,0) = `All`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = `sum(all,rec,%1)`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValueFormat(h,1) = 4");
r = _ObjectCallMethod( items , "AddItem", "Root 1");
g1 = _ObjectCallMethod( items , "InsertItem", r,"","Group A");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g1")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g1)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 1`),1) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 2`),1) = 2");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(ItemByIndex(3),0) = 1");
g2 = _ObjectCallMethod( items , "InsertItem", r,"","Group B");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g2")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g2)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g2,,`Item 3`),1) = 3");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g2,,`Item 4`),1) = 4");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g1")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g1)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(g1) = True");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,r")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", r)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(r) = True");
h = _ObjectCallMethod( items , "AddItem", "divider");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemDivider(h) = 0");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectableItem(h) = False");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SortableItem(h) = False");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemHeight(h) = 1");
r = _ObjectCallMethod( items , "AddItem", "Root 2");
g1 = _ObjectCallMethod( items , "InsertItem", r,"","Group C");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g1")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g1)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 5`),1) = 5");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 6`),1) = 6");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectItem(ItemByIndex(2)) = True");
_ObjectCallMethod( grid , "EndUpdate");
Message( _ObjectCallMethod( grid , "Export", "","only(expanded)") );
|
|
1247
|
Export only selectable, sortable leaf items that are neither locked nor dividers
OBJECT column,columns,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "ScrollBySingleLine", -1);
_ObjectSetProperty( grid , "LinesAtRoot", 5);
columns = _ObjectGetProperty( grid , "Columns");
column = _ObjectCallMethod( columns , "Add", "Desc");
_ObjectSetProperty( column , "Width", 32);
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
column = _ObjectCallMethod( columns , "Add", "Amount");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(20) = `sum(current,rec,%1)`");
_ObjectSetProperty( column , "FormatColumn", "currency(value)");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.LockedItemCount(0) = 1");
h = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.LockedItem(0,0)");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,0) = `All`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = `sum(all,rec,%1)`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValueFormat(h,1) = 4");
r = _ObjectCallMethod( items , "AddItem", "Root 1");
g1 = _ObjectCallMethod( items , "InsertItem", r,"","Group A");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g1")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g1)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 1`),1) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 2`),1) = 2");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(ItemByIndex(3),0) = 1");
g2 = _ObjectCallMethod( items , "InsertItem", r,"","Group B");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g2")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g2)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g2,,`Item 3`),1) = 3");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g2,,`Item 4`),1) = 4");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g1")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g1)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(g1) = True");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,r")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", r)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(r) = True");
h = _ObjectCallMethod( items , "AddItem", "divider");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemDivider(h) = 0");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectableItem(h) = False");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SortableItem(h) = False");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemHeight(h) = 1");
r = _ObjectCallMethod( items , "AddItem", "Root 2");
g1 = _ObjectCallMethod( items , "InsertItem", r,"","Group C");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g1")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g1)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 5`),1) = 5");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 6`),1) = 6");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectItem(ItemByIndex(2)) = True");
_ObjectCallMethod( grid , "EndUpdate");
Message( _ObjectCallMethod( grid , "Export", "","only(leaf,sortable,selectable,!divider,!locked)") );
|
|
1246
|
Export only non-divider items
OBJECT column,columns,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "ScrollBySingleLine", -1);
_ObjectSetProperty( grid , "LinesAtRoot", 5);
columns = _ObjectGetProperty( grid , "Columns");
column = _ObjectCallMethod( columns , "Add", "Desc");
_ObjectSetProperty( column , "Width", 32);
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
column = _ObjectCallMethod( columns , "Add", "Amount");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(20) = `sum(current,rec,%1)`");
_ObjectSetProperty( column , "FormatColumn", "currency(value)");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.LockedItemCount(0) = 1");
h = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.LockedItem(0,0)");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,0) = `All`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = `sum(all,rec,%1)`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValueFormat(h,1) = 4");
r = _ObjectCallMethod( items , "AddItem", "Root 1");
g1 = _ObjectCallMethod( items , "InsertItem", r,"","Group A");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g1")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g1)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 1`),1) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 2`),1) = 2");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(ItemByIndex(3),0) = 1");
g2 = _ObjectCallMethod( items , "InsertItem", r,"","Group B");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g2")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g2)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g2,,`Item 3`),1) = 3");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g2,,`Item 4`),1) = 4");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g1")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g1)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(g1) = True");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,r")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", r)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(r) = True");
h = _ObjectCallMethod( items , "AddItem", "divider");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemDivider(h) = 0");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectableItem(h) = False");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SortableItem(h) = False");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemHeight(h) = 1");
r = _ObjectCallMethod( items , "AddItem", "Root 2");
g1 = _ObjectCallMethod( items , "InsertItem", r,"","Group C");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g1")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g1)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 5`),1) = 5");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 6`),1) = 6");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectItem(ItemByIndex(2)) = True");
_ObjectCallMethod( grid , "EndUpdate");
Message( _ObjectCallMethod( grid , "Export", "","only(!divider)") );
|
|
1245
|
Export only selectable items
OBJECT column,columns,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "ScrollBySingleLine", -1);
_ObjectSetProperty( grid , "LinesAtRoot", 5);
columns = _ObjectGetProperty( grid , "Columns");
column = _ObjectCallMethod( columns , "Add", "Desc");
_ObjectSetProperty( column , "Width", 32);
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
column = _ObjectCallMethod( columns , "Add", "Amount");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(20) = `sum(current,rec,%1)`");
_ObjectSetProperty( column , "FormatColumn", "currency(value)");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.LockedItemCount(0) = 1");
h = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.LockedItem(0,0)");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,0) = `All`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = `sum(all,rec,%1)`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValueFormat(h,1) = 4");
r = _ObjectCallMethod( items , "AddItem", "Root 1");
g1 = _ObjectCallMethod( items , "InsertItem", r,"","Group A");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g1")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g1)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 1`),1) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 2`),1) = 2");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(ItemByIndex(3),0) = 1");
g2 = _ObjectCallMethod( items , "InsertItem", r,"","Group B");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g2")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g2)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g2,,`Item 3`),1) = 3");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g2,,`Item 4`),1) = 4");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g1")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g1)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(g1) = True");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,r")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", r)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(r) = True");
h = _ObjectCallMethod( items , "AddItem", "divider");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemDivider(h) = 0");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectableItem(h) = False");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SortableItem(h) = False");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemHeight(h) = 1");
r = _ObjectCallMethod( items , "AddItem", "Root 2");
g1 = _ObjectCallMethod( items , "InsertItem", r,"","Group C");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g1")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g1)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 5`),1) = 5");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 6`),1) = 6");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectItem(ItemByIndex(2)) = True");
_ObjectCallMethod( grid , "EndUpdate");
Message( _ObjectCallMethod( grid , "Export", "","only(selectable)") );
|
|
1244
|
Export only sortable, but not locked items
OBJECT column,columns,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "ScrollBySingleLine", -1);
_ObjectSetProperty( grid , "LinesAtRoot", 5);
columns = _ObjectGetProperty( grid , "Columns");
column = _ObjectCallMethod( columns , "Add", "Desc");
_ObjectSetProperty( column , "Width", 32);
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
column = _ObjectCallMethod( columns , "Add", "Amount");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(20) = `sum(current,rec,%1)`");
_ObjectSetProperty( column , "FormatColumn", "currency(value)");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.LockedItemCount(0) = 1");
h = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.LockedItem(0,0)");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,0) = `All`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = `sum(all,rec,%1)`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValueFormat(h,1) = 4");
r = _ObjectCallMethod( items , "AddItem", "Root 1");
g1 = _ObjectCallMethod( items , "InsertItem", r,"","Group A");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g1")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g1)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 1`),1) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 2`),1) = 2");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(ItemByIndex(3),0) = 1");
g2 = _ObjectCallMethod( items , "InsertItem", r,"","Group B");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g2")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g2)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g2,,`Item 3`),1) = 3");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g2,,`Item 4`),1) = 4");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g1")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g1)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(g1) = True");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,r")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", r)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(r) = True");
h = _ObjectCallMethod( items , "AddItem", "divider");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemDivider(h) = 0");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectableItem(h) = False");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SortableItem(h) = False");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemHeight(h) = 1");
r = _ObjectCallMethod( items , "AddItem", "Root 2");
g1 = _ObjectCallMethod( items , "InsertItem", r,"","Group C");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g1")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g1)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 5`),1) = 5");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 6`),1) = 6");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectItem(ItemByIndex(2)) = True");
_ObjectCallMethod( grid , "EndUpdate");
Message( _ObjectCallMethod( grid , "Export", "","only(sortable,!locked)") );
|
|
1243
|
Export only checked items on specified column
OBJECT column,columns,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "ScrollBySingleLine", -1);
_ObjectSetProperty( grid , "LinesAtRoot", 5);
columns = _ObjectGetProperty( grid , "Columns");
column = _ObjectCallMethod( columns , "Add", "Desc");
_ObjectSetProperty( column , "Width", 32);
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
column = _ObjectCallMethod( columns , "Add", "Amount");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(20) = `sum(current,rec,%1)`");
_ObjectSetProperty( column , "FormatColumn", "currency(value)");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.LockedItemCount(0) = 1");
h = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.LockedItem(0,0)");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,0) = `All`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = `sum(all,rec,%1)`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValueFormat(h,1) = 4");
r = _ObjectCallMethod( items , "AddItem", "Root 1");
g1 = _ObjectCallMethod( items , "InsertItem", r,"","Group A");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g1")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g1)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 1`),1) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 2`),1) = 2");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(ItemByIndex(3),0) = 1");
g2 = _ObjectCallMethod( items , "InsertItem", r,"","Group B");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g2")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g2)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g2,,`Item 3`),1) = 3");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g2,,`Item 4`),1) = 4");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g1")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g1)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(g1) = True");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,r")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", r)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(r) = True");
h = _ObjectCallMethod( items , "AddItem", "divider");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemDivider(h) = 0");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectableItem(h) = False");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SortableItem(h) = False");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemHeight(h) = 1");
r = _ObjectCallMethod( items , "AddItem", "Root 2");
g1 = _ObjectCallMethod( items , "InsertItem", r,"","Group C");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g1")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g1)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 5`),1) = 5");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 6`),1) = 6");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectItem(ItemByIndex(2)) = True");
_ObjectCallMethod( grid , "EndUpdate");
Message( _ObjectCallMethod( grid , "Export", "","only(checked[0])") );
|
|
1242
|
Export only filtered, not locked or divider items
OBJECT column,columns,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "ScrollBySingleLine", -1);
_ObjectSetProperty( grid , "LinesAtRoot", 5);
columns = _ObjectGetProperty( grid , "Columns");
column = _ObjectCallMethod( columns , "Add", "Desc");
_ObjectSetProperty( column , "Width", 32);
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
column = _ObjectCallMethod( columns , "Add", "Amount");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(20) = `sum(current,rec,%1)`");
_ObjectSetProperty( column , "FormatColumn", "currency(value)");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.LockedItemCount(0) = 1");
h = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.LockedItem(0,0)");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,0) = `All`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = `sum(all,rec,%1)`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValueFormat(h,1) = 4");
r = _ObjectCallMethod( items , "AddItem", "Root 1");
g1 = _ObjectCallMethod( items , "InsertItem", r,"","Group A");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g1")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g1)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 1`),1) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 2`),1) = 2");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(ItemByIndex(3),0) = 1");
g2 = _ObjectCallMethod( items , "InsertItem", r,"","Group B");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g2")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g2)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g2,,`Item 3`),1) = 3");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g2,,`Item 4`),1) = 4");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g1")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g1)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(g1) = True");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,r")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", r)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(r) = True");
h = _ObjectCallMethod( items , "AddItem", "divider");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemDivider(h) = 0");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectableItem(h) = False");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SortableItem(h) = False");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemHeight(h) = 1");
r = _ObjectCallMethod( items , "AddItem", "Root 2");
g1 = _ObjectCallMethod( items , "InsertItem", r,"","Group C");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g1")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g1)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 5`),1) = 5");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 6`),1) = 6");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectItem(ItemByIndex(2)) = True");
_ObjectCallMethod( grid , "EndUpdate");
Message( _ObjectCallMethod( grid , "Export", "","only(visible,!locked,!divider)") );
|
|
1241
|
Export only selected items
OBJECT column,columns,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "ScrollBySingleLine", -1);
_ObjectSetProperty( grid , "LinesAtRoot", 5);
columns = _ObjectGetProperty( grid , "Columns");
column = _ObjectCallMethod( columns , "Add", "Desc");
_ObjectSetProperty( column , "Width", 32);
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
column = _ObjectCallMethod( columns , "Add", "Amount");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(20) = `sum(current,rec,%1)`");
_ObjectSetProperty( column , "FormatColumn", "currency(value)");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.LockedItemCount(0) = 1");
h = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.LockedItem(0,0)");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,0) = `All`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = `sum(all,rec,%1)`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValueFormat(h,1) = 4");
r = _ObjectCallMethod( items , "AddItem", "Root 1");
g1 = _ObjectCallMethod( items , "InsertItem", r,"","Group A");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g1")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g1)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 1`),1) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 2`),1) = 2");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(ItemByIndex(3),0) = 1");
g2 = _ObjectCallMethod( items , "InsertItem", r,"","Group B");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g2")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g2)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g2,,`Item 3`),1) = 3");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g2,,`Item 4`),1) = 4");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g1")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g1)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(g1) = True");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,r")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", r)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(r) = True");
h = _ObjectCallMethod( items , "AddItem", "divider");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemDivider(h) = 0");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectableItem(h) = False");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SortableItem(h) = False");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemHeight(h) = 1");
r = _ObjectCallMethod( items , "AddItem", "Root 2");
g1 = _ObjectCallMethod( items , "InsertItem", r,"","Group C");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g1")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g1)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 5`),1) = 5");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 6`),1) = 6");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectItem(ItemByIndex(2)) = True");
_ObjectCallMethod( grid , "EndUpdate");
Message( _ObjectCallMethod( grid , "Export", "","only(selected)") );
|
|
1240
|
Export only locked items
OBJECT column,columns,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "ScrollBySingleLine", -1);
_ObjectSetProperty( grid , "LinesAtRoot", 5);
columns = _ObjectGetProperty( grid , "Columns");
column = _ObjectCallMethod( columns , "Add", "Desc");
_ObjectSetProperty( column , "Width", 32);
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
column = _ObjectCallMethod( columns , "Add", "Amount");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(20) = `sum(current,rec,%1)`");
_ObjectSetProperty( column , "FormatColumn", "currency(value)");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.LockedItemCount(0) = 1");
h = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.LockedItem(0,0)");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,0) = `All`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = `sum(all,rec,%1)`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValueFormat(h,1) = 4");
r = _ObjectCallMethod( items , "AddItem", "Root 1");
g1 = _ObjectCallMethod( items , "InsertItem", r,"","Group A");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g1")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g1)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 1`),1) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 2`),1) = 2");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(ItemByIndex(3),0) = 1");
g2 = _ObjectCallMethod( items , "InsertItem", r,"","Group B");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g2")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g2)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g2,,`Item 3`),1) = 3");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g2,,`Item 4`),1) = 4");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g1")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g1)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(g1) = True");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,r")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", r)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(r) = True");
h = _ObjectCallMethod( items , "AddItem", "divider");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemDivider(h) = 0");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectableItem(h) = False");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SortableItem(h) = False");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemHeight(h) = 1");
r = _ObjectCallMethod( items , "AddItem", "Root 2");
g1 = _ObjectCallMethod( items , "InsertItem", r,"","Group C");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g1")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g1)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 5`),1) = 5");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 6`),1) = 6");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectItem(ItemByIndex(2)) = True");
_ObjectCallMethod( grid , "EndUpdate");
Message( _ObjectCallMethod( grid , "Export", "","only(locked)") );
|
|
1239
|
Export the leaf items of the control, excluding parent or grouped items
OBJECT column,columns,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "ScrollBySingleLine", -1);
_ObjectSetProperty( grid , "LinesAtRoot", 5);
columns = _ObjectGetProperty( grid , "Columns");
column = _ObjectCallMethod( columns , "Add", "Desc");
_ObjectSetProperty( column , "Width", 32);
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
column = _ObjectCallMethod( columns , "Add", "Amount");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(20) = `sum(current,rec,%1)`");
_ObjectSetProperty( column , "FormatColumn", "currency(value)");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.LockedItemCount(0) = 1");
h = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.LockedItem(0,0)");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,0) = `All`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = `sum(all,rec,%1)`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValueFormat(h,1) = 4");
r = _ObjectCallMethod( items , "AddItem", "Root 1");
g1 = _ObjectCallMethod( items , "InsertItem", r,"","Group A");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g1")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g1)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 1`),1) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 2`),1) = 2");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(ItemByIndex(3),0) = 1");
g2 = _ObjectCallMethod( items , "InsertItem", r,"","Group B");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g2")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g2)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g2,,`Item 3`),1) = 3");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g2,,`Item 4`),1) = 4");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g1")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g1)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(g1) = True");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,r")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", r)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(r) = True");
h = _ObjectCallMethod( items , "AddItem", "divider");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemDivider(h) = 0");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectableItem(h) = False");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SortableItem(h) = False");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemHeight(h) = 1");
r = _ObjectCallMethod( items , "AddItem", "Root 2");
g1 = _ObjectCallMethod( items , "InsertItem", r,"","Group C");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g1")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g1)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 5`),1) = 5");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 6`),1) = 6");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectItem(ItemByIndex(2)) = True");
_ObjectCallMethod( grid , "EndUpdate");
Message( _ObjectCallMethod( grid , "Export", "","leaf") );
|
|
1238
|
Export all checked and visible items (the first column in the columns list specifies the index of the column used to query the checkbox state)
OBJECT column,columns,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "ScrollBySingleLine", -1);
_ObjectSetProperty( grid , "LinesAtRoot", 5);
columns = _ObjectGetProperty( grid , "Columns");
column = _ObjectCallMethod( columns , "Add", "Desc");
_ObjectSetProperty( column , "Width", 32);
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
column = _ObjectCallMethod( columns , "Add", "Amount");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(20) = `sum(current,rec,%1)`");
_ObjectSetProperty( column , "FormatColumn", "currency(value)");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.LockedItemCount(0) = 1");
h = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.LockedItem(0,0)");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,0) = `All`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = `sum(all,rec,%1)`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValueFormat(h,1) = 4");
r = _ObjectCallMethod( items , "AddItem", "Root 1");
g1 = _ObjectCallMethod( items , "InsertItem", r,"","Group A");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g1")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g1)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 1`),1) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 2`),1) = 2");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(ItemByIndex(3),0) = 1");
g2 = _ObjectCallMethod( items , "InsertItem", r,"","Group B");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g2")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g2)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g2,,`Item 3`),1) = 3");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g2,,`Item 4`),1) = 4");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g1")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g1)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(g1) = True");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,r")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", r)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(r) = True");
h = _ObjectCallMethod( items , "AddItem", "divider");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemDivider(h) = 0");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectableItem(h) = False");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SortableItem(h) = False");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemHeight(h) = 1");
r = _ObjectCallMethod( items , "AddItem", "Root 2");
g1 = _ObjectCallMethod( items , "InsertItem", r,"","Group C");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g1")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g1)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 5`),1) = 5");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 6`),1) = 6");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectItem(ItemByIndex(2)) = True");
_ObjectCallMethod( grid , "EndUpdate");
Message( _ObjectCallMethod( grid , "Export", "","chk") );
|
|
1237
|
Export the selected-items
OBJECT column,columns,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "ScrollBySingleLine", -1);
_ObjectSetProperty( grid , "LinesAtRoot", 5);
columns = _ObjectGetProperty( grid , "Columns");
column = _ObjectCallMethod( columns , "Add", "Desc");
_ObjectSetProperty( column , "Width", 32);
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
column = _ObjectCallMethod( columns , "Add", "Amount");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(20) = `sum(current,rec,%1)`");
_ObjectSetProperty( column , "FormatColumn", "currency(value)");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.LockedItemCount(0) = 1");
h = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.LockedItem(0,0)");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,0) = `All`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = `sum(all,rec,%1)`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValueFormat(h,1) = 4");
r = _ObjectCallMethod( items , "AddItem", "Root 1");
g1 = _ObjectCallMethod( items , "InsertItem", r,"","Group A");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g1")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g1)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 1`),1) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 2`),1) = 2");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(ItemByIndex(3),0) = 1");
g2 = _ObjectCallMethod( items , "InsertItem", r,"","Group B");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g2")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g2)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g2,,`Item 3`),1) = 3");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g2,,`Item 4`),1) = 4");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g1")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g1)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(g1) = True");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,r")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", r)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(r) = True");
h = _ObjectCallMethod( items , "AddItem", "divider");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemDivider(h) = 0");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectableItem(h) = False");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SortableItem(h) = False");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemHeight(h) = 1");
r = _ObjectCallMethod( items , "AddItem", "Root 2");
g1 = _ObjectCallMethod( items , "InsertItem", r,"","Group C");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g1")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g1)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 5`),1) = 5");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 6`),1) = 6");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectItem(ItemByIndex(2)) = True");
_ObjectCallMethod( grid , "EndUpdate");
Message( _ObjectCallMethod( grid , "Export", "","sel") );
|
|
1236
|
Export the visible items, excluding child items of collapsed elements, non-visible items (such as those with a height of 0), and items that do not match the current filter
OBJECT column,columns,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "ScrollBySingleLine", -1);
_ObjectSetProperty( grid , "LinesAtRoot", 5);
columns = _ObjectGetProperty( grid , "Columns");
column = _ObjectCallMethod( columns , "Add", "Desc");
_ObjectSetProperty( column , "Width", 32);
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
column = _ObjectCallMethod( columns , "Add", "Amount");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(20) = `sum(current,rec,%1)`");
_ObjectSetProperty( column , "FormatColumn", "currency(value)");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.LockedItemCount(0) = 1");
h = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.LockedItem(0,0)");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,0) = `All`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = `sum(all,rec,%1)`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValueFormat(h,1) = 4");
r = _ObjectCallMethod( items , "AddItem", "Root 1");
g1 = _ObjectCallMethod( items , "InsertItem", r,"","Group A");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g1")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g1)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 1`),1) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 2`),1) = 2");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(ItemByIndex(3),0) = 1");
g2 = _ObjectCallMethod( items , "InsertItem", r,"","Group B");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g2")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g2)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g2,,`Item 3`),1) = 3");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g2,,`Item 4`),1) = 4");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g1")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g1)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(g1) = True");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,r")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", r)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(r) = True");
h = _ObjectCallMethod( items , "AddItem", "divider");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemDivider(h) = 0");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectableItem(h) = False");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SortableItem(h) = False");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemHeight(h) = 1");
r = _ObjectCallMethod( items , "AddItem", "Root 2");
g1 = _ObjectCallMethod( items , "InsertItem", r,"","Group C");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g1")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g1)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 5`),1) = 5");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 6`),1) = 6");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectItem(ItemByIndex(2)) = True");
_ObjectCallMethod( grid , "EndUpdate");
Message( _ObjectCallMethod( grid , "Export", "","vis") );
|
|
1235
|
Export all items, including the hidden or collapsed items
OBJECT column,columns,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "ScrollBySingleLine", -1);
_ObjectSetProperty( grid , "LinesAtRoot", 5);
columns = _ObjectGetProperty( grid , "Columns");
column = _ObjectCallMethod( columns , "Add", "Desc");
_ObjectSetProperty( column , "Width", 32);
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
column = _ObjectCallMethod( columns , "Add", "Amount");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(20) = `sum(current,rec,%1)`");
_ObjectSetProperty( column , "FormatColumn", "currency(value)");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.LockedItemCount(0) = 1");
h = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.LockedItem(0,0)");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,0) = `All`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = `sum(all,rec,%1)`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValueFormat(h,1) = 4");
r = _ObjectCallMethod( items , "AddItem", "Root 1");
g1 = _ObjectCallMethod( items , "InsertItem", r,"","Group A");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g1")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g1)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 1`),1) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 2`),1) = 2");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(ItemByIndex(3),0) = 1");
g2 = _ObjectCallMethod( items , "InsertItem", r,"","Group B");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g2")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g2)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g2,,`Item 3`),1) = 3");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g2,,`Item 4`),1) = 4");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g1")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g1)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(g1) = True");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,r")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", r)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(r) = True");
h = _ObjectCallMethod( items , "AddItem", "divider");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemDivider(h) = 0");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectableItem(h) = False");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SortableItem(h) = False");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemHeight(h) = 1");
r = _ObjectCallMethod( items , "AddItem", "Root 2");
g1 = _ObjectCallMethod( items , "InsertItem", r,"","Group C");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g1")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g1)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 5`),1) = 5");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(g1,,`Item 6`),1) = 6");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectItem(ItemByIndex(2)) = True");
_ObjectCallMethod( grid , "EndUpdate");
Message( _ObjectCallMethod( grid , "Export", "","all") );
|
|
1234
|
Bolds only the expanded items
OBJECT grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "HeaderHeight", 24);
_ObjectSetProperty( grid , "LinesAtRoot", -1);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "ConditionalFormats") , "Add", "%CX0") , "Bold", -1);
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Description");
items = _ObjectGetProperty( grid , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", _ObjectCallMethod( items , "InsertItem", h,"","Child 2"),"","Sub-Child 2");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(InsertItem(h,,`Child 3`),0) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
h = _ObjectCallMethod( items , "AddItem", "Root 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child 3");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1233
|
Displays the root item's index and value/caption using expressions
OBJECT column,conditionalformat,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "HeaderHeight", 24);
_ObjectSetProperty( grid , "LinesAtRoot", -1);
_ObjectSetProperty( grid , "AutoDrag", 3);
_ObjectSetProperty( grid , "AllowCopyPaste", 7);
_ObjectSetProperty( grid , "SingleSel", 0);
_ObjectSetProperty( grid , "DrawGridLines", -2);
_ObjectSetProperty( grid , "GridLineStyle", 48);
_ObjectSetProperty( grid , "GridLineColor", 13684944);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "ConditionalFormats") , "Add", "%CC0 and %CX0") , "Bold", -1);
conditionalformat = _ObjectCallMethod( _ObjectGetProperty( grid , "ConditionalFormats") , "Add", "1");
_ObjectSetProperty( conditionalformat , "Bold", -1);
_ObjectSetProperty( conditionalformat , "ApplyTo", 2);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Description");
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Index");
_ObjectSetProperty( column , "FormatColumn", "1 index ``");
_ObjectSetProperty( column , "Position", 0);
_ObjectSetProperty( column , "Width", 16);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Root-Index");
_ObjectSetProperty( column , "FormatColumn", "root(1 index ``)");
_ObjectSetProperty( column , "Position", 1);
_ObjectSetProperty( column , "Width", 32);
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(4) = 15790320");
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Root-Value");
_ObjectSetProperty( column , "FormatColumn", "root(%0)");
_ObjectSetProperty( column , "Position", 2);
_ObjectSetProperty( column , "Width", 32);
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(4) = 15790320");
items = _ObjectGetProperty( grid , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", _ObjectCallMethod( items , "InsertItem", h,"","Child 2"),"","Sub-Child 2");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(InsertItem(h,,`Child 3`),0) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
h = _ObjectCallMethod( items , "AddItem", "Root 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child 3");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1232
|
Displays the parent item's index and caption/value using expressions
OBJECT column,conditionalformat,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "HeaderHeight", 24);
_ObjectSetProperty( grid , "LinesAtRoot", -1);
_ObjectSetProperty( grid , "AutoDrag", 3);
_ObjectSetProperty( grid , "AllowCopyPaste", 7);
_ObjectSetProperty( grid , "SingleSel", 0);
_ObjectSetProperty( grid , "DrawGridLines", -2);
_ObjectSetProperty( grid , "GridLineStyle", 48);
_ObjectSetProperty( grid , "GridLineColor", 13684944);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "ConditionalFormats") , "Add", "%CC0 and %CX0") , "Bold", -1);
conditionalformat = _ObjectCallMethod( _ObjectGetProperty( grid , "ConditionalFormats") , "Add", "1");
_ObjectSetProperty( conditionalformat , "Bold", -1);
_ObjectSetProperty( conditionalformat , "ApplyTo", 2);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Description");
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Index");
_ObjectSetProperty( column , "FormatColumn", "1 index `I`");
_ObjectSetProperty( column , "Position", 0);
_ObjectSetProperty( column , "Width", 16);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Parent-Index");
_ObjectSetProperty( column , "FormatColumn", "parent(1 index `I`)");
_ObjectSetProperty( column , "Position", 1);
_ObjectSetProperty( column , "Width", 32);
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(4) = 15790320");
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Parent-Value");
_ObjectSetProperty( column , "FormatColumn", "parent(%0)");
_ObjectSetProperty( column , "Position", 2);
_ObjectSetProperty( column , "Width", 32);
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(4) = 15790320");
items = _ObjectGetProperty( grid , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", _ObjectCallMethod( items , "InsertItem", h,"","Child 2"),"","Sub-Child 2");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(InsertItem(h,,`Child 3`),0) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
h = _ObjectCallMethod( items , "AddItem", "Root 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child 3");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1231
|
Copying and Pasting the Selection Programmatically
OBJECT grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Tasks");
_ObjectSetProperty( grid , "LinesAtRoot", -1);
_ObjectSetProperty( grid , "SingleSel", 0);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "Tasks");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectItem(AddItem(`Task 1`)) = True");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectItem(AddItem(`Task 2`)) = True");
_ObjectCallMethod( grid , "IndentSelection", 0);
_ObjectCallMethod( grid , "CopySelection");
_ObjectCallMethod( _ObjectGetProperty( grid , "Items") , "UnselectAll");
_ObjectCallMethod( grid , "Paste", );
_ObjectCallMethod( grid , "EndUpdate");
|
|
1230
|
Enable Copy, Cut and Paste Clipboard operations
OBJECT grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Tasks");
_ObjectSetProperty( grid , "LinesAtRoot", -1);
_ObjectSetProperty( grid , "AllowCopyPaste", 7);
_ObjectSetProperty( grid , "SingleSel", 0);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "Tasks");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectItem(AddItem(`Task 1`)) = True");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectItem(AddItem(`Task 2`)) = True");
_ObjectCallMethod( grid , "IndentSelection", 0);
_ObjectCallMethod( grid , "EndUpdate");
|
|
1229
|
Adjusts the hierarchy of selected items by changing their parent
OBJECT grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Tasks");
_ObjectSetProperty( grid , "LinesAtRoot", -1);
_ObjectSetProperty( grid , "SingleSel", 0);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "Tasks");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectItem(AddItem(`Task A`)) = True");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectItem(AddItem(`Task B`)) = True");
_ObjectCallMethod( grid , "IndentSelection", 0);
_ObjectCallMethod( grid , "EndUpdate");
|
|
1228
|
Specify the size of the Columns panel
OBJECT columns,grid;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderHeight", 24);
_ObjectSetProperty( grid , "HeaderAppearance", 4);
columns = _ObjectGetProperty( grid , "Columns");
_ObjectCallMethod( columns , "Add", "City");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Start") , "Visible", 0);
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "End") , "Visible", 0);
_ObjectSetProperty( grid , "ColumnsFloatBarRect", ",,96");
_ObjectSetProperty( grid , "ColumnsFloatBarVisible", 34);
_ObjectCallMethod( grid , "EndUpdate");
|
|
1227
|
Show a vertical line between pivot and Columns panel (EBN color)
OBJECT columns,grid;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( grid , "VisualAppearance") , "Add", 1,"gBFLBCJwBAEHhEJAAEhABRsIQAAYAQGKIYBkAKBQAGaAoDDUNQxQwAAxwfBMKgBBCLIxhEYobgmGIXRpFICQTIcBhaGIZRiAKCRTDmHwyRCNIwCLD8QxtDqBY4gOZZX" +
"hal4cJTgMaBYi+Pw3DZHcbvBRkewzHQAKgnSjoDhEMg1CTVVYTDKdOSzDyEX7sIAACpOIZQVJVEY1VT8cyxIyEZimSypWqiYJ0Ty6cQwTAIgI");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(87) = 16777216");
_ObjectSetProperty( grid , "HeaderHeight", 24);
_ObjectSetProperty( grid , "HeaderAppearance", 4);
columns = _ObjectGetProperty( grid , "Columns");
_ObjectCallMethod( columns , "Add", "City");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Start") , "Visible", 0);
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "End") , "Visible", 0);
_ObjectSetProperty( grid , "ColumnsFloatBarVisible", 34);
_ObjectCallMethod( grid , "EndUpdate");
|
|
1226
|
Change the background of the Columns panel (EBN color)
OBJECT columns,grid;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( grid , "VisualAppearance") , "Add", 1,"gBFLBCJwBAEHhEJAAEhABNoCg6AADACAxRDAMgBQKAAzQFAYahqGKGAAGOD4JhUAIIRZGMIjFDcEwxC6NIpAWLoJDCH4mSTHYxgJIMWwzDiBZgkCA4fiGEYnThCIxzT" +
"J0aw1CKbYRAKCUKoUAJFsSnQAJIgOO4lULPMIhDDQKQTIKBahoehqIhaEQyDSJNb2DCIahhMSEbKtCooDhGFZUWzLVxTJJNawHJqJJDuOTpSjKH4+RjWFKUXR9b4BJSN" +
"AgqeCQTiSWZEVxRUS0XbGCyZLSQY7uAAMKgOVoDYzdGLwHTtOwrMa1QAsDSbKqWZ5uRpHcQ5aAGN5DPbMbqwOaqLznAaLQLtG4RTikVRPTDYaj437+OaHGyNbI6HTNPp" +
"TlWDJWjYXI8l8C4fg6GYAAEEISgGJJGHQOocgyIwYnqKhYAAIQTH2MYRjQJBRAmZptmEAYIjGU5dk8UgOFgBJUgCTQIBYBoBmCCAmAqApghgDJUDmYQFCCZoEk2OBUm+" +
"BZPCgZgagaYZIHYHoHmGWBcm8NwiEiFJVgmYgji4Kg6GKSI2C6C5jAiRgygwIojiycINkyeJmAYPJjkiTg+g+ZAIkCdIQkyWQWDuDxkBkJhKguZAzlIRQzGQc5ODWFJl" +
"EkVhWhWZYJFYTYTmUE4yF6F5mAmBhihiZhJhYX4WmQaAUnWGpOlmNhuhuZwJkYcocmcSY4naHZlkmKhrDuJ5JnYfofmgCgGgKIJnlmXJ2h4TQKBosRokoNoOiOaQKDSd" +
"4kmiChMncPBpgoZoaiaaZKHaHonmmE5iiKJRpDicomimaoKiaKoqmqSoeiIPgogqPotiyaxKlYPA+GuCqbBMa5KnaPovmwCwGj6LgP24RIhiyCwmkqMpsksNpKD6LQLB" +
"qOIzi0SxWlaHZtAOahPssM5Wi+IYtlsXpijKbZ5lyTo5mAE4UlqOpjHOQpEjubyanKPJvEuNgVj2TY1CCao+k2G52AyP5wAwBp9DYZZ1CCaxsAABAEICA");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(87) = 16777216");
_ObjectSetProperty( grid , "HeaderHeight", 24);
_ObjectSetProperty( grid , "HeaderAppearance", 4);
columns = _ObjectGetProperty( grid , "Columns");
_ObjectCallMethod( columns , "Add", "City");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Start") , "Visible", 0);
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "End") , "Visible", 0);
_ObjectSetProperty( grid , "ColumnsFloatBarVisible", 34);
_ObjectCallMethod( grid , "EndUpdate");
|
|
1225
|
Change the background of the Columns panel (solid color)
OBJECT columns,grid;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderHeight", 24);
_ObjectSetProperty( grid , "HeaderAppearance", 4);
columns = _ObjectGetProperty( grid , "Columns");
_ObjectCallMethod( columns , "Add", "City");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Start") , "Visible", 0);
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "End") , "Visible", 0);
_ObjectSetProperty( grid , "ColumnsFloatBarVisible", 34);
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(87) = 15790320");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1224
|
Change the visual appearance of the Columns panel
OBJECT columns,grid;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( grid , "VisualAppearance") , "Add", 1,"gBFLBCJwBAEHhEJAAEhABNoCg6AADACAxRDAMgBQKAAzQFAYahqGKGAAGOD4JhUAIIRZGMIjFDcEwxC6NIpAWLoJDCH4mSTHYxgJIMWwzDiBZgkCA4fiGEYnThCIxzT" +
"J0aw1CKbYRAKCUKoUAJFsSnQAJIgOO4lULPMIhDDQKQTIKBahoehqIhaEQyDSJNb2DCIahhMSEbKtCooDhGFZUWzLVxTJJNawHJqJJDuOTpSjKH4+RjWFKUXR9b4BJSN" +
"AgqeCQTiSWZEVxRUS0XbGCyZLSQY7uAAMKgOVoDYzdGLwHTtOwrMa1QAsDSbKqWZ5uRpHcQ5aAGN5DPbMbqwOaqLznAaLQLtG4RTikVRPTDYaj437+OaHGyNbI6HTNPp" +
"TlWDJWjYXI8l8C4fg6GYAAEEISgGJJGHQOocgyIwYnqKhYAAIQTH2MYRjQJBRAmZptmEAYIjGU5dk8UgOFgBJUgCTQIBYBoBmCCAmAqApghgDJUDmYQFCCZoEk2OBUm+" +
"BZPCgZgagaYZIHYHoHmGWBcm8NwiEiFJVgmYgji4Kg6GKSI2C6C5jAiRgygwIojiycINkyeJmAYPJjkiTg+g+ZAIkCdIQkyWQWDuDxkBkJhKguZAzlIRQzGQc5ODWFJl" +
"EkVhWhWZYJFYTYTmUE4yF6F5mAmBhihiZhJhYX4WmQaAUnWGpOlmNhuhuZwJkYcocmcSY4naHZlkmKhrDuJ5JnYfofmgCgGgKIJnlmXJ2h4TQKBosRokoNoOiOaQKDSd" +
"4kmiChMncPBpgoZoaiaaZKHaHonmmE5iiKJRpDicomimaoKiaKoqmqSoeiIPgogqPotiyaxKlYPA+GuCqbBMa5KnaPovmwCwGj6LgP24RIhiyCwmkqMpsksNpKD6LQLB" +
"qOIzi0SxWlaHZtAOahPssM5Wi+IYtlsXpijKbZ5lyTo5mAE4UlqOpjHOQpEjubyanKPJvEuNgVj2TY1CCao+k2G52AyP5wAwBp9DYZZ1CCaxsAABAEICA");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(92) = 16777216");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(93) = 16185078");
_ObjectSetProperty( grid , "BackColorHeader", 16777216);
_ObjectSetProperty( grid , "HeaderHeight", 24);
_ObjectSetProperty( grid , "HeaderAppearance", 4);
columns = _ObjectGetProperty( grid , "Columns");
_ObjectCallMethod( columns , "Add", "City");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Start") , "Visible", 0);
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "End") , "Visible", 0);
_ObjectCallMethod(grid, "ExecuteTemplate", "Description(26) = `Show/Hide`");
_ObjectSetProperty( grid , "ColumnsFloatBarVisible", 2);
_ObjectCallMethod( grid , "EndUpdate");
|
|
1223
|
Defines the symbol used to indicate repeated captions, providing a clear visual cue for identical entries (ditto mark)
OBJECT grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "HeaderHeight", 24);
_ObjectSetProperty( grid , "DrawGridLines", -2);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Country") , "ShowIdem", "<fgcolor gray>〃");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "Spain");
_ObjectCallMethod( items , "AddItem", "Spain");
_ObjectCallMethod( items , "AddItem", "Spain");
_ObjectCallMethod( items , "AddItem", "Spain");
_ObjectCallMethod( items , "AddItem", "Germany");
_ObjectCallMethod( items , "AddItem", "Germany");
_ObjectCallMethod( items , "AddItem", "Germany");
_ObjectCallMethod( items , "AddItem", "Germany");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1222
|
Defines the symbol used to indicate repeated captions, providing a clear visual cue for identical entries (space)
OBJECT grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "HeaderHeight", 24);
_ObjectSetProperty( grid , "DrawGridLines", -2);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Country") , "ShowIdem", " ");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "Spain");
_ObjectCallMethod( items , "AddItem", "Spain");
_ObjectCallMethod( items , "AddItem", "Spain");
_ObjectCallMethod( items , "AddItem", "Spain");
_ObjectCallMethod( items , "AddItem", "Germany");
_ObjectCallMethod( items , "AddItem", "Germany");
_ObjectCallMethod( items , "AddItem", "Germany");
_ObjectCallMethod( items , "AddItem", "Germany");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1221
|
Displays a glitch funnel for drop-down filter buttons (empty or active)
OBJECT appearance,column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
appearance = _ObjectGetProperty( grid , "VisualAppearance");
_ObjectSetProperty( appearance , "RenderType", -1);
_ObjectCallMethod( appearance , "Add", 1,"gBFLBCJwBAEHhEJAAEhABa8IQAAYAQGKIYBkAKBQAGaAoDDUNQxQwAAxwfBMKgBBCLIxhEYobgmGIXRpFMbxCKQahLEiTIhGUYJHgmK4tRiAUgxVDkBxrECZYqjcBZO" +
"iwLQ2TxDM7DNKUCBnIoABhGOaYDh+IQNQjUFKwTRFGRxK4EIRKAyTDLQdRyGSMMbjdQpBCbMiMRqhESKRq2UwYRYCFS1NalaztO6BUAvK67YrWez/YBfF+SfwGeqDYRe" +
"WAPfgWERnQrGMLxbD8KwZAKTRjkGJ4XhuB41TbQMqufL9ByXHKSSDpGjaXjeO5VVjYNAvS69UzXNq3bhtQAOXCMEwCgI=");
_ObjectCallMethod( appearance , "Add", 2,"CP:1 -2 0 0 0");
_ObjectSetProperty( grid , "DrawGridLines", -1);
_ObjectSetProperty( grid , "GridLineStyle", 512);
_ObjectSetProperty( grid , "ShowFocusRect", 0);
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(0) = 33554432");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(41) = 33554433");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "BackColorHeader", 16777215);
_ObjectSetProperty( grid , "HeaderHeight", 24);
_ObjectSetProperty( grid , "HeaderVisible", 1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "1st col");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", 0);
_ObjectSetProperty( column , "Filter", "Item B");
_ObjectSetProperty( column , "FilterType", 240);
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "2nd col");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod( items , "AddItem", "Item C");
_ObjectCallMethod( grid , "ApplyFilter");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1220
|
How can I store any extra data associated with a cell
// ButtonClick event - Occurs when user clicks on the cell's button.
FUNCTION gridEvents_ButtonClick(OBJECT grid, INT Item, INT ColIndex, VARIANT Key)
_ObjectCallMethod(grid, "TemplatePut", "Dim _ObObj,ColIndex,Item")
_ObjectCallMethod(grid, "TemplatePut", _ObjectGetProperty( grid , "Items"))
_ObjectCallMethod(grid, "TemplatePut", ColIndex)
_ObjectCallMethod(grid, "TemplatePut", Item)
Message( _ObjectCallMethod(grid, "ExecuteTemplate", "_ObObj.CellData(Item,ColIndex)") );
END
OBJECT editor,grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
editor = _ObjectGetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Def") , "Editor");
_ObjectSetProperty( editor , "EditType", 12);
_ObjectSetProperty( editor , "Locked", -1);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellData(AddItem(`Cell 1`),0) = `your extra data for cell 1`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellData(AddItem(`Cell 2`),0) = `your extra data for cell 2`");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1219
|
How can I replace or add an icon at runtime
OBJECT grid;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectCallMethod( grid , "ReplaceIcon", "gAAAABgYACEHgUJFEEAAWhUJCEJEEJggEhMCYEXjUbjkJQECj8gj8hAEjkshYEpk8kf8ClsulsvAExmcvf83js5nU7nkCeEcn8boMaocXosCB9Hn09pkzcEuoL/fE+O" +
"kYB0gB9YhIHrddgVcr9aktZADAD8+P8CgIA==");
_ObjectCallMethod( grid , "ReplaceIcon", "C:\images\favicon.ico",0);
_ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Add(`Items`).Def(17) = 1");
_ObjectCallMethod( _ObjectGetProperty( grid , "Items") , "AddItem", "Item <img>1</img>");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1218
|
How can I save the changes, such as column's width, order
// Click event - Occurs when the user presses and then releases the left mouse button over the grid control.
FUNCTION gridEvents_Click()
_ObjectSetProperty( grid , "Layout", "Select=^"0^";SingleSort=^"C0:2^";Columns=1");
END
OBJECT grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Column");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "Item 1");
_ObjectCallMethod( items , "AddItem", "Item 2");
_ObjectCallMethod( items , "AddItem", "Item 3");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1217
|
How can I add totals to groups without having to go through the AddGroupItem grid function
OBJECT column,columns,conditionalformat,conditionalformats,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "FreezeEvents", -1);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "HeaderHeight", 24);
_ObjectSetProperty( grid , "LinesAtRoot", -1);
conditionalformats = _ObjectGetProperty( grid , "ConditionalFormats");
conditionalformat = _ObjectCallMethod( conditionalformats , "Add", "%CT1");
_ObjectSetProperty( conditionalformat , "ForeColor", 8421504);
_ObjectSetProperty( conditionalformat , "ApplyTo", 1);
conditionalformat = _ObjectCallMethod( conditionalformats , "Add", "%CT2");
_ObjectSetProperty( conditionalformat , "ForeColor", 8421504);
_ObjectSetProperty( conditionalformat , "ApplyTo", 2);
conditionalformat = _ObjectCallMethod( conditionalformats , "Add", "%CT3");
_ObjectSetProperty( conditionalformat , "ForeColor", 8421504);
_ObjectSetProperty( conditionalformat , "ApplyTo", 3);
columns = _ObjectGetProperty( grid , "Columns");
_ObjectCallMethod( columns , "Add", "Description");
column = _ObjectCallMethod( columns , "Add", "Qty");
_ObjectSetProperty( _ObjectGetProperty( column , "Editor") , "EditType", 4);
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(20) = `sum(current,rec,%1)`");
column = _ObjectCallMethod( columns , "Add", "Price");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(20) = `avg(current,rec,%2)`");
_ObjectSetProperty( _ObjectGetProperty( column , "Editor") , "EditType", 4);
column = _ObjectCallMethod( columns , "Add", "Amount");
_ObjectSetProperty( column , "ComputedField", "%1 * %2");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(20) = `sum(current,rec,%3)`");
items = _ObjectGetProperty( grid , "Items");
r = _ObjectCallMethod( items , "AddItem", "Root");
g1 = _ObjectCallMethod( items , "InsertItem", r,"","Group 1");
h = _ObjectCallMethod( items , "InsertItem", g1,"","Item 1");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,2) = 10");
h = _ObjectCallMethod( items , "InsertItem", g1,"","Item 2");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = 2");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,2) = 11");
g2 = _ObjectCallMethod( items , "InsertItem", r,"","Group 2");
h = _ObjectCallMethod( items , "InsertItem", g2,"","Item 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = 3");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,2) = 12");
h = _ObjectCallMethod( items , "InsertItem", g2,"","Item 2");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = 4");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,2) = 13");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(0) = True");
_ObjectCallMethod( grid , "EndUpdate");
_ObjectCallMethod( grid , "FreezeEvents", 0);
|
|
1216
|
How can I configure the filters in the text columns to search by content
OBJECT grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "FilterBarPromptVisible", 1);
_ObjectSetProperty( grid , "HeaderAppearance", 0);
_ObjectSetProperty( grid , "FilterBarPromptType", 1);
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Names");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "Mantel");
_ObjectCallMethod( items , "AddItem", "Mechanik");
_ObjectCallMethod( items , "AddItem", "Motor");
_ObjectCallMethod( items , "AddItem", "Murks");
_ObjectCallMethod( items , "AddItem", "Märchen");
_ObjectCallMethod( items , "AddItem", "Möhren");
_ObjectCallMethod( items , "AddItem", "Mühle");
_ObjectCallMethod( items , "AddItem", "Sérigraphie");
_ObjectSetProperty( grid , "FilterBarPromptPattern", "a");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1215
|
How can I display the control's captions in Spanish
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "FilterBarPromptVisible", 1);
_ObjectSetProperty( grid , "HeaderAppearance", 0);
_ObjectCallMethod(grid, "ExecuteTemplate", "Description(0) = `(todo) `");
_ObjectCallMethod(grid, "ExecuteTemplate", "Description(3) = `filtrar por...`");
_ObjectSetProperty( grid , "FilterBarPrompt", "<i><fgcolor=808080>iniciar filtro...</fgcolor></i>");
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Names");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterType", 3);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "Mantel");
_ObjectCallMethod( items , "AddItem", "Mechanik");
_ObjectCallMethod( items , "AddItem", "Motor");
_ObjectCallMethod( items , "AddItem", "Murks");
_ObjectCallMethod( items , "AddItem", "Märchen");
_ObjectCallMethod( items , "AddItem", "Möhren");
_ObjectCallMethod( items , "AddItem", "Mühle");
_ObjectCallMethod( items , "AddItem", "Sérigraphie");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1214
|
How can I zoom in the control
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
s1 = 16;
s2 = _ObjectCallMethod( grid , "FormatABC", "2 * value",s1);
_ObjectSetProperty( grid , "ImageSize", s2);
_ObjectSetProperty( grid , "DefaultItemHeight", s2);
_ObjectSetProperty( grid , "HeaderHeight", s2);
_ObjectSetProperty( grid , "SortBarHeight", s2);
_ObjectSetProperty( grid , "Indent", s2);
_ObjectSetProperty( _ObjectGetProperty( grid , "Font") , "Size", s1);
_ObjectSetProperty( _ObjectGetProperty( grid , "FilterBarFont") , "Size", s1);
_ObjectSetProperty( _ObjectGetProperty( grid , "ToolTipFont") , "Size", s1);
_ObjectSetProperty( grid , "FilterBarPromptVisible", 1);
_ObjectSetProperty( grid , "HeaderAppearance", 0);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Names");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterType", 3);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "Mantel");
_ObjectCallMethod( items , "AddItem", "Mechanik");
_ObjectCallMethod( items , "AddItem", "Motor");
_ObjectCallMethod( items , "AddItem", "Murks");
_ObjectCallMethod( items , "AddItem", "Märchen");
_ObjectCallMethod( items , "AddItem", "Möhren");
_ObjectCallMethod( items , "AddItem", "Mühle");
_ObjectCallMethod( items , "AddItem", "Sérigraphie");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1213
|
Can I set a filter that automatically adds a * before and after the word, so the user can just search for 'cat' and it becomes '*cat*' automatically
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "HeaderHeight", 24);
_ObjectSetProperty( grid , "LinesAtRoot", -1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Items");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", -1);
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(21) = `*<%filter%>*`");
_ObjectSetProperty( column , "FilterType", 3);
_ObjectSetProperty( column , "Filter", "1");
items = _ObjectGetProperty( grid , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
h = _ObjectCallMethod( items , "AddItem", "Root 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod( grid , "ApplyFilter");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1212
|
The fine dotted lines in the control appear much thicker than the standard ones we've been using. How can we fix this
OBJECT grid;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "HeaderHeight", 24);
_ObjectSetProperty( grid , "DrawGridLines", -1);
_ObjectSetProperty( grid , "GridLineStyle", 512);
_ObjectSetProperty( grid , "ColumnAutoResize", 0);
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Column 1");
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Column 2");
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Column 3");
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Column 4");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1211
|
Load data as a tree using a parent-id relationship
OBJECT grid,rs;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "ColumnAutoResize", 0);
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "HeaderHeight", 24);
_ObjectSetProperty( grid , "DrawGridLines", 2);
_ObjectSetProperty( grid , "LinesAtRoot", -1);
rs = CreateObject("ADODB.Recordset");
_ObjectCallMethod( rs , "Open", "Select * FROM Employees WHERE 1=0","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.mdb",3,3);
_ObjectSetProperty( grid , "DataSource", rs);
_ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(0).Width = 128");
rs = CreateObject("ADODB.Recordset");
_ObjectCallMethod( rs , "Open", "Employees","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.mdb",3,3);
_ObjectCallMethod( grid , "PutItems", _ObjectCallMethod( rs , "GetRows", ),";0;17");
_ObjectCallMethod(grid, "ExecuteTemplate", "Items.ExpandItem(0) = True");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1210
|
Is there a way to change the contents of the drop down editor based on a value in another column
// AddItem event - Occurs after a new Item has been inserted to Items collection.
FUNCTION gridEvents_AddItem(OBJECT grid, INT Item)
_ObjectCallMethod(grid, "TemplatePut", "Dim Item")
_ObjectCallMethod(grid, "TemplatePut", Item)
_ObjectCallMethod(grid, "ExecuteTemplate", "Items.CellEditorVisible(Item,0) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "Items.CellEditorVisible(Item,1) = 1");
END
// EditOpen event - Occurs when the edit operation starts.
FUNCTION gridEvents_EditOpen()
OBJECT editor,items;
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
v = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(FocusItem,0)");
c = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellCaption(FocusItem,0)");
editor = _ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(1).Editor");
_ObjectCallMethod( editor , "ClearItems");
_ObjectCallMethod( editor , "AddItem", v,c);
END
OBJECT column,editor,grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "HeaderHeight", 24);
_ObjectSetProperty( grid , "GridLineStyle", 512);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "DropDownList");
editor = _ObjectGetProperty( column , "Editor");
_ObjectSetProperty( editor , "EditType", 3);
_ObjectCallMethod( editor , "AddItem", 1,"First");
_ObjectCallMethod( editor , "AddItem", 2,"Second");
_ObjectCallMethod( editor , "AddItem", 3,"Third");
_ObjectSetProperty( grid , "DrawGridLines", -1);
_ObjectSetProperty( _ObjectGetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "DropDownList-Related") , "Editor") , "EditType", 3);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(1),1) = -1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(2),1) = -1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(3),1) = -1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.LockedItemCount(2) = 1");
h = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.LockedItem(2,0)");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemDivider(h) = 0");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemDividerLineAlignment(h) = 2");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditorVisible(h,0) = False");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellSingleLine(h,0) = False");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValueFormat(h,0) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,0) = `The drop down editor in the second column is filled during the <b>EditOpen event</b>, and the values are based on the selection on the first column.`");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1209
|
Highlight the editable fields
// Change event - Occurs when the user changes the cell's content.
FUNCTION gridEvents_Change(OBJECT grid, INT Item, INT ColIndex, VARIANT NewValue)
_ObjectCallMethod( grid , "Refresh");
END
OBJECT column,columns,conditionalformat,conditionalformats,grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "FreezeEvents", -1);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "HeaderHeight", 24);
_ObjectSetProperty( grid , "LinesAtRoot", -1);
conditionalformats = _ObjectGetProperty( grid , "ConditionalFormats");
conditionalformat = _ObjectCallMethod( conditionalformats , "Add", "%CE1");
_ObjectSetProperty( conditionalformat , "Bold", -1);
_ObjectSetProperty( conditionalformat , "BackColor", 16119285);
_ObjectSetProperty( conditionalformat , "ApplyTo", 1);
conditionalformat = _ObjectCallMethod( conditionalformats , "Add", "%CE2");
_ObjectSetProperty( conditionalformat , "Bold", -1);
_ObjectSetProperty( conditionalformat , "BackColor", 16119285);
_ObjectSetProperty( conditionalformat , "ApplyTo", 2);
conditionalformat = _ObjectCallMethod( conditionalformats , "Add", "%CE3");
_ObjectSetProperty( conditionalformat , "Bold", -1);
_ObjectSetProperty( conditionalformat , "BackColor", 16119285);
_ObjectSetProperty( conditionalformat , "ApplyTo", 3);
columns = _ObjectGetProperty( grid , "Columns");
_ObjectCallMethod( columns , "Add", "Description");
column = _ObjectCallMethod( columns , "Add", "Qty");
_ObjectSetProperty( _ObjectGetProperty( column , "Editor") , "EditType", 4);
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(20) = `sum(current,rec,%1)`");
column = _ObjectCallMethod( columns , "Add", "Price");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(20) = `avg(current,rec,%2)`");
_ObjectSetProperty( _ObjectGetProperty( column , "Editor") , "EditType", 4);
column = _ObjectCallMethod( columns , "Add", "Amount");
_ObjectSetProperty( column , "ComputedField", "%1 * %2");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(20) = `sum(current,rec,%3)`");
items = _ObjectGetProperty( grid , "Items");
r = _ObjectCallMethod( items , "AddItem", "Root");
g1 = _ObjectCallMethod( items , "InsertItem", r,"","Group 1");
h = _ObjectCallMethod( items , "InsertItem", g1,"","Item 1");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,2) = 10");
h = _ObjectCallMethod( items , "InsertItem", g1,"","Item 2");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = 2");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,2) = 11");
g2 = _ObjectCallMethod( items , "InsertItem", r,"","Group 2");
h = _ObjectCallMethod( items , "InsertItem", g2,"","Item 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = 3");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,2) = 12");
h = _ObjectCallMethod( items , "InsertItem", g2,"","Item 2");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = 4");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,2) = 13");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(0) = True");
_ObjectCallMethod( grid , "EndUpdate");
_ObjectCallMethod( grid , "FreezeEvents", 0);
|
|
1208
|
Highlight the total fields
// Change event - Occurs when the user changes the cell's content.
FUNCTION gridEvents_Change(OBJECT grid, INT Item, INT ColIndex, VARIANT NewValue)
_ObjectCallMethod( grid , "Refresh");
END
OBJECT column,columns,conditionalformat,conditionalformats,grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "FreezeEvents", -1);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "HeaderHeight", 24);
_ObjectSetProperty( grid , "LinesAtRoot", -1);
conditionalformats = _ObjectGetProperty( grid , "ConditionalFormats");
conditionalformat = _ObjectCallMethod( conditionalformats , "Add", "%CT1");
_ObjectSetProperty( conditionalformat , "ForeColor", 8421504);
_ObjectSetProperty( conditionalformat , "ApplyTo", 1);
conditionalformat = _ObjectCallMethod( conditionalformats , "Add", "%CT2");
_ObjectSetProperty( conditionalformat , "ForeColor", 8421504);
_ObjectSetProperty( conditionalformat , "ApplyTo", 2);
conditionalformat = _ObjectCallMethod( conditionalformats , "Add", "%CT3");
_ObjectSetProperty( conditionalformat , "ForeColor", 8421504);
_ObjectSetProperty( conditionalformat , "ApplyTo", 3);
columns = _ObjectGetProperty( grid , "Columns");
_ObjectCallMethod( columns , "Add", "Description");
column = _ObjectCallMethod( columns , "Add", "Qty");
_ObjectSetProperty( _ObjectGetProperty( column , "Editor") , "EditType", 4);
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(20) = `sum(current,rec,%1)`");
column = _ObjectCallMethod( columns , "Add", "Price");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(20) = `avg(current,rec,%2)`");
_ObjectSetProperty( _ObjectGetProperty( column , "Editor") , "EditType", 4);
column = _ObjectCallMethod( columns , "Add", "Amount");
_ObjectSetProperty( column , "ComputedField", "%1 * %2");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(20) = `sum(current,rec,%3)`");
items = _ObjectGetProperty( grid , "Items");
r = _ObjectCallMethod( items , "AddItem", "Root");
g1 = _ObjectCallMethod( items , "InsertItem", r,"","Group 1");
h = _ObjectCallMethod( items , "InsertItem", g1,"","Item 1");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,2) = 10");
h = _ObjectCallMethod( items , "InsertItem", g1,"","Item 2");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = 2");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,2) = 11");
g2 = _ObjectCallMethod( items , "InsertItem", r,"","Group 2");
h = _ObjectCallMethod( items , "InsertItem", g2,"","Item 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = 3");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,2) = 12");
h = _ObjectCallMethod( items , "InsertItem", g2,"","Item 2");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = 4");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,2) = 13");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(0) = True");
_ObjectCallMethod( grid , "EndUpdate");
_ObjectCallMethod( grid , "FreezeEvents", 0);
|
|
1207
|
Highlight the leaf items
OBJECT columns,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "ConditionalFormats") , "Add", "%CC0=0") , "ForeColor", 8421504);
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "HeaderHeight", 24);
_ObjectSetProperty( grid , "LinesAtRoot", -1);
columns = _ObjectGetProperty( grid , "Columns");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Item") , "Width", 16);
_ObjectCallMethod( columns , "Add", "Desc");
items = _ObjectGetProperty( grid , "Items");
hR = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,hR")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", hR)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(hR,1) = `The root directory /`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(hR) = True");
h = _ObjectCallMethod( items , "InsertItem", hR,"","Home");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = `The home directory with user directories Alice and Bob`");
_ObjectCallMethod( items , "InsertItem", h,"","Alice");
_ObjectCallMethod( items , "InsertItem", h,"","Bob");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
h = _ObjectCallMethod( items , "InsertItem", hR,"","Etc");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = `The etc directory with one configuration file`");
h = _ObjectCallMethod( items , "InsertItem", h,"","nginx.conf");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,hR")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", hR)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(hR,,`Var`),1) = `The var directory`");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1206
|
Highlight the parent items
OBJECT columns,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "ConditionalFormats") , "Add", "%CC0") , "ForeColor", 255);
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "HeaderHeight", 24);
_ObjectSetProperty( grid , "LinesAtRoot", -1);
columns = _ObjectGetProperty( grid , "Columns");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Item") , "Width", 16);
_ObjectCallMethod( columns , "Add", "Desc");
items = _ObjectGetProperty( grid , "Items");
hR = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,hR")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", hR)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(hR,1) = `The root directory /`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(hR) = True");
h = _ObjectCallMethod( items , "InsertItem", hR,"","Home");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = `The home directory with user directories Alice and Bob`");
_ObjectCallMethod( items , "InsertItem", h,"","Alice");
_ObjectCallMethod( items , "InsertItem", h,"","Bob");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
h = _ObjectCallMethod( items , "InsertItem", hR,"","Etc");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = `The etc directory with one configuration file`");
h = _ObjectCallMethod( items , "InsertItem", h,"","nginx.conf");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,hR")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", hR)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(hR,,`Var`),1) = `The var directory`");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1205
|
Highlight the item being expanded or collapsed
OBJECT columns,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "ConditionalFormats") , "Add", "%CX0") , "Bold", -1);
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "HeaderHeight", 24);
_ObjectSetProperty( grid , "LinesAtRoot", -1);
columns = _ObjectGetProperty( grid , "Columns");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Item") , "Width", 16);
_ObjectCallMethod( columns , "Add", "Desc");
items = _ObjectGetProperty( grid , "Items");
hR = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,hR")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", hR)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(hR,1) = `The root directory /`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(hR) = True");
h = _ObjectCallMethod( items , "InsertItem", hR,"","Home");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = `The home directory with user directories Alice and Bob`");
_ObjectCallMethod( items , "InsertItem", h,"","Alice");
_ObjectCallMethod( items , "InsertItem", h,"","Bob");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
h = _ObjectCallMethod( items , "InsertItem", hR,"","Etc");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = `The etc directory with one configuration file`");
h = _ObjectCallMethod( items , "InsertItem", h,"","nginx.conf");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,hR")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", hR)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(InsertItem(hR,,`Var`),1) = `The var directory`");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1204
|
I am using exTotalColumn. Is there an option to exclude specific cells to display the total
// Change event - Occurs when the user changes the cell's content.
FUNCTION gridEvents_Change(OBJECT grid, INT Item, INT ColIndex, VARIANT NewValue)
_ObjectCallMethod( grid , "Refresh");
END
OBJECT column,columns,grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "FreezeEvents", -1);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "HeaderHeight", 24);
_ObjectSetProperty( grid , "LinesAtRoot", -1);
columns = _ObjectGetProperty( grid , "Columns");
_ObjectCallMethod( columns , "Add", "Description");
column = _ObjectCallMethod( columns , "Add", "Qty");
_ObjectSetProperty( _ObjectGetProperty( column , "Editor") , "EditType", 4);
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(20) = `sum(current,rec,%1)`");
column = _ObjectCallMethod( columns , "Add", "Price");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(20) = `avg(current,rec,%2)`");
_ObjectSetProperty( _ObjectGetProperty( column , "Editor") , "EditType", 4);
column = _ObjectCallMethod( columns , "Add", "Amount");
_ObjectSetProperty( column , "ComputedField", "%1 * %2");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(20) = `sum(current,rec,%3)`");
items = _ObjectGetProperty( grid , "Items");
r = _ObjectCallMethod( items , "AddItem", "Root");
g1 = _ObjectCallMethod( items , "InsertItem", r,"","Group 1");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,g1")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", g1)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.FormatCell(g1,2) = ``<average missing>``");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellEditorVisible(g1,2) = False");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellBold(g1,2) = True");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellForeColor(g1,2) = 255");
h = _ObjectCallMethod( items , "InsertItem", g1,"","Item 1");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,2) = 10");
h = _ObjectCallMethod( items , "InsertItem", g1,"","Item 2");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = 2");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,2) = 11");
g2 = _ObjectCallMethod( items , "InsertItem", r,"","Group 2");
h = _ObjectCallMethod( items , "InsertItem", g2,"","Item 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = 3");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,2) = 12");
h = _ObjectCallMethod( items , "InsertItem", g2,"","Item 2");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = 4");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,2) = 13");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(0) = True");
_ObjectCallMethod( grid , "EndUpdate");
_ObjectCallMethod( grid , "FreezeEvents", 0);
|
|
1203
|
How can I add a total column
// Change event - Occurs when the user changes the cell's content.
FUNCTION gridEvents_Change(OBJECT grid, INT Item, INT ColIndex, VARIANT NewValue)
_ObjectCallMethod( grid , "Refresh");
END
OBJECT column,columns,grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "FreezeEvents", -1);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "HeaderHeight", 24);
_ObjectSetProperty( grid , "LinesAtRoot", -1);
columns = _ObjectGetProperty( grid , "Columns");
_ObjectCallMethod( columns , "Add", "Description");
column = _ObjectCallMethod( columns , "Add", "Qty");
_ObjectSetProperty( _ObjectGetProperty( column , "Editor") , "EditType", 4);
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(20) = `sum(current,rec,%1)`");
column = _ObjectCallMethod( columns , "Add", "Price");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(20) = `avg(current,rec,%2)`");
_ObjectSetProperty( _ObjectGetProperty( column , "Editor") , "EditType", 4);
column = _ObjectCallMethod( columns , "Add", "Amount");
_ObjectSetProperty( column , "ComputedField", "%1 * %2");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(20) = `sum(current,rec,%3)`");
items = _ObjectGetProperty( grid , "Items");
r = _ObjectCallMethod( items , "AddItem", "Root");
g1 = _ObjectCallMethod( items , "InsertItem", r,"","Group 1");
h = _ObjectCallMethod( items , "InsertItem", g1,"","Item 1");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,2) = 10");
h = _ObjectCallMethod( items , "InsertItem", g1,"","Item 2");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = 2");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,2) = 11");
g2 = _ObjectCallMethod( items , "InsertItem", r,"","Group 2");
h = _ObjectCallMethod( items , "InsertItem", g2,"","Item 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = 3");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,2) = 12");
h = _ObjectCallMethod( items , "InsertItem", g2,"","Item 2");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = 4");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,2) = 13");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(0) = True");
_ObjectCallMethod( grid , "EndUpdate");
_ObjectCallMethod( grid , "FreezeEvents", 0);
|
|
1202
|
Is it possible to disable sizing(size) the column
OBJECT column,grid;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "DrawGridLines", 2);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "32px");
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Rest");
_ObjectSetProperty( grid , "ColumnAutoResize", -1);
_ObjectCallMethod( grid , "EndUpdate");
|
|
1201
|
How can I add two columns of 25% and the third of 50%
OBJECT grid;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "DrawGridLines", 2);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "25%") , "Width", 25);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "25%") , "Width", 25);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "50%") , "Width", 50);
_ObjectSetProperty( grid , "ColumnAutoResize", -1);
_ObjectCallMethod( grid , "EndUpdate");
|