Ergebnis der Suchanfrage

• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: ListBox - Zeile einfärben funktioniert nicht

    Delphi
    by Pr0g, 4. Dez 2004
  Liegt wohl daran, dass du auf komische Weise auf das zu zeichnende Item zugreifst, bei der Textausgabe dann aber richtig machst, so sollte es gehen:
  procedure TForm1.lb_debugDrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
  var
  Col: TColor;
  S: String;
  begin
  lb_debug.Canvas.Brush.Color := clWhite;
  lb_debug.Canvas.Pen.Color := clWhite;