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;
Достарыңызбен бөлісу: |