|
Registriert seit: 16. Jan 2003
Ort: Bonn ("links über Königswinter ")
240 Beiträge
Delphi 4 Standard
|
5. Mär 2003, 08:38
Bei mir klappt das problemlos:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
for i:= 1 to PaintBox1.Width do
begin
PaintBox1.Canvas.Pixels[i,random(PaintBox1.Height)]:=1;
end;
end;
Die Wichtigkeit eines Postings im Forum ist reziprok zur Anzahl der enthaltenenen, kumulierten Ausrufungszeichen!!!
|