Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by teebee,
14. Dez 2005
Geht z.B. so: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);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by teebee,
14. Dez 2005
Male Dir den 3D-Effekt doch selbst indem Du eine zweite Linie um ein Pixel versetzt zeichnest.
Gruß, teebee