Linie in abgeleiteter Komponente zeichnen

[Andreas L.]

@DeddyH: Genau so mache ich es. In TBasis.Paint werden die Border gezeichnet, in TAbgeleitet.Paint die DrawBorderShadow-Methode. Wenn ich das mache wir die Komponente zur DesignTime nicht mehr richtig angezeigt (Nur Umrisse, keine Size-Grips, ...). Packe ich das DrawBorderShadow in die TAbgeleitet.Refresh-Methode wird alles angezeigt, nur eben ohne die weiße Linie.

Siehe Anhang

[DeddyH]

Refresh gibt es bereits in TControl, diese Methode wird von Dir also verborgen. Wieso nicht alles ins Paint schieben? Und ich finde es etwas unglücklich, dass sich TCsNavigationButtonOptions und TCsPageNavigation gegenseitig kennen (müssen). Über Events wäre das IMO eleganter zu lösen.

[Satty67]

Ich finde ja, dass in Refresh überhaupt nicht rein gehört.

Im Setter von BorderTop ein Invalidate und alles/nur zeichnen in Paint.

€: Sehe gerade DeddyH war wieder schneller, also das Prinzip wie im Schema von Post #6

[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

[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 )