daily pastebin goal
28%
SHARE
TWEET

Untitled

a guest Dec 16th, 2018 62 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2. procedure TForm1.Timer1Timer(Sender: TObject);
  3. const
  4. x1=20;
  5. y1=20;
  6. x2=664;
  7. y2=442;
  8. begin
  9. canvas.rectangle(x1,y1,x2,y2);
  10. Canvas.Brush.Color :=
  11.        (clblack);
  12. canvas.Rectangle(332,221,322,211);
  13. canvas.FloodFill(x1-1,y1-1,clblack,fsborder);
  14. canvas.pen.color:= (clred);
  15. canvas.moveto(322,211);
  16. canvas.lineto(322,191);
  17. canvas.moveto(322,211);
  18. timer1.enabled:=false;
  19.  
  20.  
  21. timer1.enabled:=false;
  22. end;
  23.  
  24. procedure TForm1.Button1Click(Sender: TObject);
  25. const
  26. pi=3.14;
  27. var
  28. x1,y1:integer;
  29. a1,a2:real;
  30. x11,x12,y12,y11,x13,y13:real;
  31. begin
  32.  
  33. canvas.moveto(322,211);
  34. canvas.pen.color:= (clblack);
  35. x1:=(strtoint(edit1.text));
  36. y1:=(strtoint(edit2.text));
  37. canvas.rectangle(x1,y1,x1-10,y1-10);
  38. x11:=x1;
  39. y11:=y1;
  40. x12:=x11-10;
  41. y12:=y11-10;
  42. canvas.lineto(round(x12),round(y12));
  43.  
  44. end;
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top