урок 27

Вивчимо основні прийоми малювання. Малювання на формі (як, втім, і на багатьох інших об'єктах) відбувається через контекст пристрою (полотно). Цей об'єкт з'являється у вигляді підказки після точки при наборі програми.

До цього об'єкту (Canvas) ми можемо приписувати різні інші об'єкти, зокрема кисть (TBrush), перо (TPen) і шрифт (TFont). Крім того, на полотні (Canvas) ми можемо використовувати картинку (TBitmap). Ці об'єкти будуть розглянуті докладніше в наступних уроках.

Так як при малюванні нам постійно доведеться використовувати конструкції виду Form1.Canvas. то краще цю частину винести за дужки за допомогою with.

with Form1.Canvas do

Між begin і end ми якраз і будемо малювати. Куди помістити весь цей код, залежить від завдання. Можна написати його в обробнику натиснення будь-якої кнопки або ще де-небудь, де вам треба. Ми ж помістимо його в обробник FormPaint для нашої форми. Логічно це зробити тому, що, зокрема, ця подія виникає і при створенні форми. Крім того, якщо вікно нашої форми буде закрито іншим вікном, а потім знову виявиться видимим, то код FormPaint також буде виконуватися, так що ми зупинимося саме на цьому обробнику.

Давайте для початку намалюємо кружок жовтого кольору:

procedure TForm1.FormPaint (Sender: TObject);

with Form1.Canvas do

// Задаємо кисть жовтого кольору

Brush.Color: = RGB (255, 255, 0);

Ellipse (10, 10, 30, 30);

Аналогічним чином можна намалювати прямокутник (використовуємо Square), надрукувати якоїсь текст (TextOut) або вивести ще якісь примітиви.

Для малювання ліній використовуються методи LineTo і MoveTo. Перший з них малює відрізок, другий - просто пересуває точку малювання.

Ось приклад їх використання:

// Пересуваємо перо в точку (10, 10)

// Малюємо три лінії