Ќазаќстан республикасы бiлiм жјне єылым министрлiгi


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



бет9/38
Дата09.03.2022
өлшемі0,72 Mb.
#134799
түріПрограмма
1   ...   5   6   7   8   9   10   11   12   ...   38
Байланысты:
11 апта Абдуллина

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;
end;



    1. Достарыңызбен бөлісу:
1   ...   5   6   7   8   9   10   11   12   ...   38




©engime.org 2024
әкімшілігінің қараңыз

    Басты бет