Guest User

Untitled

a guest
Apr 21st, 2018
87
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.22 KB | None | 0 0
  1. if x<image1.height/2 then
  2.     begin
  3.         image1.canvas.brush.color:=clyellow;
  4.         image1.canvas.rectangle(x,y,x+40,y+40);
  5.     end
  6. else
  7.     begin
  8.         image1.canvas.brush.color:=clblue;
  9.         image1.canvas.ellipse(x,y,x+35,y+35);
  10.     end
Add Comment
Please, Sign In to add comment