Farbe zur Laufzeit verändern?

[Simo]

Für alle Komponenten.. aber am Ende muss es ein Panel sein!!

Zitat:

Wo es noch hakt

Ich muss es genau so machen wie aufm Bild!
Auf dem Bild ist ja ein Farbverlauf von oben nach unten..und beim Click wird der blaue Bereich übermalt (schräg..usw). Die Ecken sind abgerundet als wäre es gewölbt)

Mit meinem Code komme ich nicht voran..

?

[DeddyH]

Lies doch die letzten beiden Posts noch einmal, viel einfacher wird es wohl nicht werden.

[Simo]

Und soll die Grafik aussehen? Einfach mit mspaint ?

Wie schiebe ich die Bilder/Grafik rein..? wäre dann mein genzer Code falsch ?

[Der schöne Günther]

Ich bin kein VCL-Kenner, erst recht nicht wenn es um Animationen geht.

Auf jeden Fall würde ich mir die Beschriftung und den Hintergrund (Farbverlauf) als zwei getrennte Grafiken einladen. Wie himitsu sagt würde ich auch einen Timer nehmen.

Hier habe ich auf die Schnelle mal was zusammengestrickt. Nur wie gesagt: Ich bin im Endeffekt bei dem Thema genauso unwissend wie du 8-)

[DeddyH]

Ich habe auch mal schnell was zusammengestrickt. Statt des gelben Rechtecks würde man dann eben die Grafik zeichnen.

Delphi-Quellcode:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TDingens = class(TCustomControl)
  strict private
    FAniTimer: TTimer;
    FCurrentStep: integer;
    FIncrement: integer;
    procedure DoOnTimer(Sender: TObject);
    procedure CMMouseEnter(var Msg: TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var Msg: TMessage); message CM_MOUSELEAVE;
  protected
    procedure Paint; override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  end;

  TfrmTest = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
    FDingens: TDingens;
  public
    { Public-Deklarationen }
  end;

var
  frmTest: TfrmTest;

implementation

{$R *.dfm}

const
  X_OFFSET = 10;

{ TDingens }

procedure TDingens.CMMouseEnter(var Msg: TMessage);
begin
  inherited;
  FIncrement := abs(FIncrement);
  FAniTimer.Enabled := true;
end;

procedure TDingens.CMMouseLeave(var Msg: TMessage);
begin
  inherited;
  FIncrement := -abs(FIncrement);
  FAniTimer.Enabled := true;
end;

constructor TDingens.Create(AOwner: TComponent);
begin
  inherited;
  FIncrement := 10;
  FCurrentStep := X_OFFSET;
  FAniTimer := TTimer.Create(self);
  FAniTimer.Enabled := false;
  FAniTimer.Interval := 10;
  FAniTimer.OnTimer := DoOnTimer;
  Width := 75;
  Height := 25;
end;

destructor TDingens.Destroy;
begin
  FAniTimer.Enabled := false;
  inherited;
end;

procedure TDingens.DoOnTimer(Sender: TObject);
begin
  inc(FCurrentStep, FIncrement);
  if FCurrentStep > Width - X_OFFSET then
    begin
      FAniTimer.Enabled := false;
      FCurrentStep := Width - X_OFFSET;
    end
  else if FCurrentStep < X_OFFSET then
    begin
      FAniTimer.Enabled := false;
      FCurrentStep := X_OFFSET;
    end;
  Invalidate;
end;

procedure TDingens.Paint;
begin
  inherited;
  Canvas.Brush.Color := clBlue;
  Canvas.FillRect(Rect(0, 0, Width, Height));
  Canvas.Brush.Color := clYellow;
  Canvas.FillRect(Rect(0, 0, FCurrentStep, Height));
end;

procedure TfrmTest.FormCreate(Sender: TObject);
begin
  FDingens := TDingens.Create(self);
  FDingens.Left := 20;
  FDingens.Top := 20;
  FDingens.Parent := self;
end;

Um die Grafik reinzuschieben, muss man ja nur die X-Koordinate negativ initialisieren und dann im Timer in Einzelschritten an die 0 heranführen.

[Der schöne Günther]

Ich habe das Gefühl, mit FireMonkey wäre das alles in 2 Minuten erledigt gewesen, kann das sein? Das "AnimationDemoHD" zu Animationen sieht man ja wirklich tolle Beispiele für all sowas...

[DeddyH]

Ich nix wisse, Feueraffe nix mein Baustell :mrgreen:

[Simo]

Vielen Dank euch allen !!!

Sehr nett von euch!!

Ich mache jetzt allein weiter.. Grafik reinschieben.. animation!!

LG
Simo'n

[Simo]

Guten morgen zusammen!

Ich bin's wieder!

Nach Rücksprache ist mein Code leider falsch (Panel ist blau und wenn ich mit der Maus drauf gehe..wird 80% der blauen Bereich grün übermalt) .

Ich sollte es genauso machen (Anhang, wenn ich aufm linken Bild clicke soll so ausehen wie aufm rechten Bild). Strich links..schräg..Text..Farbe..alles gleich -(.

Ich habe überlegt. Ich schneide diese Grafik (Button) in 3 Griken mit Snipping Tool aus und lade sie auf ein Panel ein...:?: ?

Ich freue mich auf Ihre Hilfe & Vorschläge..

Lg

[TiGü]

Zitat:

Zitat von Simo (Beitrag 1261787)

Ich habe überlegt. Ich schneide diese Grafik (Button) in 3 Griken mit Snipping Tool aus und lade sie auf ein Panel ein...:?: ?

Schön, dass du jetzt schon überlegt hast!

Diese Vorgehensweise wird dir ungefähr seit zweieinhalb Threadseiten vorgeschlagen.
Es gibt sogar schon Sourcecode, wo das Ganze animiert abläuft (vgl. Post von DeddyH vom 04.06).

Hast du konkrete Fragen, die nicht schon mit der Suchfunktionen dieses Forums beantwortet werden können?
Es schreibt dir keiner umsonst (d.h. ohne Geld) dieses Programm.

Wenn du Schwierigkeiten hast diese sehr simple Aufgabe zu lösen, dann versuche dein Problem in Teilprobleme zu unterteilen.
Wenn du konkrete Fragen hast, kannst du sie stellen.
Ggf. in einen neuen Thread!