wrong itemindex in ttmsfnccombobox after insertobject

FNC TMS FNC UI Pack
1

last version 1.0.0.7

type
TForm3 = class(TForm)
c_test: TTMSFNCComboBox;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
var i:integer;
begin i:=c_test.ItemIndex;
showmessage(i.ToString);
end;

procedure TForm3.FormCreate(Sender: TObject);
var n:integer;
begin
with c_test.Items do
begin
BeginUpdate;
clear;
for n := 1 to 10 do
AddObject('item ' + n.ToString, TObject(n));
endupdate;
end;
c_test.Items.InsertObject(0, 'ins test', TObject(0));
c_test.ItemIndex := 0;
end;

In the above code, the returned itemindex is 11 and not 0
what is interesting, is that I have problems when compiled in 64bit

FNCComboBox ItemIndex Bug
2

Hi,

Thank you for reporting, we were able to reproduce this and we applied a fix. The next version will contain the necessary changes.

We saw the issue in both 32 and 64-bit. Could it be the package is cached for you in 32-bit?

3

I confirm it happens to both 32bit and 64bit.
It was my fault, I tested a previous build of my program