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

жүктеу 2,2 Mb.

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

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

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

Pixels

end;

end;

Canvas объектінің қасиеттері

Айтып кеткендей, программа орындайтын графиктерді бетке шығару үшін Canvas қасиеті келеді. Canvas объектісінің Pixels қасиетін пайдалана отырып, графикалық беттің кез келген нүктесін қажетті түске бояуға болады. Мысалы, нұсқауы

Form1.Canvas.Pixels[10, 10] :=clRed;

форм бетіндегі нүктені қызыл түске бояйды.

Мысал1. Форма бетіне олимпиядалық жалау суретін салайық. Объектіні Image компонентінің үстіне шығарамыз. Формаға Image, button1 компоненттерін орналастырамыз. Button1 компонентінің Caption қасиетіне «сурет салу» мәнін енгіземіз. Button1 компонентінің Onclick оқиғасын құрамыз. Коды:

procedure TForm1.Button1Click(Sender: TObject);

begin

with Image1.canvas do

begin

pen.Width:=1;Pen.Color:=clblack;

brush.Color:=clcream;Rectangle(30,30,150,115);

pen.Width:=2;brush.Style:=bsclear;

Pen.Color:=clblue;ellipse(40,40,80,80);

Pen.Color:=clblack;ellipse(70,40,110,80);

Pen.Color:=clred;ellipse(100,40,140,80);

Pen.Color:=clyellow;ellipse(55,65,95,105);

Pen.Color:=clgreen;ellipse(85,65,125,105);

end;

жүктеу 2,2 Mb.

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

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