Hello Boki,
thx for your reply.
Not fit of the gridrow-size, fit for the listboxrow they get open in the TNxListColumn. The item hight size for the listbox is not correct.
And the when i do it with a TNxComboBox in ImplaceEdit i can set the ItemHight size in the property from TNxComboBox but in the enter it shows the index looks like '0' or so on.
My solution for the TNxComboBox poblem is now:
procedure TForm1.NextGrid1EditEnter(Sender: TObject);
begin
if(NextGrid1.SelectedColumn = 5)then
begin
FSelectedLBIndex := NextGrid1.Cell[NextGrid1.SelectedColumn,NextGrid1.SelectedRow].AsInteger; //save the listbox index
if(FSelectedLBIndex > -1 )then
begin
NxComboBox1.Text := NxComboBox1.Items[FSelectedLBIndex];
end;
end;
end;
and when get out from control
procedure TForm1.NextGrid1EndEditing(Sender: TObject; ACol, ARow: Integer;
var Value: WideString; var Accept: Boolean);
var
selIndex : Integer;
begin
if(NextGrid1.SelectedColumn = 5)then
begin
selIndex := NextGrid1.Cell[NextGrid1.SelectedColumn,NextGrid1.SelectedRow].AsInteger;
if(selIndex = -1 )then
begin
if(FSelectedLBIndex > -1)then
begin
NextGrid1.Cell[NextGrid1.SelectedColumn,NextGrid1.SelectedRow].AsInteger := FSelectedLBIndex; // set the saved listbox index
end;
end;
end;
end;
best regards
Markus