Курсовая работа: Разработка программы, моделирующую игру Кости

ochki:=100;//присваиваем переменной "ochki" количество начальных очков, по условию = 100

label2.Caption:='00';//задаём сумму выпавших кубиков = 0

label4.Caption:='100'; //задаём видимое количество очков

image1.Picture.LoadFromFile('p0.bmp');//задаём начальное изображение кубиков(пустое)

image2.Picture.LoadFromFile('p0.bmp');//задаём начальное изображение кубиков(пустое)

combobox1.Items.Clear;//очищаем список ставок

for i:=1 to 100 do

begin

combobox1.Items.Add(inttostr(i));//заполняемсписокставокот 1 до 100

end;

combobox1.ItemIndex:=0;//задаём начальное положение элемента списка

combobox2.Items.Clear;//очищаем список вариантов кубиков

for i:=2 to 12 do

begin

combobox2.Items.Add(inttostr(i));//заполняемсписокставокот 2 до 12

end;

combobox2.ItemIndex:=0;//задаём начальное положение элемента списка

visible_all(sender);//делаем видимыми все объекты на форме

bitbtn1.Enabled:=false;//ставим положение кнопки броска на выключено

end;

procedure tform1.invisible_all(Sender: TObject);//делаемневидимымивсеобъектынаформе

begin

label1.Visible:=false;

label2.Visible:=false;

label3.Visible:=false;

label4.Visible:=false;

label5.Visible:=false;

label6.Visible:=false;

label7.Visible:=false;