Tabs and colored lines in Listbox

Question

I am using a Tabbed Listbox component that was written by Fredric Rylander back in 1999 and it has been serving me well since then. :) Can't seem to find him anymore. I now have an application that needs both Tabbed Data and alternating colored lines in the Listbox. I can include the Component here for perusal if desired. I tried coloring the lines from here http://delphi.about.com/cs/adptips2002/a/bltip0602_4.htm But then it eats the Tabs, but I do get the alternating colored lines. Can someone please show me how to incorporate the two. Thanks Here's the Component ``` unit myListBoxTabbed; { Copyright © 1999 Fredric Rylander You can easily add a header control to this list box: drop a header control onto the form (it's default align property is set to alTop, if it's not--set it); then set the myTabbedListBox's aligned property to alClient; now, add the following two events and their code. 1) HeaderControl's OnSectionResize event: var i, last: integer; begin last := 0; for i:=0 to Hea…

Accepted Answer

Here's an example using a standard `TListBox` and it's `OnDrawItem` event, based on the code from the link you provided and tested in Delphi 2007. Note you need to set the `ListBox.Style` to `lbOwnerDrawFixed`. You can perhaps use this as a base for modifying the component (or just abandon it altogether).

```
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
  LB: TListBox;
  NewColor: TColor;
  NewBrush: TBrush;
  R: TRect;
  Fmt: Cardinal;
  ItemText: string;
begin
  NewBrush := TBrush.Create;
  LB := (Control as TListBox);
  if (odSelected in State) then
  begin
    NewColor := LB.Canvas.Brush.Color;
  end
  else
  begin
    if not Odd(Index) then
      NewColor := clSilver
    else
      NewColor := clYellow;
  end;
  NewBrush.Style := bsSolid;
  NewBrush.Color := NewColor;
  // This is the ListBox.Canvas brush itself, not to be
  // confused with the NewBrush we've created above
  LB.Canvas.Brush.Style := bsClear;
  R := Rect;
  ItemText := LB.Items[Index];
  Fmt := DT_EXPANDTABS or DT_CALCRECT or DT_NOCLIP;
  DrawText(LB.Canvas.Handle, PChar(ItemText), Length(ItemText),
       R, Fmt);

// Note we need to FillRect on the original Rect and not
  // the one we're using in the call to DrawText
  Windows.FillRect(LB.Canvas.Handle, Rect, NewBrush.Handle) ;
  DrawText(LB.Canvas.Handle, PChar(ItemText), Length(ItemText),
       R, DT_EXPANDTABS);
  NewBrush.Free;
end;
```

Here's the output of the above code:

Tabs and colored lines in Listbox

Solution

Problem