Page 19 - 6370
P. 19
OnShow. Подія ж ця як відомо, настає раніше ніж подія
OnPaint. Тому й колір тла – стабільний, а лінії –
«стираються».
Приклад № 2
ЗАСТОСУВАННЯ ПОДІЇ onPAINT ДЛЯ АВТОМАТИЗОВАНОЇ
РОЗМІТКИ ВИРОБНИЧОГО ПРИМІЩЕННЯ: ВІЗУАЛІЗАЦІЇ
КООРДИНАТНОЇ СІТКИ У ВИГЛЯДІ МАСИВУ ВЕРТИКАЛЬНИХ
І ГОРИЗОНТАЛЬНИХ ЛІНІЙ І МЕРЕЖІ ОПОРНИХ КОЛОН
1.З допомогою інспектора об’єктів створюють процедуру
опрацювання події OnPaint. Спочатку налаштовують
вертикальні лінії. Для цього використовуються процедури
moveto(x,0) і lineto(x,width).
1.1 Якщо параметру х надати конкретне значення,
наприклад - 50, то це означатиме одну вертикальну лінію,
через усе вікно прикладної програми, яка розміщена на 50
пікселів вправо від лівого краю вікна.
procedure TForm2. FormPaint(Sender:
TObject);
var x: integer;
begin
x:=50;
with canvas do
begin
moveto(x,0);
lineto(x,height);
end;
end;
21
