Fade zu Graustufen

[seifman]

Hallo!

Ich wollte mal wissen, ob jemand Ahnung hat, wie ich die Farbe des Bildschirmes langsam in ein grau überblenden lassen kann. Das Ganze soll etwa so aussehen, wie wenn man sich bei WinXP abmeldet.

Würde mich freuen, wenn mir da jemand helfen könnte.

MfG seifman

[Stanlay Hanks]

Hi. Hmmm, also die Farbe des Bildschirms. Das weiß ich leider auch nicht. Ich kann dir bloß ein Paar Stichworte geben, die, die du in der IH findest sind mit OH gekennzeichnet:

• Grautöne haben immer identische Rot-, Grün- und Blauwerte
• In diesem Zusammenhang könntest du dir die Funktion "RGB" anschauen, die einzelne Farbwerte zu einem TColor Wert vereinigt. (=> OH)
• Zum Thema langsam: Ein Timer wird dir da wohl nicht erspart bleiben (=> OH)
• Im Allgemeinen müsstest du wohl sozusagen einen übergang zwischen Grau und der ausgangsfarbe schaffen. Das ist im Prinzip ein "stufenweiser" Farbverlauf, der nach und nach angezeigt wird.

Man liest sich, Stanlay

[Corelgott]

Tach auch,

Grau? Da bitte:

Code:

procedure TDraw.MakeGray(Image : TBitmap; HowGray : Byte);
var i, j : integer;
    R, G, B, h : Byte;
    p: ^PixArray;

begin
  Image.PixelFormat := pf24bit;
  for i:=0 to Image.height - 1 do begin
    p := Image.ScanLine[i];
    for j:=0 to Image.width - 1 do begin
      R := p^[2];
      G := p^[0];
      B := p^[1];

      //h := (r+b+g) div 3;
      h:= HiByte(r*77+g*150+b*28);

      p^[2] := h + Round((R - h) / 255 * HowGray);
      p^[0] := h + Round((G - h) / 255 * HowGray);
      p^[1] := h + Round((B - h) / 255 * HowGray);

      inc(p);
    end;
  end;
end;

Das müsste ein Bild grau machen...


cya...
Corelgott

[himitsu]

@Corelgott:

Ja dein Code macht schön Grau, aber es sollte ja nicht sofort Grau werden, sonder langsam ins Graue übergeh'n (wie halt bei XP, wenn man dort den Beendendialog öffnet).

Also nicht: Bunt => Grau
sondern: Bunt => etwas Gräulich => noch Grauer => ... => fast Grau => total Grau


http://www.FrankNStein.de/Smiley-Kuss2.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif

[Corelgott]

@himitsu


???

Den Grad wie grau das Bild sein soll kann man doch bei der Prozedur angeben! Die Variable HowGray steuert das. Bei einem wert von 0 ist das Bild komplett in Farbe und bei 255 ist das Bild komplett grau! (Kann auch anders rum sein Ich bin zu faul zum nachdenken )

Ich lege mal ne Beispiel-Zip mit ner Demo bei...

cya Corelgott

[himitsu]

Ohh - habsch wohl übersehn