TPanel mit Farbverlauf

[draeger1980]

guten Abent,

ich habe da mal eine kleine Frage gibt es eine möglichkeit einem TPanel einen Farbverlauf zuzuweisen?

Es gibt ja eine Funktion die das über TCanvas macht aber ein TPanel hat keinen Canvas, mit einer Form funktioniert das sehr gut.

hat jemand eine lösung?

[Forlan]

Stichwort: RaizeKomponente

Dort sollte es IMHO die Eigenschaft Farbverlauf geben...

[Hawkeye219]

Hallo,

warum sollte ein Panel keinen Canvas besitzen?

Delphi-Quellcode:

type
  TMyPanel = class (TPanel)
  protected
    procedure Paint; override;
  end;

//procedure TPanel.Paint;
procedure TMyPanel.Paint;
var
  R : TRect;
  i : Integer;
  b : Byte;
begin
  inherited;

  R := ClientRect;
  AdjustClientRect (R);

  for i := R.Left to R.Right - 1 do
    begin
      b := Trunc(255 * (i - R.Left) / (R.Right - 1 - R.Left));
      Canvas.Pen.Color := RGB(0, 144, b);
      Canvas.MoveTo (i, 0);
      Canvas.LineTo (i, Height);
    end;
end;

Gruß Hawkeye

//Edit: Methoden-Header korrigiert, Dank an Sunlight7!

[Sunlight7]

Zitat von Hawkeye219:

procedure TPanel.Paint;

Du meinst sicher
procedure TMyPanel.Paint;

[Helmi]

Hallo,

wie wendet man Hawkeyes Code an?

[jfheins]

Entweder leitest du dir eine Komponenten vom Panel ab, z.B. TGradientPanel, die dann einen Farbverlauf zeichnet, oder du klebst den Code mit einem ClassHelper dran

[turboPASCAL]

Zitat von jfheins:

Entweder leitest du dir eine Komponenten vom Panel ab, z.B. TGradientPanel, die dann einen Farbverlauf zeichnet, oder du klebst den Code mit einem ClassHelper dran

So ist es.

Irgend wo in der DP schwirrt die Kompo GPanel noch rum von mir...

[draeger1980]

danke für die Tips muss ich mal ausprobieren

[Apollonius]

Class Helper dürften nicht funktionieren, da man von dort nicht auf virtuelle oder dynamische Methoden Einfluss nehmen kann - das wäre auch technisch kaum zu machen. Außerdem würde man so alle Panels ändern.
Falls man das tun möchte, wäre es am einfachsten, die neue Klasse ebenfalls TPanel zu nennen und entweder oberhalb vom Formular zu deklarieren oder in einer Unit, die am Ende der Uses-Klausel steht. Dann erhält man ohne zusätzliche Komponente das gewünschte Verhalten.

[Andreas L.]

Oder TJvGradient von den Jedis aufs Panel legen.