Қазақстан республикасы бiлiм және ғылым министрлiгi


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



бет10/39
Дата07.02.2022
өлшемі0,74 Mb.
#94297
түріДиплом
1   ...   6   7   8   9   10   11   12   13   ...   39
Байланысты:
Дип.-Delphi-программалау-ортасында-графикалық-компоненттерді-пайдалану-әдістемесі

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   ...   6   7   8   9   10   11   12   13   ...   39




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

    Басты бет