GamerSK

Viem kreslit

Nov 23rd, 2017
137
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.91 KB | None | 0 0
  1. Image1.Canvas.Clear;
  2.   Image1.Canvas.MoveTo(Image1.Width div 2,0);
  3.   Image1.Canvas.LineTo(Image1.Width div 2,Image1.Height);
  4.   Image1.Canvas.MoveTo(0,Image1.Height div 2);
  5.   Image1.Canvas.LineTo(Image1.Width,Image1.Height div 2);
  6.   Image1.Canvas.Ellipse(25,25,(Image1.Width div 2)-25,(Image1.Height div 2)-25);
  7.   Image1.Canvas.Rectangle(Image1.Width-25,25,(Image1.Width div 2)+25,(Image1.Height div 2)-25);
  8.   Image1.Canvas.MoveTo(Image1.Width div 2,Image1.Height div 2);
  9.   Image1.Canvas.LineTo(0,Image1.Height);
  10.   Image1.Canvas.MoveTo(0,Image1.Height div 2);
  11.   Image1.Canvas.LineTo(Image1.Width div 2,Image1.Height);
  12.   Image1.Canvas.MoveTo(Image1.Width-Image1.Width div 4,Image1.Height div 2);
  13.   Image1.Canvas.LineTo(Image1.Width-Image1.Width div 4,Image1.Height);
  14.   Image1.Canvas.MoveTo(Image1.Width div 2,Image1.Height-Image1.Height div 4);
  15.   Image1.Canvas.Lineto(Image1.Width,Image1.Height-Image1.Height div 4);
Advertisement
Add Comment
Please, Sign In to add comment