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

procedure Ellipse(X1, Y1, X2, Y2: Integer); overload

жүктеу 2,2 Mb.

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

1 ... 104 105 106 107 108 109 110 111 ... 118

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

procedure Ellipse(X1, Y1, X2, Y2: Integer); overload;

Сол жақ жоғарғы бұрышының координатасы (X1, Y1) және оң жақ төменгі бұрышының координатасы (X2, Y2) тіктөртбұрыштың ішіне сызылған эллипсті сызады.

procedure FillRect(const Rect: TRect);

Rect тіктөртбұрышын Brush қыл қаламымен бояйды.

procedure FloodFill(X, Y: Integer; Color: TColor; FillStyle: TFillStyle);

type

TFillStyle = (fsSurface, fsBorder);

Brush қыл қаламымен канваның бетін (X, Y) координатасы бар нүктеден бастап бояйды. Егер FillStyle параметрі fsBorder мәнінен тұрса, онда шекараның бет жағы Color қасиетінде берілген түске боялады немесе FillStyle параметрі fsSurface мәнінен тұрса, онда шекараның бет жағының бөлігі Color қасиетінде берілген түске боялады.

procedure LineTo(X, Y: Integer);

PenPos қасиетінде анықталған графикалық меңзердің ағымды орынынан бастап координатасы (X, Y) болатын нүктеге дейін Pen қарындашы арқылы сызық сызады.

procedure MoveTo(X, Y: Integer);

Графикалық меңзерді (X, Y) координатасы бар нүктеге дейін жылжытады.

жүктеу 2,2 Mb.

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

1 ... 104 105 106 107 108 109 110 111 ... 118