Курсовая работа: Создание программы на языке Delphi

116. RadioButton1.Caption:='Возможность добавления рисунка';

117. RadioButton2.Caption:='Добавление обьекта WordArt';

118. RadioButton3.Caption:='Объекты рисования фигур, линий и стрелок';

119. RadioButton4.Caption:='Возможность изменения толщины линий таблиц и границ';

120. inc(QNomber);

121. end;

122. 6:if QCheck=True then begin

123. if RadioButton3.Checked=True then ball:=ball+1;

124. RadioButton1.Checked:=False;RadioButton2.Checked:=False;RadioButton3.Checked:=False;RadioButton4.Checked:=False;

125. Label1.Caption:='Панель "Таблицы и границы" содержит:';

126. RadioButton1.Caption:='Возможность добавления рисунка';

127. RadioButton2.Caption:='Добавление обьекта WordArt';

128. RadioButton3.Caption:='Объекты рисования фигур, линий и стрелок';

129. RadioButton4.Caption:='Возможность изменения толщины линий таблиц и границ';

130. inc(QNomber);

131. end;

132. 7:if QCheck=True then begin

133. if RadioButton4.Checked=True then ball:=ball+1;

134. RadioButton1.Checked:=False;RadioButton2.Checked:=False;RadioButton3.Checked:=False;RadioButton4.Checked:=False;

135. Label1.Caption:='Панель "WordArt" содержит:';

136. RadioButton1.Caption:='Возможность добавления рисунка';

137. RadioButton2.Caption:='Добавление обьекта WordArt';

138. RadioButton3.Caption:='Объекты рисования фигур, линий и стрелок';

139. RadioButton4.Caption:='Возможность изменения толщины линий таблиц и границ';

140. inc(QNomber);

141. end;

142. 8:if QCheck=True then begin

143. if RadioButton2.Checked=True then ball:=ball+1;

144. RadioButton1.Checked:=False;RadioButton2.Checked:=False;RadioButton3.Checked:=False;RadioButton4.Checked:=False;