Курсовая работа: Вычисление "рыбы"

procedure FormResize(Sender: TObject);

private

{ Private declarations }

public

Path : string;

end;

Процедура DrawIMGH , рисующая результаты вычисления на форме.

Procedure DrawIMGH();

var

i,a,b,j:byte;

begin

j:=1;

for I := 1 to 28 do

if sp1[i].State=true then

begin

a:=sp1[i].SideA;

b:=Sp1[i].SideB;

Img[j].Left:=left+2+img[i].Width;

left:=img[j].Left;

If (left>form1.Width) or (left+img[i].Width>form1.Width-8) then

begin

form1.Width:=form1.Width+3;

left:=0;

Img[j].Left:=left;

top:=top+img[j].Height+5;

end;

img[j].Top:=top; img[j].Picture.LoadFromFile(Form1.Path+'\IMG\Horizontal\'+

inttostr(A)+inttostr(B)+'.bmp');

img[j].State:=true;