русс | укр

Мови програмуванняВідео уроки php mysqlПаскальСіАсемблерJavaMatlabPhpHtmlJavaScriptCSSC#DelphiТурбо Пролог

Компьютерные сетиСистемное программное обеспечениеИнформационные технологииПрограммирование


Linux Unix Алгоритмічні мови Архітектура мікроконтролерів Введення в розробку розподілених інформаційних систем Дискретна математика Інформаційне обслуговування користувачів Інформація та моделювання в управлінні виробництвом Комп'ютерна графіка Лекції


Хід роботи


Дата додавання: 2014-11-28; переглядів: 939.


1. Завантажити середовище програмування Borland Delphi7.0.

2. Змінити заголовок (Caption) форми на “Геометричні фігури”.

3. Виконати програму, змінити розмір форми. Закрити результат виконання програми

4. Змінити властивість форми BorderStyle на bsDialog. Ще раз виконати програму і спробувати тепер змінити розміри форми.

5. Змінити колір форми на чорний, встановивши відповідне значення властивості Color.

6. Змінити вигляд вказівника миші. (Властивість Cursor)

7. Щоб форма в результаті виконання програми розгорталась на повний екран змінити її властивість WindowState на wsMaximized. Виконати програму. Змінити властивість WindowState на wsNormal і знову виконати програму.

8. Щоб в результаті виконання програми форма виводилась з позиції (10,10), на вкладці Events інспектора об’єктів виконати подвійний клік на події OnActivate і ввести код:

procedure TForm1.FormActivate(Sender: TObject);

begin

Form1.Left:=10;

Form1.Top:=10;

end;

9. Встановити розмір форми 300 пікселів по горизонталі і 200 пікселів по вертикалі, дописавши в попередній процедурі команди:

Form1.Width:=300;

Form1.Height:=200;

Виконати програму.

10. Змінити розмір форми на 400 пікселів по горизонталі і 300 пікселів по вертикалі і виконати програму.

11. Встановити на форму 2 кнопки (Button) . Змінити їх назви відповідно на Коло і Квадрат.

12. Використовуючи стандартний графічний редактор Paint створити 2 файли з малюнками кола і квадрата однакового розміру. Записати створені файли у папку даного проекту.

13. Вставити на форму два компоненти Image із сторінки Additional. На перший вивести коло, а на другий – квадрат. Для цього використати властивість Picture компонента Image. Змінити значення властивості Stretch на True для того щоб малюнок набув розміру компонента.

14. Зробити компоненти Image1 Image2 невидимими, встановивши значення властивості Visible False;

15. Накласти малюнки один на другий. Виконати подвійний клік на кнопці Коло і ввести команди

procedure TForm1.Button1Click(Sender: TObject);

begin

Image2.Visible:=False;

Image1.Visible:=True;

end;

Виконати подвійний клік на кнопці Коло і ввести команди

procedure TForm1.Button1Click(Sender: TObject);

begin

Image1.Visible:=False;

Image2.Visible:=True;

end;

16. Виконати програму. Виконати клік спочатку на кнопці Коло, а потім по кнопці Квадрат.


Теоретичні відомості

Об’єкт перемикач RadioButton використовується для можливості вибору одної альтернативної можливості з декількох. Властивість Checked перемикача має значення True, якщо можливість вибрана і False в протилежному випадку.

 


<== попередня лекція | наступна лекція ==>
Хід роботи | Хід роботи


Онлайн система числення Калькулятор онлайн звичайний Науковий калькулятор онлайн