AdvInputTaskDialog / ListBox wirth MultiSelect

VCL TMS VCL UI Pack
1
Hello,

I have a problem with the AdvInputTaskDialog (1.7.1.4 / Delphi5) and a ListBox wirth MultiSelect := True;

If i use MultiSelect := False, everthing works fine.

But with MultiSelect := True, the ListBox forgot their selection after AdvInputTaskDialog.Execute;

Code works
ListBox1.Items.Add('item 1');
ListBox1.Items.Add('item 2');
ListBox1.Items.Add('item 3');
AdvInputTaskDialog1.InputType := itCustom;
AdvInputTaskDialog1.InputControl := ListBox1;
ListBox1.Multiselect := False;
AdvInputTaskDialog1.Execute;

//Do selection

for i := 0 to ListBox1.Items.Count-1 do
begin
    if ListBox1.Selected[i] then
        begin
            ShowMessage('This message appear');
        end;
    end;
end;

Works also (ListBox outside AdvInputTaskDialog)
ListBox1.Items.Add('item 1');
ListBox1.Items.Add('item 2');
ListBox1.Items.Add('item 3');
ListBox1.Multiselect := True;

//Do selection

for i := 0 to ListBox1.Items.Count-1 do
begin
    if ListBox1.Selected[i] then
        begin
            ShowMessage('This message appears');
        end;
    end;
end;



But this doesn't work

ListBox1.Items.Add('item 1');
ListBox1.Items.Add('item 2');
ListBox1.Items.Add('item 3');
AdvInputTaskDialog1.InputType := itCustom;
AdvInputTaskDialog1.InputControl := ListBox1;
ListBox1.Multiselect := True;
AdvInputTaskDialog1.Execute;

//Do selection

for i := 0 to ListBox1.Items.Count-1 do
begin
    if ListBox1.Selected[i] then
        begin
            ShowMessage('This message doesn't appear');
        end;
    end;
end;



This apears when i use the ListBox from Delphi or the EditListBox from TMS, the AdvInputTaskDialog or the AdvInputTaskDialogEx.
Does anybody have an idea for a workaround?

I know that i use a old version of AdvInputTaskDialog, but this project is written in Delphi5 (not 2005 or XE5 :-), so i can't use newer components.

Greetings
 Bjoern
2

I have retested this here with the latest version of TAdvInputTaskDialog but I cannot reproduce such problem here.