Programmierung eines Farbverlaufs

[DelphiUser7]

Hi,
hat einer von euch ne Ahnung, wie ich einen Farbverlauf proggen kann; ich hab nämlich hier schon alles abgesucht, aber nirgendwo ist eine Anleitung oder ein Beitrag, wo drin steht, wie ich einen ganz normalen Farbverlauf, von einer Farbe in eine andere Farbe, proggen kann; :wall: :wall:

DelphiUser7

[Chewie]

Überleg mal so: Farben werden als Kombination von roten, grünen und blauen Farbwerten dargestellt, jeweils als Zahlen zw. 0 und 255. Mit einer Schleife kannst du die Komponentenwerte erhöhen und dann die zugehörige Farbe anzeigen.

[Mirilin]

:hi: nochmals

Delphi-Quellcode:

var 
* i* : Integer; 
* s : array[0..2] of Byte; 
* e : array[0..2] of Byte; 
* d : array[0..2] of single; 
begin 
* s[0] := GetRValue(Color1); 
* s[1] := GetGValue(Color1); 
* s[2] := GetBValue(Color1); 
* e[0] := GetRValue(Color2); 
* e[1] := GetGValue(Color2); 
* e[2] := GetBValue(Color2); 
* for i := low(s) to high(s) do d[i] := (e[i]-s[i]) / Width; 
* for i := 0 to Width do 
* begin 
* * Canvas.Pen.Color := rgb( Round(s[0] + i * d[0]), 
* * * * * * * * * * * * * * *Round(s[1] + i * d[1]), 
* * * * * * * * * * * * * * *Round(s[2] + i * d[2]) ); 
* * Canvas.MoveTo(i,0); 
* * Canvas.LineTo(i,Height); 
* end; 
end;

[DelphiUser7]

Vielen Dank;
habs gerade getestet, und es funzt!;

Gruss
DelphiUser7

[DelphiUser7]

Ja, das war jetzt horizontal, what about 'vertikal'?;
Ich hab schon mal probiert, was passiert, wenn ich einfach überall das Gegenteil, also anstatt Height 'Width' reinschreibe; dann zeigt er mir eine bunt colorierte Leiste an, aber keinen vertikalen Farbverlauf;

DelphiUser7

[Mirilin]

:hi:

Delphi-Quellcode:

 for i := 0 to Height do
 begin
  Canvas.Pen.Color := rgb( Round(s[0] + i * d[0]), Round(s[1] + i * d[1]), Round(s[2] + i * d[2]) );
  Canvas.MoveTo(0,i);
  Canvas.LineTo(Width,i);
 end;

[Alex_ITA01]

mal ne frage zu diesem source:

Delphi-Quellcode:

var
  i  : Integer;
  s : array[0..2] of Byte;
  e : array[0..2] of Byte;
  d : array[0..2] of single;
begin
  s[0] := GetRValue(clred);
  s[1] := GetGValue(clgreen);
  s[2] := GetBValue(clblue);
  e[0] := GetRValue(clred);
  e[1] := GetGValue(clgreen);
  e[2] := GetBValue(clblue);
  for i := low(s) to high(s) do d[i] := (e[i]-s[i]) / Width;
  for i := 0 to Width do
  begin
    Form1.Canvas.Pen.Color := rgb( Round(s[0] + i * d[0]),
                             Round(s[1] + i * d[1]),
                             Round(s[2] + i * d[2]) );
    Form1.Canvas.MoveTo(i,0);
    Form1.Canvas.LineTo(i,Height);
  end;

und zwar hab ich den bei form.create reingebracht aber es passiert nix mit der farbe.was muss ich hier ändern?
danke alex

[Matze]

Gib es einfach in das OnPaint-Ereignis.

[Alex_ITA01]

ok danke geht

[Mirilin]

:hi:

Mal den Verluaf doch auf ein Bitmap, und kopiere dieses beim OnPaint der Form auf das Canvas der selbigen (oder male es jedesmal im onpaint).

was ähnliches gibts hier

mfg Tobias

[himitsu]

@ Alex,

das muß ins OnPaint rein.

siehe Bild wird nicht angezeigt

@miri: man sollte doch mal öfters den IE aktualisieren :oops:

http://www.delphipraxis.net/images/common/divider.jpg
http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif

[Matze]

Zitat:

Zitat von himitsu

@miri: man sollte doch mal öfters den IE aktualisieren :oops:

:tongue:
Ich war schneller ;)

@himitsu: Ich teste mal deine Mega-Signatur :mrgreen:

http://www.delphipraxis.net/images/common/divider.jpg
http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif

[himitsu]

[OT]
meine Zweitsignatur ist ja nur da, weil man ja keine DP-fremden Images mehr in die Signatur einbinden kann.

@Matze,
pass nur auf, dass ich nicht wegen Traffikklau's auf dich zu komme.
PS: Und achte auch darauf, dass du jetzt keine Copyright- und Patentrechte brichst. :mrgreen:
[/OT]

[Matze]

Ups, ich muss wohl die Sig weglassen ;)

Pass auf, dass dich der Cheffe nicht killt :mrgreen: