Hi, I would like to use the TTIWMultiColumnComboBox but I've some problems.
- having the Combobox in a verticaly small region, the popup-grid of the lookup is truncated by the borders of the region.
- clicking the "open"-button on the right, the popup-grid opens and closes immediately. So I'm not able to select an item. I drop the control on the form without doing changes on the properties, except the columnscount (see sample below)
- setting LookupTypeAHead = true there is an error runing the app - creating the session (tried with Edge and Chrome)
- it would be fine to have an option where typing text would filter the lookup-grid on all columns and also on text contained in the middle (example typing 0 on below values should remain only rows with a 0 in the text)
- having the Combobox in a verticaly small region, the popup-grid of the lookup is truncated by the borders of the region.
- clicking the "open"-button on the right, the popup-grid opens and closes immediately. So I'm not able to select an item. I drop the control on the form without doing changes on the properties, except the columnscount (see sample below)
- setting LookupTypeAHead = true there is an error runing the app - creating the session (tried with Edge and Chrome)
- it would be fine to have an option where typing text would filter the lookup-grid on all columns and also on text contained in the middle (example typing 0 on below values should remain only rows with a 0 in the text)
my unit1-code Looks like:
unit Unit1;
interface
uses
Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes,
IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl, IWCompEdit,
IWTMSBase, IWMultiColumnComboBox, Vcl.Controls, Vcl.Forms, IWVCLBaseContainer,
IWContainer, IWHTMLContainer, IWHTML40Container, IWRegion;
type
TIWForm1 = class(TIWAppForm)
IWRegion1: TIWRegion;
TIWMultiColumnComboBox1: TTIWMultiColumnComboBox;
TIWMultiColumnComboBox2: TTIWMultiColumnComboBox;
procedure IWAppFormCreate(Sender: TObject);
public
end;
implementation
{$R *.dfm}
unit Unit1;
interface
uses
Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes,
IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl, IWCompEdit,
IWTMSBase, IWMultiColumnComboBox, Vcl.Controls, Vcl.Forms, IWVCLBaseContainer,
IWContainer, IWHTMLContainer, IWHTML40Container, IWRegion;
type
TIWForm1 = class(TIWAppForm)
IWRegion1: TIWRegion;
TIWMultiColumnComboBox1: TTIWMultiColumnComboBox;
TIWMultiColumnComboBox2: TTIWMultiColumnComboBox;
procedure IWAppFormCreate(Sender: TObject);
public
end;
implementation
{$R *.dfm}
procedure TIWForm1.IWAppFormCreate(Sender: TObject);
begin
with TIWMultiColumnComboBox1 do
begin
AddRow('c0r0;c1r0;c2r0');
AddRow('c0r1;c1r1;c2r1');
AddRow('c0r2;c1r2;c2r2');
AddRow('c0r3;c1r3;c2r3');
AddRow('c0r4;c1r4;c2r4');
end;
with TIWMultiColumnComboBox2 do
begin
AddRow('c0r0;c1r0;c2r0');
AddRow('c0r1;c1r1;c2r1');
AddRow('c0r2;c1r2;c2r2');
AddRow('c0r3;c1r3;c2r3');
AddRow('c0r4;c1r4;c2r4');
end;
end;
initialization
TIWForm1.SetAsMainForm;
end.
begin
with TIWMultiColumnComboBox1 do
begin
AddRow('c0r0;c1r0;c2r0');
AddRow('c0r1;c1r1;c2r1');
AddRow('c0r2;c1r2;c2r2');
AddRow('c0r3;c1r3;c2r3');
AddRow('c0r4;c1r4;c2r4');
end;
with TIWMultiColumnComboBox2 do
begin
AddRow('c0r0;c1r0;c2r0');
AddRow('c0r1;c1r1;c2r1');
AddRow('c0r2;c1r2;c2r2');
AddRow('c0r3;c1r3;c2r3');
AddRow('c0r4;c1r4;c2r4');
end;
end;
initialization
TIWForm1.SetAsMainForm;
end.
the first Combobox stays in the IWRegion1, aligned at the top with height = 70
best regards
Toni Santa
best regards
Toni Santa