Секція var: | Основна процедура змінного розташування малюнків |
var Form2: TForm2; x,y,npo1,zo1:Integer; s1,s2,s3,s4,s5:string; |
procedure TForm2.vvvo; begin if npo1=1 then begin Image1.Picture.LoadFromFile('p1.bmp');Image2.Picture.LoadFromFile('n1.bmp'); Image3.Picture.LoadFromFile('n2.bmp');Image4.Picture.LoadFromFile('n3.bmp'); end; if npo1=2 then begin Image1.Picture.LoadFromFile('n1.bmp');Image2.Picture.LoadFromFile('p1.bmp'); Image3.Picture.LoadFromFile('n3.bmp');Image4.Picture.LoadFromFile('n2.bmp'); end; if npo1=3 then begin Image1.Picture.LoadFromFile('n1.bmp');Image2.Picture.LoadFromFile('n2.bmp'); Image3.Picture.LoadFromFile('p1.bmp');Image4.Picture.LoadFromFile('n3.bmp'); end; if npo1=4 then begin Image1.Picture.LoadFromFile('n3.bmp');Image2.Picture.LoadFromFile('n2.bmp'); Image3.Picture.LoadFromFile('n1.bmp');Image4.Picture.LoadFromFile('p1.bmp'); end; end; |
Переглянути зміст повного тексту програми |
Переглянути вигляд форми програми |
Переглянути варіант 1 роботи програми |
Переглянути варіант 2 роботи програми |