Das Image markieren auf der Form und im Objectinspektor auf Ereignisse. Dann OnMousMove doppelklicken.
Habe hier noch was für die spätere zufällige Textgenerierung
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i,j,farbe:integer;
begin
for i := 0 to 255 do
begin
for j := 0 to 255 do
begin
farbe := Random(clWhite);
image1.Canvas.Pixels[i,j] := image1.Canvas.Pixels[i,j] XOR farbe;
end;
end;
end;
Dazu noch Randomize ins FormCreate.
Und schon kanns logehen.
Hm ja...
[Erklärbär an]
Random(clWhite) ist das Gleiche wie Random(FFFFFF), die zusammengesetzte Farbe für weiss, also 16.777.216
[Erklärbär aus]