Farbe des Querstriches im Popup-Menu ändern

[eddy]

Hallo teebee,

Dein Code hat ausgezeichnet funktioniert, danke für die Unterstützung.

Ich habe noch mit Hintergrundfarbe und Stiftbreite experimentiert. Das mit dem 3D-Effekt ist noch nicht gelöst, aber das ist nur ein Frage des Probierens mit verschiedenen Farben.

Für alle, die das ganze auch noch interessieren könnte:

Delphi-Quellcode:

procedure TFAllgUP21.NxDrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect; Selected: Boolean);
const
  Margin = 5;
var
  y : Integer;
begin
  // Hintergrund zeichnen
  ACanvas.Brush.Color := clAqua;
  ACanvas.FillRect(ARect);
  DrawText(Handle, PChar(''), 0, ARect, DT_SINGLELINE or DT_VCENTER);
  // vertikale Pos. ermitteln
  y := ARect.Top + (ARect.Bottom - ARect.Top) Div 2;
  // Stiftbreite setzen
  ACanvas.Pen.Width := 3;
  // Strich zeichnen
  ACanvas.Pen.Color := clBlue;
  ACanvas.MoveTo(Margin, y);
  ACanvas.LineTo(ARect.Right-Margin, y);
end;

mfg
eddy