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