Linie in abgeleiteter Komponente zeichnen

[Andreas L.]

Zitat von EarlyBird:

ich habs mal getestet:

Delphi-Quellcode:

procedure TCsPageNavigation.Paint;
begin
  inherited Paint;
  if FStyle = cwsWin2000 then
    DrawBorderShadow;
  //Refresh;
end;

procedure TCsPageNavigation.Refresh;
begin

  case FStyle of
    cwsFlat:
    begin
      BorderTop.Visible := False;
    end;
    cwsWin2000:
    begin
      BorderTop.Visible := True;
      BorderTop.Color := clGray;


    end;
    cwsVista:
    begin
      BorderTop.Visible := True;
      BorderTop.Color := clSilver;
    end;
  end;

end;

da flackert nix
und gezeichnet wird es auch

So hatte ich das gestern schon und da hats wie verrückt geflackert. Jetzt gehts auf einmal

Danke an alle für eure Hilfe

[Satty67]

Unschön bleibt allerdings, das Du in Paint einen Setter aufrufst (BorderTop) der u.U. auch erst in einer Ableitung Invalidate aufrufen könnte und damit nochmal Paint auslöst.

(Wobei, kann mich auch irren )