1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:

procedure DrawListBoxZCB(Control: TWinControl; Index: Integer; Rect: TRect;
  State: TOwnerDrawState);
const
  Col1: array [Boolean] of TColor = ($00F8F8F8, clWindow);
  Col2: array [Boolean] of TColor = (clInactiveCaptionText, clWindowText);
var
  Bmp: TBitmap;
  TopDif: Integer; // Gleicht die Höhendifferenz aus
begin
  Bmp := TBitmap.Create;
  try 
    with (Control as TListbox) do 
    begin
      Bmp.Transparent := True;
      { Hier Bitmap von Festplatte laden }
      { Beispiel }
      //Bmp.LoadFromFile('c:\Bmp16.bmp');
      { Hier Bitmap aus Ressorce laden }
      { Beispiel }
      //Bmp.LoadFromResourceName(HInstance,'Bitmap1');
      { Hier Bitmap aus ImageList laden}
      { Beispiel mit ImageList1 auf Formular Form1 }
      //with Form1 do ImageList1.GetBitmap(0, Bmp);
      if odSelected in State then 
        Canvas.Font.Color := clCaptionText 
      else
      begin
        Canvas.Brush.Color := Col1[Odd(Index)];
        Canvas.Font.Color := Col2[(Control as TListbox).Enabled];
      end;

      TopDif := (ItemHeight div 2) - (Canvas.TextHeight(#32) div 2);
      Canvas.TextRect(Rect, Rect.Left + Bmp.Width + 1, Rect.Top + TopDif, Items[Index]);
      Canvas.Draw(Rect.Left, Rect.Top, Bmp);
    end;
  finally 
    Bmp.Free; 
  end;
end; {Popov}