procedure TForm1.Button1Click(Sender: TObject);

procedure TForm1.Button1Click(Sender: TObject);

begin

form1.Canvas.Font.Size:=20;

form1.Canvas.Font.Style:=form1.Font.Style +[fsbold];

form1.Canvas.Font.Color:=clBlue;

//form1.Canvas.Font.Height:=100;

form1.Canvas.Font.Name:='Arial';

form1.Canvas.TextOut(10,20,'Ìîé ãðàôè÷åñêèé ðåäàêòîð');

end;

procedure TForm1.PoleMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

If Button = mbLeft Then // åñëè íàæàòà ëåâàÿ êíîïêà

maincolor:=clred //ïåðåìåííîé ïðèñâîèòü êðàñíûé öâåò

Else //èíà÷å çåëåíûé

maincolor:=clGreen;

pole.Canvas.Pen.Width:=5; //òîëùèíà ðèñîâàíèÿ

pole.Color:=clBlack; //öâåò çàëèâêè

pole.Canvas.Pen.Color:=clred; // öâåò ëèíèè

pole.Canvas.Arc(x,y,x+50,y+10,x-10,y-10,x+20,y+20); // ýëëèïñ

end;

procedure TForm1.PoleMouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

maincolor:=form1.Color;

end;

procedure TForm1.PoleMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

var H,V,I:integer;

begin

pole.Canvas.Pixels[x,y]:=MainColor;

For I:=1 to 50 Do

Begin

H:=25-random(50);

V:=25-random(50);

pole.Canvas.Pixels[x+h,y+v]:=MainColor;

End;

end;

Дата добавления: 2015-09-29