Ĺadny brzuch
Witam! bardzo serdecznie.
Zwracam się do Państwa z następującym pytaniem. Otóż jestem w trakcie pisania edytora graficznego w Delphi7.
Chciałbym dodać do niego opcje rysowania Pędzlem,Ołówkiem i Aerografem (Spray-em). Opcje te występują
w Microsoft Paint. Rysowanie ma się odbywać po komponencie PaintBox.
Bardzo proszę o pomoc w rozwiązaniu problemu!
Poniżej przedstawiam to co znalazłem w internecie:
- do opcji Aerograf/Spray:
procedure TForm1.Spray(Canvas: TCanvas; x, y, r: Integer; Color: TColor); var rad, a: Single; i: Integer; begin for i := 0 to 10*r do begin a := Random * 2 * pi; rad := Random * r; Canvas.Pixels[x + Round(rad * Cos(a)), y + Round(rad * Sin(a))] := Color; end; end;
- do opcji Pędzelek:
procedure TForm1.Pedzel(Canvas: TCanvas; x, y, r: Integer; Color: TColor); begin Canvas.Pen.Color:=Color; Canvas.Brush.Color:=Color; Canvas.Ellipse(x-r,y-r,x+r,y+r); end;
.
Użytkownik dsinfo edytował ten post 25 grudzień 2009, 22:14
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Zwracam się do Państwa z następującym pytaniem. Otóż jestem w trakcie pisania edytora graficznego w Delphi7.
Chciałbym dodać do niego opcje rysowania Pędzlem,Ołówkiem i Aerografem (Spray-em). Opcje te występują
w Microsoft Paint. Rysowanie ma się odbywać po komponencie PaintBox.
Bardzo proszę o pomoc w rozwiązaniu problemu!
Poniżej przedstawiam to co znalazłem w internecie:
- do opcji Aerograf/Spray:
procedure TForm1.Spray(Canvas: TCanvas; x, y, r: Integer; Color: TColor); var rad, a: Single; i: Integer; begin for i := 0 to 10*r do begin a := Random * 2 * pi; rad := Random * r; Canvas.Pixels[x + Round(rad * Cos(a)), y + Round(rad * Sin(a))] := Color; end; end;
- do opcji Pędzelek:
procedure TForm1.Pedzel(Canvas: TCanvas; x, y, r: Integer; Color: TColor); begin Canvas.Pen.Color:=Color; Canvas.Brush.Color:=Color; Canvas.Ellipse(x-r,y-r,x+r,y+r); end;
.
Użytkownik dsinfo edytował ten post 25 grudzień 2009, 22:14