ATListbox

About

ATListbox is OS-independant listbox control. It's made for list like Sublime Text's command list, it cannot be focused. Fully owner-drawn: you must not set captions, but must add OnDrawItem event, and set ItemCount.

Author: Alexey Torgashin.

Screenshot:

Example

Let's create list:

var
  b: TATListbox;

procedure TfmMain.FormCreate(Sender: TObject);
begin
  b:= TATListbox.Create(Self);
  b.Parent:= Self;
  b.Align:= alClient;

  b.OnDrawItem:= @ListDraw;
  b.OnClick:= @ListClick;

  b.Color:= $e0e0e0;
  b.ItemCount:= 21;
end;

Let's set OnDrawItem to this (simply paint "itemNN"):

procedure TfmMain.ListDraw(Sender: TObject; C: TCanvas; AIndex: integer;
  const ARect: TRect);
begin
  C.Brush.Color:= IfThen(AIndex=b.ItemIndex, clMedGray, b.Color);
  C.FillRect(ARect);

  C.Pen.Color:= clMedGray;
  C.Line(ARect.Left+2, ARect.Bottom-1, ARect.Right-2, ARect.Bottom-1);

  C.TextOut(ARect.Left+6, ARect.Top+2, 'item '+inttostr(AIndex));
end;

Then need to add OnKeyDown event to form, which handles Up/Down/Home/End keys: just change "b.ItemIndex". Example of this event is in demo.