Memo / Synedit Hintergrundfarbe teilen Wie ?

[Hansa]

Würde auch sagen, daß da so stimmt. Bzw. mit Memo schwer/nicht zu machen ist. Mit Listbox ginge es so :

Delphi-Quellcode:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
  i : Integer;
begin
  for i := 1 to Listbox1.Items.Count do begin
    if Index mod 2 = 0 then begin
      Listbox1.Canvas.Brush.Color := $00FFAB;
      Listbox1.Canvas.FillRect(Rect);
      Listbox1.Canvas.TextOut(Rect.Left, Rect.Top, Listbox1.Items[Index]);
    end
    else
      Listbox1.Canvas.TextOut(Rect.Left, Rect.Top, Listbox1.Items[Index]);
  end;
end;

Das ist aus einem alten Testprogramm abgekupfert und soll ein grün/weißes Tabellierpapier anzeigen. Als Vorlage dürfte das wohl reichen. 8)