Hast Du mal versucht das Zeichnen der Linie in die Paint Methode zu verschieben!?
Ja, dann flackert die Linie ständig. Paint wird also in einer Endlos-Schleife aufgerufen.
Delphi-Quellcode:
procedure TCsCustomPanel.Paint;
begin
inherited Paint;
DrawBorder(FBorderLeft, cbpLeft);
DrawBorder(FBorderRight, cbpRight);
DrawBorder(FBorderTop, cbpTop);
DrawBorder(FBorderBottom, cbpBottom);
if FStyle = cwsWin2000 then
DrawBorderShadow;
end;
Im TCsCustomPanel.Paint kann ich die Linie natürlich nicht zeichnen, weil DrawBorderShadow und FStyle in der Ableitung TCsPageNavigation definiert sind
Soll ich die komplette
Unit anhängen?