Farbe zur Laufzeit verändern?

[DeddyH]

Wie schon mehrfach gesagt: erstell doch einfach 2 Grafiken mit einem Zeichenprogramm (mspaint, InkScape, etc.) und tausche diese im OnClick aus. Ob diese Grafiken abgerundete Ecken haben oder sonstige Gimmicks, bleibt dabei Dir überlassen.

[himitsu]

http://stackoverflow.com/questions/1...ckground-image
http://forum.delphi-treff.de/index.p...threadID=16765
http://www.tmssoftware.com/site/labelsbuttons.asp
uvm.

[Der schöne Günther]

Eine Frage dazwischen: Sollen es im Endeffekt nur zwei getrennte Zustände sein oder soll das voll animiert sein?

[Simo]

Das soll voll animiert sein -)

[Simo]

Ich komme leider nicht voran..
Ich habe einen Code geschreiben, wenn auf das Panel klike(grau) dann wird es einfach blau! Aber das ist nicht was ich machen soll. Es muss genau aussehen wie im Anhang (Farbverlauf)!

Ich wäre echt sehr dankbar wenn mir jemand helfen kann..-)

[TiGü]

Zitat von Simo:

Ich habe einen Code geschreiben, wenn auf das Panel klike(grau) dann wird es einfach blau! Aber das ist nicht was ich machen soll. Es muss genau aussehen wie im Anhang (Farbverlauf)!

Und wo ist dein Code?
Zeig ihn uns!
Trau dich!

[Simo]

Delphi-Quellcode:

unit Panel;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.ImgList;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    procedure Panel1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
  //procedure FormCreate(Sender: TObject);
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.Panel1Click(Sender: TObject);
const
  bgcolor = $00FF0000; //$00FFDDEE;
  linecolor = $00FFFFFF; //$00554366;
var
  img: array of TImage;
  reg: hrgn;
  i: Integer;
begin
  for i := 0 to ComponentCount - 1 do
  begin
    if Components[i].ClassName = 'TPanel' then
    begin
      setlength(img, Length(img) + 1);
      img[i] := TImage.Create(Self);
      img[i].Width := (Components[i] as TPanel).Width;
      img[i].Height := (Components[i] as TPanel).Height;
      img[i].Parent := (Components[i] as TPanel);
      img[i].Canvas.Brush.Color :=bgcolor;
      img[i].Canvas.pen.Color := bgcolor;
      img[i].Canvas.Rectangle(0,0,img[i].Width, img[i].Height);
      img[i].Canvas.pen.Color :=linecolor;
      img[i].Canvas.RoundRect(5,5,img[i].Width - 5,img[i].Height - 5,20,20);
      reg := CreateRoundRectRgn(0,0,(Components[i] as TPanel).Width,
        (Components[i] as TPanel).Height, 20,20);
      setwindowrgn((Components[i] as TPanel).Handle, reg, True);
      deleteobject(reg);
    end;
  end;
end;

end.

Wenn man drauf klickt dann wird das Panel einfach blau..
Ich möchte es genau programmieren wie im Anhang -(

??