Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- procedure TForm1.Timer1Timer(Sender: TObject);
- const
- x1=20;
- y1=20;
- x2=664;
- y2=442;
- begin
- canvas.rectangle(x1,y1,x2,y2);
- Canvas.Brush.Color :=
- (clblack);
- canvas.Rectangle(332,221,322,211);
- canvas.FloodFill(x1-1,y1-1,clblack,fsborder);
- canvas.pen.color:= (clred);
- canvas.moveto(322,211);
- canvas.lineto(322,191);
- canvas.moveto(322,211);
- timer1.enabled:=false;
- timer1.enabled:=false;
- end;
- procedure TForm1.Button1Click(Sender: TObject);
- const
- pi=3.14;
- var
- x1,y1:integer;
- a1,a2:real;
- x11,x12,y12,y11,x13,y13:real;
- begin
- canvas.moveto(322,211);
- canvas.pen.color:= (clblack);
- x1:=(strtoint(edit1.text));
- y1:=(strtoint(edit2.text));
- canvas.rectangle(x1,y1,x1-10,y1-10);
- x11:=x1;
- y11:=y1;
- x12:=x11-10;
- y12:=y11-10;
- canvas.lineto(round(x12),round(y12));
- end;
Add Comment
Please, Sign In to add comment