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

жүктеу 2,2 Mb.

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

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

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

Мысал 3.6.6 Form құрауышы үшін OnMouseDown оқиға өңдеуіші пішіннің сол жақ жоғарғы бұрышынан бастап тышқанмен шерткен нүктеге дейін қызыл түсті сызық сызады.

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Form1.Canvas.Pen.Color:=clRed;

Form1.Canvas.MoveTo(0,0);

Form1.Canvas.LineTo(x,y);

end;

procedure Pie(X1, Y1, X2, Y2, X3, Y3, X4, Y4: Longint);

Эллипстің секторын сызады. Эллипстің доғасы Arc әдісіндегі сияқты беріледі.

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

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

procedure RoundRect(X1, Y1, X2, Y2, X3, Y3: Integer);

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

жүктеу 2,2 Mb.

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

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