Farbe des Querstriches im Popup-Menu ändern

[teebee]

Geht z.B. so:

Delphi-Quellcode:

procedure TForm1.SeperatorDrawItem(Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; Selected: Boolean);
Var y: Integer;
begin
  ACanvas.Pen.Color := clRed;
  y := ARect.Top+(ARect.Bottom-ARect.Top) Div 2;
  ACanvas.MoveTo(0,y);
  ACanvas.LineTo(ARect.Right,y);
  ACanvas.Pen.Color := clYellow;
  ACanvas.MoveTo(0,y+1);
  ACanvas.LineTo(ARect.Right,y+1);
end;

Gruß, teebee