Работа со LINETO и PIXELS во графички режим во програмски јазик DELPHI.

1. Прво се вметнува еден Button во формата Form1 и на двоен килк на него се отвора процедура
procedure TForm1.Button1Click(Sender: TObject) каде во VAR се декларираат потребните променливи
и соодветниот код

var i:integer;
begin

canvas.Pen.Color:=clblue;
canvas.moveto(0,trunc(form1.height/2));
canvas.lineto(form1.width,trunc(form1.height/2));

canvas.moveto(trunc(form1.width/2),0);
canvas.lineto(trunc(form1.width/2),form1.height);

for i:=0 to form1.Width do
if i mod 2=0 then
canvas.Pixels[form1.Width-i,form1.Width-2*i]:=clred
else
canvas.Pixels[form1.Width-i,form1.Width-2*i]:=clred;