3 replies to this topic

[spongebob]

If a TNXComboBoxItem is the last Child node in an Inspector, pressing the key "cursor down" modifies the combobox value and the modification is not consistent.

• The displayed value is changed
• The value of the Item changes to a different value after activating it again

I attached a small demo - here are my instructions to show the problem

• Start Inspectorproblem1.exe
• Press cursor down and keep cursor down pressed
• Value of the last childitem (combobox) will change to "Comboline5" if you keep cursor down pressed long enough
• Click on Item 5
• Click on the last ComboBox Item again (or scroll down to it)
• ComboBox Value changes to "Comboline1" magically
• Finally : scroll up to the first Combobox Item. This combobox does not change the value with the cursor key !

I think this behaviour is not desirable. Why does cursor down change the value of the combobox if it is the last childItem ? I do not want the cursor keys to change combobox Values at all.
(My users can easily screw up the program configuration by pressing cursor down in the Inspector if it behaves this way !)

Any ideas anyone ? How do you prevent this from happening ?

Thanks for your help !!!

Attached Files

•  TNxComboBoxItemProblem.zip   305.65KB   5 downloads

[Boki (Berg)]

Hello Spongebob,

I will test it and fix it. I hope that I will fix it tomorow.

Thank you

[Boki (Berg)]

Hello SpongeBob,

Try with this change:

1. Open NxEdit.pas
2. Find procedure TNxComboBox.KeyDown and add this line:

CODE

procedure TNxComboBox.KeyDown(var Key: Word; Shift: TShiftState);
begin
  inherited;
  if FDroppedDown then
  begin
    with FPopupControl as TNxPopupList do
      case Key of
        VK_UP: if (HoverIndex > 0) and not(ssAlt in Shift) then Self.ItemIndex := HoverIndex - 1;
        VK_DOWN: if (HoverIndex < Pred(FItems.Count)) and not(ssAlt in Shift) then Self.ItemIndex := HoverIndex + 1;
      end;
  end else
  begin
    if InplaceEditor then Exit; // <----------------- New Line
    case Key of
      VK_UP: if (ItemIndex > 0) and not(ssAlt in Shift) then ItemIndex := ItemIndex - 1;
      VK_DOWN: if (ItemIndex < Pred(FItems.Count)) and not(ssAlt in Shift) then ItemIndex := ItemIndex + 1;
    end;
  end;
end;

Please tell me if this solve your problem.

Best regards

[spongebob]

...

Please tell me if this solve your problem.

Best regards

This works nicely - thanks a lot for your help !
I tested the combobox in tNextInspector and tNextGrid and everything works as expected - please include this change in future versions.

Have a nice day !