AdvPolyList freezes

Roman_Masek · August 1, 2018, 3:49pm

Create first THmtltem in TAdvPolyList.
THmtltem.Selectable = False
Press key Page Down
AdvPolyList freezes

procedure TCustomItemsContainer.KeyDown(var Key: Word; Shift: TShiftState);

....

      while (idx = -1) or not IsItemSelectable(TCustomItem(Items[idx])) do
      begin
        ProcessKeyGrid(Key, selRow, selCol);
        selrow := Max(0, Min(selrow, maxrow));
        selcol := Max(0, Min(selcol, maxcol));
        Item := ItemAtRowCol(selrow, selcol);
        if Assigned(item) then
          idx := item.Index; // idx return zero. Items[0] is not Selectable !!!
      end;

brunofierens · August 2, 2018, 9:49am

I suspect you do not use the latest version of the component.
This code is not from the latest version and with the latest version, we cannot reproduce such problem.

Roman_Masek · August 2, 2018, 11:12am

I have version 1.6.4.4 from 6.7.2018

procedure TForm1.FormCreate(Sender: TObject);
var
AdvPolyList: TAdvPolyList;
HTMLItem: THTMLItem;
begin
AdvPolyList := TAdvPolyList.Create(self);
AdvPolyList.Parent := self;
HTMLItem := THTMLItem(AdvPolyList.AddItem(THTMLItem));
HTMLItem.Selectable := False;
HTMLItem := THTMLItem(AdvPolyList.AddItem(THTMLItem));
HTMLItem.Selectable := True;
end;

Roman_Masek · August 2, 2018, 11:14am

When show form, imediately press key Page down. Don't use mouse to select control PolyList

brunofierens · August 2, 2018, 11:51am

Thanks for these extra details.

We could reproduce it with these steps and have applied a fix.
The next update will address this.