Linie in abgeleiteter Komponente zeichnen

[EarlyBird]

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;