Wie kann man eine Farbe langsam ´ändern

[Nico1]

Wie kann ich zum Beisspiel Grün langsam zu rot werden lassen(im Timer: ANFANG: Edit1.font.color := clgreen AM ENDE SOLLTE Edit1.font.color := clred.) aber wie mach ich das "langsam" allso von Grün immer dunkler etc...

hoffentlich versteht ihr mich bin heute etwas verwirrt

[Chewie]

Eine Farbe wird in Delphi dargestellt durch eine 32Bit-Zahl. Die drei niederwertigen Bytes geben dabei die rote, grüne bzw. blaue Farbe an. In dem du diese Werte veränderst, veränderst du die Farbe. Wenn du das in vielen kleinen Schritten in einer Schleife machst (und vielleicht eine Verzögerung einbaust), sieht der Benutzer die Farbveränderung.

[Nico1]

und wie stelle ich eine Farbe in so einem Code dar?


vielen Dank schon mal!

[Treffnix]

Eine Möglichkeit wäre folgende:

Delphi-Quellcode:

Procedure Fade;
var col: TColor;
Begin  
  for col:= clgreen downto clred do Begin
      Form1.Color := col;
      Application.Processmessages;
  End;
End;

Allerdings solltest du das nicht so übernehmen, da

1. eine riesige Menge Farben dazwischenliegen und das ganze ziemlich Rechenaufwendig wird.
2. auch sämtliche Schatierungen der Zwischenfarben dazugehören. Es würde also von Grün zu grau zu schwarz, vom nächsten Grünton zu grau zu schwarz, usw.

Du könntest alle Farben, die du als Zwischentöne haben möchtest in einem eigenen Typen zusammenfassen und dafür diese Schleife durchlaufen. Vielleicht liegen die Vollfarben auch in bestimmten Abständen voneinander, so dass du den nächsten Vollton errechnen kannst. Weiss aber nicht, ob das stimmt und wie dieser Abstand ist.

[empanyc]

Kannst auch einfach die rgb-Funktion benutzen.

 form.color := rgb(var_red,var_green,var_blue);

[Jörn]

Da ich gerade eine kleine Grafikbearbeitung schreibe, kann ich da auch meinen Senf dazugeben:

statt
edit1.font.color := clgreen kannst du auch schreiben:
edit1.font.color := rgb(0, 255, 0) (volles grün)
für rot:
edit1.font.color := rgb(255, 0, 0) (volles rot)

Schreib dir dann ne kleine Schleife die den einen Wert erhöht und den anderen erniedrigt.
Ich hoffe das ist genau genug erklärt. Am Rande: die Funktion RGB(rot, grün, blau) wird in der OH nicht erläutert!

[Neg]

Im Index ist rgb nicht zu finden, aber wenn man's im Quelltext eintippt und F1 drückt, dann schon...

[Chris1986]

Hab gerade das probiert:

Delphi-Quellcode:

procedure TForm1.fade;
var rot,
    gruen: byte;
begin
  gruen := 255;
  for rot := 0 to 255  do
  begin
    Form1.Color := rgb(rot,gruen,0);
    dec(gruen);
    delay(2);
  end;
end;

Funktioniert dank Luckies delay Prozedur prima

[Edit=Christian] Ups, es ist ja ne Prozedur [/Edit]
MfG
Christian

[Nico1]

VIELEN DANK AN ALLE!