Fernsehrauschen zeichnen?

[H4ndy]

Zitat von RavenIV:

Also wenn mein TV keinen Empfang hat, dann zeigt er ein blaues Bild an.

Sehr produktiver Beitrag

Also Ich würde einfach die Zeichenfläche Pixel für Pixel durchlaufen und einen zufälligen Grauwert dort zeichnen.

Delphi-Quellcode:

...
Randomize; // *einmalig* im Programm aufrufen, z.B. im FormCreate
...
// Hilfsfunktion
function RGBToColor(R, G, B : byte): TColor;
begin
  Result := ((R and $FF) shl 16) +
    ((G and $FF) shl 8) + (B and $FF);
end;
...
// Zufälligen Grauwert erzeugen
var Farbe: TColor;
    r,g,b: integer;
begin
  r := Random(256);
  g := r;
  b := r;

Farbe := RGBToColor(r,g,b);