|
305
|
Why I cannot center my cells in the column
with AxComboBox1 do
begin
TreeColumnIndex := -1;
DrawGridLines := EXCOMBOBOXLib.GridLinesEnum.exRowLines;
(Columns.Add('Default') as EXCOMBOBOXLib.Column).Alignment := EXCOMBOBOXLib.AlignmentEnum.CenterAlignment;
Items.AddItem('item 1');
Items.AddItem('item 2');
Items.AddItem('item 3');
end
|
|
23
|
Why child items are not shown
with AxComboBox1 do
begin
LinesAtRoot := EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot;
Columns.Add('Column 1');
with Items do
begin
h := AddItem('Root');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
ExpandItem[h] := True;
end;
end
|
|
551
|
Why can t I type free text into a DropDown style combobox
with AxComboBox1 do
begin
AutoComplete := False;
IntegralHeight := True;
Columns.Add('Column');
with Items do
begin
AddItem('Item 3');
AddItem('Item 1');
AddItem('Item 2');
end;
end
|
|
456
|
What is the equivalent to combo1.text=combo1.list(index) to select a row in the combo
with AxComboBox1 do
begin
Columns.Add('Default');
with Items do
begin
AddItem('A');
AddItem('B');
AddItem('C');
AddItem('D');
end;
set_Select(TObject(0),'C');
end
|
|
458
|
What is the equivalent to combo1.text=combo1.list(index) to select a row in the combo
with AxComboBox1 do
begin
Columns.Add('Default');
with Items do
begin
AddItem('A');
AddItem('B');
AddItem('C');
AddItem('D');
end;
set_EditText(TObject(0),AxComboBox1.Items.CellCaption[TObject(AxComboBox1.Items.ItemByIndex[2]),TObject(0)]);
end
|
|
459
|
What is the equivalent to combo1.text=combo1.list(index) to select a row in the combo
with AxComboBox1 do
begin
Columns.Add('Default');
with Items do
begin
AddItem('A');
AddItem('B');
AddItem('C');
AddItem('D');
end;
set_EditText(TObject(0),'C');
end
|
|
457
|
What is the equivalent to combo1.text=combo1.list(index) to select a row in the combo
with AxComboBox1 do
begin
Columns.Add('Default');
with Items do
begin
AddItem('A');
AddItem('B');
AddItem('C');
AddItem('D');
end;
set_Select(TObject(0),AxComboBox1.Items.CellCaption[TObject(AxComboBox1.Items.ItemByIndex[2]),TObject(0)]);
end
|
|
383
|
What about a function to get the day in the week, or days since Sunday
with AxComboBox1 do
begin
Columns.Add('Date');
(Columns.Add('WeekDay') as EXCOMBOBOXLib.Column).ComputedField := 'weekday(%0)';
with Items do
begin
AddItem('1/11/2001 10:00:00 AM');
AddItem('2/22/2002 11:00:00 AM');
AddItem('3/13/2003 12:00:00 PM');
AddItem('4/14/2004 1:00:00 PM');
end;
end
|
|
538
|
Type of wraps the cell's caption support (Sample 2)
with AxComboBox1 do
begin
BeginUpdate();
HeaderSingleLine := False;
HeaderHeight := 36;
DrawGridLines := EXCOMBOBOXLib.GridLinesEnum.exRowLines;
ColumnAutoResize := False;
ScrollBySingleLine := True;
with Columns do
begin
with (Add('Single-Line (exCaptionSingleLine)') as EXCOMBOBOXLib.Column) do
begin
Width := 96;
Def[EXCOMBOBOXLib.DefColumnEnum.exCellCaptionFormat] := TObject(1);
Def[EXCOMBOBOXLib.DefColumnEnum.exCellSingleLine] := TObject(-1);
end;
with (Add('Word-Wrap (exCaptionWordWrap)') as EXCOMBOBOXLib.Column) do
begin
Width := 96;
Def[EXCOMBOBOXLib.DefColumnEnum.exCellCaptionFormat] := TObject(1);
Def[EXCOMBOBOXLib.DefColumnEnum.exCellSingleLine] := TObject(0);
FormatColumn := '%0';
end;
with (Add('Break-Wrap (exCaptionBreakWrap)') as EXCOMBOBOXLib.Column) do
begin
Width := 96;
Def[EXCOMBOBOXLib.DefColumnEnum.exCellCaptionFormat] := TObject(1);
Def[EXCOMBOBOXLib.DefColumnEnum.exCellSingleLine] := TObject(1);
FormatColumn := '%0';
end;
end;
with Items do
begin
AddItem('This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.');
AddItem('This is the <b>first</b> line.\r\nThis is the <b>second</b> line.\r\nThis is the <b>third</b> line.');
end;
EndUpdate();
end
|
|
537
|
Type of wraps the cell's caption support (Sample 1)
with AxComboBox1 do
begin
BeginUpdate();
HeaderSingleLine := False;
HeaderHeight := 36;
DrawGridLines := EXCOMBOBOXLib.GridLinesEnum.exRowLines;
ColumnAutoResize := False;
ScrollBySingleLine := True;
(Columns.Add('Default') as EXCOMBOBOXLib.Column).Width := 128;
with Items do
begin
h := AddItem('This is the first line.\r\nThis is the second line.\r\nThis is the third line.');
h := AddItem('This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.');
CellCaptionFormat[TObject(h),TObject(0)] := EXCOMBOBOXLib.CaptionFormatEnum.exHTML;
h := AddItem('This is the first line.\r\nThis is the second line.\r\nThis is the third line.');
CellSingleLine[TObject(h),TObject(0)] := EXCOMBOBOXLib.CellSingleLineEnum.exCaptionWordWrap;
h := AddItem('This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.');
CellCaptionFormat[TObject(h),TObject(0)] := EXCOMBOBOXLib.CaptionFormatEnum.exHTML;
CellSingleLine[TObject(h),TObject(0)] := EXCOMBOBOXLib.CellSingleLineEnum.exCaptionWordWrap;
h := AddItem('This is the first line.\r\nThis is the second line.\r\nThis is the third line.');
CellSingleLine[TObject(h),TObject(0)] := EXCOMBOBOXLib.CellSingleLineEnum.exCaptionBreakWrap;
h := AddItem('This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.');
CellCaptionFormat[TObject(h),TObject(0)] := EXCOMBOBOXLib.CaptionFormatEnum.exHTML;
CellSingleLine[TObject(h),TObject(0)] := EXCOMBOBOXLib.CellSingleLineEnum.exCaptionBreakWrap;
end;
EndUpdate();
end
|
|
574
|
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.
procedure TWinForm1.AxComboBox1_AddColumn(sender: System.Object; e: AxEXCOMBOBOXLib._IComboBoxEvents_AddColumnEvent);
begin
with AxComboBox1 do
begin
with e.column do
begin
end;
end
end;
with AxComboBox1 do
begin
BeginUpdate();
ColumnAutoResize := False;
rs := (ComObj.CreateComObject(ComObj.ProgIDToClassID('ADOR.Recordset')) as ADODB.Recordset);
with rs do
begin
Open('Orders','Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.accdb',3,3,Nil);
end;
DataSource := (rs as ADODB.Recordset);
Columns.Item['ShipVia'].Position := 2;
EndUpdate();
end
|
|
169
|
The thumb size seems to be very small. Can I make it bigger
with AxComboBox1 do
begin
ColumnAutoResize := False;
(Columns.Add('C1') as EXCOMBOBOXLib.Column).Width := 256;
(Columns.Add('C2') as EXCOMBOBOXLib.Column).Width := 256;
(Columns.Add('C3') as EXCOMBOBOXLib.Column).Width := 256;
set_ScrollThumbSize(EXCOMBOBOXLib.ScrollBarEnum.exHScroll,64);
end
|
|
45
|
The drop down filter window displays a "to" string between two datem when I filter dates. Can I change that
with AxComboBox1 do
begin
with (Columns.Add('Column') as EXCOMBOBOXLib.Column) do
begin
DisplayFilterButton := True;
DisplayFilterDate := True;
end;
set_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarDateTo,'->');
ApplyFilter();
end
|
|
324
|
The control supports three styles: Simple, DropDown and DropDownList. How can I change the style
with AxComboBox1 do
begin
Style := EXCOMBOBOXLib.StyleEnum.DropDownList;
end
|
|
337
|
The control selects the portion of text that doesn't match with the selected item. How can I avoid that
with AxComboBox1 do
begin
AutoSelect := False;
Columns.Add('Column');
with Items do
begin
AddItem('Item 3');
AddItem('Item 1');
AddItem('Item 2');
end;
end
|
|
507
|
The control's filter bar is not closed once I click the close button (toggle)
with AxComboBox1 do
begin
BeginUpdate();
(Columns.Add('Item') as EXCOMBOBOXLib.Column).DisplayFilterButton := True;
with (Columns.Add('Pos') as EXCOMBOBOXLib.Column) do
begin
AllowSizing := False;
AllowSort := False;
Width := 32;
FormatColumn := '1 apos ``';
Position := 0;
end;
with Items do
begin
AddItem('Item A');
AddItem('Item B');
AddItem('Item C');
LockedItemCount[EXCOMBOBOXLib.VAlignmentEnum.exBottom] := 1;
h := LockedItem[EXCOMBOBOXLib.VAlignmentEnum.exBottom,0];
ItemDivider[h] := 0;
CellCaption[TObject(h),TObject(0)] := '<c><fgcolor=808080>Press the CTRL + F to turn on/off the control''s filter bar. ALT + Up/Down moves the focus.';
CellCaptionFormat[TObject(h),TObject(0)] := EXCOMBOBOXLib.CaptionFormatEnum.exHTML;
end;
FilterBarCaption := '`<r><fgcolor=808080>` + value';
FilterBarPromptPattern := 'B';
FilterBarPromptVisible := Integer(EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarCompact) Or Integer(EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarToggle) Or Integer(EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarSingleLine) Or Integer(EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarVisible) Or Integer(EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarPromptVisible);
with Columns.Item[TObject(0)] do
begin
FilterType := EXCOMBOBOXLib.FilterTypeEnum.exFilter;
Filter := 'Item B';
end;
ApplyFilter();
EndUpdate();
end
|
|
37
|
The "IsBlank" caption shown in the control's filterbar when I select "Blanks" or "NonBlanks" items in the column's drop down filter window
with AxComboBox1 do
begin
with (Columns.Add('Column') as EXCOMBOBOXLib.Column) do
begin
DisplayFilterButton := True;
FilterType := EXCOMBOBOXLib.FilterTypeEnum.exBlanks;
end;
set_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarIsBlank,'Is Empty');
set_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarIsNonBlank,'Is Not Empty');
ApplyFilter();
end
|
|
586
|
Shows the tooltip of the object moved relative to its default position
// MouseMove event - Occurs when the user moves the mouse.
procedure TWinForm1.AxComboBox1_MouseMoveEvent(sender: System.Object; e: AxEXCOMBOBOXLib._IComboBoxEvents_MouseMoveEvent);
begin
with AxComboBox1 do
begin
ShowToolTip('<null>','<null>',Nil,'+8','+8');
end
end;
with AxComboBox1 do
begin
(Columns.Add('tootip') as EXCOMBOBOXLib.Column).ToolTip := 'this is a tooltip assigned to a column';
end
|
|
476
|
Setting the ForeColor to red and then setting Enabled property on False the ForeColor returns back to original color of black/gray. What can be done (Style is Simple)
with AxComboBox1 do
begin
BeginUpdate();
Style := EXCOMBOBOXLib.StyleEnum.Simple;
ColumnAutoResize := True;
with Columns do
begin
Add('C1');
Add('C2');
end;
with Items do
begin
CellCaption[TObject(AddItem('item a')),TObject(1)] := 'item b';
CellCaption[TObject(AddItem('item c')),TObject(1)] := 'item d';
end;
Value := 'item a';
ForeColor := Color.FromArgb(128,128,188);
BackColor := Color.FromArgb(240,240,240);
HeaderForeColor := Color.FromArgb(128,128,128);
SelBackColor := Color.FromArgb(128,128,128);
BackColorEdit := Color.FromArgb(0,0,0);
ForeColorEdit := Color.FromArgb(255,255,255);
Enabled := False;
EndUpdate();
end
|
|
475
|
Setting the ForeColor to red and then setting Enabled property on False the ForeColor returns back to original color of black/gray. What can be done (Style is DropDownList)
with AxComboBox1 do
begin
BeginUpdate();
Style := EXCOMBOBOXLib.StyleEnum.DropDownList;
ColumnAutoResize := True;
with Columns do
begin
Add('C1');
Add('C2');
end;
with Items do
begin
CellCaption[TObject(AddItem('item a')),TObject(1)] := 'item b';
CellCaption[TObject(AddItem('item c')),TObject(1)] := 'item d';
end;
Value := 'item a';
BackColorEdit := Color.FromArgb(0,0,0);
ForeColor := Color.FromArgb(255,255,255);
Enabled := False;
EndUpdate();
end
|
|
474
|
Setting the ForeColor to red and then setting Enabled property on False the ForeColor returns back to original color of black/gray. What can be done (Style is DropDown)
with AxComboBox1 do
begin
BeginUpdate();
Style := EXCOMBOBOXLib.StyleEnum.DropDown;
ColumnAutoResize := True;
with Columns do
begin
Add('C1');
Add('C2');
end;
with Items do
begin
CellCaption[TObject(AddItem('item a')),TObject(1)] := 'item b';
CellCaption[TObject(AddItem('item c')),TObject(1)] := 'item d';
end;
Value := 'item a';
ForeColorEdit := Color.FromArgb(255,255,255);
BackColorEdit := Color.FromArgb(0,0,0);
Enabled := False;
EndUpdate();
end
|
|
577
|
Re-order the cell's caption, icons and images/pictures
with AxComboBox1 do
begin
BeginUpdate();
IntegralHeight := True;
Images('gBJJgBAICAADAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEahkZAIAEEbjMjlErlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrlTiFdib/sNjr9gs1nldlrlqtFtt0stlguNvulyh91ud1vVVvNuvt7wFHr9/vl3luEwOJouIq+Dw2KyGRyWTymVy2XzGZzUuiw+lmej0gkUaksljaAnmDc' +
'D/cEbf7w1+ufD/fEbeB028bYAO3enB6AB++4EoA4A4sb4vHjXJ4nG5vKAHA4ca6XBjTAD/Y2x/eB/jcB');
with (Columns.Add('ToLeft') as EXCOMBOBOXLib.Column) do
begin
Def[EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
end;
with (Columns.Add('ToRight') as EXCOMBOBOXLib.Column) do
begin
Def[EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
Def[EXCOMBOBOXLib.DefColumnEnum.exCellDrawPartsOrder] := 'caption,picture,icons,icon,check';
end;
DefaultItemHeight := 32;
DrawGridLines := EXCOMBOBOXLib.GridLinesEnum.exVLines;
HeaderAppearance := EXCOMBOBOXLib.AppearanceEnum.Etched;
with Items do
begin
h := AddItem('Caption');
CellImage[TObject(h),TObject(0)] := 2;
CellImages[TObject(h),TObject(0)] := '1,2';
CellPicture[TObject(h),TObject(0)] := (AxComboBox1.ExecuteTemplate('loadpicture(`gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsG' +
'L2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7F' +
'XI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FC' +
'jVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4w' +
'G8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQ' +
'JAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZen' +
'EVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFp' +
'TheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siq' +
'bZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxX' +
'hIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DP' +
'H8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAm' +
'Bgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCME' +
'gSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByj' +
'JGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0Wg' +
'LhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHC' +
'BwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1' +
'iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL' +
'4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0F' +
'qGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdg' +
'uhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGU' +
'SNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhA' +
'FaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6' +
'BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZ' +
'QS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmi' +
'XE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAY' +
'Aah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5' +
'AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARAS' +
'A/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AI' +
'BdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAd' +
'AcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBP' +
'hSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAh' +
'hLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBv' +
'gjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAG' +
'hvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/' +
'gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sU' +
'hMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4Af' +
'gZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xM' +
'hgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2' +
'BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBW' +
'hFh/knAAADgLAkgiAggqAsAEhigrA1g2AKAqgKBfAZgdh9g2BbhugjhUgCgtgBALAtAYy+AWhEgmgAhFgSAaT4gAASgaATAahIgxACB9ghhGgfgmBoAEB4gIg/ANBagx' +
'AkhGBRA0gs3yBaBjTNAFBCBFBghCACAJAlhFh+AAAEgCAQgQg+h2g7Bbhdgdgdhdhxh7gGvUhbBHhah/B5ATAzh3BOtAWchuh3hOA9h3XvAfgbh0hfh8Brg6hegDB9Bt' +
'nWDQByA4gkAGJIAZAEgcgFh8gvBJBSAdh0BLhqBLACAABHBtgwB2x8yngsg+gAByA2gAB8hxhvh6Byg+AFBp4nBShMgmBzANgAB8ACBZADARBLPVhQh7uKBOg/B7hqBU' +
'gphbA+AfALAygQYohXBZi2AThYhcAeBPhAuwhdgIBEgiB7B9YzhDA0AvAthIBAg8AeBfApAohKA/B2BRA+BYm/gGBCguAG5JhAhjZLAgAvgvhPg1gYgehmAbgLZQhDAj' +
'AjgjgOh5heAxzgABhx5Wgig0AfgQA/B13iBgBchVgrhXgVXFhbh9gKBdgugUAbXDgygsg+A/B+B8AqA6g6hahbBsANBmA/hCgmhegeSVgeADBwB+BKg+BnA0hwBxBihF' +
'h7BxBxAxAIgGACAiAYAMAKA/BPgnguAMgPBbBngak8B+hsgqAVBag2hnBOAoBWAJhYgsA2AchvAHhIEMAmgmAmAkAjhHgPB6hUBkhSAqApgpjehsBcgZhAhuAYBOBdAu' +
'AXAwgpgPBMBwAOB5AjB+AeAYBwANACghgnBTgph3h0B0BMB4h91BgMAJhxAmgSByhshbajBaWPgTgCAYA4ACWGg3g/AyBfgzhnhPBxA1hrhXBshehChChRBQBQAgAeAF' +
'BNAtg7h3hHB7h7B7A9BOgHBDgggfhrBEBHA+h9gRB+68hPAfg3huAoAzbAAiAGBZA7B2htAqB7hYgxgwhVgehOVIFFBRgchLhhgAA7BfBthdB9hkhkgkg0hyBlAKhBg3' +
'ABAgAZBEg4AcBWAGYIhzgXAEgDA6gmhphwAtgRBYBmBwBwBQAThBA3gvBXn3hrBDBuBcA/BugnANgEBLhKhCgzhwYzhAAiARAohGgHgggJgMg9gMBrA4g+A6BoAUhchu' +
'g3BBgAhZAIBPBNApAFAFAFh6hZBZAZAWhMgkAkBEgyApb1BOAqBGBIBmATAShAhsgOgHBuhxh4gsBOhph2ArAfBmBLCWgigxgOhZhshtAMBrghhDgHgjgfrIB5ABBCBQ' +
'AcAgV4gPhcgIBWhVhXgnhBApA4hVBXhngFhTLMgcgOhRgtAMh+hFh2h2gohnAsgshCg+rTAGgNhcgjgvwhAsA0BOA8gV4dBN8qBJh68rgUgoB2BdA6h5hTABhMgWAxhT' +
'g9A2guguhJBDB0g4B5hzBmsvhwgwgzgog4g4gDAmAygPBUhWAqANgbg3AmBAI2AOBzhDA8hmBKgxBIAFgAAJhbCuhGgKl7BwhwAmgcAKAigDh2gZAJArABANgDBegx5W' +
'gZADgwBGBEAkBegAg2AYg9gwKABtBmhPABBoBZAPgFhHBMAPhmB/B6bdhZhdhdhth1hh8lBGgIBEAUgOhEgKgVgrA0AngaAaBiBIgyB5A3gLgXBcAEhlJjAJgEAsAJAk' +
'gqqlhththThrhrhrBVBTAWhZhDhPhThIBWARg+Bn7Sg7A3gDhZAvAphEgegGgehuhpAJAyAJBZQ9gBggAAgAgwBDg3BCAAhkgTh0hkAAhLhthWhTgqAqhJBIAhhmAEgq' +
'gqgCgbBiB6h9BD8zhxhmABrOhfAqhMg7ghwiA4BSJNhMgqg4BEhkY8AjBphNATBaA6AtAwBYgEACBBiEBABIAggbg7gmh1AlglAlgahXBmhmB1BgBPBEAmAnwZgogyhV' +
'gmgABcgxsNBUAWAAB2B4AHBvA5h3B3ggAQBIAwg+hPhSgqBQCEA/gQBQA2htKUgfAJhFgkhkAYBtAIAMHpgbAasHg0gVAsBhhIgbBVAxAi/MgFBnAZBDBpB2ABgwADBW' +
'h3gchuBwBxhrhkB1BbhWAFAP5mBCghgTgnA8AgBV+OgqhSg2g1g3AnBOAcg+hNAYgbhHBRg8g6BjhjhjA2ADgdAdhTg/Aeg/hvA6h1h7A2gChLhKfjAdAxhahigYgMAG' +
'Ashzg5AAaYh/AGAjh2AChABwBOgwXnBFh/ApAzgT2GBZBGvTBHAjBGhAF0wAgsDi1w4Nza2UkyBUYiA+maxm6g1K32ad3s2Qg8AKlRaBlKD1wKE+rCCjSObAK8iGsFOr' +
'C0vR0lTeDV8IUatHu6GO2jkAHgAwgfgC5TYrVsKk2Y3MBRcpBQkgmOUuznY2FqKy0WSymXeX0ASwel0olHI5AwJ1mx0gL1mTXU6XS8Vpdj4hyg8BemDYZHqMFOUyYZTW' +
'P1WJ1CN1MTR6gH4cmysjKr2mlCqn3GuR+jDoJHGWlKkU+ajXpgg1yq2FQDFigSEBROwkCKnQwGwjliIU45x2HGyIB4dnM0UmUC+PhaLxefwOdia5zMT3+8wwYCQmEwdi' +
'4vQKqHKvigKHoKnc9Rs7GMDUOhhGOnAYjWkzKKRGyxsDUA01QCw0QCOF0uh0OkfRUMMbyRNwTBiCYZwKMIYyZAUkSlBYkxsCYAAHG4qwCBwMQfBYlxsNgsDhLEgwHA8P' +
'iPNg1ygP4uywIgMSwK4zSQG46BnFAATDJcL3IHM6DQBsPR3O83j/AsJyGH8w4ZJY5TsN8EAdFojTwJ0AAoA4MgATIMDqAcrQPMEwTDBgVy0LYtiuK8qyrFs6QtCocnLC' +
's8wAGAChOGM+CZJ0HAaoQHQYocBiaHtJT3LEfgCLYIgQNYgw4IQiSaBcAABBEAB/DAXS4HgPAgLUSCzGkPjkIATyXPQoCeNYfR6Do7QGI8Zj+CAHiyCY2SkIQTSSCIyD' +
'QCkpDBJQJinMMuAUPgOxGOcpA/AkoTzJwyiYFMiDwJEsShFAURFCwJRVFceQXKQIS8P8STlBgLggAcrAQCQATjIgZA0JgVSxL0OAmKI6CpEc4SuOkeBeOwMRnLQuQhOA' +
'pDJAImYmD44BPIgAzFMYiR3LcQw4JwqhQAknAMFAxwEEwJwUO4ljCHgmxzNwNQ3EU3ScLYEAACocDePwZgCLI+yFN8jg7FEQTtKMcwrAAOhgHw6SQI4OCmJgjDmNAjj5' +
'Gw+wbHkkTpEw7gpFgIAA2sABJEUThEK4QhgIJAQ==`)') as Object);
CellCaption[TObject(h),TObject(1)] := CellCaption[TObject(h),TObject(0)];
CellHAlignment[TObject(h),TObject(1)] := EXCOMBOBOXLib.AlignmentEnum.RightAlignment;
CellImage[TObject(h),TObject(1)] := CellImage[TObject(h),TObject(0)];
CellImages[TObject(h),TObject(1)] := '2,1';
CellPicture[TObject(h),TObject(1)] := (CellPicture[TObject(h),TObject(0)] as Object);
h := AddItem('<b>HTML</b> <off 4>Caption');
CellCaptionFormat[TObject(h),TObject(0)] := EXCOMBOBOXLib.CaptionFormatEnum.exHTML;
CellImage[TObject(h),TObject(0)] := 2;
CellImages[TObject(h),TObject(0)] := '1,2';
CellPicture[TObject(h),TObject(0)] := (AxComboBox1.ExecuteTemplate('loadpicture(`gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsG' +
'L2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7F' +
'XI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FC' +
'jVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4w' +
'G8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQ' +
'JAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZen' +
'EVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFp' +
'TheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siq' +
'bZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxX' +
'hIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DP' +
'H8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAm' +
'Bgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCME' +
'gSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByj' +
'JGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0Wg' +
'LhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHC' +
'BwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1' +
'iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL' +
'4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0F' +
'qGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdg' +
'uhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGU' +
'SNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhA' +
'FaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6' +
'BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZ' +
'QS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmi' +
'XE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAY' +
'Aah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5' +
'AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARAS' +
'A/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AI' +
'BdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAd' +
'AcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBP' +
'hSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAh' +
'hLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBv' +
'gjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAG' +
'hvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/' +
'gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sU' +
'hMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4Af' +
'gZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xM' +
'hgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2' +
'BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBW' +
'hFh/knAAADgLAkgiAggqAsAEhigrA1g2AKAqgKBfAZgdh9g2BbhugjhUgCgtgBALAtAYy+AWhEgmgAhFgSAaT4gAASgaATAahIgxACB9ghhGgfgmBoAEB4gIg/ANBagx' +
'AkhGBRA0gs3yBaBjTNAFBCBFBghCACAJAlhFh+AAAEgCAQgQg+h2g7Bbhdgdgdhdhxh7gGvUhbBHhah/B5ATAzh3BOtAWchuh3hOA9h3XvAfgbh0hfh8Brg6hegDB9Bt' +
'nWDQByA4gkAGJIAZAEgcgFh8gvBJBSAdh0BLhqBLACAABHBtgwB2x8yngsg+gAByA2gAB8hxhvh6Byg+AFBp4nBShMgmBzANgAB8ACBZADARBLPVhQh7uKBOg/B7hqBU' +
'gphbA+AfALAygQYohXBZi2AThYhcAeBPhAuwhdgIBEgiB7B9YzhDA0AvAthIBAg8AeBfApAohKA/B2BRA+BYm/gGBCguAG5JhAhjZLAgAvgvhPg1gYgehmAbgLZQhDAj' +
'AjgjgOh5heAxzgABhx5Wgig0AfgQA/B13iBgBchVgrhXgVXFhbh9gKBdgugUAbXDgygsg+A/B+B8AqA6g6hahbBsANBmA/hCgmhegeSVgeADBwB+BKg+BnA0hwBxBihF' +
'h7BxBxAxAIgGACAiAYAMAKA/BPgnguAMgPBbBngak8B+hsgqAVBag2hnBOAoBWAJhYgsA2AchvAHhIEMAmgmAmAkAjhHgPB6hUBkhSAqApgpjehsBcgZhAhuAYBOBdAu' +
'AXAwgpgPBMBwAOB5AjB+AeAYBwANACghgnBTgph3h0B0BMB4h91BgMAJhxAmgSByhshbajBaWPgTgCAYA4ACWGg3g/AyBfgzhnhPBxA1hrhXBshehChChRBQBQAgAeAF' +
'BNAtg7h3hHB7h7B7A9BOgHBDgggfhrBEBHA+h9gRB+68hPAfg3huAoAzbAAiAGBZA7B2htAqB7hYgxgwhVgehOVIFFBRgchLhhgAA7BfBthdB9hkhkgkg0hyBlAKhBg3' +
'ABAgAZBEg4AcBWAGYIhzgXAEgDA6gmhphwAtgRBYBmBwBwBQAThBA3gvBXn3hrBDBuBcA/BugnANgEBLhKhCgzhwYzhAAiARAohGgHgggJgMg9gMBrA4g+A6BoAUhchu' +
'g3BBgAhZAIBPBNApAFAFAFh6hZBZAZAWhMgkAkBEgyApb1BOAqBGBIBmATAShAhsgOgHBuhxh4gsBOhph2ArAfBmBLCWgigxgOhZhshtAMBrghhDgHgjgfrIB5ABBCBQ' +
'AcAgV4gPhcgIBWhVhXgnhBApA4hVBXhngFhTLMgcgOhRgtAMh+hFh2h2gohnAsgshCg+rTAGgNhcgjgvwhAsA0BOA8gV4dBN8qBJh68rgUgoB2BdA6h5hTABhMgWAxhT' +
'g9A2guguhJBDB0g4B5hzBmsvhwgwgzgog4g4gDAmAygPBUhWAqANgbg3AmBAI2AOBzhDA8hmBKgxBIAFgAAJhbCuhGgKl7BwhwAmgcAKAigDh2gZAJArABANgDBegx5W' +
'gZADgwBGBEAkBegAg2AYg9gwKABtBmhPABBoBZAPgFhHBMAPhmB/B6bdhZhdhdhth1hh8lBGgIBEAUgOhEgKgVgrA0AngaAaBiBIgyB5A3gLgXBcAEhlJjAJgEAsAJAk' +
'gqqlhththThrhrhrBVBTAWhZhDhPhThIBWARg+Bn7Sg7A3gDhZAvAphEgegGgehuhpAJAyAJBZQ9gBggAAgAgwBDg3BCAAhkgTh0hkAAhLhthWhTgqAqhJBIAhhmAEgq' +
'gqgCgbBiB6h9BD8zhxhmABrOhfAqhMg7ghwiA4BSJNhMgqg4BEhkY8AjBphNATBaA6AtAwBYgEACBBiEBABIAggbg7gmh1AlglAlgahXBmhmB1BgBPBEAmAnwZgogyhV' +
'gmgABcgxsNBUAWAAB2B4AHBvA5h3B3ggAQBIAwg+hPhSgqBQCEA/gQBQA2htKUgfAJhFgkhkAYBtAIAMHpgbAasHg0gVAsBhhIgbBVAxAi/MgFBnAZBDBpB2ABgwADBW' +
'h3gchuBwBxhrhkB1BbhWAFAP5mBCghgTgnA8AgBV+OgqhSg2g1g3AnBOAcg+hNAYgbhHBRg8g6BjhjhjA2ADgdAdhTg/Aeg/hvA6h1h7A2gChLhKfjAdAxhahigYgMAG' +
'Ashzg5AAaYh/AGAjh2AChABwBOgwXnBFh/ApAzgT2GBZBGvTBHAjBGhAF0wAgsDi1w4Nza2UkyBUYiA+maxm6g1K32ad3s2Qg8AKlRaBlKD1wKE+rCCjSObAK8iGsFOr' +
'C0vR0lTeDV8IUatHu6GO2jkAHgAwgfgC5TYrVsKk2Y3MBRcpBQkgmOUuznY2FqKy0WSymXeX0ASwel0olHI5AwJ1mx0gL1mTXU6XS8Vpdj4hyg8BemDYZHqMFOUyYZTW' +
'P1WJ1CN1MTR6gH4cmysjKr2mlCqn3GuR+jDoJHGWlKkU+ajXpgg1yq2FQDFigSEBROwkCKnQwGwjliIU45x2HGyIB4dnM0UmUC+PhaLxefwOdia5zMT3+8wwYCQmEwdi' +
'4vQKqHKvigKHoKnc9Rs7GMDUOhhGOnAYjWkzKKRGyxsDUA01QCw0QCOF0uh0OkfRUMMbyRNwTBiCYZwKMIYyZAUkSlBYkxsCYAAHG4qwCBwMQfBYlxsNgsDhLEgwHA8P' +
'iPNg1ygP4uywIgMSwK4zSQG46BnFAATDJcL3IHM6DQBsPR3O83j/AsJyGH8w4ZJY5TsN8EAdFojTwJ0AAoA4MgATIMDqAcrQPMEwTDBgVy0LYtiuK8qyrFs6QtCocnLC' +
's8wAGAChOGM+CZJ0HAaoQHQYocBiaHtJT3LEfgCLYIgQNYgw4IQiSaBcAABBEAB/DAXS4HgPAgLUSCzGkPjkIATyXPQoCeNYfR6Do7QGI8Zj+CAHiyCY2SkIQTSSCIyD' +
'QCkpDBJQJinMMuAUPgOxGOcpA/AkoTzJwyiYFMiDwJEsShFAURFCwJRVFceQXKQIS8P8STlBgLggAcrAQCQATjIgZA0JgVSxL0OAmKI6CpEc4SuOkeBeOwMRnLQuQhOA' +
'pDJAImYmD44BPIgAzFMYiR3LcQw4JwqhQAknAMFAxwEEwJwUO4ljCHgmxzNwNQ3EU3ScLYEAACocDePwZgCLI+yFN8jg7FEQTtKMcwrAAOhgHw6SQI4OCmJgjDmNAjj5' +
'Gw+wbHkkTpEw7gpFgIAA2sABJEUThEK4QhgIJAQ==`)') as Object);
CellCaption[TObject(h),TObject(1)] := CellCaption[TObject(h),TObject(0)];
CellCaptionFormat[TObject(h),TObject(1)] := EXCOMBOBOXLib.CaptionFormatEnum.exHTML;
CellHAlignment[TObject(h),TObject(1)] := EXCOMBOBOXLib.AlignmentEnum.RightAlignment;
CellImage[TObject(h),TObject(1)] := CellImage[TObject(h),TObject(0)];
CellImages[TObject(h),TObject(1)] := '2,1';
CellPicture[TObject(h),TObject(1)] := (CellPicture[TObject(h),TObject(0)] as Object);
end;
EndUpdate();
end
|
|
597
|
Load data as a tree using a parent-id relationship
with AxComboBox1 do
begin
BeginUpdate();
ColumnAutoResize := False;
HeaderAppearance := EXCOMBOBOXLib.AppearanceEnum.Etched;
HeaderHeight := 24;
DrawGridLines := EXCOMBOBOXLib.GridLinesEnum.exVLines;
LinesAtRoot := EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot;
rs := (ComObj.CreateComObject(ComObj.ProgIDToClassID('ADODB.Recordset')) as ADODB.Recordset);
with rs do
begin
Open('Select * FROM Employees WHERE 1=0','Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.mdb',3,3,Nil);
end;
DataSource := (rs as ADODB.Recordset);
Columns.Item[TObject(0)].Width := 128;
rs := (ComObj.CreateComObject(ComObj.ProgIDToClassID('ADODB.Recordset')) as ADODB.Recordset);
with rs do
begin
Open('Employees','Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExComboBox\Sample\Access\sample.mdb',3,3,Nil);
end;
PutItems(rs.GetRows(Nil,Nil,Nil),';0;15');
Items.ExpandItem[0] := True;
EndUpdate();
end
|
|
513
|
Just wondering if it is possible to show the filter bar's close button on the right ( sample 2 )
with AxComboBox1 do
begin
BeginUpdate();
(Columns.Add('Item') as EXCOMBOBOXLib.Column).DisplayFilterButton := True;
with (Columns.Add('Pos') as EXCOMBOBOXLib.Column) do
begin
AllowSizing := False;
AllowSort := False;
Width := 32;
FormatColumn := '1 apos ``';
Position := 0;
end;
with Items do
begin
AddItem('Item A');
AddItem('Item B');
AddItem('Item C');
end;
FilterBarPromptVisible := Integer(EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarShowCloseOnRight) Or Integer(EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarToggle) Or Integer(EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarPromptVisible);
FilterBarPrompt := FormatABC('`<r>` + value',TObject(FilterBarPrompt),Nil,Nil);
EndUpdate();
end
|
|
512
|
Just wondering if it is possible to show the filter bar's close button on the right ( sample 1 )
with AxComboBox1 do
begin
BeginUpdate();
RightToLeft := True;
(Columns.Add('Item') as EXCOMBOBOXLib.Column).DisplayFilterButton := True;
with (Columns.Add('Pos') as EXCOMBOBOXLib.Column) do
begin
AllowSizing := False;
AllowSort := False;
Width := 32;
FormatColumn := '1 apos ``';
Position := 0;
end;
with Items do
begin
AddItem('Item A');
AddItem('Item B');
AddItem('Item C');
end;
FilterBarPromptVisible := Integer(EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarToggle) Or Integer(EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarPromptVisible);
EndUpdate();
end
|
|
100
|
It seems that the control uses the TAB key, is there any way to avoid that
with AxComboBox1 do
begin
UseTabKey := False;
end
|
|
447
|
Is there other ways of showing the hierarchy lines (exGroupLinesOutside)
with AxComboBox1 do
begin
LinesAtRoot := EXCOMBOBOXLib.LinesAtRootEnum.exGroupLinesOutside;
Indent := 12;
Columns.Add('Default');
with Items do
begin
h := AddItem('Root 1');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
InsertItem(h,Nil,'Child 3');
ExpandItem[h] := True;
h := AddItem('Root 2');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
InsertItem(h,Nil,'Child 3');
end;
end
|
|
446
|
Is there other ways of showing the hierarchy lines (exGroupLinesInsideLeaf)
with AxComboBox1 do
begin
LinesAtRoot := EXCOMBOBOXLib.LinesAtRootEnum.exGroupLinesInsideLeaf;
Indent := 12;
Columns.Add('Default');
with Items do
begin
h := AddItem('Root');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
InsertItem(h,Nil,'Child 3');
ExpandItem[h] := True;
end;
end
|
|
445
|
Is there other ways of showing the hierarchy lines (exGroupLinesInside)
with AxComboBox1 do
begin
LinesAtRoot := EXCOMBOBOXLib.LinesAtRootEnum.exGroupLinesInside;
Indent := 12;
Columns.Add('Default');
with Items do
begin
h := AddItem('Root');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
InsertItem(h,Nil,'Child 3');
ExpandItem[h] := True;
end;
end
|
|
448
|
Is there other ways of showing the hierarchy lines (exGroupLinesAtRoot)
with AxComboBox1 do
begin
LinesAtRoot := EXCOMBOBOXLib.LinesAtRootEnum.exGroupLinesAtRoot;
Indent := 12;
Columns.Add('Default');
with Items do
begin
h := AddItem('Root');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
InsertItem(h,Nil,'Child 3');
ExpandItem[h] := True;
end;
end
|
|
444
|
Is there other ways of showing the hierarchy lines (exGroupLines)
with AxComboBox1 do
begin
LinesAtRoot := EXCOMBOBOXLib.LinesAtRootEnum.exGroupLines;
Indent := 12;
Columns.Add('Default');
with Items do
begin
h := AddItem('Root');
InsertItem(h,Nil,'Child 1');
InsertItem(InsertItem(h,Nil,'Child 2'),Nil,'SubChild 2');
InsertItem(h,Nil,'Child 3');
ExpandItem[h] := True;
end;
end
|
|
563
|
Is there anyway to stop the header changing colour when the mouse hovers/moves across the column header (non-clickable)
with AxComboBox1 do
begin
BeginUpdate();
HeaderAppearance := EXCOMBOBOXLib.AppearanceEnum.Etched;
with Columns do
begin
Add('Item');
with (Add('Pos') as EXCOMBOBOXLib.Column) do
begin
Position := 0;
Width := 32;
AllowSizing := False;
FormatColumn := '1 index ``';
AllowSort := False;
AllowDragging := False;
end;
end;
with Items do
begin
AddItem('Item A');
AddItem('Item B');
AddItem('Item C');
end;
EndUpdate();
end
|
|
562
|
Is there anyway to stop the header changing colour when the mouse hovers/moves across the column header
with AxComboBox1 do
begin
BeginUpdate();
HeaderAppearance := EXCOMBOBOXLib.AppearanceEnum.Etched;
set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exCursorHoverColumn,$ffffffff);
with Columns do
begin
Add('Item');
with (Add('Pos') as EXCOMBOBOXLib.Column) do
begin
Position := 0;
Width := 32;
AllowSizing := False;
FormatColumn := '1 index ``';
AllowSort := False;
AllowDragging := False;
end;
end;
with Items do
begin
AddItem('Item A');
AddItem('Item B');
AddItem('Item C');
end;
EndUpdate();
end
|
|
64
|
Is there any way to get listed only visible items in the drop down filter window
with AxComboBox1 do
begin
LinesAtRoot := EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot;
set_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarAll,'');
set_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarBlanks,'');
set_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarNonBlanks,'');
with (Columns.Add('P1') as EXCOMBOBOXLib.Column) do
begin
DisplayFilterButton := True;
DisplayFilterPattern := False;
FilterList := EXCOMBOBOXLib.FilterListEnum.exVisibleItems;
end;
with (Columns.Add('P2') as EXCOMBOBOXLib.Column) do
begin
DisplayFilterButton := True;
DisplayFilterPattern := False;
end;
with Items do
begin
h := AddItem('R1');
CellCaption[TObject(h),TObject(1)] := 'R2';
CellCaption[TObject(InsertItem(h,Nil,'Cell 1.1')),TObject(1)] := 'Cell 1.2';
CellCaption[TObject(InsertItem(h,Nil,'Cell 2.1')),TObject(1)] := 'Cell 2.2';
end;
end
|
|
404
|
Is there any way to display the vertical scroll bar on the left side, as I want to align my data to the right
with AxComboBox1 do
begin
BeginUpdate();
with Columns do
begin
Add('C1');
Add('C2');
Add('C3');
Add('C4');
Add('C5');
Add('C6');
Add('C7');
Add('C8');
end;
RightToLeft := True;
EndUpdate();
end
|
|
354
|
Is there any property to disable the popup/context menu being shown when the user does a right click in the control's label area
with AxComboBox1 do
begin
(Columns.Add('Default') as EXCOMBOBOXLib.Column).AllowEditContextMenu := False;
Items.AddItem(TObject(0));
Items.AddItem(TObject(1));
Items.AddItem(TObject(2));
end
|
|
89
|
Is there any option to specify the height of the items, before adding them
with AxComboBox1 do
begin
DefaultItemHeight := 32;
Columns.Add('Column');
Items.AddItem('One');
Items.AddItem('Two');
end
|
|
184
|
Is there any option to resize the column based on its data, captions
with AxComboBox1 do
begin
(Columns.Add('A') as EXCOMBOBOXLib.Column).WidthAutoResize := True;
Items.AddItem(TObject(0));
Items.AddItem(TObject(1));
end
|
|
36
|
Is there any option to remove the tooltip when the cursor hovers the column's drop down filter window
with AxComboBox1 do
begin
(Columns.Add('Column') as EXCOMBOBOXLib.Column).DisplayFilterButton := True;
set_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarFilterTitle,'');
set_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarPatternFilterTitle,'');
set_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarTooltip,'');
set_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarPatternTooltip,'');
set_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarFilterForTooltip,'');
set_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarDateTooltip,'');
set_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarDateTitle,'');
end
|
|
26
|
Is there any option to make italic the column's header
with AxComboBox1 do
begin
(Columns.Add('Column 1') as EXCOMBOBOXLib.Column).HeaderItalic := True;
end
|
|
145
|
Is there any option to highligth the column from the cursor - point
with AxComboBox1 do
begin
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exCursorHoverColumn,$1000000);
(Columns.Add('S') as EXCOMBOBOXLib.Column).Width := 32;
(Columns.Add('Level 1') as EXCOMBOBOXLib.Column).LevelKey := TObject(1);
(Columns.Add('Level 2') as EXCOMBOBOXLib.Column).LevelKey := TObject(1);
(Columns.Add('Level 3') as EXCOMBOBOXLib.Column).LevelKey := TObject(1);
(Columns.Add('E1') as EXCOMBOBOXLib.Column).Width := 32;
(Columns.Add('E2') as EXCOMBOBOXLib.Column).Width := 32;
(Columns.Add('E3') as EXCOMBOBOXLib.Column).Width := 32;
(Columns.Add('E4') as EXCOMBOBOXLib.Column).Width := 32;
end
|
|
366
|
Is there any option to display cells in uppercase
with AxComboBox1 do
begin
(Columns.Add('') as EXCOMBOBOXLib.Column).ComputedField := 'upper(%0)';
with Items do
begin
h := AddItem('Root');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
InsertItem(h,Nil,'Chld 3');
ExpandItem[h] := True;
end;
end
|
|
365
|
Is there any option to display cells in lowercase
with AxComboBox1 do
begin
(Columns.Add('') as EXCOMBOBOXLib.Column).ComputedField := 'lower(%0)';
with Items do
begin
h := AddItem('Root');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
InsertItem(h,Nil,'Chld 3');
ExpandItem[h] := True;
end;
end
|
|
361
|
Is there any option to change the fore color for cells or items that ends with a specified string
with AxComboBox1 do
begin
ConditionalFormats.Add('%0 endwith ''22''',Nil).ForeColor := $ff;
Columns.Add('');
with Items do
begin
h := AddItem('Root');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 1.22');
InsertItem(h,Nil,'Child 2.22');
ExpandItem[h] := True;
end;
end
|
|
24
|
Is there any option to bold the column's header
with AxComboBox1 do
begin
(Columns.Add('Column 1') as EXCOMBOBOXLib.Column).HeaderBold := True;
end
|
|
323
|
Is there any option to align the header to the left and the data to the right
with AxComboBox1 do
begin
(Columns.Add('Left') as EXCOMBOBOXLib.Column).Alignment := EXCOMBOBOXLib.AlignmentEnum.LeftAlignment;
with (Columns.Add('Right') as EXCOMBOBOXLib.Column) do
begin
Alignment := EXCOMBOBOXLib.AlignmentEnum.RightAlignment;
HeaderAlignment := EXCOMBOBOXLib.AlignmentEnum.RightAlignment;
EditAlignment := EXCOMBOBOXLib.AlignmentEnum.RightAlignment;
end;
with Items do
begin
CellCaption[TObject(AddItem('left')),TObject(1)] := 'right';
end;
end
|
|
9
|
Is there any option to align the header to the left and the data to the right
with AxComboBox1 do
begin
(Columns.Add('Left') as EXCOMBOBOXLib.Column).Alignment := EXCOMBOBOXLib.AlignmentEnum.LeftAlignment;
with (Columns.Add('Right') as EXCOMBOBOXLib.Column) do
begin
Alignment := EXCOMBOBOXLib.AlignmentEnum.RightAlignment;
HeaderAlignment := EXCOMBOBOXLib.AlignmentEnum.RightAlignment;
end;
with Items do
begin
CellCaption[TObject(AddItem('left')),TObject(1)] := 'right';
end;
end
|
|
487
|
Is there any method to get only the matched items and not the items with his parent
with AxComboBox1 do
begin
BeginUpdate();
LinesAtRoot := EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot;
FilterInclude := EXCOMBOBOXLib.FilterIncludeEnum.exMatchingItemsOnly;
with (Columns.Add('Column') as EXCOMBOBOXLib.Column) do
begin
DisplayFilterButton := True;
FilterType := EXCOMBOBOXLib.FilterTypeEnum.exFilter;
Filter := 'C1|C2';
end;
with Items do
begin
h := AddItem('R1');
InsertItem(h,Nil,'C1');
InsertItem(h,Nil,'C2');
ExpandItem[h] := True;
h := AddItem('R2');
InsertItem(h,Nil,'C1');
InsertItem(h,Nil,'C2');
end;
ApplyFilter();
EndUpdate();
end
|
|
369
|
Is there any function to round the values base on the .5 value
with AxComboBox1 do
begin
Columns.Add('Number');
(Columns.Add('Round') as EXCOMBOBOXLib.Column).ComputedField := 'round(%0)';
with Items do
begin
AddItem('-1.98');
AddItem('0.99');
AddItem('1.23');
AddItem('2.34');
end;
end
|
|
306
|
Is there any function to limit the height of the items when I display it using multiple lines
with AxComboBox1 do
begin
ScrollBySingleLine := True;
Columns.Add('C1');
Columns.Add('C2');
with Items do
begin
h := AddItem('Cell 1');
CellCaption[TObject(h),TObject(1)] := 'This is bit of text that''s shown on multiple lines. This is bit of text that''s shown on multiple lines.';
CellSingleLine[TObject(h),TObject(1)] := EXCOMBOBOXLib.CellSingleLineEnum.exCaptionWordWrap;
ItemMaxHeight[h] := 48;
end;
end
|
|
382
|
Is there any function to get the day of the year or number of days since January 1st
with AxComboBox1 do
begin
Columns.Add('Date');
(Columns.Add('Day since January 1st') as EXCOMBOBOXLib.Column).ComputedField := 'yearday(%0)';
with Items do
begin
AddItem('1/11/2001 10:00:00 AM');
AddItem('2/22/2002 11:00:00 AM');
AddItem('3/13/2003 12:00:00 PM');
AddItem('4/14/2004 1:00:00 PM');
end;
end
|
|
139
|
Is there any function to get the control's data in your x-script format / template
with AxComboBox1 do
begin
Columns.Add('Column');
Items.AddItem('ToTemplate()');
end
|
|
370
|
Is there any function to get largest number with no fraction part that is not greater than the value
with AxComboBox1 do
begin
Columns.Add('Number');
(Columns.Add('Floor') as EXCOMBOBOXLib.Column).ComputedField := 'floor(%0)';
with Items do
begin
AddItem('-1.98');
AddItem('0.99');
AddItem('1.23');
AddItem('2.34');
end;
end
|
|
206
|
Is there any function to filter the control's data as I type, something like filter on type
with AxComboBox1 do
begin
var_Column := (Columns.Add('Filter') as EXCOMBOBOXLib.Column);
with var_Column do
begin
FilterOnType := True;
DisplayFilterButton := True;
end;
Items.AddItem('Canada');
Items.AddItem('USA');
end
|
|
207
|
Is there any function to filter the control's data as I type, so the items being displayed include the typed characters
with AxComboBox1 do
begin
var_Column := (Columns.Add('Filter') as EXCOMBOBOXLib.Column);
with var_Column do
begin
FilterOnType := True;
DisplayFilterButton := True;
AutoSearch := EXCOMBOBOXLib.AutoSearchEnum.exContains;
end;
Items.AddItem('Canada');
Items.AddItem('USA');
end
|
|
373
|
Is there any function to display currencies, or money formatted as in the control panel
with AxComboBox1 do
begin
Columns.Add('Number');
(Columns.Add('Currency') as EXCOMBOBOXLib.Column).ComputedField := 'currency(dbl(%0))';
with Items do
begin
AddItem('1.23');
AddItem('2.34');
AddItem('10000.99');
end;
end
|
|
188
|
Is there any function to assign any extra data to a column
with AxComboBox1 do
begin
(Columns.Add('Data') as EXCOMBOBOXLib.Column).Data := 'your extra data';
end
|
|
189
|
Is there any function to assign a key to a column instead using its name or capion
with AxComboBox1 do
begin
(Columns.Add('Data') as EXCOMBOBOXLib.Column).Key := 'DKey';
Columns.Item['DKey'].Caption := 'new caption';
end
|
|
492
|
Is there a way to change the dropdown button arrow to something else ( theme, ebn )
with AxComboBox1 do
begin
BeginUpdate();
with VisualAppearance do
begin
Add(1,'XP:SCROLLBAR 1 6');
Add(2,'XP:SCROLLBAR 1 7');
end;
set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exDropDownButtonUp,$1000000);
set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exDropDownButtonDown,$2000000);
LinesAtRoot := EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot;
Style := EXCOMBOBOXLib.StyleEnum.DropDownList;
IntegralHeight := True;
Columns.Add('P1');
with Items do
begin
h := AddItem('Root');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
ExpandItem[h] := True;
SelectItem[h] := True;
end;
EndUpdate();
end
|
|
490
|
Is there a way to change the dropdown button arrow to something else ( solid color )
with AxComboBox1 do
begin
BeginUpdate();
set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exDropDownButtonDown,$bebebe);
set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exDropDownButtonUp,$808080);
LinesAtRoot := EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot;
Style := EXCOMBOBOXLib.StyleEnum.DropDownList;
IntegralHeight := True;
Columns.Add('P1');
with Items do
begin
h := AddItem('Root');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
ExpandItem[h] := True;
SelectItem[h] := True;
end;
EndUpdate();
end
|
|
491
|
Is there a way to change the dropdown button arrow to something else ( no visual theme )
with AxComboBox1 do
begin
BeginUpdate();
UseVisualTheme := Integer(EXCOMBOBOXLib.UIVisualThemeEnum.exBorderVisualTheme) Or Integer(EXCOMBOBOXLib.UIVisualThemeEnum.exCheckBoxVisualTheme) Or Integer(EXCOMBOBOXLib.UIVisualThemeEnum.exCalendarVisualTheme) Or Integer(EXCOMBOBOXLib.UIVisualThemeEnum.exFilterBarVisualTheme) Or Integer(EXCOMBOBOXLib.UIVisualThemeEnum.exHeaderVisualTheme);
LinesAtRoot := EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot;
Style := EXCOMBOBOXLib.StyleEnum.DropDownList;
IntegralHeight := True;
Columns.Add('P1');
with Items do
begin
h := AddItem('Root');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
ExpandItem[h] := True;
SelectItem[h] := True;
end;
EndUpdate();
end
|
|
495
|
Is there a way to change the dropdown button arrow to something else ( ebn, sample 3 )
with AxComboBox1 do
begin
BeginUpdate();
VisualAppearance.Add(1,'gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzVI' +
'UcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4a' +
'DhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DBe' +
'EMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5fnueh/h+R5+AKABfkMWgGgGYA4AICoCGCE5WA4CphACMgSD2IRIDIB' +
'ICmEd5YGCBpRjGBgegWIYIgWdgoGIRQsiKCZiAiJZ0gGQI4jUS4LECOAiBmDJflGfg2BSY4Al4OhGkOCJ2DgFJjGGfgqgiH5Ch4RhGkqOQmEOEpkFkHQYhJRYyESAokG' +
'KHhIhKIxJEmf4VGUeRGFmF5iBkchPhYJQ5GoYIZg6Ug6GoFYmkmNhuhuZwJkYcoagiZ5+HQFRngmZh6h6Z5JnYfodCaCgGBcOpfBQBCAgA==');
set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exDropDownButtonUp,$1000000);
set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exDropDownButtonDown,$1f0f0f0);
LinesAtRoot := EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot;
Style := EXCOMBOBOXLib.StyleEnum.DropDownList;
IntegralHeight := True;
Columns.Add('P1');
with Items do
begin
h := AddItem('Root');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
ExpandItem[h] := True;
SelectItem[h] := True;
end;
EndUpdate();
end
|
|
494
|
Is there a way to change the dropdown button arrow to something else ( ebn, sample 2 )
with AxComboBox1 do
begin
BeginUpdate();
VisualAppearance.Add(1,'gBFLBCJwBAEHhEJAAEhABKgCg6AADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzVI' +
'UcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4a' +
'DhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DBe' +
'EMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/EeH5wiITwUkWMRsF4PYgEeaZ3gGYBoCWeICk6V5wnMf4FDCAAfAiYQgg4A' +
'YAmAWC7gIIYnm2fR/mEUYAF4GIFFEVBYgUYR4BCdoGmKSB6A+CAhDGBBfBiT4IlSdQ9A8WIWCeBJihgZgcg+YJoEIFYMiMSJWAaDZjhiGgogCIooG4QYMAIOQSDUPgil' +
'ONhIg6JI4GIK4LiQKJGDOFJgGMbJbDcDg5hYR4OCWCJyEyAQiCGChDheZBoDIYg3AMIJEVYQ4AnoZQ4mYeQmDsCJGmGNBwDQTQDEaAQcCYCZKGOHRDHgVgVh4J4phoDI' +
'SAaEYkGsNhNhMahVhyaJIFSDiuAIBIBCCaJ5mYe4VGGOhyHaBRInIPIRH2D5qkaIopCEOhCieBxjnqKoNgSapaj6OIsE+apOiWJBnkqYo6isKpqiGdIwCwKpWiaJIOls' +
'Ho8jIa4JFaTIomwOZuBeMgrmifpKgGbR6lAI4lEaM4ymYKIKCKEpfjqbI6kSHgnEmc5GnIOpfBQBCAg=');
set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exDropDownButtonUp,$1000000);
set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exDropDownButtonDown,$1808080);
LinesAtRoot := EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot;
Style := EXCOMBOBOXLib.StyleEnum.DropDownList;
IntegralHeight := True;
Columns.Add('P1');
with Items do
begin
h := AddItem('Root');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
ExpandItem[h] := True;
SelectItem[h] := True;
end;
EndUpdate();
end
|
|
493
|
Is there a way to change the dropdown button arrow to something else ( ebn, sample 1 )
with AxComboBox1 do
begin
BeginUpdate();
VisualAppearance.Add(1,'gBFLBCJwBAEHhEJAAEhABFACg6AADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzVI' +
'UcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4a' +
'DhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DBe' +
'EMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5dlqIh/k8SAFnofxgDgFZ8gGH5ShYCgmiCQgeA6AghAgr5/EyWBUhCB' +
'ZPngZIvgaSpoHYEYBCEOAMnWCJGgiFgZgmYoIDiBw1iKSB+C4fQHhiRJjgyYoIlYJwXmOA56DqC5iAONIhg+S45AYNoQmGExqEYIJkgicZ2gsDRhG4ToSAgMZqFIOolE' +
'iHJzhWSIJGYUAZiWSBsi+EofEkGhiDaCIphSPIZmIcp2GoI4mkmDhGD4JwJgIPQkmcQwqHaCZKgmZI0h6ZwonCFIfmYKIch6IJMhoFh9ggXxIgydQZmjTR5iORhKEaB4' +
'PGAOgUkmD5KBiHItiaSwKHaE4CPuBoMVieJMmMH4qgofoIDsRx6jSZorksapGGUIoqiidJHi2RYKmSHIumEchAh2L5rFeWhUDqAxbBQSIxkeCwkjGMpOAsNpBH0Do3kU' +
'ASAg');
set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exDropDownButtonUp,$1000000);
set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exDropDownButtonDown,$1808080);
LinesAtRoot := EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot;
Style := EXCOMBOBOXLib.StyleEnum.DropDownList;
IntegralHeight := True;
Columns.Add('P1');
with Items do
begin
h := AddItem('Root');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
ExpandItem[h] := True;
SelectItem[h] := True;
end;
EndUpdate();
end
|
|
389
|
Is there a function to display the number of days between two date including the number of hours
with AxComboBox1 do
begin
(Columns.Add('Start') as EXCOMBOBOXLib.Column).Width := 32;
Columns.Add('End');
(Columns.Add('Duration') as EXCOMBOBOXLib.Column).ComputedField := '2:=((1:=int(0:= date(%1)-date(%0))) = 0 ? '''' : str(=:1) + '' day(s)'') + ( 3:=round(24*(=:0-floor(=:0))) ? (len(=:2) ? '' and '' : ''' +
''') + =:3 + '' hour(s)'' : '''' )';
with Items do
begin
h := AddItem('1/11/2001');
CellCaption[TObject(h),TObject(1)] := '1/14/2001';
h := AddItem('2/22/2002 12:00:00 PM');
CellCaption[TObject(h),TObject(1)] := '3/14/2002 1:00:00 PM';
h := AddItem('3/13/2003');
CellCaption[TObject(h),TObject(1)] := '4/11/2003 11:00:00 AM';
end;
end
|
|
388
|
Is there a function to display the number of days between two date including the number of hours
with AxComboBox1 do
begin
Columns.Add('Start');
Columns.Add('End');
(Columns.Add('Duration') as EXCOMBOBOXLib.Column).ComputedField := '"D " + int(date(%1)-date(%0)) + " H " + round(24*(date(%1)-date(%0) - floor(date(%1)-date(%0))))';
with Items do
begin
h := AddItem('1/11/2001');
CellCaption[TObject(h),TObject(1)] := '1/14/2001 11:00:00 PM';
h := AddItem('2/22/2002 12:00:00 PM');
CellCaption[TObject(h),TObject(1)] := '3/14/2002 1:00:00 PM';
h := AddItem('3/13/2003');
CellCaption[TObject(h),TObject(1)] := '4/11/2003 11:00:00 AM';
end;
end
|
|
425
|
Is it possible to specify the cell's value but still want to display some formatted text instead the value
with AxComboBox1 do
begin
BeginUpdate();
MarkSearchColumn := False;
Columns.Add('Value');
Columns.Add('FormatCell');
with Items do
begin
h := AddItem(TObject(1));
CellCaption[TObject(h),TObject(1)] := TObject(12);
FormatCell[TObject(h),TObject(1)] := 'currency(value)';
h := AddItem('1/1/2001');
CellCaption[TObject(h),TObject(1)] := '1/1/2001';
CellCaptionFormat[TObject(h),TObject(1)] := EXCOMBOBOXLib.CaptionFormatEnum.exHTML;
FormatCell[TObject(h),TObject(1)] := 'longdate(value) replace ''2001'' with ''<b>2001</b>''';
end;
EndUpdate();
end
|
|
429
|
Is it possible to specify an item being unsortable so its position won't be changed after sorting
with AxComboBox1 do
begin
BeginUpdate();
TreeColumnIndex := -1;
(Columns.Add('Numbers') as EXCOMBOBOXLib.Column).SortType := EXCOMBOBOXLib.SortTypeEnum.SortNumeric;
with Items do
begin
AddItem(TObject(1));
AddItem(TObject(2));
AddItem(TObject(3));
AddItem(TObject(4));
h := AddItem('top 3');
ItemPosition[h] := 3;
CellHAlignment[TObject(h),TObject(0)] := EXCOMBOBOXLib.AlignmentEnum.RightAlignment;
SortableItem[h] := False;
SortChildren(0,TObject(0),False);
end;
EndUpdate();
end
|
|
523
|
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 3, results )
with AxComboBox1 do
begin
BeginUpdate();
with (Columns.Add('Col-1') as EXCOMBOBOXLib.Column) do
begin
DisplayFilterButton := True;
FilterList := Integer(EXCOMBOBOXLib.FilterListEnum.exShowExclude) Or Integer(EXCOMBOBOXLib.FilterListEnum.exShowFocusItem) Or Integer(EXCOMBOBOXLib.FilterListEnum.exShowCheckBox) Or Integer(EXCOMBOBOXLib.FilterListEnum.exSortItemsAsc);
end;
with (Columns.Add('Col-2') as EXCOMBOBOXLib.Column) do
begin
DisplayFilterButton := True;
FilterList := Integer(EXCOMBOBOXLib.FilterListEnum.exShowExclude) Or Integer(EXCOMBOBOXLib.FilterListEnum.exShowFocusItem) Or Integer(EXCOMBOBOXLib.FilterListEnum.exShowCheckBox) Or Integer(EXCOMBOBOXLib.FilterListEnum.exSortItemsAsc);
end;
with (Columns.Add('Pos') as EXCOMBOBOXLib.Column) do
begin
AllowSizing := False;
AllowSort := False;
Width := 32;
FormatColumn := '1 apos ``';
Position := 0;
end;
with Items do
begin
CellCaption[TObject(AddItem('Item A')),TObject(1)] := 'Sub-Item A';
CellCaption[TObject(AddItem('Item B')),TObject(1)] := 'Sub-Item B';
CellCaption[TObject(AddItem('Item C')),TObject(1)] := 'Sub-Item C';
end;
FilterBarFont := (Font as stdole.StdFont);
set_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarAnd,FormatABC('`<fgcolor=808080>` + value + `</fgcolor>`',TObject(get_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarAnd)),Nil,Nil));
FilterBarCaption := '(`<b>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ' +
'` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )) replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace' +
' `]` with ` </b></bgcolor></fgcolor>`';
FilterBarPromptVisible := EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarToggle;
with Columns.Item[TObject(0)] do
begin
FilterType := EXCOMBOBOXLib.FilterTypeEnum.exFilter;
Filter := 'Item A|Item B';
end;
with Columns.Item[TObject(1)] do
begin
FilterType := EXCOMBOBOXLib.FilterTypeEnum.exPattern;
Filter := '*B';
end;
ApplyFilter();
EndUpdate();
end
|
|
522
|
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 2 )
with AxComboBox1 do
begin
BeginUpdate();
with (Columns.Add('Col-1') as EXCOMBOBOXLib.Column) do
begin
DisplayFilterButton := True;
FilterList := Integer(EXCOMBOBOXLib.FilterListEnum.exShowExclude) Or Integer(EXCOMBOBOXLib.FilterListEnum.exShowFocusItem) Or Integer(EXCOMBOBOXLib.FilterListEnum.exShowCheckBox) Or Integer(EXCOMBOBOXLib.FilterListEnum.exSortItemsAsc);
end;
with (Columns.Add('Col-2') as EXCOMBOBOXLib.Column) do
begin
DisplayFilterButton := True;
FilterList := Integer(EXCOMBOBOXLib.FilterListEnum.exShowExclude) Or Integer(EXCOMBOBOXLib.FilterListEnum.exShowFocusItem) Or Integer(EXCOMBOBOXLib.FilterListEnum.exShowCheckBox) Or Integer(EXCOMBOBOXLib.FilterListEnum.exSortItemsAsc);
end;
with (Columns.Add('Pos') as EXCOMBOBOXLib.Column) do
begin
AllowSizing := False;
AllowSort := False;
Width := 32;
FormatColumn := '1 apos ``';
Position := 0;
end;
with Items do
begin
CellCaption[TObject(AddItem('Item A')),TObject(1)] := 'Sub-Item A';
CellCaption[TObject(AddItem('Item B')),TObject(1)] := 'Sub-Item B';
CellCaption[TObject(AddItem('Item C')),TObject(1)] := 'Sub-Item C';
end;
FilterBarFont := (Font as stdole.StdFont);
set_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarAnd,FormatABC('`<fgcolor=808080>` + value + `</fgcolor>`',TObject(get_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarAnd)),Nil,Nil));
FilterBarCaption := 'value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>`';
FilterBarPromptVisible := EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarToggle;
with Columns.Item[TObject(0)] do
begin
FilterType := EXCOMBOBOXLib.FilterTypeEnum.exFilter;
Filter := 'Item A|Item B';
end;
with Columns.Item[TObject(1)] do
begin
FilterType := EXCOMBOBOXLib.FilterTypeEnum.exPattern;
Filter := '*B';
end;
ApplyFilter();
EndUpdate();
end
|
|
521
|
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 1 )
with AxComboBox1 do
begin
BeginUpdate();
with (Columns.Add('Col-1') as EXCOMBOBOXLib.Column) do
begin
DisplayFilterButton := True;
FilterList := Integer(EXCOMBOBOXLib.FilterListEnum.exShowExclude) Or Integer(EXCOMBOBOXLib.FilterListEnum.exShowFocusItem) Or Integer(EXCOMBOBOXLib.FilterListEnum.exShowCheckBox) Or Integer(EXCOMBOBOXLib.FilterListEnum.exSortItemsAsc);
end;
with (Columns.Add('Col-2') as EXCOMBOBOXLib.Column) do
begin
DisplayFilterButton := True;
FilterList := Integer(EXCOMBOBOXLib.FilterListEnum.exShowExclude) Or Integer(EXCOMBOBOXLib.FilterListEnum.exShowFocusItem) Or Integer(EXCOMBOBOXLib.FilterListEnum.exShowCheckBox) Or Integer(EXCOMBOBOXLib.FilterListEnum.exSortItemsAsc);
end;
with (Columns.Add('Pos') as EXCOMBOBOXLib.Column) do
begin
AllowSizing := False;
AllowSort := False;
Width := 32;
FormatColumn := '1 apos ``';
Position := 0;
end;
with Items do
begin
CellCaption[TObject(AddItem('Item A')),TObject(1)] := 'Sub-Item A';
CellCaption[TObject(AddItem('Item B')),TObject(1)] := 'Sub-Item B';
CellCaption[TObject(AddItem('Item C')),TObject(1)] := 'Sub-Item C';
end;
set_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarAnd,FormatABC('`<fgcolor=808080>` + value + `</fgcolor>`',TObject(get_Description(EXCOMBOBOXLib.DescriptionTypeEnum.exFilterBarAnd)),Nil,Nil));
FilterBarCaption := 'value replace `[` with `<fgcolor=808080>[` replace `]` with `]</fgcolor>`';
FilterBarPromptVisible := EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarToggle;
with Columns.Item[TObject(0)] do
begin
FilterType := EXCOMBOBOXLib.FilterTypeEnum.exFilter;
Filter := 'Item A|Item B';
end;
with Columns.Item[TObject(1)] do
begin
FilterType := EXCOMBOBOXLib.FilterTypeEnum.exPattern;
Filter := '*B';
end;
ApplyFilter();
EndUpdate();
end
|
|
564
|
Is it possible to show the filterbar on top of the rows
with AxComboBox1 do
begin
BeginUpdate();
FilterBarPromptVisible := EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarTop;
HeaderHeight := 24;
FilterBarHeight := HeaderHeight;
HeaderAppearance := EXCOMBOBOXLib.AppearanceEnum.Flat;
DrawGridLines := EXCOMBOBOXLib.GridLinesEnum.exAllLines;
GridLineStyle := EXCOMBOBOXLib.GridLinesStyleEnum.exGridLinesGeometric;
ColumnAutoResize := True;
with (Columns.Add('Column') as EXCOMBOBOXLib.Column) do
begin
DisplayFilterButton := True;
FilterType := EXCOMBOBOXLib.FilterTypeEnum.exPattern;
Filter := 'B*';
end;
with (Columns.Add('Index') as EXCOMBOBOXLib.Column) do
begin
FormatColumn := '1 index ``';
Position := 0;
Width := 48;
AllowSizing := False;
SortType := EXCOMBOBOXLib.SortTypeEnum.SortNumeric;
Def[EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
end;
with Items do
begin
AddItem('A.1');
AddItem('A.2');
AddItem('B.1');
AddItem('B.2');
AddItem('B.3');
AddItem('C');
end;
ApplyFilter();
EndUpdate();
end
|
|
508
|
Is it possible to show the close button only if there is a filter applied
with AxComboBox1 do
begin
BeginUpdate();
(Columns.Add('Item') as EXCOMBOBOXLib.Column).DisplayFilterButton := True;
with (Columns.Add('Pos') as EXCOMBOBOXLib.Column) do
begin
AllowSizing := False;
AllowSort := False;
Width := 32;
FormatColumn := '1 apos ``';
Position := 0;
end;
with Items do
begin
AddItem('Item A');
AddItem('Item B');
AddItem('Item C');
end;
FilterBarPromptVisible := Integer(EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarShowCloseIfRequired) Or Integer(EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarPromptVisible);
EndUpdate();
end
|
|
509
|
Is it possible to prevent definitely showing the filter bar's close button
with AxComboBox1 do
begin
BeginUpdate();
(Columns.Add('Item') as EXCOMBOBOXLib.Column).DisplayFilterButton := True;
with (Columns.Add('Pos') as EXCOMBOBOXLib.Column) do
begin
AllowSizing := False;
AllowSort := False;
Width := 32;
FormatColumn := '1 apos ``';
Position := 0;
end;
with Items do
begin
AddItem('Item A');
AddItem('Item B');
AddItem('Item C');
end;
FilterBarPromptVisible := EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarPromptVisible;
set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exFooterFilterBarButton,$ffffffff);
EndUpdate();
end
|
|
501
|
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt)
with AxComboBox1 do
begin
BeginUpdate();
(Columns.Add('Item') as EXCOMBOBOXLib.Column).DisplayFilterButton := True;
with (Columns.Add('Pos') as EXCOMBOBOXLib.Column) do
begin
AllowSizing := False;
AllowSort := False;
Width := 32;
FormatColumn := '1 apos ``';
Position := 0;
end;
with Items do
begin
AddItem('Item A');
AddItem('Item B');
AddItem('Item C');
end;
FilterBarPromptVisible := EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarPromptVisible;
FilterBarPromptPattern := 'B';
EndUpdate();
end
|
|
502
|
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt-combined)
with AxComboBox1 do
begin
BeginUpdate();
(Columns.Add('Item') as EXCOMBOBOXLib.Column).DisplayFilterButton := True;
with (Columns.Add('Pos') as EXCOMBOBOXLib.Column) do
begin
AllowSizing := False;
AllowSort := False;
Width := 32;
FormatColumn := '1 apos ``';
Position := 0;
end;
with Items do
begin
AddItem('Item A');
AddItem('Item B');
AddItem('Item C');
end;
FilterBarPromptPattern := 'B';
FilterBarPromptVisible := Integer(EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarVisible) Or Integer(EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarPromptVisible);
with Columns.Item[TObject(0)] do
begin
FilterType := EXCOMBOBOXLib.FilterTypeEnum.exFilter;
Filter := 'Item B';
end;
ApplyFilter();
EndUpdate();
end
|
|
500
|
Is it possible to prevent closing the control's filter bar, so it is always shown
with AxComboBox1 do
begin
BeginUpdate();
(Columns.Add('Item') as EXCOMBOBOXLib.Column).DisplayFilterButton := True;
with (Columns.Add('Pos') as EXCOMBOBOXLib.Column) do
begin
AllowSizing := False;
AllowSort := False;
Width := 32;
FormatColumn := '1 apos ``';
Position := 0;
end;
with Items do
begin
AddItem('Item A');
AddItem('Item B');
AddItem('Item C');
end;
FilterBarCaption := 'len(value) = 0 ? `<fgcolor=808080>no filter` : value';
FilterBarPromptVisible := EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarVisible;
with Columns.Item[TObject(0)] do
begin
FilterType := EXCOMBOBOXLib.FilterTypeEnum.exFilter;
Filter := 'Item B';
end;
ApplyFilter();
EndUpdate();
end
|
|
435
|
Is it possible to limit the height of the item while resizing
// InsertItem event - Occurs after a new item has been inserted to Items collection.
procedure TWinForm1.AxComboBox1_InsertItem(sender: System.Object; e: AxEXCOMBOBOXLib._IComboBoxEvents_InsertItemEvent);
begin
with AxComboBox1 do
begin
Items.ItemMinHeight[e.item] := 18;
Items.ItemMaxHeight[e.item] := 72;
end
end;
with AxComboBox1 do
begin
BeginUpdate();
ItemsAllowSizing := EXCOMBOBOXLib.ItemsAllowSizingEnum.exResizeItem;
ScrollBySingleLine := False;
BackColorAlternate := Color.FromArgb(240,240,240);
Columns.Add('Names');
with Items do
begin
AddItem('Mantel');
AddItem('Mechanik');
AddItem('Motor');
AddItem('Murks');
AddItem('M rchen');
AddItem('M hren');
AddItem('M hle');
end;
Columns.Item[TObject(0)].SortOrder := EXCOMBOBOXLib.SortOrderEnum.SortAscending;
EndUpdate();
end
|
|
569
|
Is it possible to highlight the column's header once a filter is applied
with AxComboBox1 do
begin
BeginUpdate();
with VisualAppearance do
begin
Add(2,'gBFLBCJwBAEHhEJAAEhABX8GACAADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwYgmNYiTLAcgANJ' +
'0WBaGIZJ4gOT5fDKMoEDRRYADFCscwxJybQAqGQKKb+VgAVY/cTyBIAEQSKA0TDOQ5TSKWB4JPZQRBEbZMNBtBIUJquKaqShdQJCU5FdY3Xblez9P7AMBwLFEC4NQ8YN' +
'YuPhjR4dRTIMhvVAsUArFh8Zg9GZZFjmDIDT4ydBLTQwcyVIKnP5qOa6XbmPoCQDYKxZHYxPzVDa3axuL76dqCAT7XrXNy1TbNRrzQKfcJqfCbdw2YaDZLOOT3fjuI4h' +
'hKaRzFAHJ+jYQ4xHuY4gHuGIXGeExqC8Tp6C+PoEm+G5ImycRgh0XwvDGa5rgOeoejyXwnFeQp2mkf5ClgBB9gCWIYAwfYAEKV58mkdwOggNArgOXY2EWLoDkKOA0mgb' +
'hOGgZApgaSBIHWSYHSmbApgYThmESZYJkIeIkgeCpfliLIHgpMIcmUYYYmODAlg2SI4mWfRfGOEguDcCRjFYAJihCQhJBSDoRmONgKEcI4kFCEJhhOVYTmYnAlEAQhWB' +
'MJYJGYWoWmWSR2F6F5lnkWAQhUAgpEieRWEuSYkjWGpmkmNhuhuZwJkYcocmaaYkjyEhngnUA6lEFAlAEgI=');
Add(1,'CP:2 -8 -4 2 4');
end;
set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exHeaderFilterBarButton,$1fefefe);
set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exHeaderFilterBarActive,$1010101);
set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exCursorHoverColumn,$ffffffff);
HeaderHeight := 28;
DrawGridLines := EXCOMBOBOXLib.GridLinesEnum.exRowLines;
HeaderVisible := True;
with Columns do
begin
(Add('C1') as EXCOMBOBOXLib.Column).DisplayFilterButton := True;
with (Add('C2') as EXCOMBOBOXLib.Column) do
begin
DisplayFilterButton := True;
Filter := 'Item 2';
FilterType := EXCOMBOBOXLib.FilterTypeEnum.exFilter;
end;
(Add('C3') as EXCOMBOBOXLib.Column).DisplayFilterButton := True;
end;
with Items do
begin
h := AddItem('Item 1');
CellCaption[TObject(h),TObject(1)] := 'Item 2';
CellCaption[TObject(h),TObject(2)] := 'Item 3';
h := AddItem('Item 4');
CellCaption[TObject(h),TObject(1)] := 'Item 5';
CellCaption[TObject(h),TObject(2)] := 'Item 6';
end;
ApplyFilter();
EndUpdate();
end
|
|
566
|
Is it possible to hide the count of selected items, shown on the right side of the control's label (multiple-selection)
with AxComboBox1 do
begin
BeginUpdate();
HeaderAppearance := EXCOMBOBOXLib.AppearanceEnum.Etched;
Style := EXCOMBOBOXLib.StyleEnum.DropDownList;
SingleSel := False;
SingleEdit := True;
LabelColumnIndex := 0;
SelBackColor := Color.FromArgb(51,153,255);
SelForeColor := Color.FromArgb(255,255,255);
LabelText := ' ';
with Columns do
begin
Add('Column');
Add('Sub-Column');
end;
with Items do
begin
CellCaption[TObject(AddItem('Item 1')),TObject(1)] := 'SubItem 1.1';
CellCaption[TObject(AddItem('Item 2')),TObject(1)] := 'SubItem 2.1';
CellCaption[TObject(AddItem('Item 3')),TObject(1)] := 'SubItem 3.1';
CellCaption[TObject(AddItem('Item 4')),TObject(1)] := 'SubItem 4.1';
SelectItem[ItemByIndex[1]] := True;
SelectItem[ItemByIndex[3]] := True;
end;
EndUpdate();
end
|
|
481
|
Is it possible to have a CheckBox and Button TOGETHER on all cells in a column
// CellButtonClick event - Fired after the user clicks on the cell of button type.
procedure TWinForm1.AxComboBox1_CellButtonClick(sender: System.Object; e: AxEXCOMBOBOXLib._IComboBoxEvents_CellButtonClickEvent);
begin
with AxComboBox1 do
begin
OutputDebugString( 'CellButtonClick' );
OutputDebugString( e.item );
OutputDebugString( get_Key(Nil) );
end
end;
// CellStateChanged event - Fired after cell's state has been changed.
procedure TWinForm1.AxComboBox1_CellStateChanged(sender: System.Object; e: AxEXCOMBOBOXLib._IComboBoxEvents_CellStateChangedEvent);
begin
with AxComboBox1 do
begin
OutputDebugString( 'CellStateChanged' );
OutputDebugString( e.item );
OutputDebugString( get_Key(Nil) );
end
end;
with AxComboBox1 do
begin
BeginUpdate();
SingleEdit := True;
with (Columns.Add('') as EXCOMBOBOXLib.Column) do
begin
AllowSizing := False;
Width := 32;
FormatColumn := '1 index ``';
end;
with (Columns.Add('Def') as EXCOMBOBOXLib.Column) do
begin
AllowSizing := False;
Width := 48;
FormatColumn := '` `';
Def[EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
Def[EXCOMBOBOXLib.DefColumnEnum.exCellHasButton] := TObject(True);
Def[EXCOMBOBOXLib.DefColumnEnum.exCellButtonAutoWidth] := TObject(True);
end;
Columns.Add('');
with Items do
begin
AddItem('');
AddItem('');
AddItem('');
AddItem('');
AddItem('');
AddItem('');
AddItem('');
AddItem('');
end;
EndUpdate();
end
|
|
436
|
Is it possible to format numbers
with AxComboBox1 do
begin
BeginUpdate();
MarkSearchColumn := False;
with Columns do
begin
Add('Name');
with (Add('A') as EXCOMBOBOXLib.Column) do
begin
SortType := EXCOMBOBOXLib.SortTypeEnum.SortNumeric;
AllowSizing := False;
Width := 36;
FormatColumn := 'len(value) ? value + '' +''';
end;
with (Add('B') as EXCOMBOBOXLib.Column) do
begin
SortType := EXCOMBOBOXLib.SortTypeEnum.SortNumeric;
AllowSizing := False;
Width := 36;
FormatColumn := 'len(value) ? value + '' +''';
end;
with (Add('C') as EXCOMBOBOXLib.Column) do
begin
SortType := EXCOMBOBOXLib.SortTypeEnum.SortNumeric;
AllowSizing := False;
Width := 36;
FormatColumn := 'len(value) ? value + '' =''';
end;
with (Add('A+B+C') as EXCOMBOBOXLib.Column) do
begin
SortType := EXCOMBOBOXLib.SortTypeEnum.SortNumeric;
Width := 64;
ComputedField := 'dbl(%1)+dbl(%2)+dbl(%3)';
FormatColumn := 'type(value) in (0,1) ? ''null'' : ( dbl(value)<0 ? ''<fgcolor=FF0000>''+ (value format ''2|.|3|,|1'' ) : (dbl(value)>0 ? ''<fgcolor=000' +
'0FF>+''+(value format ''2|.|3|,'' ): ''0.00'') )';
Def[EXCOMBOBOXLib.DefColumnEnum.exCellCaptionFormat] := TObject(1);
end;
end;
with Items do
begin
h := AddItem('Root');
CellCaptionFormat[TObject(h),TObject(4)] := EXCOMBOBOXLib.CaptionFormatEnum.exComputedField;
h1 := InsertItem(h,Nil,'Child 1');
CellCaption[TObject(h1),TObject(1)] := TObject(7);
CellCaption[TObject(h1),TObject(2)] := TObject(3);
CellCaption[TObject(h1),TObject(3)] := TObject(1);
h1 := InsertItem(h,Nil,'Child 2');
CellCaption[TObject(h1),TObject(1)] := TObject(-2);
CellCaption[TObject(h1),TObject(2)] := TObject(-2);
CellCaption[TObject(h1),TObject(3)] := TObject(-4);
h1 := InsertItem(h,Nil,'Child 3');
CellCaption[TObject(h1),TObject(1)] := TObject(2);
CellCaption[TObject(h1),TObject(2)] := TObject(2);
CellCaption[TObject(h1),TObject(3)] := TObject(-4);
ExpandItem[h] := True;
end;
EndUpdate();
end
|
|
460
|
Is it possible to filter the items as I type
// EditChange event - Fired when the user has taken an action that may have altered text in an edit control.
procedure TWinForm1.AxComboBox1_EditChange(sender: System.Object; e: AxEXCOMBOBOXLib._IComboBoxEvents_EditChangeEvent);
begin
with AxComboBox1 do
begin
Columns.Item[TObject(0)].Filter := AxComboBox1.EditText[TObject(0)];
ApplyFilter();
end
end;
with AxComboBox1 do
begin
BeginUpdate();
MarkSearchColumn := False;
SingleEdit := True;
AutoComplete := False;
AutoDropDown := True;
IntegralHeight := True;
with Columns do
begin
with (Add('Items') as EXCOMBOBOXLib.Column) do
begin
Prompt := '<i><fgcolor=808080>Start Filter</fgcolor></i>';
FilterType := EXCOMBOBOXLib.FilterTypeEnum.exPattern;
end;
end;
with Items do
begin
AddItem('A');
AddItem('B');
AddItem('C');
AddItem('AB');
AddItem('AC');
AddItem('BA');
AddItem('BC');
AddItem('CC');
end;
EndUpdate();
end
|
|
437
|
Is it possible to display the numbers using 3 (three) digits
with AxComboBox1 do
begin
BeginUpdate();
(Columns.Add('Def') as EXCOMBOBOXLib.Column).Def[EXCOMBOBOXLib.DefColumnEnum.exCellCaptionFormat] := TObject(1);
with Items do
begin
h := AddItem(TObject(100.27));
FormatCell[TObject(h),TObject(0)] := '(value format '''') + '' <fgcolor=808080>(default)''';
h := AddItem(TObject(100.27));
FormatCell[TObject(h),TObject(0)] := '(value format ''3'') + '' <fgcolor=808080>(3 digits)''';
h := AddItem(TObject(100.27));
FormatCell[TObject(h),TObject(0)] := '(value format 2) + '' <fgcolor=808080>(2 digits)''';
h := AddItem(TObject(100.27));
FormatCell[TObject(h),TObject(0)] := '(value format 1) + '' <fgcolor=808080>(1 digit)''';
end;
EndUpdate();
end
|
|
552
|
Is it possible to configure different colour/icon when there is a active filter
// FilterChange event - Occurs when filter was changed.
procedure TWinForm1.AxComboBox1_FilterChange(sender: System.Object; e: System.EventArgs);
begin
with AxComboBox1 do
begin
set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exHeaderFilterBarButton,FormatABC('value = 0 ? 0x1000001 : 0x10000FF ',TObject(Columns.Item[TObject(0)].FilterType),Nil,Nil));
end
end;
with AxComboBox1 do
begin
BeginUpdate();
with VisualAppearance do
begin
RenderType := -16777216;
Add(1,'gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQg' +
'mPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYThd' +
'r4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA');
end;
DrawGridLines := EXCOMBOBOXLib.GridLinesEnum.exAllLines;
ShowFocusRect := False;
set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exHeaderFilterBarButton,$1000001);
set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exCursorHoverColumn,$ffffffff);
HeaderAppearance := EXCOMBOBOXLib.AppearanceEnum.Etched;
HeaderVisible := True;
with (Columns.Add('Filter') as EXCOMBOBOXLib.Column) do
begin
DisplayFilterButton := True;
AllowSort := False;
AllowDragging := False;
FilterList := EXCOMBOBOXLib.FilterListEnum.exShowCheckBox;
end;
with Items do
begin
AddItem('Item A');
AddItem('Item B');
AddItem('Item C');
end;
with Columns.Item[TObject(0)] do
begin
Filter := 'Item B';
FilterType := EXCOMBOBOXLib.FilterTypeEnum.exFilter;
end;
ApplyFilter();
EndUpdate();
end
|
|
579
|
Is it possible to Click or Double Click on any area of the combo to force the dropdown list to open
// Click event - Occurs when the user presses and then releases the left mouse button over the list control.
procedure TWinForm1.AxComboBox1_ClickEvent(sender: System.Object; e: System.EventArgs);
begin
with AxComboBox1 do
begin
OutputDebugString( get_DropDown(Nil) );
set_DropDown(Nil,True);
end
end;
with AxComboBox1 do
begin
BeginUpdate();
LinesAtRoot := EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot;
Style := EXCOMBOBOXLib.StyleEnum.DropDownList;
IntegralHeight := True;
Columns.Add('P1');
with Items do
begin
h := AddItem('Root');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
ExpandItem[h] := True;
SelectItem[h] := True;
end;
EndUpdate();
end
|
|
532
|
Is it possible to change the visual appearance of the position signs when user changes the column's position by drag and drop
with AxComboBox1 do
begin
BeginUpdate();
HeaderAppearance := EXCOMBOBOXLib.AppearanceEnum.Etched;
with Columns do
begin
Add('Column 1');
Add('Column 2');
Add('Column 3');
end;
with VisualAppearance do
begin
Add(1,'gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzVI' +
'UcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4a' +
'DhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DBe' +
'EMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5fnueh/h+R5+AKABfkMWgGgGYA4AICoCGCE5WA4CphACMgSD2IRIDIB' +
'ICmEd5YGCBpRjGBgegWIYIgWdgoGIRQsiKCZiAiJZ0gGQI4jUS4LECOAiBmDJflGfg2BSY4Al4OhGkOCJ2DgFJjGGfgqgiH5Ch4RhGkqOQmEOEpkFkHQYhJRYyESAokG' +
'KHhIhKIxJEmf4VGUeRGFmF5iBkchPhYJQ5GoYIZg6Ug6GoFYmkmNhuhulRGHKGoImefh0BUZ4JmYeoemeSZ2H6HQmgoBgXDqXwUAQgI=');
Add(2,'CP:1 0 -36 0 0');
end;
set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exColumnsPositionSign,$2000000);
EndUpdate();
end
|
|
572
|
Is it possible to change the visual appearance of the drop down button (method 3, theme)
with AxComboBox1 do
begin
BeginUpdate();
VisualAppearance.Add(1,'XP: COMBOBOX 1 1');
VisualAppearance.Add(2,'XP: COMBOBOX 1 3');
set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exDropDownButtonUp,$1000000);
set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exDropDownButtonDown,$2000000);
Columns.Add('Default');
EndUpdate();
end
|
|
571
|
Is it possible to change the visual appearance of the drop down button (method 2, ebn)
with AxComboBox1 do
begin
BeginUpdate();
VisualAppearance.Add(1,'gBFLBCJwBAEHhEJAAEhABKYCg6AADACAxRDgMQBQKAAzQFAYbBuGCGAAGIYBTgmFgAQhFcZQSKUOQTDKMIziYBYJhEMwwDhEIwjGKsIhsGIbJAGQBJCjWGodQLOEgzNC' +
'0IxNFCQILhEZJADKII8TTOU5UPRESwTE4cKBmKhQCo2NpKR7VUTxCKQahLLivoCjBT8EzHMqtIzrCA6MpaP4pQjKcqwTJ8YyHEi0ZrjazKaj6T5AXDUcaWbbNVx3PK3a' +
'ioOpLZrqOZZYzYFoRFYNTTJMTLcZifBsEoib4qSxMVaDPQWNT3CTIMQve4IEyGQ6jDDVOjYfqmDzTPAALLFUaNYzoOKyABMHATBIXAY7BIIOQ1HgHNBwJAAczzcTSBIA' +
'BECQoBoTBnEOKZIkuJYFEMCBElgXBoG0CQUHKIB8huYBiDUEYtAkA4Ol+D5PmWdJ7nyHh/iKCQ8iYWwWkWY5aAIfgfFgFgEgGXxoCSbR+g8N5wFMCABnCDgQAiX54AYA' +
'4CiCCAaBgfhfjedgTBgBZhggVQVEWCBOBWAIPGgZgqgcIJYHoEQYEWcYMniDJPFOUJ1giYhYEYJ8siidgMgOIQ4kIMoMmASJWDeCQiGgAgogYY54jgI4QiMM5iCsOxkG' +
'iYhJgWIoYjIQILmMGRGAQNpNjMcJjhiZBYloVoOiSKAKCAGIkBkdhEgKJgDHAMgMEMcJkDgD4mDODhlhGY4QgwbgbEcAxElANBnnGQhehwJgZkwN4EmEOZaHiGQgikGB' +
'pBoRozGSWS5jmRoKgSSJiDiEAgEgEgOg2HZnhkTgZiaJxIEyDwjkkF5Qn6K5qAqCgRiOKhYG4PYqCiOBGiuKxrGqPJ+iwag6D4eotiuCoqiyKYfCqepAiyahKECbYxGu' +
'KwejaFJsiqBpBh4YRbBqPIPGyCAWlWLICDoTBrDsLhCgiIgpC2W4mkmK5JmIdIfDwbwDi2bxAlAECAg=');
set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exDropDownButtonUp,$1f0f0f0);
set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exDropDownButtonDown,$1666666);
Columns.Add('Default');
EndUpdate();
end
|
|
570
|
Is it possible to change the visual appearance of the drop down button (method 1, no visual theme)
with AxComboBox1 do
begin
BeginUpdate();
UseVisualTheme := EXCOMBOBOXLib.UIVisualThemeEnum.exNoVisualTheme;
Columns.Add('Default');
EndUpdate();
end
|
|
463
|
Is it possible to change the height for all items at once
with AxComboBox1 do
begin
BeginUpdate();
LinesAtRoot := EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot;
Columns.Add('Items');
with Items do
begin
h := AddItem('Root 1');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
h := AddItem('Root 2');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
ExpandItem[0] := True;
end;
EndUpdate();
DefaultItemHeight := 12;
Items.ItemHeight[0] := 12;
end
|
|
440
|
Is it possible to change the grouping character when display numbers
with AxComboBox1 do
begin
BeginUpdate();
(Columns.Add('Def') as EXCOMBOBOXLib.Column).Def[EXCOMBOBOXLib.DefColumnEnum.exCellCaptionFormat] := TObject(1);
with Items do
begin
h := AddItem(TObject(100000.27));
FormatCell[TObject(h),TObject(0)] := '(value format '''') + '' <fgcolor=808080>(default)''';
h := AddItem(TObject(100000.27));
FormatCell[TObject(h),TObject(0)] := '(value format ''|||-'') + '' <fgcolor=808080>(grouping character is -)''';
end;
EndUpdate();
end
|
|
520
|
Is it possible to automatically displays the control's filter label to the right
with AxComboBox1 do
begin
BeginUpdate();
with (Columns.Add('Item') as EXCOMBOBOXLib.Column) do
begin
DisplayFilterButton := True;
FilterList := Integer(EXCOMBOBOXLib.FilterListEnum.exShowExclude) Or Integer(EXCOMBOBOXLib.FilterListEnum.exShowFocusItem) Or Integer(EXCOMBOBOXLib.FilterListEnum.exShowCheckBox) Or Integer(EXCOMBOBOXLib.FilterListEnum.exSortItemsAsc);
end;
with (Columns.Add('Pos') as EXCOMBOBOXLib.Column) do
begin
AllowSizing := False;
AllowSort := False;
Width := 32;
FormatColumn := '1 apos ``';
Position := 0;
end;
with Items do
begin
AddItem('Item A');
AddItem('Item B');
AddItem('Item C');
end;
FilterBarCaption := '`<r>` + value';
FilterBarPromptVisible := Integer(EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarShowCloseOnRight) Or Integer(EXCOMBOBOXLib.FilterBarVisibleEnum.exFilterBarToggle);
with Columns.Item[TObject(0)] do
begin
FilterType := EXCOMBOBOXLib.FilterTypeEnum.exFilter;
Filter := 'Item B';
end;
ApplyFilter();
EndUpdate();
end
|
|
450
|
Is it possible to auto-numbering the children items too
with AxComboBox1 do
begin
BeginUpdate();
LinesAtRoot := EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot;
Columns.Add('Items');
with (Columns.Add('Pos.1') as EXCOMBOBOXLib.Column) do
begin
FormatColumn := '1 rpos ''''';
Position := 0;
Width := 32;
AllowSizing := False;
end;
with (Columns.Add('Pos.2') as EXCOMBOBOXLib.Column) do
begin
FormatColumn := '1 rpos '':''';
Position := 1;
Width := 32;
AllowSizing := False;
end;
with (Columns.Add('Pos.3') as EXCOMBOBOXLib.Column) do
begin
FormatColumn := '1 rpos '':|A-Z''';
Position := 2;
Width := 32;
AllowSizing := False;
end;
with (Columns.Add('Pos.4') as EXCOMBOBOXLib.Column) do
begin
FormatColumn := '1 rpos ''|A-Z|''';
Position := 3;
Width := 32;
AllowSizing := False;
end;
with (Columns.Add('Pos.5') as EXCOMBOBOXLib.Column) do
begin
FormatColumn := '''<font Tahoma;7>'' + 1 rpos ''-<b>||A-Z''';
Def[EXCOMBOBOXLib.DefColumnEnum.exCellCaptionFormat] := TObject(1);
Position := 4;
Width := 32;
AllowSizing := False;
end;
with (Columns.Add('Pos.6') as EXCOMBOBOXLib.Column) do
begin
FormatColumn := '''<b>''+ 1 rpos ''</b>:<fgcolor=FF0000>|A-Z|''';
Def[EXCOMBOBOXLib.DefColumnEnum.exCellCaptionFormat] := TObject(1);
Position := 5;
Width := 48;
AllowSizing := False;
end;
with Items do
begin
h := AddItem('Root 1');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
ExpandItem[h] := True;
h := AddItem('Root 2');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
end;
EndUpdate();
end
|
|
452
|
Is it possible to auto-numbering the children items but still keeps the position after filtering
with AxComboBox1 do
begin
BeginUpdate();
LinesAtRoot := EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot;
with (Columns.Add('Items') as EXCOMBOBOXLib.Column) do
begin
DisplayFilterButton := True;
FilterType := EXCOMBOBOXLib.FilterTypeEnum.exFilter;
Filter := 'Child 2';
end;
with (Columns.Add('Pos.1') as EXCOMBOBOXLib.Column) do
begin
FormatColumn := '1 ropos ''''';
Position := 0;
Width := 32;
AllowSizing := False;
end;
with (Columns.Add('Pos.2') as EXCOMBOBOXLib.Column) do
begin
FormatColumn := '1 ropos '':''';
Position := 1;
Width := 32;
AllowSizing := False;
end;
with (Columns.Add('Pos.3') as EXCOMBOBOXLib.Column) do
begin
FormatColumn := '1 ropos '':|A-Z''';
Position := 2;
Width := 32;
AllowSizing := False;
end;
with (Columns.Add('Pos.4') as EXCOMBOBOXLib.Column) do
begin
FormatColumn := '1 ropos ''|A-Z|''';
Position := 3;
Width := 32;
AllowSizing := False;
end;
with (Columns.Add('Pos.5') as EXCOMBOBOXLib.Column) do
begin
FormatColumn := '''<font Tahoma;7>'' + 1 ropos ''-<b>||A-Z''';
Def[EXCOMBOBOXLib.DefColumnEnum.exCellCaptionFormat] := TObject(1);
Position := 4;
Width := 32;
AllowSizing := False;
end;
with (Columns.Add('Pos.6') as EXCOMBOBOXLib.Column) do
begin
FormatColumn := '''<b>''+ 1 ropos ''</b>:<fgcolor=FF0000>|A-Z|''';
Def[EXCOMBOBOXLib.DefColumnEnum.exCellCaptionFormat] := TObject(1);
Position := 5;
Width := 48;
AllowSizing := False;
end;
with Items do
begin
h := AddItem('Root 1');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
ExpandItem[h] := True;
h := AddItem('Root 2');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
end;
ApplyFilter();
EndUpdate();
end
|
|
442
|
Is it possible to add a 0 for numbers less than 1 instead .7 to show 0.8
with AxComboBox1 do
begin
BeginUpdate();
(Columns.Add('Def') as EXCOMBOBOXLib.Column).Def[EXCOMBOBOXLib.DefColumnEnum.exCellCaptionFormat] := TObject(1);
with Items do
begin
h := AddItem(TObject(0.27));
FormatCell[TObject(h),TObject(0)] := '(value format '''') + '' <fgcolor=808080>(default)''';
h := AddItem(TObject(0.27));
FormatCell[TObject(h),TObject(0)] := '(value format ''|||||0'') + '' <fgcolor=808080>(Display no leading zeros)''';
end;
EndUpdate();
end
|
|
443
|
Is it possible display numbers in the same format no matter of regional settings in the control panel
with AxComboBox1 do
begin
BeginUpdate();
(Columns.Add('Def') as EXCOMBOBOXLib.Column).Def[EXCOMBOBOXLib.DefColumnEnum.exCellCaptionFormat] := TObject(1);
with Items do
begin
h := AddItem(TObject(100000.27));
FormatCell[TObject(h),TObject(0)] := '(value format '''') + '' <fgcolor=808080>(default positive)''';
h := AddItem(TObject(100000.27));
FormatCell[TObject(h),TObject(0)] := '(value format ''2|.|3|,|1|1'')';
h := AddItem(TObject(-100000.27));
FormatCell[TObject(h),TObject(0)] := '(value format '''') + '' <fgcolor=808080>(default negative)''';
h := AddItem(TObject(-100000.27));
FormatCell[TObject(h),TObject(0)] := '(value format ''2|.|3|,|1|1'')';
end;
EndUpdate();
end
|
|
576
|
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.
procedure TWinForm1.AxComboBox1_AddColumn(sender: System.Object; e: AxEXCOMBOBOXLib._IComboBoxEvents_AddColumnEvent);
begin
// Column.Def(48) = 2
// Column.Def(49) = 2
end;
with AxComboBox1 do
begin
BeginUpdate();
ImageSize := 32;
LabelHeight := 36;
DefaultItemHeight := 36;
HeaderHeight := DefaultItemHeight;
SortBarHeight := DefaultItemHeight;
Font.Size := 16;
FilterBarFont.Size := AxComboBox1.Font.Size;
ToolTipFont.Size := AxComboBox1.Font.Size;
Indent := 26;
Images('gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOqN' +
'UqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlwy' +
'V21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+CM' +
'Po9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9F' +
'EKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5y' +
'7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIkF' +
'gTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMtN' +
'hCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/Xio' +
'W5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X4' +
'VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT6' +
'/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUVD' +
'NKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJyT' +
'8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5Wzlff' +
'EkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC6' +
'I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8Rg' +
'H5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVWR' +
'JNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==');
with VisualAppearance do
begin
Add(1,'gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6' +
'CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EM' +
'RwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDxR' +
'DWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFYF' +
'oFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4Uk' +
'mCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqAo' +
'chqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A0' +
'ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh8' +
'CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2U' +
'gJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ==');
Add(2,'gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6' +
'CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EM' +
'RwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4n' +
'GKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnSc' +
'g1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBpA' +
'oPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaDR' +
'DFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+lG' +
'NAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQBg' +
'k0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwykuX' +
'pMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2Cy' +
'A4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8Rp' +
'BzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8T' +
'I7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAeH' +
'GFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAuh' +
'oiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwMs' +
'CwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4ga' +
'BEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAgs' +
'wOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBtY' +
'QGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGBh' +
'YDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0Mg' +
'RBCCQAgQEA==');
Add(3,'gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6' +
'CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EM' +
'RwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4n' +
'GKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnSe' +
'Q7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJjn' +
'OIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMaJ' +
'9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTGS' +
'UwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4y' +
'mkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgkX' +
'I/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD6' +
'BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BRA' +
'jDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBEB' +
'wpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQH' +
'oFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgRh' +
'cDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOCQ' +
'AA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYjV' +
'HiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4z' +
'xW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBsH' +
'0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI=');
Add(4,'gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHL' +
'UXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBU' +
'rGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3' +
'NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsY' +
'YDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVm' +
'WCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVo' +
'WiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiS' +
'e41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhF' +
'CcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==');
end;
(GetOcx() as EXCOMBOBOXLib.ComboBox).HeaderBackColor := $4c6c6c6;
(GetOcx() as EXCOMBOBOXLib.ComboBox).SelBackColor := $4000000;
SelForeColor := Color.FromArgb(0,0,1);
set_CheckImage(EXCOMBOBOXLib.CheckStateEnum.Unchecked,16777216);
set_CheckImage(EXCOMBOBOXLib.CheckStateEnum.Checked,33554432);
set_CheckImage(EXCOMBOBOXLib.CheckStateEnum.PartialChecked,50331648);
set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exSelBackColorFilter,SelBackColor);
set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exSelForeColorFilter,SelForeColor);
set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exBackColorFilter,BackColor);
set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exForeColorFilter,ForeColor);
set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exCursorHoverColumn,$ffffffff);
set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exHeaderFilterBarButton,$4000000);
set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exHeaderFilterBarActive,$4010101);
set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exFooterFilterBarButton,$40000ff);
HeaderAppearance := EXCOMBOBOXLib.AppearanceEnum.Etched;
ShowFocusRect := False;
SortBarVisible := True;
BackColorSortBar := BackColor;
BackColorLevelHeader := BackColor;
FilterBarDropDownHeight := 1;
IntegralHeight := True;
with (Columns.Add('Check') as EXCOMBOBOXLib.Column) do
begin
Def[EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
PartialCheck := True;
Width := 128;
DisplayFilterButton := True;
FilterList := EXCOMBOBOXLib.FilterListEnum.exShowCheckBox;
end;
with (Columns.Add('Pos') as EXCOMBOBOXLib.Column) do
begin
FormatColumn := '1 pos ``';
AllowSort := False;
Width := 48;
AllowSizing := False;
Alignment := EXCOMBOBOXLib.AlignmentEnum.CenterAlignment;
HeaderAlignment := EXCOMBOBOXLib.AlignmentEnum.CenterAlignment;
end;
with (Columns.Add('Image') as EXCOMBOBOXLib.Column) do
begin
DisplayFilterButton := True;
FilterList := Integer(EXCOMBOBOXLib.FilterListEnum.exShowExclude) Or Integer(EXCOMBOBOXLib.FilterListEnum.exShowCheckBox) Or Integer(EXCOMBOBOXLib.FilterListEnum.exSortItemsAsc);
FilterType := EXCOMBOBOXLib.FilterTypeEnum.exImage;
Width := 128;
HeaderImage := 1;
end;
with (Columns.Add('Images') as EXCOMBOBOXLib.Column) do
begin
Def[EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
Width := 196;
HTMLCaption := '<img>1</img><img>2</img><img>3</img> Images';
end;
Columns.Item['Pos'].Position := 3;
with Items do
begin
hR := AddItem('Root');
ItemDivider[hR] := 0;
ItemDividerLine[hR] := EXCOMBOBOXLib.DividerLineEnum.EmptyLine;
h := InsertItem(hR,Nil,'Child A');
CellImage[TObject(h),TObject(2)] := 1;
CellImages[TObject(h),TObject(3)] := '1,2,3';
CellCaption[TObject(h),TObject(3)] := '123';
h := InsertItem(hR,Nil,'Child B');
CellState[TObject(h),TObject(0)] := 1;
CellImage[TObject(h),TObject(2)] := 3;
CellImages[TObject(h),TObject(3)] := '2,3,1';
CellCaption[TObject(h),TObject(3)] := '231';
SelectItem[h] := True;
h := InsertItem(hR,Nil,'Child C');
CellImage[TObject(h),TObject(2)] := 2;
CellState[TObject(h),TObject(3)] := 1;
CellCaption[TObject(h),TObject(3)] := '312';
CellImages[TObject(h),TObject(3)] := '3,1,2';
ExpandItem[hR] := True;
end;
EndUpdate();
end
|
|
575
|
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.
procedure TWinForm1.AxComboBox1_AddColumn(sender: System.Object; e: AxEXCOMBOBOXLib._IComboBoxEvents_AddColumnEvent);
begin
// Column.Def(48) = 2
// Column.Def(49) = 2
end;
with AxComboBox1 do
begin
BeginUpdate();
ImageSize := 16;
Images('gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOqd' +
'SqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVtt' +
'mp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8ac' +
'vQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtTG' +
'sbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgPn' +
'wD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg==');
with VisualAppearance do
begin
Add(4,'gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHL' +
'UXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBU' +
'rGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3' +
'NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsY' +
'YDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVm' +
'WCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVo' +
'WiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiS' +
'e41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhF' +
'CcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==');
end;
(GetOcx() as EXCOMBOBOXLib.ComboBox).HeaderBackColor := $4c6c6c6;
(GetOcx() as EXCOMBOBOXLib.ComboBox).SelBackColor := $4000000;
SelForeColor := Color.FromArgb(0,0,1);
set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exSelBackColorFilter,SelBackColor);
set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exSelForeColorFilter,SelForeColor);
set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exBackColorFilter,BackColor);
set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exForeColorFilter,ForeColor);
set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exCursorHoverColumn,$ffffffff);
set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exHeaderFilterBarButton,$4000000);
set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exHeaderFilterBarActive,$4010101);
set_Background(EXCOMBOBOXLib.BackgroundPartEnum.exFooterFilterBarButton,$40000ff);
HeaderAppearance := EXCOMBOBOXLib.AppearanceEnum.Etched;
ShowFocusRect := False;
SortBarVisible := True;
BackColorSortBar := BackColor;
BackColorLevelHeader := BackColor;
FilterBarDropDownHeight := 1;
IntegralHeight := True;
with (Columns.Add('Check') as EXCOMBOBOXLib.Column) do
begin
Def[EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
PartialCheck := True;
Width := 128;
DisplayFilterButton := True;
FilterList := EXCOMBOBOXLib.FilterListEnum.exShowCheckBox;
end;
with (Columns.Add('Pos') as EXCOMBOBOXLib.Column) do
begin
FormatColumn := '1 pos ``';
AllowSort := False;
Width := 48;
AllowSizing := False;
Alignment := EXCOMBOBOXLib.AlignmentEnum.CenterAlignment;
HeaderAlignment := EXCOMBOBOXLib.AlignmentEnum.CenterAlignment;
end;
with (Columns.Add('Image') as EXCOMBOBOXLib.Column) do
begin
DisplayFilterButton := True;
FilterList := Integer(EXCOMBOBOXLib.FilterListEnum.exShowExclude) Or Integer(EXCOMBOBOXLib.FilterListEnum.exShowCheckBox) Or Integer(EXCOMBOBOXLib.FilterListEnum.exSortItemsAsc);
FilterType := EXCOMBOBOXLib.FilterTypeEnum.exImage;
Width := 128;
HeaderImage := 1;
end;
with (Columns.Add('Images') as EXCOMBOBOXLib.Column) do
begin
Def[EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
Width := 196;
HTMLCaption := '<img>1</img><img>2</img><img>3</img> Images';
end;
Columns.Item['Pos'].Position := 3;
with Items do
begin
hR := AddItem('Root');
ItemDivider[hR] := 0;
ItemDividerLine[hR] := EXCOMBOBOXLib.DividerLineEnum.EmptyLine;
h := InsertItem(hR,Nil,'Child A');
CellImage[TObject(h),TObject(2)] := 1;
CellImages[TObject(h),TObject(3)] := '1,2,3';
CellCaption[TObject(h),TObject(3)] := '123';
h := InsertItem(hR,Nil,'Child B');
CellState[TObject(h),TObject(0)] := 1;
CellImage[TObject(h),TObject(2)] := 3;
CellImages[TObject(h),TObject(3)] := '2,3,1';
CellCaption[TObject(h),TObject(3)] := '231';
SelectItem[h] := True;
h := InsertItem(hR,Nil,'Child C');
CellImage[TObject(h),TObject(2)] := 2;
CellState[TObject(h),TObject(3)] := 1;
CellCaption[TObject(h),TObject(3)] := '312';
CellImages[TObject(h),TObject(3)] := '3,1,2';
ExpandItem[hR] := True;
end;
EndUpdate();
end
|
|
471
|
If the user selects an item from the list, how can I clear that selection and return the control to the unselected state with the PROMPT text
// DropUp event - Occurs when the drop-down portion of the control is hidden.
procedure TWinForm1.AxComboBox1_DropUp(sender: System.Object; e: System.EventArgs);
begin
with AxComboBox1 do
begin
set_EditText(TObject(0),'');
end
end;
// SelectionChanged event - Fired after a new item has been selected.
procedure TWinForm1.AxComboBox1_SelectionChanged(sender: System.Object; e: System.EventArgs);
begin
with AxComboBox1 do
begin
OutputDebugString( 'You selected: ' );
OutputDebugString( Value );
end
end;
with AxComboBox1 do
begin
BeginUpdate();
LabelHeight := 23;
IntegralHeight := True;
AutoComplete := False;
AutoSearch := False;
AutoDropDown := True;
(Columns.Add('Default') as EXCOMBOBOXLib.Column).Prompt := '<i><fgcolor=808080>type something</fgcolor></i>';
with Items do
begin
AddItem(TObject(0));
AddItem(TObject(1));
AddItem(TObject(2));
end;
EndUpdate();
end
|
|
598
|
I want to fix/lock the first item in the control
// Click event - Occurs when the user presses and then releases the left mouse button over the list control.
procedure TWinForm1.AxComboBox1_ClickEvent(sender: System.Object; e: System.EventArgs);
begin
with AxComboBox1 do
begin
i := get_ItemFromPoint(-1,-1,c,hit);
LabelText := Items.CellCaption[TObject(i),TObject(0)];
set_DropDown(Nil,False);
end
end;
with AxComboBox1 do
begin
BeginUpdate();
SearchColumnIndex := -1;
AdjustSearchColumn := False;
SingleEdit := True;
Style := EXCOMBOBOXLib.StyleEnum.DropDownList;
HeaderVisible := False;
IntegralHeight := True;
Columns.Add('Default');
with Items do
begin
LockedItemCount[EXCOMBOBOXLib.VAlignmentEnum.exTop] := 1;
CellCaption[TObject(LockedItem[EXCOMBOBOXLib.VAlignmentEnum.exTop,0]),TObject(0)] := '(no assignment)';
ItemBackColor[LockedItem[EXCOMBOBOXLib.VAlignmentEnum.exTop,0]] := $ffff;
AddItem('Item 1');
AddItem('Item 2');
AddItem('Item 3');
end;
PutItems(GetItems(''),Nil);
EndUpdate();
end
|
|
162
|
I need to add a button in the scroll bar. Is this possible
with AxComboBox1 do
begin
set_ScrollPartVisible(EXCOMBOBOXLib.ScrollBarEnum.exHScroll,EXCOMBOBOXLib.ScrollPartEnum.exLeftB1Part,True);
set_ScrollPartCaption(EXCOMBOBOXLib.ScrollBarEnum.exHScroll,EXCOMBOBOXLib.ScrollPartEnum.exLeftB1Part,'1');
end
|
|
411
|
I need a combobox that supports selecting multiple items, preferably with checkboxes. I can't find an example of how to do this. Does your control support it
// CellStateChanged event - Fired after cell's state has been changed.
procedure TWinForm1.AxComboBox1_CellStateChanged(sender: System.Object; e: AxEXCOMBOBOXLib._IComboBoxEvents_CellStateChangedEvent);
begin
with AxComboBox1 do
begin
LabelText := e.cell;
OutputDebugString( Items.CellCaption[TObject(0),TObject(e.cell)] );
OutputDebugString( Items.CellState[TObject(0),TObject(e.cell)] );
end
end;
with AxComboBox1 do
begin
BeginUpdate();
Style := EXCOMBOBOXLib.StyleEnum.DropDownList;
IntegralHeight := True;
HeaderVisible := False;
SingleEdit := True;
SearchColumnIndex := -1;
AdjustSearchColumn := False;
(Columns.Add('Language') as EXCOMBOBOXLib.Column).Def[EXCOMBOBOXLib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
with Items do
begin
AddItem('English');
AddItem('Hebrew');
AddItem('Spanish');
end;
EndUpdate();
end
|
|
326
|
I have multiple columns, how can I display a single edit in the control's label
with AxComboBox1 do
begin
SingleEdit := True;
Columns.Add('Column 1');
Columns.Add('Column 2');
with Items do
begin
CellCaption[TObject(AddItem('Item 1')),TObject(1)] := 'SubItem 1';
CellCaption[TObject(AddItem('Item 2')),TObject(1)] := 'SubItem 2';
CellCaption[TObject(AddItem('Item 3')),TObject(1)] := 'SubItem 3';
end;
end
|
|
255
|
I have a hierarchy, how can I count the number of root items
with AxComboBox1 do
begin
Columns.Add('Default');
with Items do
begin
h := AddItem('Root 1');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
ExpandItem[h] := True;
h := AddItem('Root 2');
InsertItem(h,Nil,'Child 1');
InsertItem(h,Nil,'Child 2');
AddItem(TObject(RootCount));
end;
end
|
|
67
|
I have a hierarchy and I need to filter only root items that match, without thier childs
with AxComboBox1 do
begin
LinesAtRoot := EXCOMBOBOXLib.LinesAtRootEnum.exLinesAtRoot;
FilterInclude := EXCOMBOBOXLib.FilterIncludeEnum.exRootsWithoutChilds;
with (Columns.Add('Column') as EXCOMBOBOXLib.Column) do
begin
DisplayFilterButton := True;
FilterType := EXCOMBOBOXLib.FilterTypeEnum.exFilter;
Filter := 'R1';
end;
with Items do
begin
h := AddItem('R1');
InsertItem(h,Nil,'C1');
InsertItem(h,Nil,'C2');
ExpandItem[h] := True;
h := AddItem('R2');
InsertItem(h,Nil,'C1');
InsertItem(h,Nil,'C2');
end;
ApplyFilter();
end
|