Курсовая работа: Поиск кратчайшего пути в лабиринте 2

mC.Pen.Color:=RGB(255,0,0);

mC.LineTo(cx,cy);

mC.Brush.Color:=RGB(0,255,0);

mC.Pen.Width:=3;

mC.Pen.Color:=RGB(255,255,255);

mC.Chord(wR.Left, wR.Top, wR.Right, wR.Bottom, wR.Left, wR.Top, wR.Left, wR.Top);

end;

end;

// процедура рисует перегородки лабиринта

procedure TOcno.DrawRect(i,j:Integer; md:Tway);

var d:Integer;

wr,wrG:TRect;

CR:TColor;

wd:Integer;

begin

wd:=14; //Перегородки

wr:=R[i,j];

wrG:=wr;

d:=3;

Inc(wr.Left,d);

Inc(wr.Top,d);

Dec(wr.Right,d);

Dec(wr.Bottom,d);

mC.Brush.Color:=C1;

mC.Pen.Width:=0;

mC.Pen.Color:=RGB(0,255,255);

mC.FillRect(wr);

CR:=RGB(255,128,255);

if md.Wr[i,j].L<>1 then