Page 36 - 6370
P. 36
колон> , то зображення набуде дещо іншого вигляду –
обладнання частково «заховається» за колону.
Рисунок 24 - Встановлений прямокутник (обладнання) –
частково «заховався» за колоною.
8. До модуля Equipments у його розділ interface
долучають оголошення процедури procedure
figura2_show (sender:TObject;x1,y1,x2,y2:integer) для
створення прямолінійного червоного відрізка товщиною у
4 пікселя. Для цього використовують конструкцію with
canvas do begin, але її слід доповнити власником цієї
властивості – представником класу TForm.
9. У розділ uses модуля Equipments долучають модуль
Graphics , адже саме він містить у собі клас TColor.
10. У розділ implementation даного модуля додають код
тільки но оголошеної процедури.
procedure figura2_show
(sender:TObject;x1,y1,x2,y2:integer;
begin
with (sender as TForm).canvas do
begin
pen.Color:=clRed;
pen.Width:=4;
end;
38
