Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- begin
- randomize;
- image1.Canvas.Brush.color:= RGB(random(255),random(255),random(255));
- image1.Canvas.Rectangle(100,100,300,199);
- randomize;
- image1.Canvas.Brush.color:= RGB(random(255),random(255),random(255));
- image1.Canvas.Rectangle(100,100,300,166);
- randomize;
- image1.Canvas.Brush.color:= RGB(random(255),random(255),random(255));
- image1.Canvas.Rectangle(100,100,300,133);
- end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
