|
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; просмотров: 18 | Нарушение авторских прав
<== предыдущая лекция | | | следующая лекция ==> |
procedure TForm1.FormCreate(Sender: TObject); | | |