Використання малюнка в проекті

Секція 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;
n1.bmp, n2.bmp, n3.bmp - файли малюнків на яких неправильні відповіді
p1.bmp - файл малюнку з правильними відповідями
npo1:=Random(39)+10;npo1:=Trunc(npo1/10); - рядок у процедурі кнопки START що забезпечує випадкове положення правильного малюнка
Переглянути зміст
повного тексту програми
Переглянути вигляд
форми програми
Переглянути варіант 1
роботи програми
Переглянути варіант 2
роботи програми
Повернення