|
1223
|
Defines the symbol used to indicate repeated captions, providing a clear visual cue for identical entries (ditto mark)
Grid1->BeginUpdate();
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->HeaderHeight = 24;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exRowLines;
Grid1->Columns->Add(L"Country")->ShowIdem = L"<fgcolor gray>〃";
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->AddItem(TVariant("Spain"));
var_Items->AddItem(TVariant("Spain"));
var_Items->AddItem(TVariant("Spain"));
var_Items->AddItem(TVariant("Spain"));
var_Items->AddItem(TVariant("Germany"));
var_Items->AddItem(TVariant("Germany"));
var_Items->AddItem(TVariant("Germany"));
var_Items->AddItem(TVariant("Germany"));
Grid1->EndUpdate();
|
|
1222
|
Defines the symbol used to indicate repeated captions, providing a clear visual cue for identical entries (space)
Grid1->BeginUpdate();
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->HeaderHeight = 24;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exRowLines;
Grid1->Columns->Add(L"Country")->ShowIdem = L" ";
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->AddItem(TVariant("Spain"));
var_Items->AddItem(TVariant("Spain"));
var_Items->AddItem(TVariant("Spain"));
var_Items->AddItem(TVariant("Spain"));
var_Items->AddItem(TVariant("Germany"));
var_Items->AddItem(TVariant("Germany"));
var_Items->AddItem(TVariant("Germany"));
var_Items->AddItem(TVariant("Germany"));
Grid1->EndUpdate();
|
|
1221
|
Displays a glitch funnel for drop-down filter buttons (empty or active)
Grid1->BeginUpdate();
Exgridlib_tlb::IAppearancePtr var_Appearance = Grid1->VisualAppearance;
var_Appearance->RenderType = -1;
var_Appearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABa8IQAAYAQGKIYBkAKBQAGaAoDDUNQxQwAAxwfBMKgBBCLIxhEYobgmGIXRpFMbxCKQahLEiTIhGUYJHgmK4tRiAUgxVDkBxrECZYqjcBZO") +
"iwLQ2TxDM7DNKUCBnIoABhGOaYDh+IQNQjUFKwTRFGRxK4EIRKAyTDLQdRyGSMMbjdQpBCbMiMRqhESKRq2UwYRYCFS1NalaztO6BUAvK67YrWez/YBfF+SfwGeqDYRe" +
"WAPfgWERnQrGMLxbD8KwZAKTRjkGJ4XhuB41TbQMqufL9ByXHKSSDpGjaXjeO5VVjYNAvS69UzXNq3bhtQAOXCMEwCgI="));
var_Appearance->Add(2,TVariant("CP:1 -2 0 0 0"));
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exAllLines;
Grid1->GridLineStyle = Exgridlib_tlb::GridLinesStyleEnum::exGridLinesGeometric;
Grid1->ShowFocusRect = false;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exHeaderFilterBarButton] = 0x2000000;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exHeaderFilterBarActive] = 0x2000001;
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->BackColorHeader = RGB(255,255,255);
Grid1->HeaderHeight = 24;
Grid1->HeaderVisible = true;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"1st col");
var_Column->DisplayFilterButton = true;
var_Column->DisplayFilterPattern = false;
var_Column->Filter = L"Item B";
var_Column->FilterType = Exgridlib_tlb::FilterTypeEnum::exFilter;
Grid1->Columns->Add(L"2nd col");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->AddItem(TVariant("Item A"));
var_Items->AddItem(TVariant("Item B"));
var_Items->AddItem(TVariant("Item C"));
Grid1->ApplyFilter();
Grid1->EndUpdate();
|
|
1220
|
How can I store any extra data associated with a cell
// ButtonClick event - Occurs when user clicks on the cell's button.
void __fastcall TForm1::Grid1ButtonClick(TObject *Sender,Exgridlib_tlb::HITEM Item,long ColIndex,Variant Key)
{
OutputDebugString( PChar(Grid1->Items->get_CellData(TVariant(Item),TVariant(ColIndex))) );
}
Grid1->BeginUpdate();
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Exgridlib_tlb::IEditorPtr var_Editor = Grid1->Columns->Add(L"Def")->Editor;
var_Editor->EditType = Exgridlib_tlb::EditTypeEnum::ButtonType;
var_Editor->Locked = true;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->set_CellData(TVariant(var_Items->AddItem(TVariant("Cell 1"))),TVariant(0),TVariant("your extra data for cell 1"));
var_Items->set_CellData(TVariant(var_Items->AddItem(TVariant("Cell 2"))),TVariant(0),TVariant("your extra data for cell 2"));
Grid1->EndUpdate();
|
|
1219
|
How can I replace or add an icon at runtime
Grid1->BeginUpdate();
Grid1->ReplaceIcon(TVariant(String("gAAAABgYACEHgUJFEEAAWhUJCEJEEJggEhMCYEXjUbjkJQECj8gj8hAEjkshYEpk8kf8ClsulsvAExmcvf83js5nU7nkCeEcn8boMaocXosCB9Hn09pkzcEuoL/fE+O") +
"kYB0gB9YhIHrddgVcr9aktZADAD8+P8CgIA=="),TNoParam());
Grid1->ReplaceIcon(TVariant("C:\\images\\favicon.ico"),TVariant(0));
Grid1->Columns->Add(L"Items")->set_Def(Exgridlib_tlb::DefColumnEnum::exCellValueFormat,TVariant(1));
Grid1->Items->AddItem(TVariant("Item <img>1</img>"));
Grid1->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.
void __fastcall TForm1::Grid1Click(TObject *Sender)
{
Grid1->Layout = L"Select=\"0\";SingleSort=\"C0:2\";Columns=1";
}
Grid1->BeginUpdate();
Grid1->Columns->Add(L"Column");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->AddItem(TVariant("Item 1"));
var_Items->AddItem(TVariant("Item 2"));
var_Items->AddItem(TVariant("Item 3"));
Grid1->EndUpdate();
|
|
1217
|
How can I add totals to groups without having to go through the AddGroupItem grid function
Grid1->FreezeEvents(true);
Grid1->BeginUpdate();
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->HeaderHeight = 24;
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Exgridlib_tlb::IConditionalFormatsPtr var_ConditionalFormats = Grid1->ConditionalFormats;
Exgridlib_tlb::IConditionalFormatPtr var_ConditionalFormat = var_ConditionalFormats->Add(L"%CT1",TNoParam());
var_ConditionalFormat->ForeColor = RGB(128,128,128);
var_ConditionalFormat->ApplyTo = Exgridlib_tlb::FormatApplyToEnum(0x1);
Exgridlib_tlb::IConditionalFormatPtr var_ConditionalFormat1 = var_ConditionalFormats->Add(L"%CT2",TNoParam());
var_ConditionalFormat1->ForeColor = RGB(128,128,128);
var_ConditionalFormat1->ApplyTo = Exgridlib_tlb::FormatApplyToEnum(0x2);
Exgridlib_tlb::IConditionalFormatPtr var_ConditionalFormat2 = var_ConditionalFormats->Add(L"%CT3",TNoParam());
var_ConditionalFormat2->ForeColor = RGB(128,128,128);
var_ConditionalFormat2->ApplyTo = Exgridlib_tlb::FormatApplyToEnum(0x3);
Exgridlib_tlb::IColumnsPtr var_Columns = Grid1->Columns;
var_Columns->Add(L"Description");
Exgridlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"Qty");
var_Column->Editor->EditType = Exgridlib_tlb::EditTypeEnum::SpinType;
var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exTotalColumn,TVariant("sum(current,rec,%1)"));
Exgridlib_tlb::IColumnPtr var_Column1 = var_Columns->Add(L"Price");
var_Column1->set_Def(Exgridlib_tlb::DefColumnEnum::exTotalColumn,TVariant("avg(current,rec,%2)"));
var_Column1->Editor->EditType = Exgridlib_tlb::EditTypeEnum::SpinType;
Exgridlib_tlb::IColumnPtr var_Column2 = var_Columns->Add(L"Amount");
var_Column2->ComputedField = L"%1 * %2";
var_Column2->set_Def(Exgridlib_tlb::DefColumnEnum::exTotalColumn,TVariant("sum(current,rec,%3)"));
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
long r = var_Items->AddItem(TVariant("Root"));
long g1 = var_Items->InsertItem(r,TNoParam(),TVariant("Group 1"));
long h = var_Items->InsertItem(g1,TNoParam(),TVariant("Item 1"));
var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant(1));
var_Items->set_CellValue(TVariant(h),TVariant(2),TVariant(10));
h = var_Items->InsertItem(g1,TNoParam(),TVariant("Item 2"));
var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant(2));
var_Items->set_CellValue(TVariant(h),TVariant(2),TVariant(11));
long g2 = var_Items->InsertItem(r,TNoParam(),TVariant("Group 2"));
h = var_Items->InsertItem(g2,TNoParam(),TVariant("Item 1"));
var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant(3));
var_Items->set_CellValue(TVariant(h),TVariant(2),TVariant(12));
h = var_Items->InsertItem(g2,TNoParam(),TVariant("Item 2"));
var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant(4));
var_Items->set_CellValue(TVariant(h),TVariant(2),TVariant(13));
var_Items->set_ExpandItem(0,true);
Grid1->EndUpdate();
Grid1->FreezeEvents(false);
|
|
1216
|
How can I configure the filters in the text columns to search by content
Grid1->BeginUpdate();
Grid1->FilterBarPromptVisible = Exgridlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::None2;
Grid1->FilterBarPromptType = Exgridlib_tlb::FilterPromptEnum::exFilterPromptContainsAll;
Grid1->Columns->Add(L"Names");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->AddItem(TVariant("Mantel"));
var_Items->AddItem(TVariant("Mechanik"));
var_Items->AddItem(TVariant("Motor"));
var_Items->AddItem(TVariant("Murks"));
var_Items->AddItem(TVariant("Märchen"));
var_Items->AddItem(TVariant("Möhren"));
var_Items->AddItem(TVariant("Mühle"));
var_Items->AddItem(TVariant("Sérigraphie"));
Grid1->FilterBarPromptPattern = L"a";
Grid1->EndUpdate();
|
|
1215
|
How can I display the control's captions in Spanish
Grid1->BeginUpdate();
Grid1->FilterBarPromptVisible = Exgridlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::None2;
Grid1->Description[Exgridlib_tlb::DescriptionTypeEnum::exFilterBarAll] = L"(todo) ";
Grid1->Description[Exgridlib_tlb::DescriptionTypeEnum::exFilterBarFilterForCaption] = L"filtrar por...";
Grid1->FilterBarPrompt = L"<i><fgcolor=808080>iniciar filtro...</fgcolor></i>";
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Names");
var_Column->DisplayFilterButton = true;
var_Column->FilterType = Exgridlib_tlb::FilterTypeEnum::exPattern;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->AddItem(TVariant("Mantel"));
var_Items->AddItem(TVariant("Mechanik"));
var_Items->AddItem(TVariant("Motor"));
var_Items->AddItem(TVariant("Murks"));
var_Items->AddItem(TVariant("Märchen"));
var_Items->AddItem(TVariant("Möhren"));
var_Items->AddItem(TVariant("Mühle"));
var_Items->AddItem(TVariant("Sérigraphie"));
Grid1->EndUpdate();
|
|
1214
|
How can I zoom in the control
Grid1->BeginUpdate();
String s1 = 16;
TVariant s2 = TVariant(Grid1->FormatABC(L"2 * value",TVariant(s1),TNoParam(),TNoParam()));
Grid1->ImageSize = s2;
Grid1->DefaultItemHeight = s2;
Grid1->HeaderHeight = s2;
Grid1->SortBarHeight = s2;
Grid1->Indent = s2;
Grid1->Font->Size = TVariant(s1);
Grid1->FilterBarFont->Size = TVariant(s1);
Grid1->ToolTipFont->Size = TVariant(s1);
Grid1->FilterBarPromptVisible = Exgridlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::None2;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Names");
var_Column->DisplayFilterButton = true;
var_Column->FilterType = Exgridlib_tlb::FilterTypeEnum::exPattern;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->AddItem(TVariant("Mantel"));
var_Items->AddItem(TVariant("Mechanik"));
var_Items->AddItem(TVariant("Motor"));
var_Items->AddItem(TVariant("Murks"));
var_Items->AddItem(TVariant("Märchen"));
var_Items->AddItem(TVariant("Möhren"));
var_Items->AddItem(TVariant("Mühle"));
var_Items->AddItem(TVariant("Sérigraphie"));
Grid1->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
Grid1->BeginUpdate();
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->HeaderHeight = 24;
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Items");
var_Column->DisplayFilterButton = true;
var_Column->DisplayFilterPattern = true;
var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exFilterPatternTemplate,TVariant("*<%filter%>*"));
var_Column->FilterType = Exgridlib_tlb::FilterTypeEnum::exPattern;
var_Column->Filter = L"1";
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
long h = var_Items->AddItem(TVariant("Root 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(h,true);
h = var_Items->AddItem(TVariant("Root 2"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
Grid1->ApplyFilter();
Grid1->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
Grid1->BeginUpdate();
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->HeaderHeight = 24;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exAllLines;
Grid1->GridLineStyle = Exgridlib_tlb::GridLinesStyleEnum::exGridLinesGeometric;
Grid1->ColumnAutoResize = false;
Grid1->Columns->Add(L"Column 1");
Grid1->Columns->Add(L"Column 2");
Grid1->Columns->Add(L"Column 3");
Grid1->Columns->Add(L"Column 4");
Grid1->EndUpdate();
|
|
1211
|
Load data as a tree using a parent-id relationship
Grid1->BeginUpdate();
Grid1->ColumnAutoResize = false;
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->HeaderHeight = 24;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exVLines;
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
/*
Select the Component\Import Component...\Import a Type Library,
to import the following Type Library:
Microsoft ActiveX Data Objects 6.1 Library
TypeLib: msado15.dll
to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADODB.Recordset");
rs->Open(TVariant("Select * FROM Employees WHERE 1=0"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExGrid\\Sample\\Access\\misc.mdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Grid1->DataSource = (IDispatch*)rs;
Grid1->Columns->get_Item(TVariant(0))->Width = 128;
rs = Variant::CreateObject(L"ADODB.Recordset");
rs->Open(TVariant("Employees"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExGrid\\Sample\\Access\\misc.mdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Grid1->PutItems(rs->GetRows(0,TNoParam(),TNoParam()),TVariant(";0;17"));
Grid1->Items->set_ExpandItem(0,true);
Grid1->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.
void __fastcall TForm1::Grid1AddItem(TObject *Sender,Exgridlib_tlb::HITEM Item)
{
Grid1->Items->set_CellEditorVisible(TVariant(Item),TVariant(0),Exgridlib_tlb::EditorVisibleEnum::exEditorVisible);
Grid1->Items->set_CellEditorVisible(TVariant(Item),TVariant(1),Exgridlib_tlb::EditorVisibleEnum::exEditorVisible);
}
// EditOpen event - Occurs when the edit operation starts.
void __fastcall TForm1::Grid1EditOpen(TObject *Sender)
{
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
TVariant v = TVariant(var_Items->get_CellValue(TVariant(var_Items->FocusItem),TVariant(0)));
String c = var_Items->get_CellCaption(TVariant(var_Items->FocusItem),TVariant(0));
Exgridlib_tlb::IEditorPtr var_Editor = Grid1->Columns->get_Item(TVariant(1))->Editor;
var_Editor->ClearItems();
var_Editor->AddItem(v,L"c",TNoParam());
}
Grid1->BeginUpdate();
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->HeaderHeight = 24;
Grid1->GridLineStyle = Exgridlib_tlb::GridLinesStyleEnum::exGridLinesGeometric;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"DropDownList");
Exgridlib_tlb::IEditorPtr var_Editor = var_Column->Editor;
var_Editor->EditType = Exgridlib_tlb::EditTypeEnum::DropDownListType;
var_Editor->AddItem(1,L"First",TNoParam());
var_Editor->AddItem(2,L"Second",TNoParam());
var_Editor->AddItem(3,L"Third",TNoParam());
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exAllLines;
Grid1->Columns->Add(L"DropDownList-Related")->Editor->EditType = Exgridlib_tlb::EditTypeEnum::DropDownListType;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant(1))),TVariant(1),TVariant(-1));
var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant(2))),TVariant(1),TVariant(-1));
var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant(3))),TVariant(1),TVariant(-1));
var_Items->set_LockedItemCount(Exgridlib_tlb::VAlignmentEnum::exBottom,1);
long h = var_Items->get_LockedItem(Exgridlib_tlb::VAlignmentEnum::exBottom,0);
var_Items->set_ItemDivider(h,0);
var_Items->set_ItemDividerLineAlignment(h,Exgridlib_tlb::DividerAlignmentEnum::DividerTop);
var_Items->set_CellEditorVisible(TVariant(h),TVariant(0),Exgridlib_tlb::EditorVisibleEnum::exEditorHidden);
var_Items->set_CellSingleLine(TVariant(h),TVariant(0),Exgridlib_tlb::CellSingleLineEnum::exCaptionWordWrap);
var_Items->set_CellValueFormat(TVariant(h),TVariant(0),Exgridlib_tlb::ValueFormatEnum::exHTML);
var_Items->set_CellValue(TVariant(h),TVariant(0),TVariant(String("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."));
Grid1->EndUpdate();
|
|
1209
|
Highlight the editable fields
// Change event - Occurs when the user changes the cell's content.
void __fastcall TForm1::Grid1Change(TObject *Sender,Exgridlib_tlb::HITEM Item,long ColIndex,Variant * NewValue)
{
Grid1->Refresh();
}
Grid1->FreezeEvents(true);
Grid1->BeginUpdate();
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->HeaderHeight = 24;
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Exgridlib_tlb::IConditionalFormatsPtr var_ConditionalFormats = Grid1->ConditionalFormats;
Exgridlib_tlb::IConditionalFormatPtr var_ConditionalFormat = var_ConditionalFormats->Add(L"%CE1",TNoParam());
var_ConditionalFormat->Bold = true;
var_ConditionalFormat->BackColor = RGB(245,245,245);
var_ConditionalFormat->ApplyTo = Exgridlib_tlb::FormatApplyToEnum(0x1);
Exgridlib_tlb::IConditionalFormatPtr var_ConditionalFormat1 = var_ConditionalFormats->Add(L"%CE2",TNoParam());
var_ConditionalFormat1->Bold = true;
var_ConditionalFormat1->BackColor = RGB(245,245,245);
var_ConditionalFormat1->ApplyTo = Exgridlib_tlb::FormatApplyToEnum(0x2);
Exgridlib_tlb::IConditionalFormatPtr var_ConditionalFormat2 = var_ConditionalFormats->Add(L"%CE3",TNoParam());
var_ConditionalFormat2->Bold = true;
var_ConditionalFormat2->BackColor = RGB(245,245,245);
var_ConditionalFormat2->ApplyTo = Exgridlib_tlb::FormatApplyToEnum(0x3);
Exgridlib_tlb::IColumnsPtr var_Columns = Grid1->Columns;
var_Columns->Add(L"Description");
Exgridlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"Qty");
var_Column->Editor->EditType = Exgridlib_tlb::EditTypeEnum::SpinType;
var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exTotalColumn,TVariant("sum(current,rec,%1)"));
Exgridlib_tlb::IColumnPtr var_Column1 = var_Columns->Add(L"Price");
var_Column1->set_Def(Exgridlib_tlb::DefColumnEnum::exTotalColumn,TVariant("avg(current,rec,%2)"));
var_Column1->Editor->EditType = Exgridlib_tlb::EditTypeEnum::SpinType;
Exgridlib_tlb::IColumnPtr var_Column2 = var_Columns->Add(L"Amount");
var_Column2->ComputedField = L"%1 * %2";
var_Column2->set_Def(Exgridlib_tlb::DefColumnEnum::exTotalColumn,TVariant("sum(current,rec,%3)"));
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
long r = var_Items->AddItem(TVariant("Root"));
long g1 = var_Items->InsertItem(r,TNoParam(),TVariant("Group 1"));
long h = var_Items->InsertItem(g1,TNoParam(),TVariant("Item 1"));
var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant(1));
var_Items->set_CellValue(TVariant(h),TVariant(2),TVariant(10));
h = var_Items->InsertItem(g1,TNoParam(),TVariant("Item 2"));
var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant(2));
var_Items->set_CellValue(TVariant(h),TVariant(2),TVariant(11));
long g2 = var_Items->InsertItem(r,TNoParam(),TVariant("Group 2"));
h = var_Items->InsertItem(g2,TNoParam(),TVariant("Item 1"));
var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant(3));
var_Items->set_CellValue(TVariant(h),TVariant(2),TVariant(12));
h = var_Items->InsertItem(g2,TNoParam(),TVariant("Item 2"));
var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant(4));
var_Items->set_CellValue(TVariant(h),TVariant(2),TVariant(13));
var_Items->set_ExpandItem(0,true);
Grid1->EndUpdate();
Grid1->FreezeEvents(false);
|
|
1208
|
Highlight the total fields
// Change event - Occurs when the user changes the cell's content.
void __fastcall TForm1::Grid1Change(TObject *Sender,Exgridlib_tlb::HITEM Item,long ColIndex,Variant * NewValue)
{
Grid1->Refresh();
}
Grid1->FreezeEvents(true);
Grid1->BeginUpdate();
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->HeaderHeight = 24;
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Exgridlib_tlb::IConditionalFormatsPtr var_ConditionalFormats = Grid1->ConditionalFormats;
Exgridlib_tlb::IConditionalFormatPtr var_ConditionalFormat = var_ConditionalFormats->Add(L"%CT1",TNoParam());
var_ConditionalFormat->ForeColor = RGB(128,128,128);
var_ConditionalFormat->ApplyTo = Exgridlib_tlb::FormatApplyToEnum(0x1);
Exgridlib_tlb::IConditionalFormatPtr var_ConditionalFormat1 = var_ConditionalFormats->Add(L"%CT2",TNoParam());
var_ConditionalFormat1->ForeColor = RGB(128,128,128);
var_ConditionalFormat1->ApplyTo = Exgridlib_tlb::FormatApplyToEnum(0x2);
Exgridlib_tlb::IConditionalFormatPtr var_ConditionalFormat2 = var_ConditionalFormats->Add(L"%CT3",TNoParam());
var_ConditionalFormat2->ForeColor = RGB(128,128,128);
var_ConditionalFormat2->ApplyTo = Exgridlib_tlb::FormatApplyToEnum(0x3);
Exgridlib_tlb::IColumnsPtr var_Columns = Grid1->Columns;
var_Columns->Add(L"Description");
Exgridlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"Qty");
var_Column->Editor->EditType = Exgridlib_tlb::EditTypeEnum::SpinType;
var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exTotalColumn,TVariant("sum(current,rec,%1)"));
Exgridlib_tlb::IColumnPtr var_Column1 = var_Columns->Add(L"Price");
var_Column1->set_Def(Exgridlib_tlb::DefColumnEnum::exTotalColumn,TVariant("avg(current,rec,%2)"));
var_Column1->Editor->EditType = Exgridlib_tlb::EditTypeEnum::SpinType;
Exgridlib_tlb::IColumnPtr var_Column2 = var_Columns->Add(L"Amount");
var_Column2->ComputedField = L"%1 * %2";
var_Column2->set_Def(Exgridlib_tlb::DefColumnEnum::exTotalColumn,TVariant("sum(current,rec,%3)"));
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
long r = var_Items->AddItem(TVariant("Root"));
long g1 = var_Items->InsertItem(r,TNoParam(),TVariant("Group 1"));
long h = var_Items->InsertItem(g1,TNoParam(),TVariant("Item 1"));
var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant(1));
var_Items->set_CellValue(TVariant(h),TVariant(2),TVariant(10));
h = var_Items->InsertItem(g1,TNoParam(),TVariant("Item 2"));
var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant(2));
var_Items->set_CellValue(TVariant(h),TVariant(2),TVariant(11));
long g2 = var_Items->InsertItem(r,TNoParam(),TVariant("Group 2"));
h = var_Items->InsertItem(g2,TNoParam(),TVariant("Item 1"));
var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant(3));
var_Items->set_CellValue(TVariant(h),TVariant(2),TVariant(12));
h = var_Items->InsertItem(g2,TNoParam(),TVariant("Item 2"));
var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant(4));
var_Items->set_CellValue(TVariant(h),TVariant(2),TVariant(13));
var_Items->set_ExpandItem(0,true);
Grid1->EndUpdate();
Grid1->FreezeEvents(false);
|
|
1207
|
Highlight the leaf items
Grid1->BeginUpdate();
Grid1->ConditionalFormats->Add(L"%CC0=0",TNoParam())->ForeColor = RGB(128,128,128);
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->HeaderHeight = 24;
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Exgridlib_tlb::IColumnsPtr var_Columns = Grid1->Columns;
var_Columns->Add(L"Item")->Width = 16;
var_Columns->Add(L"Desc");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
long hR = var_Items->AddItem(TVariant("Root"));
var_Items->set_CellValue(TVariant(hR),TVariant(1),TVariant("The root directory /"));
var_Items->set_ExpandItem(hR,true);
long h = var_Items->InsertItem(hR,TNoParam(),TVariant("Home"));
var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("The home directory with user directories Alice and Bob"));
var_Items->InsertItem(h,TNoParam(),TVariant("Alice"));
var_Items->InsertItem(h,TNoParam(),TVariant("Bob"));
var_Items->set_ExpandItem(h,true);
h = var_Items->InsertItem(hR,TNoParam(),TVariant("Etc"));
var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("The etc directory with one configuration file"));
h = var_Items->InsertItem(h,TNoParam(),TVariant("nginx.conf"));
var_Items->set_CellValue(TVariant(var_Items->InsertItem(hR,TNoParam(),TVariant("Var"))),TVariant(1),TVariant("The var directory"));
Grid1->EndUpdate();
|
|
1206
|
Highlight the parent items
Grid1->BeginUpdate();
Grid1->ConditionalFormats->Add(L"%CC0",TNoParam())->ForeColor = RGB(255,0,0);
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->HeaderHeight = 24;
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Exgridlib_tlb::IColumnsPtr var_Columns = Grid1->Columns;
var_Columns->Add(L"Item")->Width = 16;
var_Columns->Add(L"Desc");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
long hR = var_Items->AddItem(TVariant("Root"));
var_Items->set_CellValue(TVariant(hR),TVariant(1),TVariant("The root directory /"));
var_Items->set_ExpandItem(hR,true);
long h = var_Items->InsertItem(hR,TNoParam(),TVariant("Home"));
var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("The home directory with user directories Alice and Bob"));
var_Items->InsertItem(h,TNoParam(),TVariant("Alice"));
var_Items->InsertItem(h,TNoParam(),TVariant("Bob"));
var_Items->set_ExpandItem(h,true);
h = var_Items->InsertItem(hR,TNoParam(),TVariant("Etc"));
var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("The etc directory with one configuration file"));
h = var_Items->InsertItem(h,TNoParam(),TVariant("nginx.conf"));
var_Items->set_CellValue(TVariant(var_Items->InsertItem(hR,TNoParam(),TVariant("Var"))),TVariant(1),TVariant("The var directory"));
Grid1->EndUpdate();
|
|
1205
|
Highlight the item being expanded or collapsed
Grid1->BeginUpdate();
Grid1->ConditionalFormats->Add(L"%CX0",TNoParam())->Bold = true;
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->HeaderHeight = 24;
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Exgridlib_tlb::IColumnsPtr var_Columns = Grid1->Columns;
var_Columns->Add(L"Item")->Width = 16;
var_Columns->Add(L"Desc");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
long hR = var_Items->AddItem(TVariant("Root"));
var_Items->set_CellValue(TVariant(hR),TVariant(1),TVariant("The root directory /"));
var_Items->set_ExpandItem(hR,true);
long h = var_Items->InsertItem(hR,TNoParam(),TVariant("Home"));
var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("The home directory with user directories Alice and Bob"));
var_Items->InsertItem(h,TNoParam(),TVariant("Alice"));
var_Items->InsertItem(h,TNoParam(),TVariant("Bob"));
var_Items->set_ExpandItem(h,true);
h = var_Items->InsertItem(hR,TNoParam(),TVariant("Etc"));
var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("The etc directory with one configuration file"));
h = var_Items->InsertItem(h,TNoParam(),TVariant("nginx.conf"));
var_Items->set_CellValue(TVariant(var_Items->InsertItem(hR,TNoParam(),TVariant("Var"))),TVariant(1),TVariant("The var directory"));
Grid1->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.
void __fastcall TForm1::Grid1Change(TObject *Sender,Exgridlib_tlb::HITEM Item,long ColIndex,Variant * NewValue)
{
Grid1->Refresh();
}
Grid1->FreezeEvents(true);
Grid1->BeginUpdate();
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->HeaderHeight = 24;
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Exgridlib_tlb::IColumnsPtr var_Columns = Grid1->Columns;
var_Columns->Add(L"Description");
Exgridlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"Qty");
var_Column->Editor->EditType = Exgridlib_tlb::EditTypeEnum::SpinType;
var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exTotalColumn,TVariant("sum(current,rec,%1)"));
Exgridlib_tlb::IColumnPtr var_Column1 = var_Columns->Add(L"Price");
var_Column1->set_Def(Exgridlib_tlb::DefColumnEnum::exTotalColumn,TVariant("avg(current,rec,%2)"));
var_Column1->Editor->EditType = Exgridlib_tlb::EditTypeEnum::SpinType;
Exgridlib_tlb::IColumnPtr var_Column2 = var_Columns->Add(L"Amount");
var_Column2->ComputedField = L"%1 * %2";
var_Column2->set_Def(Exgridlib_tlb::DefColumnEnum::exTotalColumn,TVariant("sum(current,rec,%3)"));
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
long r = var_Items->AddItem(TVariant("Root"));
long g1 = var_Items->InsertItem(r,TNoParam(),TVariant("Group 1"));
var_Items->set_FormatCell(TVariant(g1),TVariant(2),L"`<average missing>`");
var_Items->set_CellEditorVisible(TVariant(g1),TVariant(2),Exgridlib_tlb::EditorVisibleEnum::exEditorHidden);
var_Items->set_CellBold(TVariant(g1),TVariant(2),true);
var_Items->set_CellForeColor(TVariant(g1),TVariant(2),RGB(255,0,0));
long h = var_Items->InsertItem(g1,TNoParam(),TVariant("Item 1"));
var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant(1));
var_Items->set_CellValue(TVariant(h),TVariant(2),TVariant(10));
h = var_Items->InsertItem(g1,TNoParam(),TVariant("Item 2"));
var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant(2));
var_Items->set_CellValue(TVariant(h),TVariant(2),TVariant(11));
long g2 = var_Items->InsertItem(r,TNoParam(),TVariant("Group 2"));
h = var_Items->InsertItem(g2,TNoParam(),TVariant("Item 1"));
var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant(3));
var_Items->set_CellValue(TVariant(h),TVariant(2),TVariant(12));
h = var_Items->InsertItem(g2,TNoParam(),TVariant("Item 2"));
var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant(4));
var_Items->set_CellValue(TVariant(h),TVariant(2),TVariant(13));
var_Items->set_ExpandItem(0,true);
Grid1->EndUpdate();
Grid1->FreezeEvents(false);
|
|
1203
|
How can I add a total column
// Change event - Occurs when the user changes the cell's content.
void __fastcall TForm1::Grid1Change(TObject *Sender,Exgridlib_tlb::HITEM Item,long ColIndex,Variant * NewValue)
{
Grid1->Refresh();
}
Grid1->FreezeEvents(true);
Grid1->BeginUpdate();
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->HeaderHeight = 24;
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Exgridlib_tlb::IColumnsPtr var_Columns = Grid1->Columns;
var_Columns->Add(L"Description");
Exgridlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"Qty");
var_Column->Editor->EditType = Exgridlib_tlb::EditTypeEnum::SpinType;
var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exTotalColumn,TVariant("sum(current,rec,%1)"));
Exgridlib_tlb::IColumnPtr var_Column1 = var_Columns->Add(L"Price");
var_Column1->set_Def(Exgridlib_tlb::DefColumnEnum::exTotalColumn,TVariant("avg(current,rec,%2)"));
var_Column1->Editor->EditType = Exgridlib_tlb::EditTypeEnum::SpinType;
Exgridlib_tlb::IColumnPtr var_Column2 = var_Columns->Add(L"Amount");
var_Column2->ComputedField = L"%1 * %2";
var_Column2->set_Def(Exgridlib_tlb::DefColumnEnum::exTotalColumn,TVariant("sum(current,rec,%3)"));
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
long r = var_Items->AddItem(TVariant("Root"));
long g1 = var_Items->InsertItem(r,TNoParam(),TVariant("Group 1"));
long h = var_Items->InsertItem(g1,TNoParam(),TVariant("Item 1"));
var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant(1));
var_Items->set_CellValue(TVariant(h),TVariant(2),TVariant(10));
h = var_Items->InsertItem(g1,TNoParam(),TVariant("Item 2"));
var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant(2));
var_Items->set_CellValue(TVariant(h),TVariant(2),TVariant(11));
long g2 = var_Items->InsertItem(r,TNoParam(),TVariant("Group 2"));
h = var_Items->InsertItem(g2,TNoParam(),TVariant("Item 1"));
var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant(3));
var_Items->set_CellValue(TVariant(h),TVariant(2),TVariant(12));
h = var_Items->InsertItem(g2,TNoParam(),TVariant("Item 2"));
var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant(4));
var_Items->set_CellValue(TVariant(h),TVariant(2),TVariant(13));
var_Items->set_ExpandItem(0,true);
Grid1->EndUpdate();
Grid1->FreezeEvents(false);
|
|
1202
|
Is it possible to disable sizing(size) the column
Grid1->BeginUpdate();
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exVLines;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"32px");
var_Column->Width = 32;
var_Column->AllowSizing = false;
Grid1->Columns->Add(L"Rest");
Grid1->ColumnAutoResize = true;
Grid1->EndUpdate();
|
|
1201
|
How can I add two columns of 25% and the third of 50%
Grid1->BeginUpdate();
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exVLines;
Grid1->Columns->Add(L"25%")->Width = 25;
Grid1->Columns->Add(L"25%")->Width = 25;
Grid1->Columns->Add(L"50%")->Width = 50;
Grid1->ColumnAutoResize = true;
Grid1->EndUpdate();
|
|
1200
|
I add two columns but I see a third column
Grid1->BeginUpdate();
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exVLines;
Grid1->Columns->Add(L"C1");
Grid1->Columns->Add(L"C2");
Grid1->ColumnAutoResize = true;
Grid1->EndUpdate();
|
|
1199
|
I lose the hierarchy, all items are on the same 1st level, while I use PutItems
Grid1->BeginUpdate();
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Grid1->Columns->Add(L"C1");
Grid1->Columns->Add(L"C2");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("Emily"))),TVariant(1),TVariant("William"));
var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("Sophia"))),TVariant(1),TVariant("Alexander"));
Grid1->PutItems(Grid1->GetItems(TVariant("")),Grid1->Items->get_ItemByIndex(0));
Grid1->PutItems(Grid1->GetItems(TVariant("")),Grid1->Items->get_ItemByIndex(1));
Grid1->PutItems(Grid1->GetItems(TVariant("")),Grid1->Items->get_ItemByIndex(6));
Grid1->Items->set_ExpandItem(0,true);
Grid1->EndUpdate();
|
|
1198
|
Column width set by code is ignored or it seems that does not work
Grid1->BeginUpdate();
Grid1->ColumnAutoResize = false;
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exVLines;
Grid1->Columns->Add(L"C1")->Width = 32;
Grid1->Columns->Add(L"C2")->Width = 132;
Grid1->Columns->Add(L"C3")->Width = 264;
Grid1->EndUpdate();
|
|
1197
|
I want to display this computed value in a TextBox outside the grid and get it updated with any change of its value. How can this be done
// Change event - Occurs when the user changes the cell's content.
void __fastcall TForm1::Grid1Change(TObject *Sender,Exgridlib_tlb::HITEM Item,long ColIndex,Variant * NewValue)
{
Grid1->Refresh();
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
OutputDebugString( L"Total: " );
OutputDebugString( var_Items->get_CellCaption(TVariant(var_Items->get_LockedItem(Exgridlib_tlb::VAlignmentEnum::exTop,0)),TVariant(0)) );
}
Grid1->BeginUpdate();
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Numbers");
Exgridlib_tlb::IEditorPtr var_Editor = var_Column->Editor;
var_Editor->Numeric = Exgridlib_tlb::NumericEnum::exInteger;
var_Editor->EditType = Exgridlib_tlb::EditTypeEnum::SpinType;
var_Column->SortType = Exgridlib_tlb::SortTypeEnum::SortNumeric;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->set_LockedItemCount(Exgridlib_tlb::VAlignmentEnum::exTop,1);
long h = var_Items->get_LockedItem(Exgridlib_tlb::VAlignmentEnum::exTop,0);
var_Items->set_ItemBackColor(h,RGB(240,240,240));
var_Items->set_CellValue(TVariant(h),TVariant(0),TVariant("sum(all,dir,dbl(%0))"));
var_Items->set_CellValueFormat(TVariant(h),TVariant(0),Exgridlib_tlb::ValueFormatEnum::exTotalField);
var_Items->set_CellHAlignment(TVariant(h),TVariant(0),Exgridlib_tlb::AlignmentEnum::RightAlignment);
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"'Total: '+value");
Exgridlib_tlb::IItemsPtr var_Items1 = Grid1->Items;
var_Items1->AddItem(TVariant(10));
var_Items1->AddItem(TVariant(25));
var_Items1->AddItem(TVariant(31));
var_Items1->AddItem(TVariant(48));
Grid1->EndUpdate();
|
|
1196
|
Disable temporarily the column's sort, resize and drag and drop
Grid1->BeginUpdate();
Grid1->SortBarVisible = true;
Grid1->SortBarCaption = L"<fgcolor 808080><c>the header and the sort-bar are disabled (no drag and drop is allowed)";
Grid1->AllowGroupBy = true;
Grid1->HeaderEnabled = false;
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->Columns->Add(L"Index")->FormatColumn = L"1 index ``";
Grid1->Columns->Add(L"Pos")->FormatColumn = L"1 apos ``";
Grid1->Columns->Add(L"Edit")->Editor->EditType = Exgridlib_tlb::EditTypeEnum::EditType;
Grid1->GridLineStyle = Exgridlib_tlb::GridLinesStyleEnum::exGridLinesGeometric;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exVLines;
Grid1->GridLineColor = RGB(224,224,224);
Grid1->EndUpdate();
|
|
1195
|
I wonder if it’s possible to highlight/select a column like Excel
// ColumnClick event - Fired after the user clicks on column's header.
void __fastcall TForm1::Grid1ColumnClick(TObject *Sender,Exgridlib_tlb::IColumn *Column)
{
// Column.Selected = True
// FocusColumnIndex = Column.Index
Grid1->Columns->get_Item(TVariant(0))->Selected = false;
Grid1->Columns->get_Item(TVariant(1))->Selected = false;
Grid1->Columns->get_Item(TVariant(2))->Selected = false;
Grid1->Items->SelectAll();
}
Grid1->BeginUpdate();
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exCursorHoverColumn] = -1;
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->MarkSearchColumn = false;
Grid1->SingleSel = false;
Grid1->FullRowSelect = Exgridlib_tlb::CellSelectEnum::exRectSel;
Grid1->SortOnClick = Exgridlib_tlb::SortOnClickEnum::exNoSort;
Grid1->Columns->Add(L"Column1");
Grid1->Columns->Add(L"Column2");
Grid1->Columns->Add(L"Column3");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->DefaultItem = var_Items->AddItem(TVariant(0));
var_Items->set_CellValue(TVariant(0),TVariant(1),TVariant(1));
var_Items->set_CellValue(TVariant(0),TVariant(2),TVariant(2));
var_Items->DefaultItem = var_Items->AddItem(TVariant(3));
var_Items->set_CellValue(TVariant(0),TVariant(1),TVariant(4));
var_Items->set_CellValue(TVariant(0),TVariant(2),TVariant(5));
var_Items->DefaultItem = var_Items->AddItem(TVariant(6));
var_Items->set_CellValue(TVariant(0),TVariant(1),TVariant(7));
var_Items->set_CellValue(TVariant(0),TVariant(2),TVariant(8));
Grid1->EndUpdate();
|
|
1194
|
Is it possible to change the color of the border
Grid1->BeginUpdate();
Grid1->VisualAppearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABc8IQAAYAQGKIcBiAKBQAGaAoDDMMwyQwAAxDMK8EwsACEIrjKCRShyCYZRhGcTALBIBQSHAZZKgOJIRDENg2SANACRfIUaw1DqBZwkGZoW") +
"hGKgAShIEDwSKkQBlECeJpnKaqIomJYnDLQUw0NL9HQ3JaaKqnWLBVCWEQyVzEIyjBT0EzHMqtKrjaA6NpaP4oT7LEIydKFCRJNi0bSnGqaOj6UJSURRVq3TTFcTyAC3" +
"ahuOo4cpXB4SWrOd41fYNOTQACzbCsSIcPxCe6GXjiNwjPKMWhnIq+M5wXIrJyKCYUaTcejzfgdU5XWqeMoyewMXxmZqbXw/fBYRrEL5vTqNXTzSA4BEB"));
Grid1->Appearance = Exgridlib_tlb::AppearanceEnum(0x100ff00);
Grid1->ColumnAutoResize = true;
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->TreeColumnIndex = -1;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exAllLines;
Grid1->GridLineStyle = Exgridlib_tlb::GridLinesStyleEnum::exGridLinesGeometric;
Grid1->Columns->Add(L"Default");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->AddItem(TVariant("before item"));
var_Items->AddItem(TVariant("item"));
var_Items->AddItem(TVariant("after item"));
Grid1->EndUpdate();
|
|
1193
|
Expandable-caption
// AnchorClick event - Occurs when an anchor element is clicked.
void __fastcall TForm1::Grid1AnchorClick(TObject *Sender,BSTR AnchorID,BSTR Options)
{
OutputDebugString( L"AnchorID" );
}
Grid1->BeginUpdate();
Grid1->ColumnAutoResize = true;
Grid1->TreeColumnIndex = -1;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exAllLines;
Grid1->GridLineStyle = Exgridlib_tlb::GridLinesStyleEnum::exGridLinesGeometric;
Grid1->BackColorAlternate = RGB(240,240,240);
Grid1->ShowFocusRect = false;
Grid1->Columns->Add(L"Default");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->AddItem(TVariant("before item"));
long h = var_Items->AddItem(TVariant(String("<solidline> <c><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAA+AAgAECMcTi4AMwAM4Aj") +
"MGhEGOUVAA4AAwk8plcqihwAElg0wiUlOkOiUEgQvgcFhsKhkIhUQiUUnccj0gn0jmMagUlowAMNOpEfkMNkkmlEqrctjQmAAjAA5AA2sssHcbnkdq1Ln1QtVSjQAAEB" +
"A==>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AECMwAM8DAB" +
"vABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==> " +
"650;</a><br>+ withdraw(amount: Currency)"));
var_Items->set_CellValueFormat(TVariant(h),TVariant(0),Exgridlib_tlb::ValueFormatEnum::exHTML);
var_Items->set_CellSingleLine(TVariant(h),TVariant(0),Exgridlib_tlb::CellSingleLineEnum::exCaptionWordWrap);
var_Items->AddItem(TVariant("after item"));
Grid1->EndUpdate();
|
|
1192
|
Expandable-caption
Grid1->BeginUpdate();
Grid1->ColumnAutoResize = true;
Grid1->TreeColumnIndex = -1;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exAllLines;
Grid1->GridLineStyle = Exgridlib_tlb::GridLinesStyleEnum::exGridLinesGeometric;
Grid1->BackColorAlternate = RGB(240,240,240);
Grid1->ShowFocusRect = false;
Grid1->Columns->Add(L"Default");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->AddItem(TVariant("before item"));
long h = var_Items->AddItem(TVariant("<solidline><b>Header</b></solidline><br>Line1<r><a ;exp=show lines>+</a><br>Line2<br>Line3"));
var_Items->set_CellValueFormat(TVariant(h),TVariant(0),Exgridlib_tlb::ValueFormatEnum::exHTML);
var_Items->set_CellSingleLine(TVariant(h),TVariant(0),Exgridlib_tlb::CellSingleLineEnum::exCaptionWordWrap);
var_Items->AddItem(TVariant("after item"));
Grid1->EndUpdate();
|
|
1191
|
Force hover-all feature
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exScrollHoverAll] = -1;
|
|
1190
|
Disable hover-all feature (Windows 11 or greater)
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exScrollHoverAll] = RGB(1,0,0);
|
|
1189
|
Display a custom tooltip
// MouseMove event - Occurs when the user moves the mouse.
void __fastcall TForm1::Grid1MouseMove(TObject *Sender,short Button,short Shift,int X,int Y)
{
Grid1->ShowToolTip(L"new content",TVariant(""),TNoParam(),TVariant("+8"),TVariant("+8"));
}
|
|
1188
|
Shows the tooltip of the object moved relative to its default position
// MouseMove event - Occurs when the user moves the mouse.
void __fastcall TForm1::Grid1MouseMove(TObject *Sender,short Button,short Shift,int X,int Y)
{
Grid1->ShowToolTip(L"<null>",TVariant("<null>"),TNoParam(),TVariant("+8"),TVariant("+8"));
}
Grid1->ColumnAutoResize = false;
Grid1->Columns->Add(L"tootip")->ToolTip = L"this is a tooltip assigned to a column";
|
|
1187
|
Delete all records
// ButtonClick event - Occurs when user clicks on the cell's button.
void __fastcall TForm1::Grid1ButtonClick(TObject *Sender,Exgridlib_tlb::HITEM Item,long ColIndex,Variant Key)
{
/*
Select the Component\Import Component...\Import a Type Library,
to import the following Type Library:
Microsoft ActiveX Data Objects 6.1 Library
TypeLib: msado15.dll
to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_CommandPtr cmd = Variant::CreateObject(L"ADODB.Command");
cmd->set_ActiveConnection(Grid1(IDispatch*)->DataSource->get_ActiveConnection());
cmd->CommandText = L"Delete * from ORDERS";
cmd->CommandType = Adodb_tlb::CommandTypeEnum::adCmdText;
cmd->Execute(TNoParam(),TNoParam(),0);
(IDispatch*)Grid1->DataSource->Requery(0);
}
// Error event - Fired when an internal error occurs.
void __fastcall TForm1::Grid1Error(TObject *Sender,long Error,BSTR Description)
{
OutputDebugString( L"Description" );
}
Grid1->BeginUpdate();
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->ColumnAutoResize = false;
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADODB.Recordset");
rs->Open(TVariant("Select * From Orders"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExGrid\\Sample\\Access\\misc.accdb"),Adodb_tlb::CursorTypeEnum::adOpenKeyset,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Grid1->DataSource = (IDispatch*)rs;
Grid1->ConditionalFormats->Add(L"%1=12345",TNoParam())->BackColor = RGB(240,240,240);
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->set_LockedItemCount(Exgridlib_tlb::VAlignmentEnum::exTop,1);
long h = var_Items->get_LockedItem(Exgridlib_tlb::VAlignmentEnum::exTop,0);
var_Items->set_ItemDivider(h,0);
var_Items->set_CellHasButton(TVariant(h),TVariant(0),true);
var_Items->set_CellValue(TVariant(h),TVariant(0),TVariant("Requery (delete all records, using ADODB.Command)"));
var_Items->set_CellHAlignment(TVariant(h),TVariant(0),Exgridlib_tlb::AlignmentEnum::CenterAlignment);
Grid1->EndUpdate();
|
|
1186
|
How can I get a cell that shows the sum of a column of minutes in hours + minutes format
Grid1->BeginUpdate();
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Minutes");
var_Column->SortType = Exgridlib_tlb::SortTypeEnum::SortNumeric;
Exgridlib_tlb::IEditorPtr var_Editor = var_Column->Editor;
var_Editor->EditType = Exgridlib_tlb::EditTypeEnum::EditType;
var_Editor->Numeric = Exgridlib_tlb::NumericEnum::exInteger;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->AddItem(TVariant(10));
var_Items->AddItem(TVariant(20));
var_Items->AddItem(TVariant(30));
var_Items->AddItem(TVariant(40));
var_Items->AddItem(TVariant(50));
long h = var_Items->AddItem(TVariant("sum(all,dir,dbl(%0))"));
var_Items->set_SelectableItem(h,false);
var_Items->set_SortableItem(h,false);
var_Items->set_CellValueFormat(TVariant(h),TVariant(0),Exgridlib_tlb::ValueFormatEnum::exTotalField | Exgridlib_tlb::ValueFormatEnum::exHTML);
var_Items->set_CellHAlignment(TVariant(h),TVariant(0),Exgridlib_tlb::AlignmentEnum::RightAlignment);
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"'<b>HH:NN</b>: '+ (int(value/60) lpad '00') + ':' + ((value mod 60) lpad '00')");
Grid1->EndUpdate();
|
|
1185
|
Highlight the match once the filter is applied
// FilterChange event - Occurs when filter was changed.
void __fastcall TForm1::Grid1FilterChange(TObject *Sender)
{
TVariant format = TVariant(Grid1->FormatABC(L"`lower(value) replace lower('` + value + `') with '<bgcolor 000000><fgcolor FFFFFF>` + value + `</fgcolor></bgcolor>'`",TVariant(Grid1->FilterBarPromptPattern),TNoParam(),TNoParam()));
Grid1->Columns->get_Item(TVariant(0))->FormatColumn = L"format";
Grid1->Columns->get_Item(TVariant(1))->FormatColumn = L"format";
Grid1->Columns->get_Item(TVariant(2))->FormatColumn = L"format";
}
Grid1->BeginUpdate();
Grid1->SelBackColor = Grid1->BackColor;
Grid1->SelForeColor = Grid1->ForeColor;
Grid1->ColumnAutoResize = true;
Grid1->ContinueColumnScroll = false;
Grid1->MarkSearchColumn = false;
Grid1->SearchColumnIndex = 1;
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->HeaderHeight = 23;
Grid1->BackColorLevelHeader = Grid1->BackColor;
Grid1->FilterBarCaption = L"`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)";
Grid1->FilterBarPromptVisible = Exgridlib_tlb::FilterBarVisibleEnum::exFilterBarCompact | Exgridlib_tlb::FilterBarVisibleEnum::exFilterBarCaptionVisible | Exgridlib_tlb::FilterBarVisibleEnum::exFilterBarVisible | Exgridlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Grid1->FilterBarBackColor = Grid1->BackColor;
Grid1->FilterBarPromptPattern = L"and";
Exgridlib_tlb::IColumnsPtr var_Columns = Grid1->Columns;
Exgridlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"Name");
var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exCellValueFormat,TVariant(1));
var_Column->FormatColumn = L"lower(value)";
Exgridlib_tlb::IColumnPtr var_Column1 = var_Columns->Add(L"Title");
var_Column1->set_Def(Exgridlib_tlb::DefColumnEnum::exCellValueFormat,TVariant(1));
var_Column1->FormatColumn = L"lower(value)";
Exgridlib_tlb::IColumnPtr var_Column2 = var_Columns->Add(L"City");
var_Column2->set_Def(Exgridlib_tlb::DefColumnEnum::exCellValueFormat,TVariant(1));
var_Column2->FormatColumn = L"lower(value)";
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
long h0 = var_Items->AddItem(TVariant("Nancy Davolio"));
var_Items->set_CellValue(TVariant(h0),TVariant(1),TVariant("Sales Representative"));
var_Items->set_CellValue(TVariant(h0),TVariant(2),TVariant("Seattle"));
h0 = var_Items->AddItem(TVariant("Andrew Fuller"));
var_Items->set_CellValue(TVariant(h0),TVariant(1),TVariant("Vice President, Sales"));
var_Items->set_CellValue(TVariant(h0),TVariant(2),TVariant("Tacoma"));
var_Items->set_SelectItem(h0,true);
h0 = var_Items->AddItem(TVariant("Janet Leverling"));
var_Items->set_CellValue(TVariant(h0),TVariant(1),TVariant("Sales Representative"));
var_Items->set_CellValue(TVariant(h0),TVariant(2),TVariant("Kirkland"));
h0 = var_Items->AddItem(TVariant("Margaret Peacock"));
var_Items->set_CellValue(TVariant(h0),TVariant(1),TVariant("Sales Representative"));
var_Items->set_CellValue(TVariant(h0),TVariant(2),TVariant("Redmond"));
h0 = var_Items->AddItem(TVariant("Steven Buchanan"));
var_Items->set_CellValue(TVariant(h0),TVariant(1),TVariant("Sales Manager"));
var_Items->set_CellValue(TVariant(h0),TVariant(2),TVariant("London"));
h0 = var_Items->AddItem(TVariant("Michael Suyama"));
var_Items->set_CellValue(TVariant(h0),TVariant(1),TVariant("Sales Representative"));
var_Items->set_CellValue(TVariant(h0),TVariant(2),TVariant("London"));
h0 = var_Items->AddItem(TVariant("Robert King"));
var_Items->set_CellValue(TVariant(h0),TVariant(1),TVariant("Sales Representative"));
var_Items->set_CellValue(TVariant(h0),TVariant(2),TVariant("London"));
h0 = var_Items->AddItem(TVariant("Laura Callahan"));
var_Items->set_CellValue(TVariant(h0),TVariant(1),TVariant("Inside Sales Coordinator"));
var_Items->set_CellValue(TVariant(h0),TVariant(2),TVariant("Seattle"));
h0 = var_Items->AddItem(TVariant("Anne Dodsworth"));
var_Items->set_CellValue(TVariant(h0),TVariant(1),TVariant("Sales Representative"));
var_Items->set_CellValue(TVariant(h0),TVariant(2),TVariant("London"));
Grid1->EndUpdate();
|
|
1184
|
The count of filtered items includes the group-parents. How can I exclude them from count
Grid1->BeginUpdate();
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exVLines;
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Flat;
Grid1->HeaderHeight = 24;
Grid1->SortBarHeight = 28;
Grid1->SortBarVisible = true;
Grid1->AllowGroupBy = true;
Grid1->Columns->Add(L"Col 1");
Grid1->Columns->Add(L"Col 2");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("219 Smith"))),TVariant(1),TVariant("Ignacio 1234"));
var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("1666 County Road 309A"))),TVariant(1),TVariant("897 Manassa"));
var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("38 Lone Pine"))),TVariant(1),TVariant("Durango 11"));
var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("612 Jachim Street"))),TVariant(1),TVariant("Lamar 222"));
Grid1->Layout = L"MultipleSort=\"C1:1\"";
Grid1->FilterBarCaption = L"`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? leafitemcount + ` result(s)` : ``)";
Grid1->FilterBarPromptVisible = Exgridlib_tlb::FilterBarVisibleEnum::exFilterBarCompact | Exgridlib_tlb::FilterBarVisibleEnum::exFilterBarCaptionVisible | Exgridlib_tlb::FilterBarVisibleEnum::exFilterBarVisible | Exgridlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Grid1->FilterBarPromptType = Exgridlib_tlb::FilterPromptEnum::exFilterPromptCaseSensitive | Exgridlib_tlb::FilterPromptEnum::exFilterPromptContainsAll;
Grid1->FilterBarPromptPattern = L"12";
Grid1->FilterBarBackColor = Grid1->BackColor;
Grid1->EndUpdate();
|
|
1183
|
Is it possible to display the count of filtered items
Grid1->BeginUpdate();
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exVLines;
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->HeaderHeight = 24;
Grid1->Columns->Add(L"Col 1");
Grid1->Columns->Add(L"Col 2");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("219 Smith"))),TVariant(1),TVariant("Ignacio 1234"));
var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("1666 County Road 309A"))),TVariant(1),TVariant("897 Manassa"));
var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("38 Lone Pine"))),TVariant(1),TVariant("Durango 11"));
var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("612 Jachim Street"))),TVariant(1),TVariant("Lamar 222"));
Grid1->FilterBarCaption = L"`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)";
Grid1->FilterBarPromptVisible = Exgridlib_tlb::FilterBarVisibleEnum::exFilterBarCompact | Exgridlib_tlb::FilterBarVisibleEnum::exFilterBarCaptionVisible | Exgridlib_tlb::FilterBarVisibleEnum::exFilterBarVisible | Exgridlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Grid1->FilterBarPromptType = Exgridlib_tlb::FilterPromptEnum::exFilterPromptCaseSensitive | Exgridlib_tlb::FilterPromptEnum::exFilterPromptContainsAll;
Grid1->FilterBarPromptPattern = L"12";
Grid1->FilterBarBackColor = Grid1->BackColor;
Grid1->EndUpdate();
|
|
1182
|
GroupBy code
Grid1->BeginUpdate();
Grid1->ColumnAutoResize = false;
Grid1->ContinueColumnScroll = false;
Grid1->CountLockedColumns = 1;
Grid1->BackColorLock = RGB(248,248,248);
Grid1->HasLines = Exgridlib_tlb::HierarchyLineEnum::exSolidLine;
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exGroupLinesOutside;
/*
Select the Component\Import Component...\Import a Type Library,
to import the following Type Library:
Microsoft ActiveX Data Objects 6.1 Library
TypeLib: msado15.dll
to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADOR.Recordset");
rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExGrid\\Sample\\Access\\misc.accdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Grid1->DataSource = (IDispatch*)rs;
Grid1->SortBarVisible = true;
Grid1->SingleSort = false;
Grid1->AllowGroupBy = true;
Grid1->Columns->get_Item(TVariant(0))->Width = 128;
Grid1->Layout = L"MultipleSort = \"C12:1 C1:2\"";
Grid1->EndUpdate();
|
|
1181
|
ADOR, MDB (JET)
Grid1->BeginUpdate();
Grid1->ColumnAutoResize = false;
/*
Select the Component\Import Component...\Import a Type Library,
to import the following Type Library:
Microsoft ActiveX Data Objects 6.1 Library
TypeLib: msado15.dll
to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADOR.Recordset");
rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\Program Files\\Exontrol\\ExGrid\\Sample\\Access\\misc.mdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Grid1->DataSource = (IDispatch*)rs;
Grid1->EndUpdate();
|
|
1180
|
Editors (ImageSize = 32)
Grid1->BeginUpdate();
Grid1->ImageSize = 32;
Grid1->DefaultItemHeight = 36;
Grid1->HeaderHeight = Grid1->DefaultItemHeight;
Grid1->SortBarHeight = Grid1->DefaultItemHeight;
Grid1->Font->Size = TVariant(long(16));
Grid1->FilterBarFont->Size = TVariant(Grid1->Font->Size);
Grid1->ToolTipFont->Size = TVariant(Grid1->Font->Size);
Grid1->Indent = 26;
Grid1->Images(TVariant(String("gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOq") +
"NUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlw" +
"yV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+C" +
"MPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9" +
"FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5" +
"y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIk" +
"FgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMt" +
"NhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/Xi" +
"oW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X" +
"4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT" +
"6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUV" +
"DNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJy" +
"T8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5Wzlf" +
"fEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC" +
"6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8R" +
"gH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" +
"RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA=="));
Exgridlib_tlb::IAppearancePtr var_Appearance = Grid1->VisualAppearance;
var_Appearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj") +
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" +
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDx" +
"RDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFY" +
"FoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4U" +
"kmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqA" +
"ochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A" +
"0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh" +
"8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2" +
"UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ=="));
var_Appearance->Add(2,TVariant(String("gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj") +
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" +
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" +
"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnS" +
"cg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBp" +
"AoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaD" +
"RDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+l" +
"GNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQB" +
"gk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwyku" +
"XpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2C" +
"yA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8R" +
"pBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8" +
"TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAe" +
"HGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAu" +
"hoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwM" +
"sCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4g" +
"aBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAg" +
"swOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBt" +
"YQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGB" +
"hYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0M" +
"gRBCCQAgQEA=="));
var_Appearance->Add(3,TVariant(String("gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj") +
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" +
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" +
"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnS" +
"eQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJj" +
"nOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMa" +
"J9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTG" +
"SUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4" +
"ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgk" +
"XI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD" +
"6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BR" +
"AjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBE" +
"BwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQ" +
"HoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgR" +
"hcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOC" +
"QAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYj" +
"VHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4" +
"zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBs" +
"H0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI="));
var_Appearance->Add(4,TVariant(String("gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH") +
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" +
"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" +
"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" +
"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" +
"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" +
"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" +
"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" +
"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA=="));
Grid1->BackColorHeader = 0x4c6c6c6;
Grid1->SelBackColor = 0x4000000;
Grid1->SelForeColor = RGB(0,0,1);
Grid1->ShowFocusRect = false;
Grid1->CheckImage[Exgridlib_tlb::CheckStateEnum::Unchecked] = 16777216;
Grid1->CheckImage[Exgridlib_tlb::CheckStateEnum::Checked] = 33554432;
Grid1->CheckImage[Exgridlib_tlb::CheckStateEnum::PartialChecked] = 50331648;
Grid1->Columns->Add(L"Editors")->set_Def(Exgridlib_tlb::DefColumnEnum::exCellValueFormat,TVariant(1));
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->get_CellEditor(TVariant(var_Items->AddItem(TVariant("(ReadOnly)"))),TVariant(0))->EditType = Exgridlib_tlb::EditTypeEnum::ReadOnly;
var_Items->get_CellEditor(TVariant(var_Items->AddItem(TVariant("(EditType)"))),TVariant(0))->EditType = Exgridlib_tlb::EditTypeEnum::EditType;
long h = var_Items->AddItem(TVariant("Value 1"));
Exgridlib_tlb::IEditorPtr var_Editor = var_Items->get_CellEditor(TVariant(h),TVariant(0));
var_Editor->EditType = Exgridlib_tlb::EditTypeEnum::DropDownType;
var_Editor->AddItem(1,L"Value 1",TVariant(1));
var_Editor->AddItem(2,L"Value 2",TVariant(2));
var_Editor->AddItem(3,L"Value 3",TVariant(3));
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (DropDownType)'");
h = var_Items->AddItem(TVariant(1));
Exgridlib_tlb::IEditorPtr var_Editor1 = var_Items->get_CellEditor(TVariant(h),TVariant(0));
var_Editor1->EditType = Exgridlib_tlb::EditTypeEnum::DropDownListType;
var_Editor1->DropDownAutoWidth = Exgridlib_tlb::DropDownWidthType::exDropDownEditorWidth;
var_Editor1->AddItem(1,L"Nancy Davolio",TVariant(1));
var_Editor1->AddItem(2,L"Andrew Fuller",TVariant(2));
var_Editor1->AddItem(3,L"Janet Leverling",TVariant(3));
var_Editor1->AddItem(4,L"Peacock Margaret",TVariant(3));
var_Editor1->AddItem(5,L"Steven Buchanan",TVariant(2));
var_Editor1->AddItem(6,L"Michael Suyama",TVariant(1));
var_Editor1->AddItem(7,L"Robert King",TVariant(2));
var_Editor1->AddItem(8,L"Laura Callahan",TVariant(3));
var_Editor1->AddItem(9,L"Anne Dodsworth",TVariant(2));
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (DropDownList - single column list)'");
h = var_Items->AddItem(TVariant(1));
Exgridlib_tlb::IEditorPtr var_Editor2 = var_Items->get_CellEditor(TVariant(h),TVariant(0));
var_Editor2->EditType = Exgridlib_tlb::EditTypeEnum::DropDownListType;
var_Editor2->DropDownAutoWidth = Exgridlib_tlb::DropDownWidthType::exDropDownEditorWidth;
var_Editor2->AddItem(1,L"Nancy Davolio",TVariant(1));
var_Editor2->AddItem(2,L"Andrew Fuller",TVariant(2));
var_Editor2->InsertItem(3,L"Janet Leverling",TVariant(3),TVariant(2));
var_Editor2->InsertItem(4,L"Peacock Margaret",TVariant(3),TVariant(2));
var_Editor2->InsertItem(5,L"Steven Buchanan",TVariant(2),TVariant(2));
var_Editor2->InsertItem(6,L"Michael Suyama",TVariant(1),TVariant(5));
var_Editor2->InsertItem(7,L"Robert King",TVariant(2),TVariant(2));
var_Editor2->InsertItem(8,L"Laura Callahan",TVariant(3),TVariant(2));
var_Editor2->InsertItem(9,L"Anne Dodsworth",TVariant(2),TVariant(5));
var_Editor2->ExpandAll();
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (DropDownList - single column tree)'");
h = var_Items->AddItem(TVariant(1));
Exgridlib_tlb::IEditorPtr var_Editor3 = var_Items->get_CellEditor(TVariant(h),TVariant(0));
var_Editor3->EditType = Exgridlib_tlb::EditTypeEnum::DropDownListType;
var_Editor3->DropDownAutoWidth = Exgridlib_tlb::DropDownWidthType::exDropDownEditorWidth;
var_Editor3->set_Option(Exgridlib_tlb::EditorOptionEnum::exDropDownColumnCaption,TVariant("Name¦Title¦City¦Phone"));
var_Editor3->set_Option(Exgridlib_tlb::EditorOptionEnum::exDropDownColumnWidth,TVariant("312¦¦¦96"));
var_Editor3->AddItem(1,L"Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857",TVariant(1));
var_Editor3->AddItem(2,L"Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482",TVariant(2));
var_Editor3->AddItem(3,L"Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412",TVariant(3));
var_Editor3->AddItem(4,L"Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122",TVariant(3));
var_Editor3->AddItem(5,L"Steven Buchanan¦Sales Manager¦London¦(71) 555-4848",TVariant(2));
var_Editor3->AddItem(6,L"Michael Suyama¦Sales Representative¦London¦(71) 555-7773",TVariant(1));
var_Editor3->AddItem(7,L"Robert King¦Sales Representative¦Kirkland¦(71) 555-5598",TVariant(2));
var_Editor3->AddItem(8,L"Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189",TVariant(3));
var_Editor3->AddItem(9,L"Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444",TVariant(2));
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (DropDownList - multiple columns list)'");
h = var_Items->AddItem(TVariant(1));
Exgridlib_tlb::IEditorPtr var_Editor4 = var_Items->get_CellEditor(TVariant(h),TVariant(0));
var_Editor4->EditType = Exgridlib_tlb::EditTypeEnum::DropDownListType;
var_Editor4->DropDownAutoWidth = Exgridlib_tlb::DropDownWidthType::exDropDownEditorWidth;
var_Editor4->set_Option(Exgridlib_tlb::EditorOptionEnum::exDropDownColumnCaption,TVariant("Name¦Title¦City¦Phone"));
var_Editor4->set_Option(Exgridlib_tlb::EditorOptionEnum::exDropDownColumnWidth,TVariant("312¦¦¦96"));
var_Editor4->AddItem(1,L"Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857",TVariant(1));
var_Editor4->AddItem(2,L"Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482",TVariant(2));
var_Editor4->InsertItem(3,L"Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412",TVariant(3),TVariant(2));
var_Editor4->InsertItem(4,L"Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122",TVariant(3),TVariant(2));
var_Editor4->InsertItem(5,L"Steven Buchanan¦Sales Manager¦London¦(71) 555-4848",TVariant(2),TVariant(2));
var_Editor4->InsertItem(6,L"Michael Suyama¦Sales Representative¦London¦(71) 555-7773",TVariant(1),TVariant(5));
var_Editor4->InsertItem(7,L"Robert King¦Sales Representative¦Kirkland¦(71) 555-5598",TVariant(2),TVariant(2));
var_Editor4->InsertItem(8,L"Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189",TVariant(3),TVariant(2));
var_Editor4->InsertItem(9,L"Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444",TVariant(2),TVariant(5));
var_Editor4->ExpandAll();
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (DropDownList - multiple columns tree)'");
h = var_Items->AddItem(TVariant(100));
var_Items->get_CellEditor(TVariant(h),TVariant(0))->EditType = Exgridlib_tlb::EditTypeEnum::SpinType;
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (SpinType)'");
var_Items->get_CellEditor(TVariant(var_Items->AddItem(TVariant("(MemoType)"))),TVariant(0))->EditType = Exgridlib_tlb::EditTypeEnum::MemoType;
h = var_Items->AddItem(TVariant(3));
Exgridlib_tlb::IEditorPtr var_Editor5 = var_Items->get_CellEditor(TVariant(h),TVariant(0));
var_Editor5->EditType = Exgridlib_tlb::EditTypeEnum::CheckListType;
var_Editor5->AddItem(1,L"Border",TVariant(1));
var_Editor5->AddItem(2,L"Single",TVariant(2));
var_Editor5->AddItem(4,L"Frame",TVariant(3));
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (CheckListType)'");
h = var_Items->AddItem(TVariant("193.226.40.161"));
Exgridlib_tlb::IEditorPtr var_Editor6 = var_Items->get_CellEditor(TVariant(h),TVariant(0));
var_Editor6->Mask = L"{0,255}.{0,255}.{0,255}.{0,255}";
var_Editor6->EditType = Exgridlib_tlb::EditTypeEnum::MaskType;
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (MaskType)'");
h = var_Items->AddItem(TVariant(65280));
Exgridlib_tlb::IEditorPtr var_Editor7 = var_Items->get_CellEditor(TVariant(h),TVariant(0));
var_Editor7->EditType = Exgridlib_tlb::EditTypeEnum::ColorType;
var_Editor7->Mask = L"`RGB(`{0,255}\\,{0,255}\\,{0,255}`)`;;0";
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (ColorType)'");
h = var_Items->AddItem(TVariant("Tahoma"));
var_Items->get_CellEditor(TVariant(h),TVariant(0))->EditType = Exgridlib_tlb::EditTypeEnum::FontType;
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (FontType)'");
h = var_Items->AddItem(TVariant(String("gBHJJGHA5MIwAEIe4AAAFhwbiAliQwig7ixFjBQjRbjhljxwkB7kSFkiQkyblCllSwli7lzFmDQmTbmjlmzwnD7nQBnk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq") +
"lVq1XrFZrVbrldr1YhgAEL5AgBhj/AAssMJthABFof4JDhIWCgYKDBATFT8M6hUIFAQAEQCCDwYF/QoWDZCRBgOKgIYHCQXMisKBAEQAAgOBZaSgQhjERANKQiZhIWam" +
"YyIBQ6FzcNKxQLJT4ADA4RjwObAAidBYdHwABQgUxMQYZEI0cD4OgnYKaKyzIRFNQx2YCKoFHScYD0ADXQwUAgwLoLQDqaCWBJoNQ9NBxFJTVQORgiarqSABbamGwtDA" +
"wBUWhQmqYALnOFQvGYPA4m6AwKhkZxKj2PBWC0SZCgmVY6CwIJgieBAniubRKHgaYgiwQwGiCfxGDWbBRmGZYIi2VwGnAexxGUSwUFiaR+hQPbBgOCoLCIHh4DAARCmQ" +
"G4AlgNxuhwWgpFAEQUhuOxOk0NrhAaQoBmgPYdFSIZPjYGYbn+HhgEoAA7HMBIOjUM51AoPojHkEwVlET5slgWZtAEUBdjeSoeF6X5/rQRRSi+QB6GychsEAfZshKYAB" +
"GQZorlAOgMBqEgAjYHB2jqSoigmYBLk+QZnBqGhggAEwImgbojgoIwSE+MxUHiS4REQCQWluD48B+JJoL+YQikuaI9AALgLmsJQfnSdAvDkCJEhIIIBgOegLEiPBqCyC" +
"AAjcCwgAAIJBhQBQkHGL4gDaNBokkZQMiwUAuioJQiCAQYsHMcwwEIeoigAYIogsGIwFKIYICIWguEoPgQhsawBASGgwCuJwLH8K4LigAIaDwbxMAOKxbisPwfASQATF" +
"ASoagIEYwgcSoKGiAA/mEdIuiGPxCmObIlhMIJNHONxFH8EpPCGeB+noEpBBSSRjCsPZEiyKhgjAH5whSdLEjwDxjC8TxVEMFRzFWJJZBUSI0gQEQLBOM4VHkIg1D0CA" +
"JDQNg/p4AAdoC"));
var_Items->get_CellEditor(TVariant(h),TVariant(0))->EditType = Exgridlib_tlb::EditTypeEnum::PictureType;
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (PictureType)'");
var_Items->get_CellEditor(TVariant(var_Items->AddItem(TVariant("(ButtonType)"))),TVariant(0))->EditType = Exgridlib_tlb::EditTypeEnum::ButtonType;
h = var_Items->AddItem(TVariant(25));
var_Items->get_CellEditor(TVariant(h),TVariant(0))->EditType = Exgridlib_tlb::EditTypeEnum::ProgressBarType;
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (ProgressBarType)'");
h = var_Items->AddItem(TVariant("Value 1"));
Exgridlib_tlb::IEditorPtr var_Editor8 = var_Items->get_CellEditor(TVariant(h),TVariant(0));
var_Editor8->EditType = Exgridlib_tlb::EditTypeEnum::PickEditType;
var_Editor8->AddItem(1,L"Value 1",TVariant(1));
var_Editor8->AddItem(2,L"Value 2",TVariant(2));
var_Editor8->AddItem(3,L"Value 3",TVariant(3));
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (PickEditType)'");
var_Items->get_CellEditor(TVariant(var_Items->AddItem(TVariant("(LinkEditType)"))),TVariant(0))->EditType = Exgridlib_tlb::EditTypeEnum::LinkEditType;
Exgridlib_tlb::IEditorPtr var_Editor9 = var_Items->get_CellEditor(TVariant(var_Items->AddItem(TVariant("(UserEditorType)"))),TVariant(0));
var_Editor9->EditType = Exgridlib_tlb::EditTypeEnum::UserEditorType;
var_Editor9->UserEditor(L"Exontrol.ComboBox",L"");
/*
Select the Component\Import Component...\Import a Type Library,
to import the following Type Library:
ExComboBox 1.0 Control Library
TypeLib: ExComboBox.dll
to define the namespace: Excomboboxlib_tlb
*/
//#include "EXCOMBOBOXLIB_TLB.h"
Excomboboxlib_tlb::IComboBoxPtr var_ComboBox = (IDispatch*)var_Editor9->UserEditorObject;
var_ComboBox->BeginUpdate();
var_ComboBox->LabelHeight = Grid1->DefaultItemHeight;
var_ComboBox->Style = Excomboboxlib_tlb::StyleEnum::DropDownList;
var_ComboBox->ColumnAutoResize = false;
/*
Select the Component\Import Component...\Import a Type Library,
to import the following Type Library:
Microsoft ActiveX Data Objects 6.1 Library
TypeLib: msado15.dll
to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADOR.Recordset");
rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExGrid\\Sample\\Access\\misc.accdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
var_ComboBox->DataSource = (IDispatch*)rs;
var_ComboBox->MinHeightList = 128;
var_ComboBox->SearchColumnIndex = 0;
var_ComboBox->UseTabKey = false;
var_ComboBox->EndUpdate();
h = var_Items->AddItem(TVariant(255));
Exgridlib_tlb::IEditorPtr var_Editor10 = var_Items->get_CellEditor(TVariant(h),TVariant(0));
var_Editor10->EditType = Exgridlib_tlb::EditTypeEnum::ColorListType;
var_Editor10->set_Option(Exgridlib_tlb::EditorOptionEnum::exColorListShowName,TVariant(true));
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (ColorListType)'");
var_Items->get_CellEditor(TVariant(var_Items->AddItem(TVariant(65280))),TVariant(0))->EditType = Exgridlib_tlb::EditTypeEnum::ColorListType;
var_Items->get_CellEditor(TVariant(var_Items->AddItem(TVariant("(MemoDropDownType)"))),TVariant(0))->EditType = Exgridlib_tlb::EditTypeEnum::MemoDropDownType;
Exgridlib_tlb::IEditorPtr var_Editor11 = var_Items->get_CellEditor(TVariant(var_Items->AddItem(TVariant(-1))),TVariant(0));
var_Editor11->EditType = Exgridlib_tlb::EditTypeEnum::CheckValueType;
var_Editor11->set_Option(Exgridlib_tlb::EditorOptionEnum::exCheckValue2,TVariant(1));
h = var_Items->AddItem(TVariant(50));
Exgridlib_tlb::IEditorPtr var_Editor12 = var_Items->get_CellEditor(TVariant(h),TVariant(0));
var_Editor12->EditType = Exgridlib_tlb::EditTypeEnum::SliderType;
var_Editor12->set_Option(Exgridlib_tlb::EditorOptionEnum::exSliderWidth,TVariant(-60));
var_Editor12->set_Option(Exgridlib_tlb::EditorOptionEnum::exSliderTickFrequency,TVariant(10));
var_Editor12->set_Option(Exgridlib_tlb::EditorOptionEnum::exSliderTickStyle,TVariant(2));
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (SliderType)'");
h = var_Items->AddItem(TVariant(100));
var_Items->get_CellEditor(TVariant(h),TVariant(0))->EditType = Exgridlib_tlb::EditTypeEnum::CalculatorType;
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (CalculatorType)'");
var_Items->EnsureVisibleItem(h);
Grid1->EndUpdate();
|
|
1179
|
Editors (ImageSize = 16, default)
Grid1->BeginUpdate();
Grid1->ImageSize = 16;
Grid1->Images(TVariant(String("gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOq") +
"dSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVt" +
"tmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8a" +
"cvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtT" +
"GsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgP" +
"nwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg=="));
Exgridlib_tlb::IAppearancePtr var_Appearance = Grid1->VisualAppearance;
var_Appearance->Add(4,TVariant(String("gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH") +
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" +
"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" +
"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" +
"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" +
"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" +
"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" +
"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" +
"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA=="));
Grid1->Columns->Add(L"Editors")->set_Def(Exgridlib_tlb::DefColumnEnum::exCellValueFormat,TVariant(1));
Grid1->BackColorHeader = 0x4c6c6c6;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->get_CellEditor(TVariant(var_Items->AddItem(TVariant("(ReadOnly)"))),TVariant(0))->EditType = Exgridlib_tlb::EditTypeEnum::ReadOnly;
var_Items->get_CellEditor(TVariant(var_Items->AddItem(TVariant("(EditType)"))),TVariant(0))->EditType = Exgridlib_tlb::EditTypeEnum::EditType;
long h = var_Items->AddItem(TVariant("Value 1"));
Exgridlib_tlb::IEditorPtr var_Editor = var_Items->get_CellEditor(TVariant(h),TVariant(0));
var_Editor->EditType = Exgridlib_tlb::EditTypeEnum::DropDownType;
var_Editor->AddItem(1,L"Value 1",TVariant(1));
var_Editor->AddItem(2,L"Value 2",TVariant(2));
var_Editor->AddItem(3,L"Value 3",TVariant(3));
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (DropDownType)'");
h = var_Items->AddItem(TVariant(1));
Exgridlib_tlb::IEditorPtr var_Editor1 = var_Items->get_CellEditor(TVariant(h),TVariant(0));
var_Editor1->EditType = Exgridlib_tlb::EditTypeEnum::DropDownListType;
var_Editor1->DropDownAutoWidth = Exgridlib_tlb::DropDownWidthType::exDropDownEditorWidth;
var_Editor1->AddItem(1,L"Nancy Davolio",TVariant(1));
var_Editor1->AddItem(2,L"Andrew Fuller",TVariant(2));
var_Editor1->AddItem(3,L"Janet Leverling",TVariant(3));
var_Editor1->AddItem(4,L"Peacock Margaret",TVariant(3));
var_Editor1->AddItem(5,L"Steven Buchanan",TVariant(2));
var_Editor1->AddItem(6,L"Michael Suyama",TVariant(1));
var_Editor1->AddItem(7,L"Robert King",TVariant(2));
var_Editor1->AddItem(8,L"Laura Callahan",TVariant(3));
var_Editor1->AddItem(9,L"Anne Dodsworth",TVariant(2));
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (DropDownList - single column list)'");
h = var_Items->AddItem(TVariant(1));
Exgridlib_tlb::IEditorPtr var_Editor2 = var_Items->get_CellEditor(TVariant(h),TVariant(0));
var_Editor2->EditType = Exgridlib_tlb::EditTypeEnum::DropDownListType;
var_Editor2->DropDownAutoWidth = Exgridlib_tlb::DropDownWidthType::exDropDownEditorWidth;
var_Editor2->AddItem(1,L"Nancy Davolio",TVariant(1));
var_Editor2->AddItem(2,L"Andrew Fuller",TVariant(2));
var_Editor2->InsertItem(3,L"Janet Leverling",TVariant(3),TVariant(2));
var_Editor2->InsertItem(4,L"Peacock Margaret",TVariant(3),TVariant(2));
var_Editor2->InsertItem(5,L"Steven Buchanan",TVariant(2),TVariant(2));
var_Editor2->InsertItem(6,L"Michael Suyama",TVariant(1),TVariant(5));
var_Editor2->InsertItem(7,L"Robert King",TVariant(2),TVariant(2));
var_Editor2->InsertItem(8,L"Laura Callahan",TVariant(3),TVariant(2));
var_Editor2->InsertItem(9,L"Anne Dodsworth",TVariant(2),TVariant(5));
var_Editor2->ExpandAll();
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (DropDownList - single column tree)'");
h = var_Items->AddItem(TVariant(1));
Exgridlib_tlb::IEditorPtr var_Editor3 = var_Items->get_CellEditor(TVariant(h),TVariant(0));
var_Editor3->EditType = Exgridlib_tlb::EditTypeEnum::DropDownListType;
var_Editor3->DropDownAutoWidth = Exgridlib_tlb::DropDownWidthType::exDropDownEditorWidth;
var_Editor3->set_Option(Exgridlib_tlb::EditorOptionEnum::exDropDownColumnCaption,TVariant("Name¦Title¦City¦Phone"));
var_Editor3->set_Option(Exgridlib_tlb::EditorOptionEnum::exDropDownColumnWidth,TVariant("312¦¦¦96"));
var_Editor3->AddItem(1,L"Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857",TVariant(1));
var_Editor3->AddItem(2,L"Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482",TVariant(2));
var_Editor3->AddItem(3,L"Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412",TVariant(3));
var_Editor3->AddItem(4,L"Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122",TVariant(3));
var_Editor3->AddItem(5,L"Steven Buchanan¦Sales Manager¦London¦(71) 555-4848",TVariant(2));
var_Editor3->AddItem(6,L"Michael Suyama¦Sales Representative¦London¦(71) 555-7773",TVariant(1));
var_Editor3->AddItem(7,L"Robert King¦Sales Representative¦Kirkland¦(71) 555-5598",TVariant(2));
var_Editor3->AddItem(8,L"Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189",TVariant(3));
var_Editor3->AddItem(9,L"Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444",TVariant(2));
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (DropDownList - multiple columns list)'");
h = var_Items->AddItem(TVariant(1));
Exgridlib_tlb::IEditorPtr var_Editor4 = var_Items->get_CellEditor(TVariant(h),TVariant(0));
var_Editor4->EditType = Exgridlib_tlb::EditTypeEnum::DropDownListType;
var_Editor4->DropDownAutoWidth = Exgridlib_tlb::DropDownWidthType::exDropDownEditorWidth;
var_Editor4->set_Option(Exgridlib_tlb::EditorOptionEnum::exDropDownColumnCaption,TVariant("Name¦Title¦City¦Phone"));
var_Editor4->set_Option(Exgridlib_tlb::EditorOptionEnum::exDropDownColumnWidth,TVariant("312¦¦¦96"));
var_Editor4->AddItem(1,L"Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857",TVariant(1));
var_Editor4->AddItem(2,L"Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482",TVariant(2));
var_Editor4->InsertItem(3,L"Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412",TVariant(3),TVariant(2));
var_Editor4->InsertItem(4,L"Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122",TVariant(3),TVariant(2));
var_Editor4->InsertItem(5,L"Steven Buchanan¦Sales Manager¦London¦(71) 555-4848",TVariant(2),TVariant(2));
var_Editor4->InsertItem(6,L"Michael Suyama¦Sales Representative¦London¦(71) 555-7773",TVariant(1),TVariant(5));
var_Editor4->InsertItem(7,L"Robert King¦Sales Representative¦Kirkland¦(71) 555-5598",TVariant(2),TVariant(2));
var_Editor4->InsertItem(8,L"Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189",TVariant(3),TVariant(2));
var_Editor4->InsertItem(9,L"Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444",TVariant(2),TVariant(5));
var_Editor4->ExpandAll();
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (DropDownList - multiple columns tree)'");
h = var_Items->AddItem(TVariant(100));
var_Items->get_CellEditor(TVariant(h),TVariant(0))->EditType = Exgridlib_tlb::EditTypeEnum::SpinType;
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (SpinType)'");
var_Items->get_CellEditor(TVariant(var_Items->AddItem(TVariant("(MemoType)"))),TVariant(0))->EditType = Exgridlib_tlb::EditTypeEnum::MemoType;
h = var_Items->AddItem(TVariant(3));
Exgridlib_tlb::IEditorPtr var_Editor5 = var_Items->get_CellEditor(TVariant(h),TVariant(0));
var_Editor5->EditType = Exgridlib_tlb::EditTypeEnum::CheckListType;
var_Editor5->AddItem(1,L"Border",TVariant(1));
var_Editor5->AddItem(2,L"Single",TVariant(2));
var_Editor5->AddItem(4,L"Frame",TVariant(3));
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (CheckListType)'");
h = var_Items->AddItem(TVariant("193.226.40.161"));
Exgridlib_tlb::IEditorPtr var_Editor6 = var_Items->get_CellEditor(TVariant(h),TVariant(0));
var_Editor6->Mask = L"{0,255}.{0,255}.{0,255}.{0,255}";
var_Editor6->EditType = Exgridlib_tlb::EditTypeEnum::MaskType;
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (MaskType)'");
h = var_Items->AddItem(TVariant(65280));
Exgridlib_tlb::IEditorPtr var_Editor7 = var_Items->get_CellEditor(TVariant(h),TVariant(0));
var_Editor7->EditType = Exgridlib_tlb::EditTypeEnum::ColorType;
var_Editor7->Mask = L"`RGB(`{0,255}\\,{0,255}\\,{0,255}`)`;;0";
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (ColorType)'");
h = var_Items->AddItem(TVariant("Tahoma"));
var_Items->get_CellEditor(TVariant(h),TVariant(0))->EditType = Exgridlib_tlb::EditTypeEnum::FontType;
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (FontType)'");
h = var_Items->AddItem(TVariant(String("gBHJJGHA5MIwAEIe4AAAFhwbiAliQwig7ixFjBQjRbjhljxwkB7kSFkiQkyblCllSwli7lzFmDQmTbmjlmzwnD7nQBnk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq") +
"lVq1XrFZrVbrldr1YhgAEL5AgBhj/AAssMJthABFof4JDhIWCgYKDBATFT8M6hUIFAQAEQCCDwYF/QoWDZCRBgOKgIYHCQXMisKBAEQAAgOBZaSgQhjERANKQiZhIWam" +
"YyIBQ6FzcNKxQLJT4ADA4RjwObAAidBYdHwABQgUxMQYZEI0cD4OgnYKaKyzIRFNQx2YCKoFHScYD0ADXQwUAgwLoLQDqaCWBJoNQ9NBxFJTVQORgiarqSABbamGwtDA" +
"wBUWhQmqYALnOFQvGYPA4m6AwKhkZxKj2PBWC0SZCgmVY6CwIJgieBAniubRKHgaYgiwQwGiCfxGDWbBRmGZYIi2VwGnAexxGUSwUFiaR+hQPbBgOCoLCIHh4DAARCmQ" +
"G4AlgNxuhwWgpFAEQUhuOxOk0NrhAaQoBmgPYdFSIZPjYGYbn+HhgEoAA7HMBIOjUM51AoPojHkEwVlET5slgWZtAEUBdjeSoeF6X5/rQRRSi+QB6GychsEAfZshKYAB" +
"GQZorlAOgMBqEgAjYHB2jqSoigmYBLk+QZnBqGhggAEwImgbojgoIwSE+MxUHiS4REQCQWluD48B+JJoL+YQikuaI9AALgLmsJQfnSdAvDkCJEhIIIBgOegLEiPBqCyC" +
"AAjcCwgAAIJBhQBQkHGL4gDaNBokkZQMiwUAuioJQiCAQYsHMcwwEIeoigAYIogsGIwFKIYICIWguEoPgQhsawBASGgwCuJwLH8K4LigAIaDwbxMAOKxbisPwfASQATF" +
"ASoagIEYwgcSoKGiAA/mEdIuiGPxCmObIlhMIJNHONxFH8EpPCGeB+noEpBBSSRjCsPZEiyKhgjAH5whSdLEjwDxjC8TxVEMFRzFWJJZBUSI0gQEQLBOM4VHkIg1D0CA" +
"JDQNg/p4AAdoC"));
var_Items->get_CellEditor(TVariant(h),TVariant(0))->EditType = Exgridlib_tlb::EditTypeEnum::PictureType;
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (PictureType)'");
var_Items->get_CellEditor(TVariant(var_Items->AddItem(TVariant("(ButtonType)"))),TVariant(0))->EditType = Exgridlib_tlb::EditTypeEnum::ButtonType;
h = var_Items->AddItem(TVariant(25));
var_Items->get_CellEditor(TVariant(h),TVariant(0))->EditType = Exgridlib_tlb::EditTypeEnum::ProgressBarType;
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (ProgressBarType)'");
h = var_Items->AddItem(TVariant("Value 1"));
Exgridlib_tlb::IEditorPtr var_Editor8 = var_Items->get_CellEditor(TVariant(h),TVariant(0));
var_Editor8->EditType = Exgridlib_tlb::EditTypeEnum::PickEditType;
var_Editor8->AddItem(1,L"Value 1",TVariant(1));
var_Editor8->AddItem(2,L"Value 2",TVariant(2));
var_Editor8->AddItem(3,L"Value 3",TVariant(3));
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (PickEditType)'");
var_Items->get_CellEditor(TVariant(var_Items->AddItem(TVariant("(LinkEditType)"))),TVariant(0))->EditType = Exgridlib_tlb::EditTypeEnum::LinkEditType;
Exgridlib_tlb::IEditorPtr var_Editor9 = var_Items->get_CellEditor(TVariant(var_Items->AddItem(TVariant("(UserEditorType)"))),TVariant(0));
var_Editor9->EditType = Exgridlib_tlb::EditTypeEnum::UserEditorType;
var_Editor9->UserEditor(L"Exontrol.ComboBox",L"");
/*
Select the Component\Import Component...\Import a Type Library,
to import the following Type Library:
ExComboBox 1.0 Control Library
TypeLib: ExComboBox.dll
to define the namespace: Excomboboxlib_tlb
*/
//#include "EXCOMBOBOXLIB_TLB.h"
Excomboboxlib_tlb::IComboBoxPtr var_ComboBox = (IDispatch*)var_Editor9->UserEditorObject;
var_ComboBox->BeginUpdate();
var_ComboBox->LabelHeight = Grid1->DefaultItemHeight;
var_ComboBox->Style = Excomboboxlib_tlb::StyleEnum::DropDownList;
var_ComboBox->ColumnAutoResize = false;
/*
Select the Component\Import Component...\Import a Type Library,
to import the following Type Library:
Microsoft ActiveX Data Objects 6.1 Library
TypeLib: msado15.dll
to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADOR.Recordset");
rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExGrid\\Sample\\Access\\misc.accdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
var_ComboBox->DataSource = (IDispatch*)rs;
var_ComboBox->MinHeightList = 128;
var_ComboBox->SearchColumnIndex = 0;
var_ComboBox->UseTabKey = false;
var_ComboBox->EndUpdate();
h = var_Items->AddItem(TVariant(255));
Exgridlib_tlb::IEditorPtr var_Editor10 = var_Items->get_CellEditor(TVariant(h),TVariant(0));
var_Editor10->EditType = Exgridlib_tlb::EditTypeEnum::ColorListType;
var_Editor10->set_Option(Exgridlib_tlb::EditorOptionEnum::exColorListShowName,TVariant(true));
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (ColorListType)'");
var_Items->get_CellEditor(TVariant(var_Items->AddItem(TVariant(65280))),TVariant(0))->EditType = Exgridlib_tlb::EditTypeEnum::ColorListType;
var_Items->get_CellEditor(TVariant(var_Items->AddItem(TVariant("(MemoDropDownType)"))),TVariant(0))->EditType = Exgridlib_tlb::EditTypeEnum::MemoDropDownType;
Exgridlib_tlb::IEditorPtr var_Editor11 = var_Items->get_CellEditor(TVariant(var_Items->AddItem(TVariant(-1))),TVariant(0));
var_Editor11->EditType = Exgridlib_tlb::EditTypeEnum::CheckValueType;
var_Editor11->set_Option(Exgridlib_tlb::EditorOptionEnum::exCheckValue2,TVariant(1));
h = var_Items->AddItem(TVariant(50));
Exgridlib_tlb::IEditorPtr var_Editor12 = var_Items->get_CellEditor(TVariant(h),TVariant(0));
var_Editor12->EditType = Exgridlib_tlb::EditTypeEnum::SliderType;
var_Editor12->set_Option(Exgridlib_tlb::EditorOptionEnum::exSliderWidth,TVariant(-60));
var_Editor12->set_Option(Exgridlib_tlb::EditorOptionEnum::exSliderTickFrequency,TVariant(10));
var_Editor12->set_Option(Exgridlib_tlb::EditorOptionEnum::exSliderTickStyle,TVariant(2));
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (SliderType)'");
h = var_Items->AddItem(TVariant(100));
var_Items->get_CellEditor(TVariant(h),TVariant(0))->EditType = Exgridlib_tlb::EditTypeEnum::CalculatorType;
var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ' (CalculatorType)'");
var_Items->EnsureVisibleItem(h);
Grid1->EndUpdate();
|
|
1178
|
Re-order the cell's caption, icons and images/pictures
Grid1->BeginUpdate();
Grid1->Images(TVariant(String("gBJJgBAICAADAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEahkZAIAEEbjMjlErlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq") +
"lVq1XrFZrVbrlTiFdib/sNjr9gs1nldlrlqtFtt0stlguNvulyh91ud1vVVvNuvt7wFHr9/vl3luEwOJouIq+Dw2KyGRyWTymVy2XzGZzUuiw+lmej0gkUaksljaAnmD" +
"cD/cEbf7w1+ufD/fEbeB028bYAO3enB6AB++4EoA4A4sb4vHjXJ4nG5vKAHA4ca6XBjTAD/Y2x/eB/jcB"));
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"ToLeft");
var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
Exgridlib_tlb::IColumnPtr var_Column1 = Grid1->Columns->Add(L"ToRight");
var_Column1->set_Def(Exgridlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
var_Column1->set_Def(Exgridlib_tlb::DefColumnEnum::exCellDrawPartsOrder,TVariant("caption,picture,icons,icon,check"));
Grid1->DefaultItemHeight = 32;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exVLines;
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
long h = var_Items->AddItem(TVariant("Caption"));
var_Items->set_CellImage(TVariant(h),TVariant(0),2);
var_Items->set_CellImages(TVariant(h),TVariant(0),TVariant("1,2"));
var_Items->set_CellPicture(TVariant(h),TVariant(0),Grid1->ExecuteTemplate(TVariant(String("loadpicture(`gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLs") +
"GL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7" +
"FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0F" +
"CjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4" +
"wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/Ay" +
"QJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZe" +
"nEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSF" +
"pTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5si" +
"qbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8Yx" +
"XhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8D" +
"PH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZA" +
"mBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCM" +
"EgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rBy" +
"jJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0W" +
"gLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTH" +
"CBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB" +
"1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHw" +
"L4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0" +
"FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYd" +
"guhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCG" +
"USNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmh" +
"AFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg" +
"6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GF" +
"ZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gm" +
"iXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsA" +
"YAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg" +
"5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARA" +
"SA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9A" +
"IBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcA" +
"dAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJB" +
"PhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzA" +
"hhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARB" +
"vgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURA" +
"Ghvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh" +
"/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3s" +
"UhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4A" +
"fgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8x" +
"MhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA" +
"2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXB" +
"WhFh/knAAADgLAkgiAggqAsAEhigrA1g2AKAqgKBfAZgdh9g2BbhugjhUgCgtgBALAtAYy+AWhEgmgAhFgSAaT4gAASgaATAahIgxACB9ghhGgfgmBoAEB4gIg/ANBag" +
"xAkhGBRA0gs3yBaBjTNAFBCBFBghCACAJAlhFh+AAAEgCAQgQg+h2g7Bbhdgdgdhdhxh7gGvUhbBHhah/B5ATAzh3BOtAWchuh3hOA9h3XvAfgbh0hfh8Brg6hegDB9B" +
"tnWDQByA4gkAGJIAZAEgcgFh8gvBJBSAdh0BLhqBLACAABHBtgwB2x8yngsg+gAByA2gAB8hxhvh6Byg+AFBp4nBShMgmBzANgAB8ACBZADARBLPVhQh7uKBOg/B7hqB" +
"UgphbA+AfALAygQYohXBZi2AThYhcAeBPhAuwhdgIBEgiB7B9YzhDA0AvAthIBAg8AeBfApAohKA/B2BRA+BYm/gGBCguAG5JhAhjZLAgAvgvhPg1gYgehmAbgLZQhDA" +
"jAjgjgOh5heAxzgABhx5Wgig0AfgQA/B13iBgBchVgrhXgVXFhbh9gKBdgugUAbXDgygsg+A/B+B8AqA6g6hahbBsANBmA/hCgmhegeSVgeADBwB+BKg+BnA0hwBxBih" +
"Fh7BxBxAxAIgGACAiAYAMAKA/BPgnguAMgPBbBngak8B+hsgqAVBag2hnBOAoBWAJhYgsA2AchvAHhIEMAmgmAmAkAjhHgPB6hUBkhSAqApgpjehsBcgZhAhuAYBOBdA" +
"uAXAwgpgPBMBwAOB5AjB+AeAYBwANACghgnBTgph3h0B0BMB4h91BgMAJhxAmgSByhshbajBaWPgTgCAYA4ACWGg3g/AyBfgzhnhPBxA1hrhXBshehChChRBQBQAgAeA" +
"FBNAtg7h3hHB7h7B7A9BOgHBDgggfhrBEBHA+h9gRB+68hPAfg3huAoAzbAAiAGBZA7B2htAqB7hYgxgwhVgehOVIFFBRgchLhhgAA7BfBthdB9hkhkgkg0hyBlAKhBg" +
"3ABAgAZBEg4AcBWAGYIhzgXAEgDA6gmhphwAtgRBYBmBwBwBQAThBA3gvBXn3hrBDBuBcA/BugnANgEBLhKhCgzhwYzhAAiARAohGgHgggJgMg9gMBrA4g+A6BoAUhch" +
"ug3BBgAhZAIBPBNApAFAFAFh6hZBZAZAWhMgkAkBEgyApb1BOAqBGBIBmATAShAhsgOgHBuhxh4gsBOhph2ArAfBmBLCWgigxgOhZhshtAMBrghhDgHgjgfrIB5ABBCB" +
"QAcAgV4gPhcgIBWhVhXgnhBApA4hVBXhngFhTLMgcgOhRgtAMh+hFh2h2gohnAsgshCg+rTAGgNhcgjgvwhAsA0BOA8gV4dBN8qBJh68rgUgoB2BdA6h5hTABhMgWAxh" +
"Tg9A2guguhJBDB0g4B5hzBmsvhwgwgzgog4g4gDAmAygPBUhWAqANgbg3AmBAI2AOBzhDA8hmBKgxBIAFgAAJhbCuhGgKl7BwhwAmgcAKAigDh2gZAJArABANgDBegx5" +
"WgZADgwBGBEAkBegAg2AYg9gwKABtBmhPABBoBZAPgFhHBMAPhmB/B6bdhZhdhdhth1hh8lBGgIBEAUgOhEgKgVgrA0AngaAaBiBIgyB5A3gLgXBcAEhlJjAJgEAsAJA" +
"kgqqlhththThrhrhrBVBTAWhZhDhPhThIBWARg+Bn7Sg7A3gDhZAvAphEgegGgehuhpAJAyAJBZQ9gBggAAgAgwBDg3BCAAhkgTh0hkAAhLhthWhTgqAqhJBIAhhmAEg" +
"qgqgCgbBiB6h9BD8zhxhmABrOhfAqhMg7ghwiA4BSJNhMgqg4BEhkY8AjBphNATBaA6AtAwBYgEACBBiEBABIAggbg7gmh1AlglAlgahXBmhmB1BgBPBEAmAnwZgogyh" +
"VgmgABcgxsNBUAWAAB2B4AHBvA5h3B3ggAQBIAwg+hPhSgqBQCEA/gQBQA2htKUgfAJhFgkhkAYBtAIAMHpgbAasHg0gVAsBhhIgbBVAxAi/MgFBnAZBDBpB2ABgwADB" +
"Wh3gchuBwBxhrhkB1BbhWAFAP5mBCghgTgnA8AgBV+OgqhSg2g1g3AnBOAcg+hNAYgbhHBRg8g6BjhjhjA2ADgdAdhTg/Aeg/hvA6h1h7A2gChLhKfjAdAxhahigYgMA" +
"GAshzg5AAaYh/AGAjh2AChABwBOgwXnBFh/ApAzgT2GBZBGvTBHAjBGhAF0wAgsDi1w4Nza2UkyBUYiA+maxm6g1K32ad3s2Qg8AKlRaBlKD1wKE+rCCjSObAK8iGsFO" +
"rC0vR0lTeDV8IUatHu6GO2jkAHgAwgfgC5TYrVsKk2Y3MBRcpBQkgmOUuznY2FqKy0WSymXeX0ASwel0olHI5AwJ1mx0gL1mTXU6XS8Vpdj4hyg8BemDYZHqMFOUyYZT" +
"WP1WJ1CN1MTR6gH4cmysjKr2mlCqn3GuR+jDoJHGWlKkU+ajXpgg1yq2FQDFigSEBROwkCKnQwGwjliIU45x2HGyIB4dnM0UmUC+PhaLxefwOdia5zMT3+8wwYCQmEwd" +
"i4vQKqHKvigKHoKnc9Rs7GMDUOhhGOnAYjWkzKKRGyxsDUA01QCw0QCOF0uh0OkfRUMMbyRNwTBiCYZwKMIYyZAUkSlBYkxsCYAAHG4qwCBwMQfBYlxsNgsDhLEgwHA8" +
"PiPNg1ygP4uywIgMSwK4zSQG46BnFAATDJcL3IHM6DQBsPR3O83j/AsJyGH8w4ZJY5TsN8EAdFojTwJ0AAoA4MgATIMDqAcrQPMEwTDBgVy0LYtiuK8qyrFs6QtCocnL" +
"Cs8wAGAChOGM+CZJ0HAaoQHQYocBiaHtJT3LEfgCLYIgQNYgw4IQiSaBcAABBEAB/DAXS4HgPAgLUSCzGkPjkIATyXPQoCeNYfR6Do7QGI8Zj+CAHiyCY2SkIQTSSCIy" +
"DQCkpDBJQJinMMuAUPgOxGOcpA/AkoTzJwyiYFMiDwJEsShFAURFCwJRVFceQXKQIS8P8STlBgLggAcrAQCQATjIgZA0JgVSxL0OAmKI6CpEc4SuOkeBeOwMRnLQuQhO" +
"ApDJAImYmD44BPIgAzFMYiR3LcQw4JwqhQAknAMFAxwEEwJwUO4ljCHgmxzNwNQ3EU3ScLYEAACocDePwZgCLI+yFN8jg7FEQTtKMcwrAAOhgHw6SQI4OCmJgjDmNAjj" +
"5Gw+wbHkkTpEw7gpFgIAA2sABJEUThEK4QhgIJAQ==`)")));
var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant(var_Items->get_CellValue(TVariant(h),TVariant(0))));
var_Items->set_CellHAlignment(TVariant(h),TVariant(1),Exgridlib_tlb::AlignmentEnum::RightAlignment);
var_Items->set_CellImage(TVariant(h),TVariant(1),var_Items->get_CellImage(TVariant(h),TVariant(0)));
var_Items->set_CellImages(TVariant(h),TVariant(1),TVariant("2,1"));
var_Items->set_CellPicture(TVariant(h),TVariant(1),var_Items->get_CellPicture(TVariant(h),TVariant(0)));
h = var_Items->AddItem(TVariant("<b>HTML</b> <off 4>Caption"));
var_Items->set_CellValueFormat(TVariant(h),TVariant(0),Exgridlib_tlb::ValueFormatEnum::exHTML);
var_Items->set_CellImage(TVariant(h),TVariant(0),2);
var_Items->set_CellImages(TVariant(h),TVariant(0),TVariant("1,2"));
var_Items->set_CellPicture(TVariant(h),TVariant(0),Grid1->ExecuteTemplate(TVariant(String("loadpicture(`gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLs") +
"GL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7" +
"FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0F" +
"CjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4" +
"wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/Ay" +
"QJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZe" +
"nEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSF" +
"pTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5si" +
"qbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8Yx" +
"XhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8D" +
"PH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZA" +
"mBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCM" +
"EgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rBy" +
"jJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0W" +
"gLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTH" +
"CBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB" +
"1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHw" +
"L4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0" +
"FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYd" +
"guhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCG" +
"USNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmh" +
"AFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg" +
"6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GF" +
"ZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gm" +
"iXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsA" +
"YAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg" +
"5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARA" +
"SA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9A" +
"IBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcA" +
"dAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJB" +
"PhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzA" +
"hhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARB" +
"vgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURA" +
"Ghvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh" +
"/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3s" +
"UhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4A" +
"fgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8x" +
"MhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA" +
"2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXB" +
"WhFh/knAAADgLAkgiAggqAsAEhigrA1g2AKAqgKBfAZgdh9g2BbhugjhUgCgtgBALAtAYy+AWhEgmgAhFgSAaT4gAASgaATAahIgxACB9ghhGgfgmBoAEB4gIg/ANBag" +
"xAkhGBRA0gs3yBaBjTNAFBCBFBghCACAJAlhFh+AAAEgCAQgQg+h2g7Bbhdgdgdhdhxh7gGvUhbBHhah/B5ATAzh3BOtAWchuh3hOA9h3XvAfgbh0hfh8Brg6hegDB9B" +
"tnWDQByA4gkAGJIAZAEgcgFh8gvBJBSAdh0BLhqBLACAABHBtgwB2x8yngsg+gAByA2gAB8hxhvh6Byg+AFBp4nBShMgmBzANgAB8ACBZADARBLPVhQh7uKBOg/B7hqB" +
"UgphbA+AfALAygQYohXBZi2AThYhcAeBPhAuwhdgIBEgiB7B9YzhDA0AvAthIBAg8AeBfApAohKA/B2BRA+BYm/gGBCguAG5JhAhjZLAgAvgvhPg1gYgehmAbgLZQhDA" +
"jAjgjgOh5heAxzgABhx5Wgig0AfgQA/B13iBgBchVgrhXgVXFhbh9gKBdgugUAbXDgygsg+A/B+B8AqA6g6hahbBsANBmA/hCgmhegeSVgeADBwB+BKg+BnA0hwBxBih" +
"Fh7BxBxAxAIgGACAiAYAMAKA/BPgnguAMgPBbBngak8B+hsgqAVBag2hnBOAoBWAJhYgsA2AchvAHhIEMAmgmAmAkAjhHgPB6hUBkhSAqApgpjehsBcgZhAhuAYBOBdA" +
"uAXAwgpgPBMBwAOB5AjB+AeAYBwANACghgnBTgph3h0B0BMB4h91BgMAJhxAmgSByhshbajBaWPgTgCAYA4ACWGg3g/AyBfgzhnhPBxA1hrhXBshehChChRBQBQAgAeA" +
"FBNAtg7h3hHB7h7B7A9BOgHBDgggfhrBEBHA+h9gRB+68hPAfg3huAoAzbAAiAGBZA7B2htAqB7hYgxgwhVgehOVIFFBRgchLhhgAA7BfBthdB9hkhkgkg0hyBlAKhBg" +
"3ABAgAZBEg4AcBWAGYIhzgXAEgDA6gmhphwAtgRBYBmBwBwBQAThBA3gvBXn3hrBDBuBcA/BugnANgEBLhKhCgzhwYzhAAiARAohGgHgggJgMg9gMBrA4g+A6BoAUhch" +
"ug3BBgAhZAIBPBNApAFAFAFh6hZBZAZAWhMgkAkBEgyApb1BOAqBGBIBmATAShAhsgOgHBuhxh4gsBOhph2ArAfBmBLCWgigxgOhZhshtAMBrghhDgHgjgfrIB5ABBCB" +
"QAcAgV4gPhcgIBWhVhXgnhBApA4hVBXhngFhTLMgcgOhRgtAMh+hFh2h2gohnAsgshCg+rTAGgNhcgjgvwhAsA0BOA8gV4dBN8qBJh68rgUgoB2BdA6h5hTABhMgWAxh" +
"Tg9A2guguhJBDB0g4B5hzBmsvhwgwgzgog4g4gDAmAygPBUhWAqANgbg3AmBAI2AOBzhDA8hmBKgxBIAFgAAJhbCuhGgKl7BwhwAmgcAKAigDh2gZAJArABANgDBegx5" +
"WgZADgwBGBEAkBegAg2AYg9gwKABtBmhPABBoBZAPgFhHBMAPhmB/B6bdhZhdhdhth1hh8lBGgIBEAUgOhEgKgVgrA0AngaAaBiBIgyB5A3gLgXBcAEhlJjAJgEAsAJA" +
"kgqqlhththThrhrhrBVBTAWhZhDhPhThIBWARg+Bn7Sg7A3gDhZAvAphEgegGgehuhpAJAyAJBZQ9gBggAAgAgwBDg3BCAAhkgTh0hkAAhLhthWhTgqAqhJBIAhhmAEg" +
"qgqgCgbBiB6h9BD8zhxhmABrOhfAqhMg7ghwiA4BSJNhMgqg4BEhkY8AjBphNATBaA6AtAwBYgEACBBiEBABIAggbg7gmh1AlglAlgahXBmhmB1BgBPBEAmAnwZgogyh" +
"VgmgABcgxsNBUAWAAB2B4AHBvA5h3B3ggAQBIAwg+hPhSgqBQCEA/gQBQA2htKUgfAJhFgkhkAYBtAIAMHpgbAasHg0gVAsBhhIgbBVAxAi/MgFBnAZBDBpB2ABgwADB" +
"Wh3gchuBwBxhrhkB1BbhWAFAP5mBCghgTgnA8AgBV+OgqhSg2g1g3AnBOAcg+hNAYgbhHBRg8g6BjhjhjA2ADgdAdhTg/Aeg/hvA6h1h7A2gChLhKfjAdAxhahigYgMA" +
"GAshzg5AAaYh/AGAjh2AChABwBOgwXnBFh/ApAzgT2GBZBGvTBHAjBGhAF0wAgsDi1w4Nza2UkyBUYiA+maxm6g1K32ad3s2Qg8AKlRaBlKD1wKE+rCCjSObAK8iGsFO" +
"rC0vR0lTeDV8IUatHu6GO2jkAHgAwgfgC5TYrVsKk2Y3MBRcpBQkgmOUuznY2FqKy0WSymXeX0ASwel0olHI5AwJ1mx0gL1mTXU6XS8Vpdj4hyg8BemDYZHqMFOUyYZT" +
"WP1WJ1CN1MTR6gH4cmysjKr2mlCqn3GuR+jDoJHGWlKkU+ajXpgg1yq2FQDFigSEBROwkCKnQwGwjliIU45x2HGyIB4dnM0UmUC+PhaLxefwOdia5zMT3+8wwYCQmEwd" +
"i4vQKqHKvigKHoKnc9Rs7GMDUOhhGOnAYjWkzKKRGyxsDUA01QCw0QCOF0uh0OkfRUMMbyRNwTBiCYZwKMIYyZAUkSlBYkxsCYAAHG4qwCBwMQfBYlxsNgsDhLEgwHA8" +
"PiPNg1ygP4uywIgMSwK4zSQG46BnFAATDJcL3IHM6DQBsPR3O83j/AsJyGH8w4ZJY5TsN8EAdFojTwJ0AAoA4MgATIMDqAcrQPMEwTDBgVy0LYtiuK8qyrFs6QtCocnL" +
"Cs8wAGAChOGM+CZJ0HAaoQHQYocBiaHtJT3LEfgCLYIgQNYgw4IQiSaBcAABBEAB/DAXS4HgPAgLUSCzGkPjkIATyXPQoCeNYfR6Do7QGI8Zj+CAHiyCY2SkIQTSSCIy" +
"DQCkpDBJQJinMMuAUPgOxGOcpA/AkoTzJwyiYFMiDwJEsShFAURFCwJRVFceQXKQIS8P8STlBgLggAcrAQCQATjIgZA0JgVSxL0OAmKI6CpEc4SuOkeBeOwMRnLQuQhO" +
"ApDJAImYmD44BPIgAzFMYiR3LcQw4JwqhQAknAMFAxwEEwJwUO4ljCHgmxzNwNQ3EU3ScLYEAACocDePwZgCLI+yFN8jg7FEQTtKMcwrAAOhgHw6SQI4OCmJgjDmNAjj" +
"5Gw+wbHkkTpEw7gpFgIAA2sABJEUThEK4QhgIJAQ==`)")));
var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant(var_Items->get_CellValue(TVariant(h),TVariant(0))));
var_Items->set_CellValueFormat(TVariant(h),TVariant(1),Exgridlib_tlb::ValueFormatEnum::exHTML);
var_Items->set_CellHAlignment(TVariant(h),TVariant(1),Exgridlib_tlb::AlignmentEnum::RightAlignment);
var_Items->set_CellImage(TVariant(h),TVariant(1),var_Items->get_CellImage(TVariant(h),TVariant(0)));
var_Items->set_CellImages(TVariant(h),TVariant(1),TVariant("2,1"));
var_Items->set_CellPicture(TVariant(h),TVariant(1),var_Items->get_CellPicture(TVariant(h),TVariant(0)));
Grid1->EndUpdate();
|
|
1177
|
ImageSize property on 32 (specifies the size of control' icons/images/check-boxes/radio-buttons)
// AddColumn event - Fired after a new column has been added.
void __fastcall TForm1::Grid1AddColumn(TObject *Sender,Exgridlib_tlb::IColumn *Column)
{
// Column.Def(48) = 2
// Column.Def(49) = 2
}
Grid1->BeginUpdate();
Grid1->ImageSize = 32;
Grid1->DefaultItemHeight = 36;
Grid1->HeaderHeight = Grid1->DefaultItemHeight;
Grid1->SortBarHeight = Grid1->DefaultItemHeight;
Grid1->Font->Size = TVariant(long(16));
Grid1->FilterBarFont->Size = TVariant(Grid1->Font->Size);
Grid1->ToolTipFont->Size = TVariant(Grid1->Font->Size);
Grid1->Indent = 26;
Grid1->Images(TVariant(String("gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOq") +
"NUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlw" +
"yV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+C" +
"MPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9" +
"FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5" +
"y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIk" +
"FgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMt" +
"NhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/Xi" +
"oW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X" +
"4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT" +
"6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUV" +
"DNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJy" +
"T8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5Wzlf" +
"fEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC" +
"6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8R" +
"gH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVW" +
"RJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA=="));
Exgridlib_tlb::IAppearancePtr var_Appearance = Grid1->VisualAppearance;
var_Appearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj") +
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" +
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDx" +
"RDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFY" +
"FoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4U" +
"kmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqA" +
"ochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A" +
"0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh" +
"8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2" +
"UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ=="));
var_Appearance->Add(2,TVariant(String("gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj") +
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" +
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" +
"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnS" +
"cg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBp" +
"AoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaD" +
"RDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+l" +
"GNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQB" +
"gk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwyku" +
"XpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2C" +
"yA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8R" +
"pBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8" +
"TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAe" +
"HGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAu" +
"hoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwM" +
"sCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4g" +
"aBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAg" +
"swOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBt" +
"YQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGB" +
"hYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0M" +
"gRBCCQAgQEA=="));
var_Appearance->Add(3,TVariant(String("gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj") +
"6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7E" +
"MRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4" +
"nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnS" +
"eQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJj" +
"nOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMa" +
"J9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTG" +
"SUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4" +
"ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgk" +
"XI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD" +
"6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BR" +
"AjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBE" +
"BwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQ" +
"HoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgR" +
"hcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOC" +
"QAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYj" +
"VHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4" +
"zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBs" +
"H0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI="));
var_Appearance->Add(4,TVariant(String("gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH") +
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" +
"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" +
"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" +
"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" +
"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" +
"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" +
"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" +
"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA=="));
Grid1->BackColorHeader = 0x4c6c6c6;
Grid1->SelBackColor = 0x4000000;
Grid1->SelForeColor = RGB(0,0,1);
Grid1->CheckImage[Exgridlib_tlb::CheckStateEnum::Unchecked] = 16777216;
Grid1->CheckImage[Exgridlib_tlb::CheckStateEnum::Checked] = 33554432;
Grid1->CheckImage[Exgridlib_tlb::CheckStateEnum::PartialChecked] = 50331648;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exSelBackColorFilter] = Grid1->SelBackColor;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exSelForeColorFilter] = Grid1->SelForeColor;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exBackColorFilter] = Grid1->BackColor;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exForeColorFilter] = Grid1->ForeColor;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exCursorHoverColumn] = -1;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exHeaderFilterBarButton] = 0x4000000;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exHeaderFilterBarActive] = 0x4010101;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exFooterFilterBarButton] = 0x40000ff;
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->ShowFocusRect = false;
Grid1->SortBarVisible = true;
Grid1->AllowGroupBy = true;
Grid1->BackColorSortBar = Grid1->BackColor;
Grid1->BackColorLevelHeader = Grid1->BackColor;
Grid1->FilterBarDropDownHeight = 1;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Check");
var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
var_Column->PartialCheck = true;
var_Column->Width = 128;
var_Column->DisplayFilterButton = true;
var_Column->FilterList = Exgridlib_tlb::FilterListEnum::exShowCheckBox;
Exgridlib_tlb::IColumnPtr var_Column1 = Grid1->Columns->Add(L"Pos");
var_Column1->FormatColumn = L"1 pos ``";
var_Column1->AllowSort = false;
var_Column1->Width = 48;
var_Column1->AllowSizing = false;
var_Column1->Alignment = Exgridlib_tlb::AlignmentEnum::CenterAlignment;
var_Column1->HeaderAlignment = Exgridlib_tlb::AlignmentEnum::CenterAlignment;
Exgridlib_tlb::IColumnPtr var_Column2 = Grid1->Columns->Add(L"Image");
var_Column2->DisplayFilterButton = true;
var_Column2->FilterList = Exgridlib_tlb::FilterListEnum::exShowExclude | Exgridlib_tlb::FilterListEnum::exShowCheckBox | Exgridlib_tlb::FilterListEnum::exSortItemsAsc;
var_Column2->FilterType = Exgridlib_tlb::FilterTypeEnum::exImage;
var_Column2->DisplayExpandButton = true;
var_Column2->ExpandColumns = L"1,2,3";
var_Column2->Width = 128;
var_Column2->HeaderImage = 1;
Exgridlib_tlb::IColumnPtr var_Column3 = Grid1->Columns->Add(L"Images");
var_Column3->set_Def(Exgridlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
var_Column3->Width = 196;
var_Column3->HTMLCaption = L"<img>1</img><img>2</img><img>3</img> Images";
Grid1->Columns->get_Item(TVariant("Pos"))->Position = 3;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
long hR = var_Items->AddItem(TVariant("Root"));
var_Items->set_ItemDivider(hR,0);
var_Items->set_ItemDividerLine(hR,Exgridlib_tlb::DividerLineEnum::EmptyLine);
long h = var_Items->InsertItem(hR,TNoParam(),TVariant("Child A"));
var_Items->set_CellImage(TVariant(h),TVariant(2),1);
var_Items->set_CellImages(TVariant(h),TVariant(3),TVariant("1,2,3"));
var_Items->set_CellValue(TVariant(h),TVariant(3),TVariant("123"));
h = var_Items->InsertItem(hR,TNoParam(),TVariant("Child B"));
var_Items->set_CellState(TVariant(h),TVariant(0),1);
var_Items->set_CellImage(TVariant(h),TVariant(2),3);
var_Items->set_CellImages(TVariant(h),TVariant(3),TVariant("2,3,1"));
var_Items->set_CellValue(TVariant(h),TVariant(3),TVariant("231"));
var_Items->set_SelectItem(h,true);
h = var_Items->InsertItem(hR,TNoParam(),TVariant("Child C"));
var_Items->set_CellImage(TVariant(h),TVariant(2),2);
var_Items->set_CellState(TVariant(h),TVariant(3),1);
var_Items->set_CellValue(TVariant(h),TVariant(3),TVariant("312"));
var_Items->set_CellImages(TVariant(h),TVariant(3),TVariant("3,1,2"));
var_Items->set_ExpandItem(hR,true);
Grid1->EndUpdate();
|
|
1176
|
ImageSize property on 16 (default) (specifies the size of control' icons/images/check-boxes/radio-buttons)
// AddColumn event - Fired after a new column has been added.
void __fastcall TForm1::Grid1AddColumn(TObject *Sender,Exgridlib_tlb::IColumn *Column)
{
// Column.Def(48) = 2
// Column.Def(49) = 2
}
Grid1->BeginUpdate();
Grid1->ImageSize = 16;
Grid1->Images(TVariant(String("gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOq") +
"dSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVt" +
"tmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8a" +
"cvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtT" +
"GsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgP" +
"nwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg=="));
Exgridlib_tlb::IAppearancePtr var_Appearance = Grid1->VisualAppearance;
var_Appearance->Add(4,TVariant(String("gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH") +
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKB" +
"UrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo" +
"3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDs" +
"YYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoV" +
"mWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoV" +
"oWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZi" +
"Se41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbh" +
"FCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA=="));
Grid1->BackColorHeader = 0x4c6c6c6;
Grid1->SelBackColor = 0x4000000;
Grid1->SelForeColor = RGB(0,0,1);
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exSelBackColorFilter] = Grid1->SelBackColor;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exSelForeColorFilter] = Grid1->SelForeColor;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exBackColorFilter] = Grid1->BackColor;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exForeColorFilter] = Grid1->ForeColor;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exCursorHoverColumn] = -1;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exHeaderFilterBarButton] = 0x4000000;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exHeaderFilterBarActive] = 0x4010101;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exFooterFilterBarButton] = 0x40000ff;
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->ShowFocusRect = false;
Grid1->SortBarVisible = true;
Grid1->AllowGroupBy = true;
Grid1->BackColorSortBar = Grid1->BackColor;
Grid1->BackColorLevelHeader = Grid1->BackColor;
Grid1->FilterBarDropDownHeight = 1;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Check");
var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
var_Column->PartialCheck = true;
var_Column->Width = 128;
var_Column->DisplayFilterButton = true;
var_Column->FilterList = Exgridlib_tlb::FilterListEnum::exShowCheckBox;
Exgridlib_tlb::IColumnPtr var_Column1 = Grid1->Columns->Add(L"Pos");
var_Column1->FormatColumn = L"1 pos ``";
var_Column1->AllowSort = false;
var_Column1->Width = 48;
var_Column1->AllowSizing = false;
var_Column1->Alignment = Exgridlib_tlb::AlignmentEnum::CenterAlignment;
var_Column1->HeaderAlignment = Exgridlib_tlb::AlignmentEnum::CenterAlignment;
Exgridlib_tlb::IColumnPtr var_Column2 = Grid1->Columns->Add(L"Image");
var_Column2->DisplayFilterButton = true;
var_Column2->FilterList = Exgridlib_tlb::FilterListEnum::exShowExclude | Exgridlib_tlb::FilterListEnum::exShowCheckBox | Exgridlib_tlb::FilterListEnum::exSortItemsAsc;
var_Column2->FilterType = Exgridlib_tlb::FilterTypeEnum::exImage;
var_Column2->DisplayExpandButton = true;
var_Column2->ExpandColumns = L"1,2,3";
var_Column2->Width = 128;
var_Column2->HeaderImage = 1;
Exgridlib_tlb::IColumnPtr var_Column3 = Grid1->Columns->Add(L"Images");
var_Column3->set_Def(Exgridlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
var_Column3->Width = 196;
var_Column3->HTMLCaption = L"<img>1</img><img>2</img><img>3</img> Images";
Grid1->Columns->get_Item(TVariant("Pos"))->Position = 3;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
long hR = var_Items->AddItem(TVariant("Root"));
var_Items->set_ItemDivider(hR,0);
var_Items->set_ItemDividerLine(hR,Exgridlib_tlb::DividerLineEnum::EmptyLine);
long h = var_Items->InsertItem(hR,TNoParam(),TVariant("Child A"));
var_Items->set_CellImage(TVariant(h),TVariant(2),1);
var_Items->set_CellImages(TVariant(h),TVariant(3),TVariant("1,2,3"));
var_Items->set_CellValue(TVariant(h),TVariant(3),TVariant("123"));
h = var_Items->InsertItem(hR,TNoParam(),TVariant("Child B"));
var_Items->set_CellState(TVariant(h),TVariant(0),1);
var_Items->set_CellImage(TVariant(h),TVariant(2),3);
var_Items->set_CellImages(TVariant(h),TVariant(3),TVariant("2,3,1"));
var_Items->set_CellValue(TVariant(h),TVariant(3),TVariant("231"));
var_Items->set_SelectItem(h,true);
h = var_Items->InsertItem(hR,TNoParam(),TVariant("Child C"));
var_Items->set_CellImage(TVariant(h),TVariant(2),2);
var_Items->set_CellState(TVariant(h),TVariant(3),1);
var_Items->set_CellValue(TVariant(h),TVariant(3),TVariant("312"));
var_Items->set_CellImages(TVariant(h),TVariant(3),TVariant("3,1,2"));
var_Items->set_ExpandItem(hR,true);
Grid1->EndUpdate();
|
|
1175
|
The user clicks the drop-down filter, select a value and the control's list filters for the selected item(s). Is there a way for when the user then goes to the next column to add another filter and the drop down arrow is clicked for the list of values they can filter by to be limited to what is being displayed in the list due to the first filter they set
// AddColumn event - Fired after a new column has been added.
void __fastcall TForm1::Grid1AddColumn(TObject *Sender,Exgridlib_tlb::IColumn *Column)
{
}
Grid1->BeginUpdate();
Grid1->ColumnAutoResize = false;
/*
Select the Component\Import Component...\Import a Type Library,
to import the following Type Library:
Microsoft ActiveX Data Objects 6.1 Library
TypeLib: msado15.dll
to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADOR.Recordset");
rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExGrid\\Sample\\Access\\misc.accdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Grid1->DataSource = (IDispatch*)rs;
Grid1->Columns->get_Item(TVariant("ShipVia"))->Position = 2;
Grid1->EndUpdate();
|
|
1174
|
Does the control display images from database (ADO)
Grid1->BeginUpdate();
Grid1->ColumnAutoResize = false;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exAllLines;
Grid1->GridLineStyle = Exgridlib_tlb::GridLinesStyleEnum::exGridLinesGeometric;
Grid1->DefaultItemHeight = 48;
/*
Select the Component\Import Component...\Import a Type Library,
to import the following Type Library:
Microsoft ActiveX Data Objects 6.1 Library
TypeLib: msado15.dll
to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADODB.Recordset");
rs->Open(TVariant("Employees"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExGrid\\Sample\\Access\\misc.mdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Grid1->DataSource = (IDispatch*)rs;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->get_Item(TVariant("Photo"));
var_Column->Position = 1;
var_Column->Width = 128;
Grid1->EndUpdate();
|
|
1173
|
Does the control display images from database (DAO)
Grid1->BeginUpdate();
Grid1->ColumnAutoResize = false;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exAllLines;
Grid1->GridLineStyle = Exgridlib_tlb::GridLinesStyleEnum::exGridLinesGeometric;
Grid1->DefaultItemHeight = 48;
/*
Select the Component\Import Component...\Import a Type Library,
to import the following Type Library:
Microsoft DAO 3.6 Object Library
TypeLib: dao360.dll
to define the namespace: Dao_tlb
*/
//#include "DAO_TLB.h"
Dao_tlb::_DBEnginePtr var_PrivDBEngine = Variant::CreateObject(L"DAO.DBEngine.36");
Dao_tlb::RecordsetPtr rs = var_PrivDBEngine->OpenDatabase(L"C:\\Program Files\\Exontrol\\ExGrid\\Sample\\Access\\misc.mdb",TNoParam(),TNoParam(),TNoParam())->OpenRecordset(L"Employees",TNoParam(),TNoParam(),TNoParam());
Grid1->DataSource = (IDispatch*)rs;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->get_Item(TVariant("Photo"));
var_Column->Position = 1;
var_Column->Width = 128;
Grid1->EndUpdate();
|
|
1172
|
Is it possible to set from code, a column sort without being inserted in the sortbar
Grid1->BeginUpdate();
Grid1->ColumnAutoResize = false;
/*
Select the Component\Import Component...\Import a Type Library,
to import the following Type Library:
Microsoft ActiveX Data Objects 6.1 Library
TypeLib: msado15.dll
to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADOR.Recordset");
rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExGrid\\Sample\\Access\\misc.accdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Grid1->DataSource = (IDispatch*)rs;
Grid1->SortBarVisible = true;
Grid1->Layout = L"singlesort=\"C1:1\"";
Grid1->EndUpdate();
|
|
1171
|
Is it possible to view all events the control fires
// Event event - Notifies the application once the control fires an event.
void __fastcall TForm1::Grid1Event(TObject *Sender,long EventID)
{
OutputDebugString( PChar(Grid1->EventParam[-2]) );
}
Grid1->BeginUpdate();
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Tasks");
var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
var_Column->PartialCheck = true;
var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exCellValueFormat,TVariant(1));
var_Column->FormatColumn = L"value + (%CS0 = 1 ? `<r><fgcolor=808080>(checked)` : ``)";
var_Column->Editor->EditType = Exgridlib_tlb::EditTypeEnum::EditType;
Grid1->HeaderVisible = true;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
long h = var_Items->AddItem(TVariant("Project"));
long hChild = var_Items->InsertItem(h,TNoParam(),TVariant("Task 1"));
var_Items->set_SelectItem(hChild,true);
hChild = var_Items->InsertItem(h,TNoParam(),TVariant("Task 2"));
var_Items->set_CellState(TVariant(hChild),TVariant(0),1);
hChild = var_Items->InsertItem(h,TNoParam(),TVariant("Task 3"));
var_Items->set_CellState(TVariant(hChild),TVariant(0),1);
var_Items->set_ExpandItem(h,true);
Grid1->EndUpdate();
|
|
1170
|
How can I find all occurences of the giving value, within a column
Grid1->BeginUpdate();
Grid1->Columns->Add(L"Default");
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Pos");
var_Column->FormatColumn = L"1 pos 'A-Z'";
var_Column->Position = 0;
var_Column->AllowSizing = false;
var_Column->Width = 32;
var_Column->Enabled = false;
Exgridlib_tlb::IColumnPtr var_Column1 = Grid1->Columns->Add(L"Index");
var_Column1->FormatColumn = L"0 index ''";
var_Column1->AllowSizing = false;
var_Column1->Width = 32;
var_Column1->Enabled = false;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->AddItem(TVariant("A"));
var_Items->AddItem(TVariant("A"));
var_Items->AddItem(TVariant("A"));
OutputDebugString( var_Items->get_CellCaption(TVariant(var_Items->get_FindItem(TVariant("A"),TVariant(0),TVariant(0))),TVariant(1)) );
OutputDebugString( var_Items->get_CellCaption(TVariant(var_Items->get_FindItem(TVariant("A"),TVariant(0),TVariant(1))),TVariant(1)) );
OutputDebugString( var_Items->get_CellCaption(TVariant(var_Items->get_FindItem(TVariant("A"),TVariant(0),TVariant(2))),TVariant(1)) );
Grid1->EndUpdate();
|
|
1169
|
How can I prevent expanding/collapsing the child items
// BeforeExpandItem event - Fired before an item is about to be expanded (collapsed).
void __fastcall TForm1::Grid1BeforeExpandItem(TObject *Sender,Exgridlib_tlb::HITEM Item,Variant * Cancel)
{
Cancel = Grid1->Items->get_ItemParent(Item);
}
Grid1->BeginUpdate();
Grid1->SingleSel = false;
Grid1->Columns->Add(L"Default");
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
long h = var_Items->AddItem(TVariant("Root 1"));
var_Items->InsertItem(var_Items->InsertItem(h,TNoParam(),TVariant("Child 1.1")),TNoParam(),TVariant("Child"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1.2"));
var_Items->set_ExpandItem(h,true);
h = var_Items->AddItem(TVariant("Root 2"));
var_Items->InsertItem(var_Items->InsertItem(h,TNoParam(),TVariant("Child 2.1")),TNoParam(),TVariant("Child"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2.2"));
var_Items->set_ExpandItem(h,true);
Grid1->EndUpdate();
|
|
1168
|
How can I display the EBN bigger or smaller (thumb)
Grid1->BeginUpdate();
Exgridlib_tlb::IAppearancePtr var_Appearance = Grid1->VisualAppearance;
var_Appearance->Add(1,TVariant("c:\\exontrol\\images\\normal.ebn"));
var_Appearance->Add(10,TVariant("CP:1 0 3 0 -3"));
var_Appearance->Add(17,TVariant("CP:1 3 0 -3 0"));
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exHSThumb] = 0xa000000;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exVSThumb] = 0x11000000;
Grid1->ScrollBars = Exgridlib_tlb::ScrollBarsEnum::exVScrollEmptySpace | Exgridlib_tlb::ScrollBarsEnum::exHScrollEmptySpace | Exgridlib_tlb::ScrollBarsEnum::exVScrollOnThumbRelease | Exgridlib_tlb::ScrollBarsEnum::exHScrollOnThumbRelease | Exgridlib_tlb::ScrollBarsEnum::exDisableBoth;
Grid1->ScrollBySingleLine = true;
Grid1->Columns->Add(L"Def");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->AddItem(TVariant(1));
var_Items->AddItem(TVariant(2));
var_Items->AddItem(TVariant(3));
Grid1->EndUpdate();
|
|
1167
|
I am using GroupBy feature to create a tree, but the top rows are aligned with the children, not indented. What could be wrong
// AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
void __fastcall TForm1::Grid1AddGroupItem(TObject *Sender,Exgridlib_tlb::HITEM Item)
{
// AddBar(Item,"Progress", #12/2/2017#,#12/2/2017#)
// DefineSummaryBars(Item,"", -3, "")
// Chart.ItemBackColor(Item) = color
String color = 14474460;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->set_ItemDivider(Item,-1);
var_Items->set_CellValue(TVariant(Item),TVariant(1),TVariant(var_Items->get_CellCaption(TVariant(Item),TVariant(var_Items->get_GroupItem(Item)))));
var_Items->set_ItemBold(Item,true);
var_Items->set_ItemBackColor(Item,color);
}
// AddItem event - Occurs after a new Item has been inserted to Items collection.
void __fastcall TForm1::Grid1AddItem(TObject *Sender,Exgridlib_tlb::HITEM Item)
{
// AddBar(Item,"Task",#12/4/2017#,#12/10/2017#)
// ItemBar(Item,"", 514) = ItemToIndex(Item)
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
}
Grid1->BeginUpdate();
Exgridlib_tlb::IColumnsPtr var_Columns = Grid1->Columns;
var_Columns->Add(L"C1");
var_Columns->Add(L"C2");
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Grid1->SortBarVisible = true;
Grid1->SortBarCaption = L"Drag a <b>column</b> header here to group by that column.";
Grid1->AllowGroupBy = true;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
long h = var_Items->AddItem(TVariant("Item A"));
var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("SubItem A.1"));
h = var_Items->AddItem(TVariant("Item A"));
var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("SubItem A.1"));
h = var_Items->AddItem(TVariant("Item A"));
var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("SubItem A.1"));
h = var_Items->AddItem(TVariant("Item A"));
var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("SubItem A.1"));
h = var_Items->AddItem(TVariant("Item B"));
var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("SubItem B.1"));
h = var_Items->AddItem(TVariant("Item B"));
var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("SubItem B.1"));
Grid1->Columns->get_Item(TVariant(0))->SortOrder = Exgridlib_tlb::SortOrderEnum::SortAscending;
Grid1->EndUpdate();
|
|
1166
|
How can I display an item of picture type
Grid1->BeginUpdate();
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Grid1->ScrollBySingleLine = false;
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->HeaderHeight = 24;
Grid1->Columns->Add(L"Artikel")->HTMLCaption = L"<u>Artikel";
Grid1->Columns->Add(L"Waarde")->HTMLCaption = L"<u>Waarde";
Grid1->HTMLPicture[L"T22128"] = TVariant("c:\\exontrol\\images\\zipdisk.gif");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
long h = var_Items->AddItem(TVariant("T22128-28)2D"));
long h1 = var_Items->InsertItem(h,TNoParam(),TVariant("<img>T22128:128</img>"));
var_Items->set_CellValueFormat(TVariant(h1),TVariant(0),Exgridlib_tlb::ValueFormatEnum::exHTML);
var_Items->set_ItemHeight(h1,128);
h1 = var_Items->InsertItem(h,TNoParam(),TVariant("werkvoorbereiding"));
var_Items->set_CellValue(TVariant(h1),TVariant(1),TVariant("5.80"));
var_Items->set_CellBold(TVariant(h1),TVariant(1),true);
var_Items->set_CellValue(TVariant(var_Items->InsertItem(h1,TNoParam(),TVariant("Type"))),TVariant(1),TVariant("Eenvoudig"));
var_Items->set_CellValue(TVariant(var_Items->InsertItem(h1,TNoParam(),TVariant("Prijs p/uur"))),TVariant(1),TVariant("60,00"));
var_Items->set_CellValue(TVariant(var_Items->InsertItem(h1,TNoParam(),TVariant("Marhe"))),TVariant(1),TVariant("15,00%"));
var_Items->set_CellValue(TVariant(var_Items->InsertItem(h1,TNoParam(),TVariant("Insteltijd min."))),TVariant(1),TVariant("5,00"));
var_Items->set_CellValue(TVariant(var_Items->InsertItem(h1,TNoParam(),TVariant("Aantal"))),TVariant(1),TVariant(1));
var_Items->set_CellValue(TVariant(var_Items->InsertItem(h1,TNoParam(),TVariant("Kostprije"))),TVariant(1),TVariant("5,00"));
var_Items->set_ExpandItem(h1,true);
h1 = var_Items->InsertItem(h,TNoParam(),TVariant("materiall"));
var_Items->set_CellValue(TVariant(h1),TVariant(1),TVariant("14.82"));
var_Items->set_CellBold(TVariant(h1),TVariant(1),true);
var_Items->set_ItemHasChildren(h1,true);
h1 = var_Items->InsertItem(h,TNoParam(),TVariant("snijden"));
var_Items->set_CellValue(TVariant(h1),TVariant(1),TVariant("3.13"));
var_Items->set_CellBold(TVariant(h1),TVariant(1),true);
var_Items->set_ItemHasChildren(h1,true);
var_Items->set_ExpandItem(h,true);
Grid1->EndUpdate();
|
|
1165
|
Dark mode
Grid1->BeginUpdate();
String back = 65536;
String fore = 16777215;
Grid1->VisualAppearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQ") +
"gmPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYTh" +
"dr4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA"));
Grid1->VisualAppearance->Add(2,TVariant(String("gBFLBCJwBAEHhEJAAEhABPMIQAAYAQGKIcBiAKBQAGaAoDDcMgwQwAAxjIKUEwsACEIrjKCYVgOHYYQjGMZwHCMIhiGwcAChEZYHgkMYmDAMUhSE78axHG6PY7kKZ4b") +
"iaKIqQLLEhSfJ0YyBECBZpfebIbjmIZMSLEIxDKItJSpCIaRgqWS6ahGO4JUbUFLQHT9IR4daIYRgEEBA"));
Grid1->VisualAppearance->Add(3,TVariant(String("gBFLBCJwBAEHhEJAAEhABUUIQAAYAQGKIcBiAKBQAGaAoDDcMgwQwAAxjIKUEwsACEIrjKCYVgOHYYQjGMZwGAsEwjAoYAChEaILgkMw2DBIQwgJIMEr/G6RZxjeL5C") +
"jmG4nDhKMpybAcXxjBIYZJgOQpXb+PobTrNNLzfRFAxVAaWJikcZ4HpIAJNVLFdQ0XYMNSBISsBqrKiKcpeIIDWBZMbRZT1ZABCIZBpEW6LahENQwXrCN74DYkNTdKax" +
"bbuaaXLhGCYBgIA=="));
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Bump;
Grid1->BackColor = back;
Grid1->BackColorHeader = back;
Grid1->BackColorLevelHeader = back;
Grid1->BackColorSortBar = back;
Grid1->BackColorSortBarCaption = back;
Grid1->FilterBarBackColor = back;
Grid1->FilterBarForeColor = fore;
Grid1->ForeColor = fore;
Grid1->ForeColorHeader = fore;
Grid1->ForeColorSortBar = fore;
Grid1->SelBackColor = fore;
Grid1->SelForeColor = back;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exHeaderFilterBarButton] = 0x1000000;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exCursorHoverColumn] = -1;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exToolTipAppearance] = 0x3000000;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exToolTipBackColor] = back;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exToolTipForeColor] = fore;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exSelBackColorFilter] = fore;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exSelForeColorFilter] = back;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exBackColorFilter] = back;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exForeColorFilter] = fore;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exSortBarLinkColor] = back;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exScrollSizeGrip] = back;
Grid1->Description[Exgridlib_tlb::DescriptionTypeEnum::exFilterBarExclude] = L"<bgcolor 0><fgcolor ffffff> Exclude </fgcolor></bgcolor>";
Grid1->EndUpdate();
|
|
1164
|
I have changed the font, but the item's height remains the same. What I am doing wrong
Grid1->BeginUpdate();
Grid1->ColumnAutoResize = false;
Grid1->LoadXML(TVariant("http://www.exontrol.net/testing.xml"));
Grid1->Font->Size = TVariant(long(22));
Grid1->HeaderHeight = 42;
Grid1->DefaultItemHeight = 36;
Grid1->Items->set_ItemHeight(0,Grid1->DefaultItemHeight);
Grid1->EndUpdate();
|
|
1163
|
How can I specify the cell's outline, border or lines around, when the cell gets selected
Grid1->BeginUpdate();
Grid1->AttachTemplate(TVariant("handle AddColumn(Column){Column{Def(48)=4;Def(49)=4;}}"));
Exgridlib_tlb::IAppearancePtr var_Appearance = Grid1->VisualAppearance;
var_Appearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABPEGACAADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSpEEg7BKMYwjOJgFgmEQxDANIBQSKoaQiGQYYLhEZAEiONoaDJCM4wH") +
"IMQxHCKTZRkGcfaRCGSfIzpGKpVgOTYiTbPcIyQKtBxDIydJTmeQQQhsFIJU7SdVUPDUJZlWbLAwWTAYazXCKRZBpeJqdo6Y5RUDKUqSdLUYyvEq7ZqnOIpw5vICpaCq" +
"Op6HqKFpiXSAFL1fLmAwvPKrJjoeqpWpyCaRZQAGg4dbEdTNNCIbatQANKrCSpgZ7sMB6Di2L4TPS2awoWgRYyTFZMbBAeQ7LC1c45Fqrd4zS4dSxKCahcLxFiaNpYZY" +
"njUap1jGPJlkuAgAkidB3nceZsCQEQJCgGhMGcQ4pkiSxEAAOYpiQIhvkYNA2gSCg5n+LIoGILowFyXQoAYAoAmASAWAaAZgggJgKF2T54DYDoDmECBGBKBJgGgTgWgW" +
"YRoFYGIGmGOBqByB5hCgegggiYJYgoJIICIaIeByChixULILGGGAWDCCgjCiTgrg0YxojoC4OmOSJ2D6D5kAgJLFgABAEICA="));
var_Appearance->Add(2,TVariant("CP:1 -4 0 0 0"));
Grid1->SelBackColor = 0x2000000;
Grid1->SelForeColor = RGB(0,0,1);
Grid1->FullRowSelect = Exgridlib_tlb::CellSelectEnum::exColumnSel;
Grid1->ShowFocusRect = false;
Grid1->DefaultItemHeight = 24;
Grid1->HeaderHeight = 24;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exVLines;
Grid1->Columns->Add(L"C1");
Grid1->Columns->Add(L"C2");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("Cell 1"))),TVariant(1),TVariant("Cell 2"));
var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("Cell 3"))),TVariant(1),TVariant("Cell 4"));
Grid1->Items->set_SelectPos(TVariant(1));
Grid1->SelectColumnIndex = 1;
Grid1->EndUpdate();
|
|
1162
|
How can I specify the cell's outline, border or lines around, when the item gets selected
Grid1->BeginUpdate();
Grid1->AttachTemplate(TVariant("handle AddColumn(Column){Column{Def(48)=4;Def(49)=4;}}"));
Grid1->VisualAppearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABPEGACAADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSpEEg7BKMYwjOJgFgmEQxDANIBQSKoaQiGQYYLhEZAEiONoaDJCM4wH") +
"IMQxHCKTZRkGcfaRCGSfIzpGKpVgOTYiTbPcIyQKtBxDIydJTmeQQQhsFIJU7SdVUPDUJZlWbLAwWTAYazXCKRZBpeJqdo6Y5RUDKUqSdLUYyvEq7ZqnOIpw5vICpaCq" +
"Op6HqKFpiXSAFL1fLmAwvPKrJjoeqpWpyCaRZQAGg4dbEdTNNCIbatQANKrCSpgZ7sMB6Di2L4TPS2awoWgRYyTFZMbBAeQ7LC1c45Fqrd4zS4dSxKCahcLxFiaNpYZY" +
"njUap1jGPJlkuAgAkidB3nceZsCQEQJCgGhMGcQ4pkiSxEAAOYpiQIhvkYNA2gSCg5n+LIoGILowFyXQoAYAoAmASAWAaAZgggJgKF2T54DYDoDmECBGBKBJgGgTgWgW" +
"YRoFYGIGmGOBqByB5hCgegggiYJYgoJIICIaIeByChixULILGGGAWDCCgjCiTgrg0YxojoC4OmOSJ2D6D5kAgJLFgABAEICA="));
Grid1->SelBackColor = 0x1000000;
Grid1->SelForeColor = RGB(0,0,1);
Grid1->ShowFocusRect = false;
Grid1->DefaultItemHeight = 24;
Grid1->HeaderHeight = 24;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exVLines;
Grid1->Columns->Add(L"C1");
Grid1->Columns->Add(L"C2");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("Cell 1"))),TVariant(1),TVariant("Cell 2"));
var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("Cell 3"))),TVariant(1),TVariant("Cell 4"));
var_Items->set_SelectPos(TVariant(1));
Grid1->EndUpdate();
|
|
1161
|
How can I specify the cell's outline, border or lines around
Grid1->BeginUpdate();
Grid1->AttachTemplate(TVariant("handle AddColumn(Column){Column{Def(48)=4;Def(49)=4;}}"));
Grid1->VisualAppearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABPEGACAADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSpEEg7BKMYwjOJgFgmEQxDANIBQSKoaQiGQYYLhEZAEiONoaDJCM4wH") +
"IMQxHCKTZRkGcfaRCGSfIzpGKpVgOTYiTbPcIyQKtBxDIydJTmeQQQhsFIJU7SdVUPDUJZlWbLAwWTAYazXCKRZBpeJqdo6Y5RUDKUqSdLUYyvEq7ZqnOIpw5vICpaCq" +
"Op6HqKFpiXSAFL1fLmAwvPKrJjoeqpWpyCaRZQAGg4dbEdTNNCIbatQANKrCSpgZ7sMB6Di2L4TPS2awoWgRYyTFZMbBAeQ7LC1c45Fqrd4zS4dSxKCahcLxFiaNpYZY" +
"njUap1jGPJlkuAgAkidB3nceZsCQEQJCgGhMGcQ4pkiSxEAAOYpiQIhvkYNA2gSCg5n+LIoGILowFyXQoAYAoAmASAWAaAZgggJgKF2T54DYDoDmECBGBKBJgGgTgWgW" +
"YRoFYGIGmGOBqByB5hCgegggiYJYgoJIICIaIeByChixULILGGGAWDCCgjCiTgrg0YxojoC4OmOSJ2D6D5kAgJLFgABAEICA="));
Grid1->SelBackMode = Exgridlib_tlb::BackModeEnum::exTransparent;
Grid1->ShowFocusRect = false;
Grid1->DefaultItemHeight = 24;
Grid1->HeaderHeight = 24;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exVLines;
Grid1->Columns->Add(L"C1");
Grid1->Columns->Add(L"C2");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("Cell 1"))),TVariant(1),TVariant("Cell 2"));
long h = var_Items->AddItem(TVariant("Cell 2"));
var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("Cell 3"));
var_Items->set_CellBackColor(TVariant(h),TVariant(1),0x1000000);
Grid1->EndUpdate();
|
|
1160
|
Is it possible to highligth the match while a filter is applied
// AddColumn event - Fired after a new column has been added.
void __fastcall TForm1::Grid1AddColumn(TObject *Sender,Exgridlib_tlb::IColumn *Column)
{
// Column.Def(17) = 1
}
// FilterChange event - Occurs when filter was changed.
void __fastcall TForm1::Grid1FilterChange(TObject *Sender)
{
TVariant format = TVariant(Grid1->FormatABC(L"`value replace '` + value + `' with '<bgcolor 000000><fgcolor FFFFFF>` + value + `</fgcolor></bgcolor>'`",TVariant(Grid1->FilterBarPromptPattern),TNoParam(),TNoParam()));
Grid1->Columns->get_Item(TVariant(0))->FormatColumn = L"format";
Grid1->Columns->get_Item(TVariant(1))->FormatColumn = L"format";
}
Grid1->BeginUpdate();
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exVLines;
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->Columns->Add(L"Col 1");
Grid1->Columns->Add(L"Col 2");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("219 Smith"))),TVariant(1),TVariant("Ignacio 1234"));
var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("1666 County Road 309A"))),TVariant(1),TVariant("897 Manassa"));
var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("38 Lone Pine"))),TVariant(1),TVariant("Durango 11"));
var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("612 Jachim Street"))),TVariant(1),TVariant("Lamar 222"));
Grid1->FilterBarPromptPattern = L"1";
Grid1->FilterBarPromptVisible = Exgridlib_tlb::FilterBarVisibleEnum::exFilterBarCompact | Exgridlib_tlb::FilterBarVisibleEnum::exFilterBarSingleLine | Exgridlib_tlb::FilterBarVisibleEnum::exFilterBarVisible | Exgridlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Grid1->FilterBarPromptType = Exgridlib_tlb::FilterPromptEnum::exFilterPromptCaseSensitive | Exgridlib_tlb::FilterPromptEnum::exFilterPromptContainsAll;
Grid1->EndUpdate();
|
|
1159
|
How can I replace the cell's context menu ( while edit mode is running )
// RClick event - Fired when right mouse button is clicked
void __fastcall TForm1::Grid1RClick(TObject *Sender)
{
OutputDebugString( L"Edit Mode: " );
OutputDebugString( PChar(Grid1->Editing) );
/*
Select the Component\Import Component...\Import a Type Library,
to import the following Type Library:
ExContextMenu 1.0 Type Library
TypeLib: ExContextMenu.dll
to define the namespace: Excontextmenulib_tlb
*/
//#include "EXCONTEXTMENULIB_TLB.h"
Excontextmenulib_tlb::IExContextMenuPtr var_ExContextMenu = Variant::CreateObject(L"Exontrol.ContextMenu");
var_ExContextMenu->Items->ToString = L"Check[chk],[sep],Item 1,Item 2,Item 3,Popup(A,B,C)";
OutputDebugString( PChar(var_ExContextMenu->Select(TNoParam(),TNoParam(),TNoParam())) );
}
Grid1->BeginUpdate();
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Flat;
Exgridlib_tlb::IEditorPtr var_Editor = Grid1->Columns->Add(L"Column")->Editor;
var_Editor->EditType = Exgridlib_tlb::EditTypeEnum::EditType;
var_Editor->set_Option(Exgridlib_tlb::EditorOptionEnum::exEditAllowContextMenu,TVariant(false));
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->AddItem(TVariant("Item 1"));
var_Items->AddItem(TVariant("Item 2"));
Grid1->EndUpdate();
|
|
1158
|
Is it possible to highlight the column's header once a filter is applied (sample 2)
Grid1->BeginUpdate();
Exgridlib_tlb::IAppearancePtr var_Appearance = Grid1->VisualAppearance;
var_Appearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABO8GACAADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwQgmNYDSBMcbwS") +
"AsXRYFocJ5gOT6AjKBA2UclEZpajiTY3ABUEgUS5oOBIACqariaQJAAiCRQGiYZyHKaRSwPBKFYDIIjbJheTIDChNVxUcDENQjJqLBIDRzbarye59YBfeBXdgmA4LQbD" +
"MRwNgMMQTDqKYbkOQZHbeGKAWTMEZzJj8cxTEqIaBhGTLfojSZMS7UGK1LLtMyHI6kP7sOiLfi2W4/W7XV72F79TzXIa2ZBuO57bhnAZ/VzGNj4PRNezfRqicjsGxcZw" +
"Xg+TpQj0ew6gSOw7wSbozjsfYXi8PwMnSc52leHotl+MxjmoXh2nybxOH+SQtnYXx+D2P4vGMB56hQf5PCgBYeDwYBCEo1xggebgKH6IIDBYBgkiAQ5FgYPAhEIRgWGq" +
"DBoC4GoCiGCBYhGBQPAWdIQp0eIUiWCZigiJgqgqYpIioJQhmIMhBH0NxjEMag2g2Y4ImYOoOmOSJeDQNxXlOLR3ECUAQICA="));
var_Appearance->Add(2,TVariant(String("gBFLBCJwBAEHhEJAAEhABgsHQAAYAQGKIcBiAKBQAGaAoDDYNwwQwAAxDAKcEwsACEIrjKCRShyCYZRrGUgRCKQahLEiTIhGUYJHgmK4tRoAUgxWCEExrAaQJjjeCQF") +
"i6LAtDhPMByfQEZQIGyjkgjNLUcSbG4AKgkCiXfpUAJVP7FcgSABEEigNIxToOU4jFgeCYLQKQRK2RC9GQGFCbLhpYKIahGTYWVheN5XXblez9P7ABQwKCcAwXBp7YIK" +
"AT4XBIdYdQ7IL4xGA0AJPFoJC7mOQ5XiYAIBAZ/RL0LCcbxHHafVboQj6JouD5PUDVNY1XBdPynI6CbLhWy6Dq4UZzPwzeBifSHfDjRoJcCZe71KY3GwSEboNA6Kp+QB" +
"HAmZoZjSPYIEiF47lOLJVnuYofBwJJHmaQoYj0MIRHeM4/m6cJ8B+fpBHQJ5SGKPYYH8OYMk+P5Bn4fxaAYZAvEIX4RgUWBGgCCAmAqApgkgNgOgMEYlGASoEkQeBWBa" +
"BZhggZgagaYRoEwShWA6NZZAMQBAICA=="));
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exHeaderFilterBarButton] = 0x1000000;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exHeaderFilterBarActive] = 0x2000000;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exCursorHoverColumn] = -1;
Grid1->HeaderHeight = 28;
Grid1->BackColorHeader = RGB(255,255,255);
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exRowLines;
Grid1->HeaderVisible = true;
Exgridlib_tlb::IColumnsPtr var_Columns = Grid1->Columns;
var_Columns->Add(L"C1")->DisplayFilterButton = true;
Exgridlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"C2");
var_Column->DisplayFilterButton = true;
var_Column->Filter = L"Item 2";
var_Column->FilterType = Exgridlib_tlb::FilterTypeEnum::exFilter;
var_Columns->Add(L"C3")->DisplayFilterButton = true;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
long h = var_Items->AddItem(TVariant("Item 1"));
var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("Item 2"));
var_Items->set_CellValue(TVariant(h),TVariant(2),TVariant("Item 3"));
h = var_Items->AddItem(TVariant("Item 4"));
var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("Item 5"));
var_Items->set_CellValue(TVariant(h),TVariant(2),TVariant("Item 6"));
Grid1->ApplyFilter();
Grid1->EndUpdate();
|
|
1157
|
How can I make the expand/collapse glyphs DPI aware
String size = 2;
Grid1->BeginUpdate();
Exgridlib_tlb::IAppearancePtr var_Appearance = Grid1->VisualAppearance;
var_Appearance->Add(3,TVariant(String("gBFLBCJwBAEHhEJAAEhEGAUHQAAYAQGKIcBiAKBQAGaAoDDYOA4QwAAxDAKcEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBRfIUEghGyNZjgNzQc") +
"CQAI8T5IUgARBJIDSMY6DpOIxYHgmC4DEITNLxOK0EhRHCBZrgOCAYhqEY1Ro+dhPFYjVTMdK0LRtKy7Mq2aJmOpZDxWE7dZKpO5fbxXS67cr2fp/YBed4rfa7KTlOBK" +
"cRQRBEFQPDqPZBkORZHh2FoLRJKbgtHJmHYNQWhVyYBbNCyTI6lahpeuHBx1QaWWxjbCMEr6bpoWLbFi3Ha1UzrPa8b5vSw7Gr+HzYQTHGPXGqaYJdZrnea6B7+U5XUJ" +
"rnSOZciYHwhAeR5HDK+JVGqKRRmScx5HyfRei+H5bmmcp4Fi8o/CGGJKGQKZUGoFQigUPIiCeSZXnyHB6l0SAJn8JxfkIeZ5CgXxjCCAhyB8QgIlAM4MlKAIcCaIBIGY" +
"GoGGEYhqBMMxgnICgRDUDQjESGwmAkWBuCqBoiHIVgkDQYgYESWg2E0YhohcJQigITg3CQSRyEyEYGGOWJwhQJD4FiFIMk0aJFGsIBkkOBJeDc+AchYJwJgIWhSgYZQp" +
"FIVoVGOGQ4l2EwIBWMhgDmDhThCEwkAiaJchKDhjhgZhsCUY4iFCEoZkiaYQmSGAWhWQhgDuDpTjCDQiEgchAg0IpJBoDoFiEKBqCaCAimgIguH8IZnkPUhcBcJg+hGJ" +
"ZnloYJsiaKZKGa24YnWSR0CkKhCA2CxlCqColhAYpqEKER0DqVZ0A0ASAgA=="));
var_Appearance->Add(4,TVariant(String("gBFLBCJwBAEHhEJAAEhABAQCg6AADACAxRDgMQBQKAAzQFAYbBwHCGAAGIYBTgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACjeQYJBCNYbTJAbqhY") +
"IgAR3HqQZABCCSQKkYx0HScRiwPBMFwGIQmaaicZoJCiN4DTZAcIBRDUIxpDR9bBeKw3KqVaZnWhaNpWXZlTzKdSxXisF67RZSdi/XgvF5XXblez9P69LwXe5mUrGbyV" +
"YghCCIKgeG4dR7IMhyLDcKQXCCVW7aGSsOwbAqAXpdGAXTQdDyLJKnaZqOi6BjjA4rNbHGIYJb1XTRMa1LJuG5LJrOeZ3Xre4BLfh1VoFRpjWIYNY1QS7TLOczzfRdDx" +
"TiGVpkjCeJoD4Ng1hSRxiisVRKg8D4PkWZJznmPQ+F8Xx5guWpjHGWYMiYQodEaIRSCgU5KCSeh3naHB/iAAh9n8fwfgIeZ1CgXwjCCAhxl8AgIlAM4MlKAIcCaD54FY" +
"FoFmGCBmBaBIJigPJNgKSAoDSVC+BIbIYCUYYoiYKoJgkWIMlGCAglMaJZDWCYiFyFIJkkOJYhEJc7G4PYPCOaJshQJBjgiVIUgyDRokEaggGSQ4El4N1CBiFgnAmAha" +
"FKFZlFkShUhWJRYmITg3GSQgFGuGBOGOFJkCSSQCDoNgkiOCY0hUJJmmmQhvhqZtYmUOQmBWIRvhgTpjjSbAjEiEgchBZgyEaBIhigWgegqIhIjoDILiACB5nTL5WnWR" +
"YOiSKYJnqGQ7CmOh2hqJ5OkYORxFyShKhSAxihkOomioY5YiqFIkFyTo1HkAxAEAgIA=="));
var_Appearance->Add(1,TVariant(Grid1->FormatABC(L"`CP:3 -` + int(value*dpi) + ` -` + int(value*dpi) + ` ` + int(value*dpi) + ` ` + int(value*dpi)",TVariant(size),TNoParam(),TNoParam())));
var_Appearance->Add(2,TVariant(Grid1->FormatABC(L"`CP:4 -` + int(value*dpi) + ` -` + int(value*dpi) + ` ` + int(value*dpi) + ` ` + int(value*dpi)",TVariant(size),TNoParam(),TNoParam())));
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exGroupLinesAtRoot;
Grid1->HasButtons = Exgridlib_tlb::ExpandButtonEnum::exCustom;
Grid1->HasButtonsCustom[false] = 16777216;
Grid1->HasButtonsCustom[true] = 33554432;
Grid1->Columns->Add(L"Column");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
long h = var_Items->AddItem(TVariant("Root 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(h,true);
h = var_Items->AddItem(TVariant("Root 2"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child"));
Grid1->EndUpdate();
|
|
1156
|
Is it possible to highlight the column's header once a filter is applied (sample 1)
Grid1->BeginUpdate();
Exgridlib_tlb::IAppearancePtr var_Appearance = Grid1->VisualAppearance;
var_Appearance->Add(2,TVariant(String("gBFLBCJwBAEHhEJAAEhABX8GACAADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwYgmNYiTLAcgAN") +
"J0WBaGIZJ4gOT5fDKMoEDRRYADFCscwxJybQAqGQKKb+VgAVY/cTyBIAEQSKA0TDOQ5TSKWB4JPZQRBEbZMNBtBIUJquKaqShdQJCU5FdY3Xblez9P7AMBwLFEC4NQ8Y" +
"NYuPhjR4dRTIMhvVAsUArFh8Zg9GZZFjmDIDT4ydBLTQwcyVIKnP5qOa6XbmPoCQDYKxZHYxPzVDa3axuL76dqCAT7XrXNy1TbNRrzQKfcJqfCbdw2YaDZLOOT3fjuI4" +
"hhKaRzFAHJ+jYQ4xHuY4gHuGIXGeExqC8Tp6C+PoEm+G5ImycRgh0XwvDGa5rgOeoejyXwnFeQp2mkf5ClgBB9gCWIYAwfYAEKV58mkdwOggNArgOXY2EWLoDkKOA0mg" +
"bhOGgZApgaSBIHWSYHSmbApgYThmESZYJkIeIkgeCpfliLIHgpMIcmUYYYmODAlg2SI4mWfRfGOEguDcCRjFYAJihCQhJBSDoRmONgKEcI4kFCEJhhOVYTmYnAlEAQhW" +
"BMJYJGYWoWmWSR2F6F5lnkWAQhUAgpEieRWEuSYkjWGpmkmNhuhuZwJkYcocmaaYkjyEhngnUA6lEFAlAEgI="));
var_Appearance->Add(1,TVariant("CP:2 -8 -4 2 4"));
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exHeaderFilterBarButton] = 0x1fefefe;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exHeaderFilterBarActive] = 0x1010101;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exCursorHoverColumn] = -1;
Grid1->HeaderHeight = 28;
Grid1->BackColorHeader = RGB(255,255,255);
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exRowLines;
Grid1->HeaderVisible = true;
Exgridlib_tlb::IColumnsPtr var_Columns = Grid1->Columns;
var_Columns->Add(L"C1")->DisplayFilterButton = true;
Exgridlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"C2");
var_Column->DisplayFilterButton = true;
var_Column->Filter = L"Item 2";
var_Column->FilterType = Exgridlib_tlb::FilterTypeEnum::exFilter;
var_Columns->Add(L"C3")->DisplayFilterButton = true;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
long h = var_Items->AddItem(TVariant("Item 1"));
var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("Item 2"));
var_Items->set_CellValue(TVariant(h),TVariant(2),TVariant("Item 3"));
h = var_Items->AddItem(TVariant("Item 4"));
var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("Item 5"));
var_Items->set_CellValue(TVariant(h),TVariant(2),TVariant("Item 6"));
Grid1->ApplyFilter();
Grid1->EndUpdate();
|
|
1155
|
How do I update itemcount and matchitemcount of the FilterBarCaption after I added the item using the AddItem method
// Click event - Occurs when the user presses and then releases the left mouse button over the grid control.
void __fastcall TForm1::Grid1Click(TObject *Sender)
{
Grid1->Items->AddItem(TVariant("new"));
Grid1->Refresh();
}
Grid1->BeginUpdate();
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Item");
var_Column->DisplayFilterButton = true;
var_Column->FilterList = Exgridlib_tlb::FilterListEnum::exShowExclude | Exgridlib_tlb::FilterListEnum::exShowFocusItem | Exgridlib_tlb::FilterListEnum::exShowCheckBox | Exgridlib_tlb::FilterListEnum::exSortItemsAsc;
Exgridlib_tlb::IColumnPtr var_Column1 = Grid1->Columns->Add(L"Pos");
var_Column1->AllowSizing = false;
var_Column1->AllowSort = false;
var_Column1->Width = 32;
var_Column1->FormatColumn = L"1 apos ``";
var_Column1->Position = 0;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->AddItem(TVariant("Item A"));
var_Items->AddItem(TVariant("Item B"));
var_Items->AddItem(TVariant("Item C"));
Grid1->FilterBarCaption = TVariant(String("`<r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount + 1") +
") + ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )");
Grid1->FilterBarPromptVisible = Exgridlib_tlb::FilterBarVisibleEnum::exFilterBarCompact | Exgridlib_tlb::FilterBarVisibleEnum::exFilterBarShowCloseOnRight | Exgridlib_tlb::FilterBarVisibleEnum::exFilterBarShowCloseIfRequired | Exgridlib_tlb::FilterBarVisibleEnum::exFilterBarCaptionVisible | Exgridlib_tlb::FilterBarVisibleEnum::exFilterBarVisible | Exgridlib_tlb::FilterBarVisibleEnum::exFilterBarPromptVisible;
Grid1->EndUpdate();
|
|
1154
|
I can't get values in the column properly centered. What can be the problem
Grid1->BeginUpdate();
Grid1->TreeColumnIndex = -1;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exRowLines;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Default");
var_Column->Alignment = Exgridlib_tlb::AlignmentEnum::CenterAlignment;
var_Column->FormatColumn = L"ltrim(rtrim(value))";
Grid1->Items->AddItem(TVariant("item 1 "));
Grid1->Items->AddItem(TVariant(" item 2"));
Grid1->Items->AddItem(TVariant(" item 3 "));
Grid1->EndUpdate();
|
|
1153
|
The Edit method does not work while ReadOnly property is exLocked and the first column is hidden. Is there any fix
// DblClick event - Occurs when the user dblclk the left mouse button over an object.
void __fastcall TForm1::Grid1DblClick(TObject *Sender,short Shift,int X,int Y)
{
long var_ItemFromPoint = Grid1->ItemFromPoint[-1,-1,c,hit];
Grid1->FocusColumnIndex = c;
Grid1->Edit(TNoParam());
}
Grid1->BeginUpdate();
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->AutoEdit = false;
Grid1->ReadOnly = Exgridlib_tlb::ReadOnlyEnum::exLocked;
Grid1->AutoSearch = true;
Grid1->Columns->Add(L"")->Visible = false;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Contains");
var_Column->AutoSearch = Exgridlib_tlb::AutoSearchEnum::exContains;
var_Column->Editor->EditType = Exgridlib_tlb::EditTypeEnum::EditType;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->set_CellValue(TVariant(var_Items->AddItem(TNoParam())),TVariant(1),TVariant("Tom Hanks"));
var_Items->set_CellValue(TVariant(var_Items->AddItem(TNoParam())),TVariant(1),TVariant("Leonardo DiCaprio"));
var_Items->set_CellValue(TVariant(var_Items->AddItem(TNoParam())),TVariant(1),TVariant("Will Smith"));
var_Items->set_CellValue(TVariant(var_Items->AddItem(TNoParam())),TVariant(1),TVariant("Tom Cruise"));
Grid1->EndUpdate();
|
|
1152
|
How can I enable the Undo/Redo feature
Grid1->BeginUpdate();
Grid1->AllowUndoRedo = true;
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"P1");
var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
var_Column->PartialCheck = true;
Exgridlib_tlb::IColumnPtr var_Column1 = Grid1->Columns->Add(L"P2");
var_Column1->set_Def(Exgridlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
var_Column1->PartialCheck = true;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
long h = var_Items->AddItem(TVariant("Root"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(h,true);
var_Items->AddItem(TVariant("Press CTRL + Z for Undo, and CTRL + Y for Redo"));
Grid1->EndUpdate();
|
|
1151
|
The incremental search feature is no working for columns with editor assigned. What can be done
// DblClick event - Occurs when the user dblclk the left mouse button over an object.
void __fastcall TForm1::Grid1DblClick(TObject *Sender,short Shift,int X,int Y)
{
Grid1->Edit(TNoParam());
}
Grid1->BeginUpdate();
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->AutoEdit = false;
Grid1->AutoSearch = true;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Contains");
var_Column->AutoSearch = Exgridlib_tlb::AutoSearchEnum::exContains;
var_Column->Editor->EditType = Exgridlib_tlb::EditTypeEnum::EditType;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->AddItem(TVariant("Tom Hanks"));
var_Items->AddItem(TVariant("Leonardo DiCaprio"));
var_Items->AddItem(TVariant("Will Smith"));
var_Items->AddItem(TVariant("Tom Cruise"));
Grid1->EndUpdate();
|
|
1150
|
Each item is representated by a key as string. Is it possible to have a drop down editor to display more information when using the item's key
Grid1->BeginUpdate();
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Exgridlib_tlb::IEditorPtr var_Editor = Grid1->Columns->Add(L"Multiple-Columns Tree DropDownListType")->Editor;
var_Editor->EditType = Exgridlib_tlb::EditTypeEnum::DropDownListType;
var_Editor->AddItem(0,L"KR|Korea, Republic of",TNoParam());
var_Editor->AddItem(1,L"MO|Macao",TNoParam());
var_Editor->AddItem(2,L"SA|Saudi Arabia",TNoParam());
var_Editor->AddItem(3,L"EG|Egypt",TNoParam());
var_Editor->AddItem(4,L"GB|United Kingdom",TNoParam());
var_Editor->AddItem(5,L"GT|Guatemala",TNoParam());
var_Editor->AddItem(6,L"SR|Suriname",TNoParam());
var_Editor->AddItem(7,L"BM|Bermuda",TNoParam());
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->AddItem(TVariant("EG"));
var_Items->AddItem(TVariant("GB"));
var_Items->AddItem(TVariant("BM"));
Grid1->EndUpdate();
|
|
1149
|
My table includes codes/keys for items, can I display a drop down editor to include more information
Grid1->BeginUpdate();
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Exgridlib_tlb::IEditorPtr var_Editor = Grid1->Columns->Add(L"Multiple-Columns DropDownListType")->Editor;
var_Editor->EditType = Exgridlib_tlb::EditTypeEnum::DropDownListType;
var_Editor->DropDownAutoWidth = Exgridlib_tlb::DropDownWidthType::exDropDownEditorWidth;
var_Editor->set_Option(Exgridlib_tlb::EditorOptionEnum::exDropDownColumnCaption,TVariant("City¦Coordinates¦State"));
var_Editor->AddItem(0,L"JV3|Jollyville¦3026N 09746W¦Texas",TNoParam());
var_Editor->AddItem(1,L"TMO|Altamont¦4021N 11017W¦Utah",TNoParam());
var_Editor->AddItem(2,L"IIM|Williamston¦4241N 08417W¦Michigan",TNoParam());
var_Editor->AddItem(3,L"IWN|Merrittstown¦3958N 07952W¦Pennsylvania",TNoParam());
var_Editor->AddItem(4,L"HOU|Houston¦2945N 09521W¦Texas",TNoParam());
var_Editor->AddItem(5,L"GSF|Gales Ferry¦4125N 07205W¦Connecticut",TNoParam());
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->AddItem(TVariant("HOU"));
var_Items->AddItem(TVariant("IIM"));
var_Items->AddItem(TVariant("TMO"));
Grid1->EndUpdate();
|
|
1148
|
How can I display and select from a multiple-columns tree editor
Grid1->BeginUpdate();
Grid1->Images(TVariant(String("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq") +
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="));
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Exgridlib_tlb::IEditorPtr var_Editor = Grid1->Columns->Add(L"Multiple-Columns Tree DropDownListType")->Editor;
var_Editor->EditType = Exgridlib_tlb::EditTypeEnum::DropDownListType;
var_Editor->DropDownAutoWidth = Exgridlib_tlb::DropDownWidthType::exDropDownEditorWidth;
var_Editor->set_Option(Exgridlib_tlb::EditorOptionEnum::exDropDownColumnCaption,TVariant("Name¦Title¦City¦Phone"));
var_Editor->set_Option(Exgridlib_tlb::EditorOptionEnum::exDropDownColumnWidth,TVariant("224¦¦¦96"));
var_Editor->AddItem(1,L"Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857",TVariant(1));
var_Editor->AddItem(2,L"Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482",TVariant(2));
var_Editor->InsertItem(3,L"Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412",TVariant(3),TVariant(2));
var_Editor->InsertItem(4,L"Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122",TVariant(3),TVariant(2));
var_Editor->InsertItem(5,L"Steven Buchanan¦Sales Manager¦London¦(71) 555-4848",TVariant(2),TVariant(2));
var_Editor->InsertItem(6,L"Michael Suyama¦Sales Representative¦London¦(71) 555-7773",TVariant(1),TVariant(5));
var_Editor->InsertItem(7,L"Robert King¦Sales Representative¦Kirkland¦(71) 555-5598",TVariant(2),TVariant(2));
var_Editor->InsertItem(8,L"Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189",TVariant(3),TVariant(2));
var_Editor->InsertItem(9,L"Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444",TVariant(2),TVariant(5));
var_Editor->ExpandAll();
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->AddItem(TVariant(1));
var_Items->AddItem(TVariant(2));
var_Items->AddItem(TVariant(4));
Grid1->EndUpdate();
|
|
1147
|
Does you control support multiple-columns for a drop down editor
Grid1->BeginUpdate();
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Exgridlib_tlb::IEditorPtr var_Editor = Grid1->Columns->Add(L"Multiple-Columns DropDownListType")->Editor;
var_Editor->EditType = Exgridlib_tlb::EditTypeEnum::DropDownListType;
var_Editor->DropDownAutoWidth = Exgridlib_tlb::DropDownWidthType::exDropDownEditorWidth;
var_Editor->AddItem(0,L"Jollyville¦JV3¦3026N 09746W¦TX",TNoParam());
var_Editor->AddItem(1,L"Altamont¦TMO¦4021N 11017W¦UT",TNoParam());
var_Editor->AddItem(2,L"Williamston¦IIM¦4241N 08417W¦MI",TNoParam());
var_Editor->AddItem(3,L"Merrittstown¦IWN¦3958N 07952W¦PA",TNoParam());
var_Editor->AddItem(4,L"Houston¦HOU¦2945N 09521W¦TX",TNoParam());
var_Editor->AddItem(5,L"Gales Ferry¦GSF¦4125N 07205W¦CT",TNoParam());
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->InsertItem(0,TVariant(""),TVariant(1));
var_Items->InsertItem(0,TVariant(""),TVariant(2));
var_Items->InsertItem(0,TVariant(""),TVariant(4));
Grid1->EndUpdate();
|
|
1146
|
Is it possible to show the filterbar on top of the rows
Grid1->BeginUpdate();
Grid1->FilterBarPromptVisible = Exgridlib_tlb::FilterBarVisibleEnum::exFilterBarTop;
Grid1->HeaderHeight = 24;
Grid1->FilterBarHeight = Grid1->HeaderHeight;
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Flat;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exAllLines;
Grid1->GridLineStyle = Exgridlib_tlb::GridLinesStyleEnum::exGridLinesGeometric;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Column");
var_Column->DisplayFilterButton = true;
var_Column->FilterType = Exgridlib_tlb::FilterTypeEnum::exPattern;
var_Column->Filter = L"B*";
Exgridlib_tlb::IColumnPtr var_Column1 = Grid1->Columns->Add(L"Index");
var_Column1->FormatColumn = L"1 index ``";
var_Column1->Position = 0;
var_Column1->Width = 48;
var_Column1->AllowSizing = false;
var_Column1->SortType = Exgridlib_tlb::SortTypeEnum::SortNumeric;
var_Column1->set_Def(Exgridlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->AddItem(TVariant("A.1"));
var_Items->AddItem(TVariant("A.2"));
var_Items->AddItem(TVariant("B.1"));
var_Items->AddItem(TVariant("B.2"));
var_Items->AddItem(TVariant("B.3"));
var_Items->AddItem(TVariant("C"));
Grid1->ApplyFilter();
Grid1->EndUpdate();
|
|
1145
|
DragDrop (with visual effect)
// OLEDragDrop event - Occurs when a source component is dropped onto a target component when the source component determines that a drop can occur.
void __fastcall TForm1::Grid1OLEDragDrop(TObject *Sender,Exgridlib_tlb::IExDataObject *Data,long * Effect,short Button,short Shift,int X,int Y)
{
// SelectItem(InsertItem(i,, Data.GetData(1))) = True
long i = Grid1->ItemFromPoint[-1,-1,c,hit];
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->set_ExpandItem(i,true);
}
// OLEStartDrag event - Occurs when the OLEDrag method is called.
void __fastcall TForm1::Grid1OLEStartDrag(TObject *Sender,Exgridlib_tlb::IExDataObject *Data,long * AllowedEffects)
{
// Data.SetData(Me.Items.CellCaption(FocusItem, 0), 1)
AllowedEffects = 1;
}
Grid1->VisualAppearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABPUIQAAYAQGKIcBiAKBQAGaAoDgYN4MAANAwjJBMKgBBCLIxhEYobgmGIaRjEEQDCKYcxHCaIBiGcaIfDEBIeSBHcgRbAcOQHGSZZBhGRJG") +
"juKIbSrLICzBDUcRnGwAKQoaaaEomHwyAZOYwDAIoWhpKKCKjqWJKNb+XgAAJTES0RRVRTNAZ1YghGAQgIA=="));
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exListOLEDropPosition] = 0x1000000;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exDragDropBefore] = RGB(0,0,0);
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exDragDropAfter] = RGB(255,255,255);
Grid1->OLEDropMode = Exgridlib_tlb::exOLEDropModeEnum::exOLEDropManual;
Grid1->AutoDrag = Exgridlib_tlb::AutoDragEnum::exAutoDragPositionAnyOnRight;
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Grid1->Indent = 16;
Grid1->SelBackMode = Exgridlib_tlb::BackModeEnum::exTransparent;
Grid1->Columns->Add(L"Default");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
long h = var_Items->AddItem(TVariant("Root"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(h,true);
OutputDebugString( L"You can:" );
OutputDebugString( L"A) left-click to drag and drop items between controls (open a new exhelper and run the same sample)" );
OutputDebugString( L"B) right-click to re-arrange the item position inside the same control" );
OutputDebugString( L"This sample shows how you can insert the data being dropped as a child of the item being hovered." );
|
|
1144
|
DragDrop (with no visual effect, hide item while drag and drop)
// OLEDragDrop event - Occurs when a source component is dropped onto a target component when the source component determines that a drop can occur.
void __fastcall TForm1::Grid1OLEDragDrop(TObject *Sender,Exgridlib_tlb::IExDataObject *Data,long * Effect,short Button,short Shift,int X,int Y)
{
// SelectItem(InsertItem(i,, Data.GetData(1))) = True
long i = Grid1->ItemFromPoint[-1,-1,c,hit];
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->set_ExpandItem(i,true);
}
// OLEStartDrag event - Occurs when the OLEDrag method is called.
void __fastcall TForm1::Grid1OLEStartDrag(TObject *Sender,Exgridlib_tlb::IExDataObject *Data,long * AllowedEffects)
{
// Data.SetData(Me.Items.CellCaption(FocusItem, 0), 1)
AllowedEffects = 1;
}
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exDragDropBefore] = RGB(0,0,0);
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exDragDropAfter] = RGB(255,255,255);
Grid1->OLEDropMode = Exgridlib_tlb::exOLEDropModeEnum::exOLEDropManual;
Grid1->AutoDrag = Exgridlib_tlb::AutoDragEnum::exAutoDragPositionAnyOnRight;
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Grid1->Indent = 16;
Grid1->SelBackMode = Exgridlib_tlb::BackModeEnum::exTransparent;
Grid1->Columns->Add(L"Default");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
long h = var_Items->AddItem(TVariant("Root"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(h,true);
OutputDebugString( L"You can:" );
OutputDebugString( L"A) left-click to drag and drop items between controls (open a new exhelper and run the same sample)" );
OutputDebugString( L"B) right-click to re-arrange the item position inside the same control" );
OutputDebugString( L"This sample shows how you can insert the data being dropped as a child of the item being hovered." );
|
|
1143
|
DragDrop
// OLEDragDrop event - Occurs when a source component is dropped onto a target component when the source component determines that a drop can occur.
void __fastcall TForm1::Grid1OLEDragDrop(TObject *Sender,Exgridlib_tlb::IExDataObject *Data,long * Effect,short Button,short Shift,int X,int Y)
{
// SelectItem(InsertItem(i,, Data.GetData(1))) = True
long i = Grid1->ItemFromPoint[-1,-1,c,hit];
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->set_ExpandItem(i,true);
}
// OLEStartDrag event - Occurs when the OLEDrag method is called.
void __fastcall TForm1::Grid1OLEStartDrag(TObject *Sender,Exgridlib_tlb::IExDataObject *Data,long * AllowedEffects)
{
// Data.SetData(Me.Items.CellCaption(FocusItem, 0), 1)
AllowedEffects = 1;
}
Grid1->OLEDropMode = Exgridlib_tlb::exOLEDropModeEnum::exOLEDropManual;
Grid1->AutoDrag = Exgridlib_tlb::AutoDragEnum::exAutoDragPositionAnyOnRight;
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Grid1->Indent = 16;
Grid1->SelBackMode = Exgridlib_tlb::BackModeEnum::exTransparent;
Grid1->Columns->Add(L"Default");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
long h = var_Items->AddItem(TVariant("Root"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(h,true);
OutputDebugString( L"You can:" );
OutputDebugString( L"A) left-click to drag and drop items between controls (open a new exhelper and run the same sample)" );
OutputDebugString( L"B) right-click to re-arrange the item position inside the same control" );
OutputDebugString( L"This sample shows how you can insert the data being dropped as a child of the item being hovered." );
|
|
1142
|
Is there anyway to stop the header changing colour when the mouse hovers/moves across the column header (non-clickable)
Grid1->BeginUpdate();
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Exgridlib_tlb::IColumnsPtr var_Columns = Grid1->Columns;
var_Columns->Add(L"Item");
Exgridlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"Pos");
var_Column->Position = 0;
var_Column->Width = 32;
var_Column->AllowSizing = false;
var_Column->FormatColumn = L"1 index ``";
var_Column->AllowSort = false;
var_Column->AllowDragging = false;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->AddItem(TVariant("Item A"));
var_Items->AddItem(TVariant("Item B"));
var_Items->AddItem(TVariant("Item C"));
Grid1->EndUpdate();
|
|
1141
|
Is there anyway to stop the header changing colour when the mouse hovers/moves across the column header
Grid1->BeginUpdate();
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exCursorHoverColumn] = -1;
Exgridlib_tlb::IColumnsPtr var_Columns = Grid1->Columns;
var_Columns->Add(L"Item");
Exgridlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"Pos");
var_Column->Position = 0;
var_Column->Width = 32;
var_Column->AllowSizing = false;
var_Column->FormatColumn = L"1 index ``";
var_Column->AllowSort = false;
var_Column->AllowDragging = false;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->AddItem(TVariant("Item A"));
var_Items->AddItem(TVariant("Item B"));
var_Items->AddItem(TVariant("Item C"));
Grid1->EndUpdate();
|
|
1140
|
Is it possible to exclude the parent/child items when do the filtering, so to include only items that match the filter without any indentation
// FilterChange event - Occurs when filter was changed.
void __fastcall TForm1::Grid1FilterChange(TObject *Sender)
{
Grid1->Indent = Grid1->FormatABC(L"value > 0 ? 18 : 0",->Items->MatchItemCount,TNoParam(),TNoParam());
}
Grid1->BeginUpdate();
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Grid1->Indent = 18;
Grid1->FilterInclude = Exgridlib_tlb::FilterIncludeEnum::exMatchingItemsOnly;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exVLines;
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Flat;
Exgridlib_tlb::IColumnsPtr var_Columns = Grid1->Columns;
Exgridlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"Column");
var_Column->DisplayFilterButton = true;
var_Column->FilterType = Exgridlib_tlb::FilterTypeEnum::exFilter;
var_Column->FilterList = Exgridlib_tlb::FilterListEnum::exShowCheckBox;
var_Column->Filter = L"C1";
Exgridlib_tlb::IColumnPtr var_Column1 = var_Columns->Add(L"Pos");
var_Column1->FormatColumn = L"1 rindex ``";
var_Column1->Position = 0;
var_Column1->AllowSizing = false;
var_Column1->AllowDragging = false;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
long h = var_Items->AddItem(TVariant("R1"));
long h2 = var_Items->InsertItem(h,TNoParam(),TVariant("S"));
var_Items->InsertItem(h2,TNoParam(),TVariant("C1"));
var_Items->InsertItem(h2,TNoParam(),TVariant("C2"));
var_Items->InsertItem(h,TNoParam(),TVariant("C1"));
var_Items->InsertItem(h,TNoParam(),TVariant("C2"));
var_Items->set_ExpandItem(h,true);
h = var_Items->AddItem(TVariant("R2"));
var_Items->InsertItem(h,TNoParam(),TVariant("C1"));
var_Items->InsertItem(h,TNoParam(),TVariant("C2"));
Grid1->ApplyFilter();
Grid1->EndUpdate();
|
|
1139
|
How can I display the total/sum/aggregate in the same column, when the user groups by a column
// AddColumn event - Fired after a new column has been added.
void __fastcall TForm1::Grid1AddColumn(TObject *Sender,Exgridlib_tlb::IColumn *Column)
{
}
// AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
void __fastcall TForm1::Grid1AddGroupItem(TObject *Sender,Exgridlib_tlb::HITEM Item)
{
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->set_ItemDivider(Item,-1);
var_Items->set_ItemBackColor(Item,Grid1->BackColorSortBar);
var_Items->set_ItemHeight(Item,Grid1->HeaderHeight);
var_Items->set_CellMerge(TVariant(Item),TVariant(0),TVariant("1,2,3,4,5,7,8,9,10,11,12"));
var_Items->set_CellValue(TVariant(Item),TVariant(13),TVariant("count(current,rec,1)"));
var_Items->set_CellValueFormat(TVariant(Item),TVariant(13),Exgridlib_tlb::ValueFormatEnum::exTotalField | Exgridlib_tlb::ValueFormatEnum::exHTML);
var_Items->set_CellValue(TVariant(Item),TVariant(0),TVariant(var_Items->get_CellCaption(TVariant(Item),TVariant(var_Items->get_GroupItem(Item)))));
var_Items->set_FormatCell(TVariant(Item),TVariant(0),L"`<b>` + value + `</b> <font ;7><off 3><fgcolor=808080>(` + %13 + `)`");
var_Items->set_CellValue(TVariant(Item),TVariant(6),TVariant("sum(current,all,dbl(%6))"));
var_Items->set_CellValueFormat(TVariant(Item),TVariant(6),Exgridlib_tlb::ValueFormatEnum::exTotalField | Exgridlib_tlb::ValueFormatEnum::exHTML);
var_Items->set_CellForeColor(TVariant(Item),TVariant(6),RGB(102,102,102));
}
// Change event - Occurs when the user changes the cell's content.
void __fastcall TForm1::Grid1Change(TObject *Sender,Exgridlib_tlb::HITEM Item,long ColIndex,Variant * NewValue)
{
Grid1->Refresh();
}
Grid1->BeginUpdate();
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exGroupLinesOutside;
Grid1->Indent = 12;
Grid1->ColumnAutoResize = false;
Grid1->ScrollBySingleLine = true;
Grid1->BackColorSortBar = RGB(240,240,240);
Grid1->AutoDrag = Exgridlib_tlb::AutoDragEnum::exAutoDragScroll;
/*
Select the Component\Import Component...\Import a Type Library,
to import the following Type Library:
Microsoft ActiveX Data Objects 6.1 Library
TypeLib: msado15.dll
to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADOR.Recordset");
rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExGrid\\Sample\\Access\\misc.accdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Grid1->DataSource = (IDispatch*)rs;
Grid1->SingleSort = false;
Grid1->SortBarVisible = true;
Grid1->AllowGroupBy = true;
Grid1->HeaderHeight = 24;
Exgridlib_tlb::IColumnsPtr var_Columns = Grid1->Columns;
var_Columns->Add(L"Count")->Visible = false;
Exgridlib_tlb::IColumnPtr var_Column = var_Columns->get_Item(TVariant("Freight"));
var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exCellBackColor,TVariant(Grid1->BackColorSortBar));
var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exHeaderBackColor,TVariant(var_Column->get_Def(Exgridlib_tlb::DefColumnEnum::exCellBackColor)));
var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exCellPaddingRight,TVariant(4));
var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exCellPaddingLeft,TVariant(4));
var_Column->HeaderBold = true;
var_Column->AllowGroupBy = false;
var_Column->FormatColumn = L"value format ``";
var_Column->Alignment = Exgridlib_tlb::AlignmentEnum::RightAlignment;
Exgridlib_tlb::IColumnPtr var_Column1 = var_Columns->get_Item(TVariant(0));
var_Column1->AllowGroupBy = false;
var_Column1->set_Def(Exgridlib_tlb::DefColumnEnum::exCellValueFormat,TVariant(1));
var_Columns->get_Item(TVariant("ShipCountry"))->SortOrder = Exgridlib_tlb::SortOrderEnum::SortAscending;
Grid1->ScrollBySingleLine = false;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->set_LockedItemCount(Exgridlib_tlb::VAlignmentEnum::exBottom,1);
long hL = var_Items->get_LockedItem(Exgridlib_tlb::VAlignmentEnum::exBottom,0);
var_Items->set_ItemHeight(hL,24);
var_Items->set_ItemBold(hL,true);
var_Items->set_ItemBackColor(hL,Grid1->BackColorSortBar);
var_Items->set_CellValue(TVariant(hL),TVariant(6),TVariant("sum(all,rec,dbl(%6))"));
var_Items->set_CellValueFormat(TVariant(hL),TVariant(6),Exgridlib_tlb::ValueFormatEnum::exTotalField | Exgridlib_tlb::ValueFormatEnum::exHTML);
var_Items->set_CellHAlignment(TVariant(hL),TVariant(6),Exgridlib_tlb::AlignmentEnum::RightAlignment);
var_Items->set_FormatCell(TVariant(hL),TVariant(6),L"value format ``");
Grid1->EndUpdate();
|
|
1138
|
I would like to display a solid line between "root" items, and dotted lines (default) between child items. How can I do that
Grid1->BeginUpdate();
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exHLines;
Grid1->GridLineStyle = Exgridlib_tlb::GridLinesStyleEnum::exGridLinesGeometric;
Grid1->VisualAppearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABMsIQAAYAQGKIcBiAKBQAGaAoDgYN4MAANAwjJBMKgBBCLIxhEYobgmGIXRpFMbxAKQahLEiTIgGUYJHgmK4tQLHb7zGAABRDDSOIDnGQJX") +
"haI4JQSMMQDGLAZxVFiPRhAWLpBh+PQATrOdLUfSjVwhBKAQEBA=="));
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Default");
var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
var_Column->PartialCheck = true;
Exgridlib_tlb::IColumnPtr var_Column1 = Grid1->Columns->Add(L"Position");
var_Column1->FormatColumn = L"((1 rindex ``) contains `.`) = 0";
var_Column1->Visible = false;
Exgridlib_tlb::IConditionalFormatPtr var_ConditionalFormat = Grid1->ConditionalFormats->Add(L"%C1",TNoParam());
var_ConditionalFormat->BackColor = 0x1e0e0e0;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
long h = var_Items->AddItem(TVariant("Root 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 3"));
var_Items->set_ExpandItem(h,true);
h = var_Items->AddItem(TVariant("Root 2"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
h = var_Items->AddItem(TVariant("Root 3"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
Grid1->EndUpdate();
|
|
1137
|
I can not center or align the cell's caption and icon, when it displays the hierarchy
Grid1->BeginUpdate();
Grid1->Images(TVariant(String("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq") +
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="));
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Tasks");
var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exCellValueFormat,TVariant(1));
Grid1->HeaderVisible = true;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
long h = var_Items->AddItem(TVariant("Project"));
long hChild = var_Items->InsertItem(h,TNoParam(),TVariant("<img>1</img> Task (left)"));
hChild = var_Items->InsertItem(h,TNoParam(),TVariant("<c><img>2</img> Task (center)"));
hChild = var_Items->InsertItem(h,TNoParam(),TVariant("<r>Task (right) <img>3</img>"));
var_Items->set_ExpandItem(h,true);
Grid1->EndUpdate();
|
|
1136
|
How do I mask for float/integer number
Grid1->BeginUpdate();
Grid1->ColumnAutoResize = true;
Grid1->Columns->Add(L"Type")->Width = 32;
Grid1->Columns->Add(L"Editor");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
long h = var_Items->AddItem(TVariant("Integer"));
var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("12"));
Exgridlib_tlb::IEditorPtr var_Editor = var_Items->get_CellEditor(TVariant(h),TVariant(1));
var_Editor->EditType = Exgridlib_tlb::EditTypeEnum::EditType;
var_Editor->Numeric = Exgridlib_tlb::NumericEnum::exInteger;
h = var_Items->AddItem(TVariant("Integer (mask, group)"));
var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("10002"));
var_Items->set_FormatCell(TVariant(h),TVariant(1),L"value format `0||`");
Exgridlib_tlb::IEditorPtr var_Editor1 = var_Items->get_CellEditor(TVariant(h),TVariant(1));
var_Editor1->EditType = Exgridlib_tlb::EditTypeEnum::MaskType;
var_Editor1->Mask = L";;;float,digits=0,invalid=empty,warning=invalid character";
h = var_Items->AddItem(TVariant("Integer (mask, no group)"));
var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("10002"));
var_Items->set_FormatCell(TVariant(h),TVariant(1),L"value format `0|0|`");
Exgridlib_tlb::IEditorPtr var_Editor2 = var_Items->get_CellEditor(TVariant(h),TVariant(1));
var_Editor2->EditType = Exgridlib_tlb::EditTypeEnum::MaskType;
var_Editor2->Mask = L";;;float,digits=0,grouping=,invalid=empty,warning=invalid character";
h = var_Items->AddItem(TVariant("Float"));
var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("+12.34E+2"));
Exgridlib_tlb::IEditorPtr var_Editor3 = var_Items->get_CellEditor(TVariant(h),TVariant(1));
var_Editor3->EditType = Exgridlib_tlb::EditTypeEnum::EditType;
var_Editor3->Numeric = Exgridlib_tlb::NumericEnum::exFloat;
h = var_Items->AddItem(TVariant("Float (no signs)"));
var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("12.34E-2"));
Exgridlib_tlb::IEditorPtr var_Editor4 = var_Items->get_CellEditor(TVariant(h),TVariant(1));
var_Editor4->EditType = Exgridlib_tlb::EditTypeEnum::EditType;
var_Editor4->Numeric = Exgridlib_tlb::NumericEnum::exDisableSigns | Exgridlib_tlb::NumericEnum::exFloat;
h = var_Items->AddItem(TVariant("Float-Integer"));
var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("+12.34"));
Exgridlib_tlb::IEditorPtr var_Editor5 = var_Items->get_CellEditor(TVariant(h),TVariant(1));
var_Editor5->EditType = Exgridlib_tlb::EditTypeEnum::EditType;
var_Editor5->Numeric = Exgridlib_tlb::NumericEnum::exFloatInteger;
h = var_Items->AddItem(TVariant("Float-Integer (no signs)"));
var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("12.34"));
Exgridlib_tlb::IEditorPtr var_Editor6 = var_Items->get_CellEditor(TVariant(h),TVariant(1));
var_Editor6->EditType = Exgridlib_tlb::EditTypeEnum::EditType;
var_Editor6->Numeric = Exgridlib_tlb::NumericEnum::exDisableSigns | Exgridlib_tlb::NumericEnum::exFloatInteger;
h = var_Items->AddItem(TVariant("Float (mask,group)"));
var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("10002.34"));
var_Items->set_FormatCell(TVariant(h),TVariant(1),L"value format `2`");
Exgridlib_tlb::IEditorPtr var_Editor7 = var_Items->get_CellEditor(TVariant(h),TVariant(1));
var_Editor7->EditType = Exgridlib_tlb::EditTypeEnum::MaskType;
var_Editor7->Mask = L";;;float,invalid=empty,warning=invalid character";
h = var_Items->AddItem(TVariant("Float (mask, no group)"));
var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("10002.34"));
var_Items->set_FormatCell(TVariant(h),TVariant(1),L"value format `2|0|`");
Exgridlib_tlb::IEditorPtr var_Editor8 = var_Items->get_CellEditor(TVariant(h),TVariant(1));
var_Editor8->EditType = Exgridlib_tlb::EditTypeEnum::MaskType;
var_Editor8->Mask = L";;;float,grouping=,invalid=empty,warning=invalid character";
Grid1->EndUpdate();
|
|
1135
|
How do I set an extra data for each item
// MouseMove event - Occurs when the user moves the mouse.
void __fastcall TForm1::Grid1MouseMove(TObject *Sender,short Button,short Shift,int X,int Y)
{
long i = Grid1->ItemFromPoint[-1,-1,c,hit];
OutputDebugString( L"i" );
OutputDebugString( PChar(Grid1->Items->get_ItemData(i)) );
}
Grid1->BeginUpdate();
Grid1->ColumnAutoResize = true;
Grid1->Columns->Add(L"Default");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->set_ItemData(var_Items->AddItem(TVariant("method 1")),TVariant("your extra data of method 1"));
var_Items->InsertItem(0,TVariant("your extra data of method 2"),TVariant("method 2"));
Exgridlib_tlb::IItemsPtr var_Items1 = Grid1->Items;
var_Items1->DefaultItem = var_Items1->AddItem(TVariant("method 3"));
var_Items1->set_ItemData(0,TVariant("your extra data of method 3"));
Grid1->EndUpdate();
|
|
1134
|
I do not like to specify the item padding for every column I add. The question is how can I do it automatically
Grid1->BeginUpdate();
Grid1->AttachTemplate(TVariant("handle AddColumn(Column){Column{Def(48)=8;Def(49)=8;AllowDragging=False;AllowSizing = True}}"));
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exAllLines;
Grid1->GridLineStyle = Exgridlib_tlb::GridLinesStyleEnum::exGridLinesVSolid;
Exgridlib_tlb::IColumnsPtr var_Columns = Grid1->Columns;
var_Columns->Add(L"Item");
Exgridlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"Pos");
var_Column->Position = 0;
var_Column->Width = 32;
var_Column->AllowSizing = false;
var_Column->FormatColumn = L"1 index ``";
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->AddItem(TVariant("Item A"));
var_Items->AddItem(TVariant("Item B"));
var_Items->AddItem(TVariant("Item C"));
Grid1->EndUpdate();
|
|
1133
|
How can I change the Exclude field in the drop down filter window
Grid1->BeginUpdate();
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Grid1->HTMLPicture[L"exclude"] = TVariant(String("gCJKBOI4NBQaBQAhQNJJIIhShQACERCAEAcRdrdcUQhQDOZCJJUBEjbbhJ7giIJOBILJziJvl4BeKibhDiIZOhFLB0KZvMx0O5hORlAB3owuNJuNZzMZhOBlFxvORnT") +
"buHgaiIeKBMKhFf9fDIcEoPCAVEAlGI4HhBBYMCARCQVGg4IhVMCAWC2XY1Q7WJ8RBB0KROKYAYDBbzicjndD6fA/VsRHRJIhBkRbMYIGwGAQjA2fRYOEBoYjBFBx1AT" +
"CgCGQ8M7OTjSaJMDRDKIwYu5DrIMBgSAADKJTqhBhyRApAA3FAucZPPilokRJJFJxEVxCMCCgIA==");
Grid1->Description[Exgridlib_tlb::DescriptionTypeEnum::exFilterBarExclude] = L"<img>exclude</img>";
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Items");
var_Column->DisplayFilterButton = true;
var_Column->DisplayFilterPattern = false;
var_Column->FilterList = Exgridlib_tlb::FilterListEnum::exShowExclude | Exgridlib_tlb::FilterListEnum::exShowFocusItem | Exgridlib_tlb::FilterListEnum::exShowCheckBox;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
long h = var_Items->AddItem(TVariant("Root 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(h,true);
h = var_Items->AddItem(TVariant("Root 2"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
Grid1->EndUpdate();
|
|
1132
|
How can I change the Exclude field in the drop down filter window
Grid1->BeginUpdate();
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Grid1->Description[Exgridlib_tlb::DescriptionTypeEnum::exFilterBarExclude] = L"<bgcolor 0><fgcolor ffffff> Exclude </fgcolor></bgcolor>";
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Items");
var_Column->DisplayFilterButton = true;
var_Column->DisplayFilterPattern = false;
var_Column->FilterList = Exgridlib_tlb::FilterListEnum::exShowExclude | Exgridlib_tlb::FilterListEnum::exShowFocusItem | Exgridlib_tlb::FilterListEnum::exShowCheckBox;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
long h = var_Items->AddItem(TVariant("Root 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(h,true);
h = var_Items->AddItem(TVariant("Root 2"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
Grid1->EndUpdate();
|
|
1131
|
The grid lines looks different then before. What should I do
Grid1->BeginUpdate();
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exAllLines;
Grid1->GridLineStyle = Exgridlib_tlb::GridLinesStyleEnum::exGridLinesGeometric;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Tasks");
var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
var_Column->PartialCheck = true;
Grid1->HeaderVisible = true;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
long h = var_Items->AddItem(TVariant("Project"));
long hChild = var_Items->InsertItem(h,TNoParam(),TVariant("Task 1"));
var_Items->set_SelectItem(hChild,true);
hChild = var_Items->InsertItem(h,TNoParam(),TVariant("Task 2"));
var_Items->set_CellState(TVariant(hChild),TVariant(0),1);
hChild = var_Items->InsertItem(h,TNoParam(),TVariant("Task 3"));
var_Items->set_CellState(TVariant(hChild),TVariant(0),1);
var_Items->set_ExpandItem(h,true);
Grid1->EndUpdate();
|
|
1130
|
Can I sort the column by check-state
Grid1->BeginUpdate();
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Check");
var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
var_Column->SortType = Exgridlib_tlb::SortTypeEnum::exSortByState;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->AddItem(TNoParam());
var_Items->set_CellState(TVariant(var_Items->AddItem(TNoParam())),TVariant(0),1);
var_Items->set_CellState(TVariant(var_Items->AddItem(TNoParam())),TVariant(0),1);
var_Items->AddItem(TNoParam());
Grid1->Columns->get_Item(TVariant(0))->SortOrder = Exgridlib_tlb::SortOrderEnum::SortAscending;
Grid1->EndUpdate();
|
|
1129
|
Can I sort the column by image
Grid1->BeginUpdate();
Grid1->Images(TVariant(String("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq") +
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="));
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Image");
var_Column->SortType = Exgridlib_tlb::SortTypeEnum::exSortByImage;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->set_CellImage(TVariant(var_Items->AddItem(TNoParam())),TVariant(0),3);
var_Items->AddItem(TNoParam());
var_Items->set_CellImage(TVariant(var_Items->AddItem(TNoParam())),TVariant(0),1);
var_Items->set_CellImage(TVariant(var_Items->AddItem(TNoParam())),TVariant(0),2);
Grid1->Columns->get_Item(TVariant(0))->SortOrder = Exgridlib_tlb::SortOrderEnum::SortAscending;
Grid1->EndUpdate();
|
|
1128
|
Can I sort the column by value(numeric)
Grid1->BeginUpdate();
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Value");
var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exCellValueFormat,TVariant(1));
var_Column->FormatColumn = L"`<fgcolor=808080><off 4><font ;6> ` + (1 index ``) + ` </font></off></fgcolor>` + value";
var_Column->SortType = Exgridlib_tlb::SortTypeEnum::exSortByValue | Exgridlib_tlb::SortTypeEnum::SortNumeric;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->AddItem(TVariant("1"));
var_Items->AddItem(TVariant("10"));
var_Items->AddItem(TVariant("2"));
var_Items->AddItem(TVariant("20"));
Grid1->Columns->get_Item(TVariant(0))->SortOrder = Exgridlib_tlb::SortOrderEnum::SortAscending;
Grid1->EndUpdate();
|
|
1127
|
Can I sort a column by cell's state (checked, unchecked) rather than caption
Grid1->BeginUpdate();
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Check");
Exgridlib_tlb::IEditorPtr var_Editor = var_Column->Editor;
var_Editor->EditType = Exgridlib_tlb::EditTypeEnum::CheckValueType;
var_Editor->set_Option(Exgridlib_tlb::EditorOptionEnum::exCheckValue2,TVariant(1));
var_Column->SortType = Exgridlib_tlb::SortTypeEnum::SortNumeric;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->AddItem(TVariant(true));
var_Items->AddItem(TVariant(false));
var_Items->AddItem(TVariant(false));
var_Items->AddItem(TVariant(true));
Grid1->Columns->get_Item(TVariant(0))->SortOrder = Exgridlib_tlb::SortOrderEnum::SortAscending;
Grid1->EndUpdate();
|
|
1126
|
How do I get the item's auto-number, when using FormatColumn property, as CellValue gets empty
// SelectionChanged event - Fired after a new item has been selected.
void __fastcall TForm1::Grid1SelectionChanged(TObject *Sender)
{
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
OutputDebugString( L"pos: " );
OutputDebugString( var_Items->get_CellCaption(TVariant(var_Items->FocusItem),TVariant(1)) );
OutputDebugString( L"rpos(1): " );
OutputDebugString( var_Items->get_CellCaption(TVariant(var_Items->FocusItem),TVariant(2)) );
OutputDebugString( L"rpos(2): " );
OutputDebugString( var_Items->get_CellCaption(TVariant(var_Items->FocusItem),TVariant(3)) );
OutputDebugString( L"apos: " );
OutputDebugString( var_Items->get_CellCaption(TVariant(var_Items->FocusItem),TVariant(4)) );
OutputDebugString( L"index: " );
OutputDebugString( var_Items->get_CellCaption(TVariant(var_Items->FocusItem),TVariant(5)) );
}
Grid1->BeginUpdate();
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exRowLines;
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Exgridlib_tlb::IColumnsPtr var_Columns = Grid1->Columns;
var_Columns->Add(L"Items");
Exgridlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"pos");
var_Column->FormatColumn = L"1 pos ``";
var_Column->Position = 0;
var_Column->Width = 48;
var_Column->AllowSizing = false;
Exgridlib_tlb::IColumnPtr var_Column1 = var_Columns->Add(L"rpos(1)");
var_Column1->FormatColumn = L"1 rpos ``";
var_Column1->Position = 1;
var_Column1->Width = 48;
var_Column1->AllowSizing = false;
Exgridlib_tlb::IColumnPtr var_Column2 = var_Columns->Add(L"rpos(2)");
var_Column2->FormatColumn = L"1 rpos `.||A-Z`";
var_Column2->Position = 2;
var_Column2->Width = 48;
var_Column2->AllowSizing = false;
Exgridlib_tlb::IColumnPtr var_Column3 = var_Columns->Add(L"apos");
var_Column3->FormatColumn = L"1 apos ``";
var_Column3->Position = 3;
var_Column3->Width = 48;
var_Column3->AllowSizing = false;
Exgridlib_tlb::IColumnPtr var_Column4 = var_Columns->Add(L"index");
var_Column4->FormatColumn = L"1 index ``";
var_Column4->Position = 4;
var_Column4->Width = 48;
var_Column4->AllowSizing = false;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
long h = var_Items->AddItem(TVariant("Item 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
long hSel = var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(h,true);
var_Items->AddItem(TVariant("Item 2"));
var_Items->AddItem(TVariant("Item 3"));
Grid1->EndUpdate();
Grid1->Items->set_SelectItem(hSel,true);
|
|
1125
|
How can I display UNICODE characters
Grid1->BeginUpdate();
/*
Select the Component\Import Component...\Import a Type Library,
to import the following Type Library:
OLE Automation
TypeLib: stdole2.tlb
to define the namespace: Stdole_tlb
*/
//#include "STDOLE_TLB.h"
Stdole_tlb::FontPtr var_StdFont = Grid1->Font;
var_StdFont->Name = L"Arial Unicode";
var_StdFont->Size = TVariant(long(22));
Grid1->HeaderVisible = false;
Grid1->DefaultItemHeight = 48;
Grid1->Columns->Add(L"")->set_Def(Exgridlib_tlb::DefColumnEnum::exCellValueFormat,TVariant(1));
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->AddItem(TVariant("Ӓӓ"));
var_Items->AddItem(TVariant("ᦜᦝ;ᦞ"));
var_Items->AddItem(TVariant("ɮɭ;ɯ"));
var_Items->AddItem(TVariant("勳勴勵勶"));
var_Items->set_FormatCell(TVariant(var_Items->AddItem(TVariant(Grid1->Version))),TVariant(0),L"(value lfind `UNICODE`) < 0 ? `<fgcolor=FF0000><b>!UNICODE!</b> version</fgcolor> required: ` + value : `` ");
Grid1->EndUpdate();
|
|
1124
|
How do I display the position of the item with 0-padding
Grid1->BeginUpdate();
Grid1->Columns->Add(L"Items")->FormatColumn = L"((1 apos ``) lpad `00`) + `. ` + value";
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->AddItem(TVariant("Item A"));
var_Items->AddItem(TVariant("Item B"));
var_Items->AddItem(TVariant("Item C"));
var_Items->AddItem(TVariant("Item D"));
Grid1->EndUpdate();
|
|
1123
|
Can't get the +/- to be displayed on a divider item. What else can I do
Grid1->BeginUpdate();
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exAllLines;
Grid1->TreeColumnIndex = 0;
Grid1->MarkSearchColumn = false;
Grid1->FullRowSelect = Exgridlib_tlb::CellSelectEnum::exColumnSel;
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum(0xfffffff8 | Exgridlib_tlb::AppearanceEnum::Bump | Exgridlib_tlb::AppearanceEnum::Sunken);
Exgridlib_tlb::IColumnsPtr var_Columns = Grid1->Columns;
var_Columns->Add(L"C1")->Width = 32;
var_Columns->Add(L"C2")->FormatColumn = L"1 index ``";
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
long h = var_Items->AddItem(TVariant("Cell 1"));
var_Items->set_CellSingleLine(TVariant(h),TVariant(1),Exgridlib_tlb::CellSingleLineEnum::exCaptionWordWrap);
h = var_Items->AddItem(TVariant("This is bit of text merges all cells in the item (divider shows no +/-)"));
var_Items->set_ItemDivider(h,0);
var_Items->set_ItemBackColor(h,RGB(240,240,240));
var_Items->set_ItemDividerLine(h,Exgridlib_tlb::DividerLineEnum::EmptyLine);
var_Items->set_CellHAlignment(TVariant(h),TVariant(0),Exgridlib_tlb::AlignmentEnum::CenterAlignment);
var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
var_Items->set_ExpandItem(h,true);
h = var_Items->AddItem(TVariant("Cell 3"));
h = var_Items->AddItem(TVariant("This is bit of text merges all cells in the item (merge shows +/-)"));
var_Items->set_ItemBackColor(h,RGB(240,240,240));
var_Items->set_CellMerge(TVariant(h),TVariant(0),TVariant(1));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 3"));
var_Items->InsertItem(h,TNoParam(),TVariant("Child 4"));
var_Items->set_ExpandItem(h,true);
Grid1->EndUpdate();
|
|
1122
|
How can I define a column of button type
// ButtonClick event - Occurs when user clicks on the cell's button.
void __fastcall TForm1::Grid1ButtonClick(TObject *Sender,Exgridlib_tlb::HITEM Item,long ColIndex,Variant Key)
{
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
OutputDebugString( PChar(var_Items->get_CellValue(TVariant(Item),TVariant(ColIndex))) );
}
Grid1->BeginUpdate();
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Button");
var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exCellHasButton,TVariant(true));
var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exCellButtonAutoWidth,TVariant(false));
var_Column->FormatColumn = L"``";
var_Column->AllowSizing = false;
var_Column->Width = 48;
Grid1->Columns->Add(L"Second")->FormatColumn = L"` Item ` + 1 index ``";
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->AddItem(TVariant("Button 1"));
var_Items->AddItem(TVariant("Button 2"));
var_Items->AddItem(TVariant("Button 3 "));
Grid1->EndUpdate();
|
|
1121
|
Is it possible to configure different colour/icon when there is a active filter
// FilterChange event - Occurs when filter was changed.
void __fastcall TForm1::Grid1FilterChange(TObject *Sender)
{
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exHeaderFilterBarButton] = Grid1->FormatABC(L"value = 0 ? 0x1000001 : 0x10000FF ",TVariant(Grid1->Columns->get_Item(TVariant(0))->FilterType),TNoParam(),TNoParam());
}
Grid1->BeginUpdate();
Exgridlib_tlb::IAppearancePtr var_Appearance = Grid1->VisualAppearance;
var_Appearance->RenderType = -16777216;
var_Appearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQ") +
"gmPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYTh" +
"dr4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA"));
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exAllLines;
Grid1->ShowFocusRect = false;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exHeaderFilterBarButton] = 0x1000001;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exCursorHoverColumn] = -1;
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->BackColorHeader = RGB(255,255,255);
Grid1->HeaderVisible = true;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Filter");
var_Column->DisplayFilterButton = true;
var_Column->AllowSort = false;
var_Column->AllowDragging = false;
var_Column->FilterList = Exgridlib_tlb::FilterListEnum::exShowCheckBox;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->AddItem(TVariant("Item A"));
var_Items->AddItem(TVariant("Item B"));
var_Items->AddItem(TVariant("Item C"));
Exgridlib_tlb::IColumnPtr var_Column1 = Grid1->Columns->get_Item(TVariant(0));
var_Column1->Filter = L"Item B";
var_Column1->FilterType = Exgridlib_tlb::FilterTypeEnum::exFilter;
Grid1->ApplyFilter();
Grid1->EndUpdate();
|
|
1120
|
How can I display the type of the value the column display
Grid1->BeginUpdate();
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exRowLines;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Values");
var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exCellValueFormat,TVariant(1));
var_Column->FormatColumn = L"value + ` <off 4><fgcolor=808080>type(` + type(%0) + `)`";
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->AddItem(TNoParam());
var_Items->AddItem(TVariant(-1));
var_Items->AddItem(TVariant("string"));
var_Items->AddItem(TVariant(TDateTime(2001,1,1).operator double()));
var_Items->AddItem(TVariant(2));
var_Items->AddItem(TVariant(true));
var_Items->AddItem(TVariant(12.34));
Grid1->EndUpdate();
|
|
1119
|
I want to create a conditional format for a column, verifying that the value of the cell is numeric, how can I do
Grid1->BeginUpdate();
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exRowLines;
Grid1->Columns->Add(L"Values");
Exgridlib_tlb::IConditionalFormatPtr var_ConditionalFormat = Grid1->ConditionalFormats->Add(L"type(%0) in (2,3,4,5,18,19,20,21)",TNoParam());
var_ConditionalFormat->ForeColor = RGB(255,0,0);
var_ConditionalFormat->Bold = true;
Grid1->ConditionalFormats->Add(L"type(%0) = 11",TNoParam())->ForeColor = RGB(0,255,0);
Grid1->ConditionalFormats->Add(L"type(%0) = 7",TNoParam())->ForeColor = RGB(0,0,255);
Grid1->ConditionalFormats->Add(L"type(%0) in (0,1)",TNoParam())->BackColor = RGB(240,240,240);
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->AddItem(TNoParam());
var_Items->AddItem(TVariant(-1));
var_Items->AddItem(TVariant("string"));
var_Items->AddItem(TVariant(TDateTime(2001,1,1).operator double()));
var_Items->AddItem(TVariant(2));
var_Items->AddItem(TVariant(true));
var_Items->AddItem(TVariant(12.34));
Grid1->EndUpdate();
|
|
1118
|
How can I assign a computed value on a different column based on other columns
// Change event - Occurs when the user changes the cell's content.
void __fastcall TForm1::Grid1Change(TObject *Sender,Exgridlib_tlb::HITEM Item,long ColIndex,Variant * NewValue)
{
Grid1->FreezeEvents(true);
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->set_CellValue(TVariant(Item),TVariant(1),TVariant(Grid1->FormatABC(L"int(255*sin(value/2))",TVariant(NewValue),TNoParam(),TNoParam())));
var_Items->set_CellValue(TVariant(Item),TVariant(2),TVariant(Grid1->FormatABC(L"int(255*cos(value/2))",TVariant(NewValue),TNoParam(),TNoParam())));
Grid1->FreezeEvents(false);
}
Grid1->BeginUpdate();
Grid1->SelBackMode = Exgridlib_tlb::BackModeEnum::exTransparent;
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exRowLines;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Value");
var_Column->Editor->EditType = Exgridlib_tlb::EditTypeEnum::SpinType;
var_Column->Width = 64;
var_Column->AllowSizing = false;
Grid1->Columns->Add(L"Assign A")->set_Def(Exgridlib_tlb::DefColumnEnum::exCellBackColor,TVariant(16448250));
Grid1->Columns->Add(L"Assign B")->set_Def(Exgridlib_tlb::DefColumnEnum::exCellBackColor,TVariant(16448250));
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Computed");
var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exCellBackColor,TVariant(16448250));
var_Column->ComputedField = L"%1 + %2";
var_Column->FormatColumn = L"value format ``";
var_Column->Alignment = Exgridlib_tlb::AlignmentEnum::RightAlignment;
var_Column->HeaderAlignment = var_Column->Alignment;
Grid1->ConditionalFormats->Add(L"%3 >= 0",TNoParam())->Bold = true;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->AddItem(TVariant(1989));
var_Items->AddItem(TVariant(2001));
var_Items->AddItem(TVariant(2017));
var_Items->AddItem(TVariant(2018));
var_Items->AddItem(TVariant(2019));
Grid1->EndUpdate();
|
|
1117
|
How can I get computed a value on a different column
Grid1->BeginUpdate();
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exRowLines;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Year");
var_Column->Editor->EditType = Exgridlib_tlb::EditTypeEnum::SpinType;
var_Column->Width = 64;
var_Column->AllowSizing = false;
Grid1->Columns->Add(L"Easter")->FormatColumn = TVariant(String("date(dateS('3/1/' + %0) + ((1:=(((255 - 11 * (%0 mod 19)) - 21) mod 30) + 21) + (=:1 > 48 ? -1 : 0) + 6 - ((%0 + int(%0 / 4)) ") +
"+ =:1 + (=:1 > 48 ? -1 : 0) + 1) mod 7))");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->AddItem(TVariant(1989));
var_Items->AddItem(TVariant(2001));
var_Items->AddItem(TVariant(2017));
var_Items->AddItem(TVariant(2018));
var_Items->AddItem(TVariant(2019));
Grid1->EndUpdate();
|
|
1116
|
How can I prevent applying ConditionalFormats on a specified cell, for instance I am displaying a Total field, and I will like to have formatted in a different way (method 2)
// Change event - Occurs when the user changes the cell's content.
void __fastcall TForm1::Grid1Change(TObject *Sender,Exgridlib_tlb::HITEM Item,long ColIndex,Variant * NewValue)
{
Grid1->Refresh();
}
Grid1->BeginUpdate();
Exgridlib_tlb::IConditionalFormatPtr var_ConditionalFormat = Grid1->ConditionalFormats->Add(L"(%0 >= 0)",TNoParam());
var_ConditionalFormat->Expression = L"(0=type(%CD0)) and (%0 >= 0)";
var_ConditionalFormat->Bold = true;
var_ConditionalFormat->ForeColor = RGB(255,0,0);
OutputDebugString( L"ConditionalFormat.Valid" );
OutputDebugString( PChar(var_ConditionalFormat->Valid) );
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Numbers");
Exgridlib_tlb::IEditorPtr var_Editor = var_Column->Editor;
var_Editor->Numeric = Exgridlib_tlb::NumericEnum::exInteger;
var_Editor->EditType = Exgridlib_tlb::EditTypeEnum::SpinType;
var_Column->SortType = Exgridlib_tlb::SortTypeEnum::SortNumeric;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->AddItem(TVariant(100));
var_Items->AddItem(TVariant(-25));
var_Items->AddItem(TVariant(31));
var_Items->AddItem(TVariant(-48));
Exgridlib_tlb::IItemsPtr var_Items1 = Grid1->Items;
long h = var_Items1->AddItem(TVariant("sum(all,dir,dbl(%0))"));
var_Items1->set_SelectableItem(h,false);
var_Items1->set_SortableItem(h,false);
var_Items1->set_ItemBackColor(h,RGB(240,240,240));
var_Items1->set_CellData(TVariant(h),TVariant(0),TVariant("total"));
var_Items1->set_CellValueFormat(TVariant(h),TVariant(0),Exgridlib_tlb::ValueFormatEnum::exTotalField | Exgridlib_tlb::ValueFormatEnum::exHTML);
var_Items1->set_FormatCell(TVariant(h),TVariant(0),L"'Total: <b><fgcolor=0000FF>'+(value format ``)");
Grid1->EndUpdate();
|
|
1115
|
How can I prevent applying ConditionalFormats on a specified cell, for instance I am displaying a Total field, and I will like to have formatted in a different way (method 1)
// Change event - Occurs when the user changes the cell's content.
void __fastcall TForm1::Grid1Change(TObject *Sender,Exgridlib_tlb::HITEM Item,long ColIndex,Variant * NewValue)
{
Grid1->Refresh();
}
Grid1->BeginUpdate();
Exgridlib_tlb::IConditionalFormatPtr var_ConditionalFormat = Grid1->ConditionalFormats->Add(L"%0 >= 0",TNoParam());
var_ConditionalFormat->Bold = true;
var_ConditionalFormat->ForeColor = RGB(255,0,0);
var_ConditionalFormat->ApplyTo = Exgridlib_tlb::FormatApplyToEnum::exFormatToColumns;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Numbers");
Exgridlib_tlb::IEditorPtr var_Editor = var_Column->Editor;
var_Editor->Numeric = Exgridlib_tlb::NumericEnum::exInteger;
var_Editor->EditType = Exgridlib_tlb::EditTypeEnum::SpinType;
var_Column->SortType = Exgridlib_tlb::SortTypeEnum::SortNumeric;
Grid1->Columns->Add(L"Total")->Visible = false;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->set_LockedItemCount(Exgridlib_tlb::VAlignmentEnum::exBottom,1);
long h = var_Items->get_LockedItem(Exgridlib_tlb::VAlignmentEnum::exBottom,0);
var_Items->set_ItemDivider(h,1);
var_Items->set_ItemDividerLine(h,Exgridlib_tlb::DividerLineEnum::EmptyLine);
var_Items->set_ItemBackColor(h,RGB(240,240,240));
var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("sum(all,dir,dbl(%0))"));
var_Items->set_CellValueFormat(TVariant(h),TVariant(1),Exgridlib_tlb::ValueFormatEnum::exTotalField | Exgridlib_tlb::ValueFormatEnum::exHTML);
var_Items->set_CellHAlignment(TVariant(h),TVariant(1),Exgridlib_tlb::AlignmentEnum::RightAlignment);
var_Items->set_FormatCell(TVariant(h),TVariant(1),L"'Total: <b><fgcolor=0000FF>'+(value format ``)");
Exgridlib_tlb::IItemsPtr var_Items1 = Grid1->Items;
var_Items1->AddItem(TVariant(100));
var_Items1->AddItem(TVariant(-25));
var_Items1->AddItem(TVariant(31));
var_Items1->AddItem(TVariant(-48));
Grid1->EndUpdate();
|
|
1114
|
ADODB Requery sample
// ButtonClick event - Occurs when user clicks on the cell's button.
void __fastcall TForm1::Grid1ButtonClick(TObject *Sender,Exgridlib_tlb::HITEM Item,long ColIndex,Variant Key)
{
/*
Select the Component\Import Component...\Import a Type Library,
to import the following Type Library:
Microsoft ActiveX Data Objects 6.1 Library
TypeLib: msado15.dll
to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_CommandPtr cmd = Variant::CreateObject(L"ADODB.Command");
cmd->set_ActiveConnection(Grid1(IDispatch*)->DataSource->get_ActiveConnection());
cmd->CommandText = L"INSERT INTO Orders (EmployeeID) VALUES(12345)";
cmd->CommandType = Adodb_tlb::CommandTypeEnum::adCmdText;
cmd->Execute(TNoParam(),TNoParam(),0);
(IDispatch*)Grid1->DataSource->Requery(0);
}
// Error event - Fired when an internal error occurs.
void __fastcall TForm1::Grid1Error(TObject *Sender,long Error,BSTR Description)
{
OutputDebugString( L"Description" );
}
Grid1->BeginUpdate();
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->ColumnAutoResize = false;
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADODB.Recordset");
rs->Open(TVariant("Select * From Orders"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExGrid\\Sample\\Access\\misc.accdb"),Adodb_tlb::CursorTypeEnum::adOpenKeyset,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Grid1->DataSource = (IDispatch*)rs;
Grid1->ConditionalFormats->Add(L"%1=12345",TNoParam())->BackColor = RGB(240,240,240);
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->set_LockedItemCount(Exgridlib_tlb::VAlignmentEnum::exTop,1);
long h = var_Items->get_LockedItem(Exgridlib_tlb::VAlignmentEnum::exTop,0);
var_Items->set_ItemDivider(h,0);
var_Items->set_CellHasButton(TVariant(h),TVariant(0),true);
var_Items->set_CellValue(TVariant(h),TVariant(0),TVariant("Requery (add a new record, using ADODB.Command)"));
var_Items->set_CellHAlignment(TVariant(h),TVariant(0),Exgridlib_tlb::AlignmentEnum::CenterAlignment);
Grid1->EndUpdate();
|
|
1113
|
I am using DetectAddNew property, but no new items is added when AddNew is performed
// ButtonClick event - Occurs when user clicks on the cell's button.
void __fastcall TForm1::Grid1ButtonClick(TObject *Sender,Exgridlib_tlb::HITEM Item,long ColIndex,Variant Key)
{
/*
Select the Component\Import Component...\Import a Type Library,
to import the following Type Library:
Microsoft ActiveX Data Objects 6.1 Library
TypeLib: msado15.dll
to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr var_Recordset = (IDispatch*)Grid1->DataSource;
var_Recordset->AddNew(TVariant("EmployeeID"),TVariant(123));
var_Recordset->Update(TNoParam(),TNoParam());
}
// Error event - Fired when an internal error occurs.
void __fastcall TForm1::Grid1Error(TObject *Sender,long Error,BSTR Description)
{
OutputDebugString( L"Description" );
}
Grid1->BeginUpdate();
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->ColumnAutoResize = false;
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADODB.Recordset");
rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExGrid\\Sample\\Access\\misc.accdb"),Adodb_tlb::CursorTypeEnum::adOpenKeyset,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Grid1->DataSource = (IDispatch*)rs;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->set_LockedItemCount(Exgridlib_tlb::VAlignmentEnum::exTop,1);
long h = var_Items->get_LockedItem(Exgridlib_tlb::VAlignmentEnum::exTop,0);
var_Items->set_ItemDivider(h,0);
var_Items->set_CellHasButton(TVariant(h),TVariant(0),true);
var_Items->set_CellValue(TVariant(h),TVariant(0),TVariant("AddNew"));
var_Items->set_CellHAlignment(TVariant(h),TVariant(0),Exgridlib_tlb::AlignmentEnum::CenterAlignment);
Grid1->DetectAddNew = true;
Grid1->DetectDelete = true;
Grid1->EndUpdate();
|
|
1112
|
I am skinning the control's header-bar, but the background of the header-bar is shown on each item in the filter-bar drop down panel. What can I do
Grid1->BeginUpdate();
Exgridlib_tlb::IAppearancePtr var_Appearance = Grid1->VisualAppearance;
var_Appearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAAEhABFgDg6AADACAxRDgMQBQKAAzQFAYcBqGqGAAGQZxYgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjH") +
"LUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQGhsCYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU8lORLUi+M4zSBPcZVTRtGShPDB" +
"KTjMKKYgkG4lVpRNa0PC1GTzQ6mazkKQLRADDIDVbAeL3LiMBy9LyLLItQALByua5mWhbcZyBCOPgBTrRb5zO58FjuTK7YLjMB7NrUNYtFaUMy2OpOCADIaecTNcaWLx" +
"PF2MY1HWYxVj2Jw3DuRJonKYBgggSRAlIYw6B0ThGFgPAkFUDAhBMfZRiGNAkFECZnm4YQdneJwqnsSQrGAAhWAIJBJBIQgFCQIBiEIAglgqYo0i4V4MEgRI9gSToYFS" +
"b4Fk6Y4+BmBZhFOJgTC8TBogQAArgqco4muCZOkOMJtgmYpIjYKg7GKE4uCUK4AAKKg2DwI4DiCZw5k6KJ2D6D4OHiag4DwIxiiQAArAqMosnEPBPAOIhOg+DozjIJ4P" +
"GSY4iEwPAkhKLhHUUSQsnKFCnkYU9MjORhcCsAAIACLQ8iaSJ6FKC5jJoaobA8KYoACCRKnmMJzhuDpZnSboMCKGJ4nMPIPDmYAACwKIDk6CoLCeU40m6I5oliMoKDya" +
"ICokLIpgoThviOKJoGYf4KmUKhMjMLJLCAAojCyaYoiYGoGmqM46CkOwPEoKonAACxKlSdItmiWBeBeDgrioNo3D0KxSlAAAtgsUpYnUPRPEoco8hCa+T40SxbBRj5tE" +
"sHJ1i6JhbGYS4ug8awelQLZAAKZI5C4DxrhYQ9ehmUppWiA48nAPRuFKYpiAAC47laZQ9iuKZSgOPotkuFI7C6C4gACPJAm8eQOhOQZoikDp3kCS5AACPoEk8fBGnqQg" +
"pDOSppD2TxjlyPZD6CfwekQTx5lKP5ImseZTCAL5MAMAAAkoTADmMLpIjISp+HSS4PgyMAADBzAHDSIoPCOUpWjObIKE8NJOHKIwPEaTprBsHpdjWLB9AieQ+DQYwQAA" +
"MR1EOZxWi+bx7HcWQ8msfRYnnDhQACRwxgwc5rGaMZPE0ZxqjWNZtgyRwAAyTZEnuXJzEyAx2kQcxNkye5cEy3cYAcANrGAIH4OAhx3gNGGPAfgIR8jBA4McBMARViHH" +
"4HQOYmxuCpF2MsecEQVBvGQCcIQvA6i2CAAIARAQ="));
var_Appearance->Add(2,TVariant(String("gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzQFAYcBqGqGAAGQZxYgmFgAQhFcZQSKUOQTDKMIziYBYJhEMwwDhEIwjHCEEhsGIbJAGQBJCjWGodQLOEgzN") +
"C0IxNFCQILhEZJADKII8TTOU5UPRESwTE4cKBmKhQCo2NpKR7VUTxCKQahLLivoCjBT8EzHMqtIzrCA6MpaP4pQjKcqwHJ8YyHEi0ZrjazKaj6T5AXDUcaWbbNVx3PK3" +
"aioOpLZrqOZZYzYFoABTuJzPMSyIhxXD8cweaZvSpLExVYK9BY3PbKMgxC77QgTIpDaQMNS6PjtF43PAALLFUaNYzoOKzABMHATBIXAYJCwIIR5G7ID4BbQcCQAHL9DB" +
"aEEIAEEISgGhMGZQmocgymmIRQkIEQ2BcGgbEIRQci8XaMBqTRVgSAZHG+S5pnOep+D6f4vjec5zn0fpfmgBgAH6TRoBYBoAh+eAmAiAgPFgNArgOQpIESdoEmCOAOAq" +
"BYfFGAgaEaBgYHYFYFmIB5UiGCJUgKCgmgeYoHk4BgCmKRQiCwApgHgYgyH8B54lQU4NkMeJlBoDgjkiXBTg0R54iYIR+koeQVBoKpkgkChKhEJBkF4SFEjkDgJhFQoe" +
"EmDJlBeehUhWJQJGIXoICWOQ6FeFIlhkfhlDsSJpiQVoamaSY2G6G5nAmRhpCOH5pkwVYdmeCZmHqHpnkmdhzhmaAIFiax8AABAEICA=="));
Grid1->BackColorHeader = 0x1000000;
Grid1->ForeColorHeader = RGB(128,128,128);
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exHeaderFilterBarButton] = 0x2000000;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exBackColorFilter] = RGB(255,255,255);
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exForeColorFilter] = RGB(0,0,1);
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exSelBackColorFilter] = 0x1ff8000;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exSelForeColorFilter] = RGB(240,240,240);
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exCursorHoverColumn] = -1;
Grid1->HeaderHeight = 24;
Grid1->BackColorLevelHeader = Grid1->BackColor;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Filter");
var_Column->DisplayFilterButton = true;
var_Column->DisplayFilterPattern = false;
var_Column->FilterList = Exgridlib_tlb::FilterListEnum::exShowExclude | Exgridlib_tlb::FilterListEnum::exShowFocusItem | Exgridlib_tlb::FilterListEnum::exShowCheckBox | Exgridlib_tlb::FilterListEnum::exSortItemsAsc;
var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exHeaderPaddingLeft,TVariant(2));
var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exHeaderPaddingRight,TVariant(2));
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->AddItem(TVariant("A"));
var_Items->AddItem(TVariant("B"));
var_Items->AddItem(TVariant("C"));
var_Items->AddItem(TVariant("D"));
Grid1->EndUpdate();
|
|
1111
|
How can I change the font for entire column (method 3)
// AddItem event - Occurs after a new Item has been inserted to Items collection.
void __fastcall TForm1::Grid1AddItem(TObject *Sender,Exgridlib_tlb::HITEM Item)
{
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->set_CellFont(TVariant(Item),TVariant(1),(IFontDisp*)(Grid1->Columns->get_Item(TVariant(1))->get_Data()));
var_Items->set_CellBold(TVariant(Item),TVariant(1),true);
var_Items->set_CellForeColor(TVariant(Item),TVariant(1),RGB(255,0,0));
}
Grid1->BeginUpdate();
Grid1->HeaderHeight = 24;
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->Columns->Add(L"C1");
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"C2");
var_Column->HTMLCaption = L"<b><font Tahoma;14>C2";
/*
Select the Component\Import Component...\Import a Type Library,
to import the following Type Library:
OLE Automation
TypeLib: stdole2.tlb
to define the namespace: Stdole_tlb
*/
//#include "STDOLE_TLB.h"
Stdole_tlb::FontPtr f = Variant::CreateObject(L"StdFont");
f->Name = L"Tahoma";
f->Size = TVariant(long(11));
var_Column->set_Data(f);
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant(10))),TVariant(1),TVariant(11));
var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant(12))),TVariant(1),TVariant(13));
Grid1->EndUpdate();
|
|
1110
|
How can I change the font for entire column (method 2)
// AddItem event - Occurs after a new Item has been inserted to Items collection.
void __fastcall TForm1::Grid1AddItem(TObject *Sender,Exgridlib_tlb::HITEM Item)
{
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
/*
Select the Component\Import Component...\Import a Type Library,
to import the following Type Library:
OLE Automation
TypeLib: stdole2.tlb
to define the namespace: Stdole_tlb
*/
//#include "STDOLE_TLB.h"
Stdole_tlb::FontPtr f = Variant::CreateObject(L"StdFont");
f->Name = L"Tahoma";
f->Size = TVariant(long(11));
var_Items->set_CellFont(TVariant(Item),TVariant(1),(IFontDisp*)(f));
var_Items->set_CellBold(TVariant(Item),TVariant(1),true);
var_Items->set_CellForeColor(TVariant(Item),TVariant(1),RGB(255,0,0));
}
Grid1->BeginUpdate();
Grid1->HeaderHeight = 24;
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->Columns->Add(L"C1");
Grid1->Columns->Add(L"C2")->HTMLCaption = L"<b><font Tahoma;14>C2";
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant(10))),TVariant(1),TVariant(11));
var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant(12))),TVariant(1),TVariant(13));
Grid1->EndUpdate();
|
|
1109
|
How can I change the font for entire column (method 1)
Grid1->BeginUpdate();
Exgridlib_tlb::IConditionalFormatPtr var_ConditionalFormat = Grid1->ConditionalFormats->Add(L"1",TNoParam());
var_ConditionalFormat->Bold = true;
var_ConditionalFormat->ForeColor = RGB(255,0,0);
/*
Select the Component\Import Component...\Import a Type Library,
to import the following Type Library:
OLE Automation
TypeLib: stdole2.tlb
to define the namespace: Stdole_tlb
*/
//#include "STDOLE_TLB.h"
Stdole_tlb::FontPtr f = Variant::CreateObject(L"StdFont");
f->Name = L"Tahoma";
f->Size = TVariant(long(11));
var_ConditionalFormat->Font = (IFontDisp*)(f);
var_ConditionalFormat->ApplyTo = Exgridlib_tlb::FormatApplyToEnum(0x1);
Grid1->HeaderHeight = 24;
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Grid1->Columns->Add(L"C1");
Grid1->Columns->Add(L"C2")->HTMLCaption = L"<b><font Tahoma;14>C2";
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant(10))),TVariant(1),TVariant(11));
var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant(12))),TVariant(1),TVariant(13));
Grid1->EndUpdate();
|
|
1108
|
I am using ExComboBox as an user editor, how can I display a different column
// UserEditorClose event - Fired the user editor is about to be opened.
void __fastcall TForm1::Grid1UserEditorClose(TObject *Sender,IDispatch *Object,Exgridlib_tlb::HITEM Item,long ColIndex)
{
// Items.CellValue(Item,ColIndex) = Object.Select("OrderID")
}
// UserEditorOleEvent event - Occurs when an user editor fires an event.
void __fastcall TForm1::Grid1UserEditorOleEvent(TObject *Sender,IDispatch *Object,Exgridlib_tlb::IOleEvent *Ev,VARIANT_BOOL * CloseEditor,Exgridlib_tlb::HITEM Item,long ColIndex)
{
OutputDebugString( L"Ev" );
}
// UserEditorOpen event - Occurs when an user editor is about to be opened.
void __fastcall TForm1::Grid1UserEditorOpen(TObject *Sender,IDispatch *Object,Exgridlib_tlb::HITEM Item,long ColIndex)
{
// Object.Select("OrderID") = Me.Items.CellValue(Item,ColIndex)
}
Grid1->BeginUpdate();
Grid1->SortOnClick = Exgridlib_tlb::SortOnClickEnum::exNoSort;
Exgridlib_tlb::IEditorPtr var_Editor = Grid1->Columns->Add(L"Exontrol.ComboBox")->Editor;
var_Editor->EditType = Exgridlib_tlb::EditTypeEnum::UserEditorType;
var_Editor->UserEditor(L"Exontrol.ComboBox",L"");
/*
Select the Component\Import Component...\Import a Type Library,
to import the following Type Library:
ExComboBox 1.0 Control Library
TypeLib: ExComboBox.dll
to define the namespace: Excomboboxlib_tlb
*/
//#include "EXCOMBOBOXLIB_TLB.h"
Excomboboxlib_tlb::IComboBoxPtr var_ComboBox = (IDispatch*)var_Editor->UserEditorObject;
var_ComboBox->BeginUpdate();
var_ComboBox->Style = Excomboboxlib_tlb::StyleEnum::DropDownList;
var_ComboBox->ColumnAutoResize = false;
/*
Select the Component\Import Component...\Import a Type Library,
to import the following Type Library:
Microsoft ActiveX Data Objects 6.1 Library
TypeLib: msado15.dll
to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADOR.Recordset");
rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExGrid\\Sample\\Access\\misc.accdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
var_ComboBox->DataSource = (IDispatch*)rs;
var_ComboBox->Alignment = Excomboboxlib_tlb::AlignmentEnum::LeftAlignment;
var_ComboBox->IntegralHeight = true;
var_ComboBox->MinHeightList = 128;
var_ComboBox->MinWidthList = 648;
var_ComboBox->HeaderHeight = 36;
var_ComboBox->AllowSizeGrip = true;
var_ComboBox->SingleEdit = true;
var_ComboBox->LabelColumnIndex = 7;
var_ComboBox->SearchColumnIndex = 0;
Excomboboxlib_tlb::IColumnPtr var_Column = var_ComboBox->Columns->get_Item(TVariant(0));
var_Column->HeaderBold = true;
var_Column->HTMLCaption = L"OrderID<br><fgcolor=808080>(search)";
Excomboboxlib_tlb::IColumnPtr var_Column1 = var_ComboBox->Columns->get_Item(TVariant(7));
var_Column1->HeaderBold = true;
var_Column1->HTMLCaption = L"ShipName<br><fgcolor=808080>(display)";
var_Column1->Width = 128;
var_ComboBox->UseTabKey = false;
var_ComboBox->EndUpdate();
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exRowLines;
Grid1->TreeColumnIndex = -1;
Grid1->DefaultItemHeight = 21;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
long h = var_Items->AddItem(TVariant("shows always the drop-down editor"));
var_Items->set_CellHAlignment(TVariant(h),TVariant(0),Exgridlib_tlb::AlignmentEnum::CenterAlignment);
var_Items->set_ItemDivider(h,0);
var_Items->set_ItemDividerLineAlignment(h,Exgridlib_tlb::DividerAlignmentEnum::DividerCenter);
var_Items->set_SelectableItem(h,false);
var_Items->set_EnableItem(h,false);
var_Items->set_CellEditorVisible(TVariant(var_Items->AddItem(TVariant(10248))),TVariant(0),Exgridlib_tlb::EditorVisibleEnum::exEditorVisible);
var_Items->set_CellEditorVisible(TVariant(var_Items->AddItem(TVariant(10249))),TVariant(0),Exgridlib_tlb::EditorVisibleEnum::exEditorVisible);
var_Items->set_CellEditorVisible(TVariant(var_Items->AddItem(TVariant(10250))),TVariant(0),Exgridlib_tlb::EditorVisibleEnum::exEditorVisible);
h = var_Items->AddItem(TVariant("shows the drop-down editor when user clicks it"));
var_Items->set_CellHAlignment(TVariant(h),TVariant(0),Exgridlib_tlb::AlignmentEnum::CenterAlignment);
var_Items->set_ItemDivider(h,0);
var_Items->set_ItemDividerLineAlignment(h,Exgridlib_tlb::DividerAlignmentEnum::DividerCenter);
var_Items->set_SelectableItem(h,false);
var_Items->set_EnableItem(h,false);
var_Items->AddItem(TVariant(10248));
var_Items->AddItem(TVariant(10249));
var_Items->AddItem(TVariant(10250));
Grid1->EndUpdate();
|
|
1107
|
The ItemHeight property is not working (method 2)
Grid1->BeginUpdate();
Grid1->ColumnAutoResize = false;
Grid1->ScrollBySingleLine = true;
Grid1->Columns->Add(L"Column")->Width = 128;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->set_CellSingleLine(TVariant(var_Items->AddItem(TVariant("This is a bit of text that should break the line"))),TVariant(0),Exgridlib_tlb::CellSingleLineEnum::exCaptionWordWrap);
long h = var_Items->AddItem(TVariant(""));
var_Items->set_ItemDivider(h,0);
var_Items->set_SelectableItem(h,false);
var_Items->set_ItemDividerLineAlignment(h,Exgridlib_tlb::DividerAlignmentEnum::DividerCenter);
var_Items->set_ItemHeight(h,3);
var_Items->set_CellSingleLine(TVariant(var_Items->AddItem(TVariant("This is a bit of text that should break the line"))),TVariant(0),Exgridlib_tlb::CellSingleLineEnum::exCaptionWordWrap);
Grid1->EndUpdate();
|
|
1106
|
The ItemHeight property is not working (method 1)
Grid1->BeginUpdate();
Grid1->ColumnAutoResize = false;
Grid1->ScrollBySingleLine = true;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Column");
var_Column->Width = 128;
var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exCellSingleLine,TVariant(0));
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->AddItem(TVariant("This is a bit of text that should break the line"));
long h = var_Items->AddItem(TVariant(""));
var_Items->set_ItemDivider(h,0);
var_Items->set_SelectableItem(h,false);
var_Items->set_ItemDividerLineAlignment(h,Exgridlib_tlb::DividerAlignmentEnum::DividerCenter);
var_Items->set_ItemMinHeight(h,3);
var_Items->set_ItemMaxHeight(h,3);
var_Items->AddItem(TVariant("This is a bit of text that should break the line"));
Grid1->EndUpdate();
|
|
1105
|
How do I add a total field locked at the bottom of the control
// AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
void __fastcall TForm1::Grid1AddGroupItem(TObject *Sender,Exgridlib_tlb::HITEM Item)
{
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->set_ItemDividerLine(Item,Exgridlib_tlb::DividerLineEnum::EmptyLine);
var_Items->set_FormatCell(TVariant(Item),TVariant(var_Items->get_GroupItem(Item)),L"value + ` Min: <b>` + %13 + `</b> Max: <b>` + %14 + `</b> Sum: <b>` + %15 + `</b>, of Freight column`");
var_Items->set_CellValue(TVariant(Item),TVariant("Min"),TVariant("min(current,all,dbl(%6))"));
var_Items->set_CellValueFormat(TVariant(Item),TVariant("Min"),Exgridlib_tlb::ValueFormatEnum::exTotalField);
var_Items->set_CellValue(TVariant(Item),TVariant("Max"),TVariant("max(current,all,dbl(%6))"));
var_Items->set_CellValueFormat(TVariant(Item),TVariant("Max"),Exgridlib_tlb::ValueFormatEnum::exTotalField);
var_Items->set_CellValue(TVariant(Item),TVariant("Sum"),TVariant("sum(current,all,dbl(%6))"));
var_Items->set_CellValueFormat(TVariant(Item),TVariant("Sum"),Exgridlib_tlb::ValueFormatEnum::exTotalField);
var_Items->set_ItemBackColor(Item,RGB(240,240,240));
}
// Change event - Occurs when the user changes the cell's content.
void __fastcall TForm1::Grid1Change(TObject *Sender,Exgridlib_tlb::HITEM Item,long ColIndex,Variant * NewValue)
{
Grid1->Refresh();
}
Grid1->BeginUpdate();
Grid1->HasLines = Exgridlib_tlb::HierarchyLineEnum::exNoLine;
Grid1->Description[Exgridlib_tlb::DescriptionTypeEnum::exColumnsFloatBar] = L"Show/Hide";
Grid1->ColumnsFloatBarSortOrder = Exgridlib_tlb::SortOrderEnum::SortAscending;
Grid1->ColumnsFloatBarVisible = Exgridlib_tlb::ColumnsFloatBarVisibleEnum::exColumnsFloatBarVisibleIncludeCheckColumns;
Grid1->ColumnAutoResize = false;
Grid1->BackColorSortBar = RGB(240,240,240);
/*
Select the Component\Import Component...\Import a Type Library,
to import the following Type Library:
Microsoft ActiveX Data Objects 6.1 Library
TypeLib: msado15.dll
to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADOR.Recordset");
rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExGrid\\Sample\\Access\\misc.accdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Grid1->DataSource = (IDispatch*)rs;
Grid1->SingleSort = false;
Grid1->SortBarVisible = true;
Grid1->AllowGroupBy = true;
Grid1->SortBarCaption = L"Drag a <b>column</b> header here to group by that column.";
Exgridlib_tlb::IColumnsPtr var_Columns = Grid1->Columns;
Exgridlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"Min");
var_Column->Visible = false;
var_Column->AllowDragging = false;
var_Column = var_Columns->Add(L"Max");
var_Column->Visible = false;
var_Column->Visible = false;
var_Column->AllowDragging = false;
Exgridlib_tlb::IColumnPtr var_Column1 = var_Columns->Add(L"Sum");
var_Column1->Visible = false;
var_Column1->Visible = false;
var_Column1->AllowDragging = false;
Exgridlib_tlb::IColumnPtr var_Column2 = Grid1->Columns->get_Item(TVariant("Freight"));
var_Column2->FormatColumn = L"currency(value)";
var_Column2->set_Def(Exgridlib_tlb::DefColumnEnum::exCellBackColor,TVariant(12895487));
var_Column2->set_Def(Exgridlib_tlb::DefColumnEnum::exHeaderBackColor,TVariant(var_Column2->get_Def(Exgridlib_tlb::DefColumnEnum::exCellBackColor)));
var_Column2->HeaderBold = true;
var_Column2->AllowGroupBy = false;
var_Column2->Alignment = Exgridlib_tlb::AlignmentEnum::RightAlignment;
Grid1->ScrollBySingleLine = false;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->set_LockedItemCount(Exgridlib_tlb::VAlignmentEnum::exBottom,2);
long hL = var_Items->get_LockedItem(Exgridlib_tlb::VAlignmentEnum::exBottom,0);
var_Items->set_ItemDivider(hL,0);
var_Items->set_ItemHeight(hL,3);
var_Items->set_ItemDividerLineAlignment(hL,Exgridlib_tlb::DividerAlignmentEnum::DividerTop);
var_Items->set_ItemDividerLine(hL,Exgridlib_tlb::DividerLineEnum::DoubleLine);
hL = var_Items->get_LockedItem(Exgridlib_tlb::VAlignmentEnum::exBottom,1);
var_Items->set_CellValue(TVariant(hL),TVariant(6),TVariant("sum(all,rec,dbl(%6))"));
var_Items->set_CellValueFormat(TVariant(hL),TVariant(6),Exgridlib_tlb::ValueFormatEnum::exTotalField);
var_Items->set_ItemHeight(hL,24);
var_Items->set_ItemBold(hL,true);
Grid1->Columns->get_Item(TVariant("EmployeeID"))->SortOrder = true;
Grid1->EndUpdate();
|
|
1104
|
How can I add a total field, when I use grouping
// AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
void __fastcall TForm1::Grid1AddGroupItem(TObject *Sender,Exgridlib_tlb::HITEM Item)
{
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->set_ItemDividerLine(Item,Exgridlib_tlb::DividerLineEnum::EmptyLine);
var_Items->set_FormatCell(TVariant(Item),TVariant(var_Items->get_GroupItem(Item)),L"value + ` Min: <b>` + %13 + `</b> Max: <b>` + %14 + `</b> Sum: <b>` + %15 + `</b>, of Freight column`");
var_Items->set_CellValue(TVariant(Item),TVariant("Min"),TVariant("min(current,all,dbl(%6))"));
var_Items->set_CellValueFormat(TVariant(Item),TVariant("Min"),Exgridlib_tlb::ValueFormatEnum::exTotalField);
var_Items->set_CellValue(TVariant(Item),TVariant("Max"),TVariant("max(current,all,dbl(%6))"));
var_Items->set_CellValueFormat(TVariant(Item),TVariant("Max"),Exgridlib_tlb::ValueFormatEnum::exTotalField);
var_Items->set_CellValue(TVariant(Item),TVariant("Sum"),TVariant("sum(current,all,dbl(%6))"));
var_Items->set_CellValueFormat(TVariant(Item),TVariant("Sum"),Exgridlib_tlb::ValueFormatEnum::exTotalField);
var_Items->set_ItemBackColor(Item,RGB(240,240,240));
}
// Change event - Occurs when the user changes the cell's content.
void __fastcall TForm1::Grid1Change(TObject *Sender,Exgridlib_tlb::HITEM Item,long ColIndex,Variant * NewValue)
{
Grid1->Refresh();
}
Grid1->BeginUpdate();
Grid1->HasLines = Exgridlib_tlb::HierarchyLineEnum::exNoLine;
Grid1->ColumnAutoResize = false;
Grid1->BackColorSortBar = RGB(240,240,240);
/*
Select the Component\Import Component...\Import a Type Library,
to import the following Type Library:
Microsoft ActiveX Data Objects 6.1 Library
TypeLib: msado15.dll
to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADOR.Recordset");
rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExGrid\\Sample\\Access\\misc.accdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Grid1->DataSource = (IDispatch*)rs;
Grid1->SingleSort = false;
Grid1->SortBarVisible = true;
Grid1->AllowGroupBy = true;
Grid1->Columns->get_Item(TVariant(1))->SortOrder = true;
Exgridlib_tlb::IColumnsPtr var_Columns = Grid1->Columns;
var_Columns->Add(L"Min")->Visible = false;
var_Columns->Add(L"Max")->Visible = false;
var_Columns->Add(L"Sum")->Visible = false;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->get_Item(TVariant("Freight"));
var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exCellBackColor,TVariant(12895487));
var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exHeaderBackColor,TVariant(var_Column->get_Def(Exgridlib_tlb::DefColumnEnum::exCellBackColor)));
var_Column->HeaderBold = true;
var_Column->AllowGroupBy = false;
Grid1->ScrollBySingleLine = false;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
var_Items->set_LockedItemCount(Exgridlib_tlb::VAlignmentEnum::exBottom,1);
long hL = var_Items->get_LockedItem(Exgridlib_tlb::VAlignmentEnum::exBottom,0);
var_Items->set_ItemDivider(hL,0);
var_Items->set_ItemHeight(hL,24);
var_Items->set_ItemDividerLineAlignment(hL,Exgridlib_tlb::DividerAlignmentEnum::DividerTop);
var_Items->set_ItemDividerLine(hL,Exgridlib_tlb::DividerLineEnum::DoubleLine);
var_Items->set_CellValue(TVariant(hL),TVariant(0),TVariant("sum(all,rec,dbl(%6))"));
var_Items->set_CellValueFormat(TVariant(hL),TVariant(0),Exgridlib_tlb::ValueFormatEnum::exTotalField | Exgridlib_tlb::ValueFormatEnum::exHTML);
var_Items->set_CellHAlignment(TVariant(hL),TVariant(0),Exgridlib_tlb::AlignmentEnum::RightAlignment);
var_Items->set_FormatCell(TVariant(hL),TVariant(0),L"'Freight: <bgcolor=FFC4C4> '+(value format ``) + ` `");
Grid1->EndUpdate();
|
|
1103
|
How do I use the ColumnsFloatBarVisible on exColumnsFloatBarVisibleIncludeCheckColumns
Grid1->BeginUpdate();
Grid1->ColumnAutoResize = false;
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Exgridlib_tlb::IColumnsPtr var_Columns = Grid1->Columns;
var_Columns->Add(L"City");
var_Columns->Add(L"Start")->Visible = false;
var_Columns->Add(L"End")->Visible = false;
Grid1->Description[Exgridlib_tlb::DescriptionTypeEnum::exColumnsFloatBar] = L"Show/Hide";
Grid1->ColumnsFloatBarSortOrder = Exgridlib_tlb::SortOrderEnum::SortAscending;
Grid1->ColumnsFloatBarVisible = Exgridlib_tlb::ColumnsFloatBarVisibleEnum::exColumnsFloatBarVisibleIncludeCheckColumns;
Grid1->EndUpdate();
|
|
1102
|
How do I use the ColumnsFloatBarVisible on exColumnsFloatBarVisibleIncludeHiddenColumn
Grid1->BeginUpdate();
Grid1->ColumnAutoResize = false;
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Exgridlib_tlb::IColumnsPtr var_Columns = Grid1->Columns;
var_Columns->Add(L"City");
var_Columns->Add(L"Start")->Visible = false;
var_Columns->Add(L"End")->Visible = false;
Grid1->Description[Exgridlib_tlb::DescriptionTypeEnum::exColumnsFloatBar] = L"Show";
Grid1->ColumnsFloatBarVisible = Exgridlib_tlb::ColumnsFloatBarVisibleEnum::exColumnsFloatBarVisibleIncludeHiddenColumns;
Grid1->ColumnsFloatBarSortOrder = Exgridlib_tlb::SortOrderEnum::SortAscending;
Grid1->EndUpdate();
|
|
1101
|
How do I use the ColumnsFloatBarVisible on exColumnsFloatBarVisibleIncludeGroupByColumns
Grid1->BeginUpdate();
Grid1->ColumnAutoResize = false;
Grid1->HeaderAppearance = Exgridlib_tlb::AppearanceEnum::Etched;
Exgridlib_tlb::IColumnsPtr var_Columns = Grid1->Columns;
var_Columns->Add(L"City");
var_Columns->Add(L"Start");
var_Columns->Add(L"End");
Grid1->AllowGroupBy = true;
Grid1->SortBarVisible = true;
Grid1->SortBarCaption = L"Drag a <b>column</b> header here to group by that column.";
Grid1->BackColorSortBar = RGB(250,250,250);
Grid1->Description[Exgridlib_tlb::DescriptionTypeEnum::exColumnsFloatBar] = L"Group-By";
Grid1->ColumnsFloatBarVisible = Exgridlib_tlb::ColumnsFloatBarVisibleEnum::exColumnsFloatBarVisibleIncludeGroupByColumns;
Grid1->ColumnsFloatBarSortOrder = Exgridlib_tlb::SortOrderEnum::SortAscending;
Grid1->Columns->get_Item(TVariant("City"))->SortOrder = Exgridlib_tlb::SortOrderEnum::SortAscending;
Grid1->EndUpdate();
|