Зертханалық жұмыс №1 «Delphi интерфейсінің элементтері»

Объект.Canvas.Ellipse(x1, y1, x2, y2)

жүктеу 2,2 Mb.

бет	50/118
Дата	04.01.2022
өлшемі	2,2 Mb.
	#36255

1 ... 46 47 48 49 50 51 52 53 ... 118

Зертханалы ж мыс №1 «Delphi интерфейсіні элементтері»

Объект.Canvas.Rectangle (x1, y1, x2, y2);
R :Rect(20, 20, 150, 150); with Canvas do begin Brush.Color:=clRed; FillRect(R);

Объект.Canvas.Ellipse(x1, y1, x2, y2);

Мұндағы х1, у1, х2, у2 – ішіне эллипс сызылатын тіктөртбұрыш координаттары.

Arc әдісі доға сызады:

Объект.Canvas.Arc(x1, y1, x2, y2, х3, у3, х4, у4);

Мұндағы х1, у1, х2, у2 – эллипс параметрлері, эллипс бөлігі яғни сызылатын доға болады.

Rectangle әдісі тіктөртбұрыш сызады:

Объект.Canvas.Rectangle (x1, y1, x2, y2);

Мұндағы х1, у1 және х2, у2 – сол жақ үстінгі және оң жақ астынғы тіктөртбұрыш бұрыштарының координаттары.

FillRect әдісі Brush.Color қасиеті арқылы берілген түсімен тіктөртбұрышты бояйды. Бұл әдістің бір ғана параметрі бар, бұл структуранының TRect типі. Мысалы:

var

R :Rect(20, 20, 150, 150);

with Canvas do

begin

Brush.Color:=clRed;

FillRect(R);

жүктеу 2,2 Mb.

Достарыңызбен бөлісу:

1 ... 46 47 48 49 50 51 52 53 ... 118