Программа кодының терезесі. Delphi ортасы программист жұмысының ӛте жоғары тиімділігін қамтамасыз ететін орта


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



Pdf көрінісі
бет90/122
Дата27.03.2022
өлшемі1,24 Mb.
#28970
түріПрограмма
1   ...   86   87   88   89   90   91   92   93   ...   122
Байланысты:
Дәріс (2)

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   ...   86   87   88   89   90   91   92   93   ...   122




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

    Басты бет