naja ... ich glaub ihr m,üsst mir trotzdem weiterhelfen
Delphi-Quellcode:
var
Form1: TForm1;
MyPoints :
Array [1..150]
of TPoint;
Zahl : Integer = 1;
implementation
{$R *.dfm}
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var i : Integer;
begin
Canvas.Brush.Color := clblack;
Canvas.FillRect(Rect(0,0,Form1.Width,Form1.Height));
Canvas.Pixels[X,Y] := 1111111;
if Zahl < high(MyPoints)-1
then
MyPoints[Zahl] := Point(X,Y)
else
begin
zahl := 1;
MyPoints[Zahl] := Point(X,Y);
end;
for i := 1
to high(MyPoints)-1
do
begin
If (MyPoints[i].X <> 0)
and (MyPoints[i].Y <> 0)
then
Canvas.Pixels[MyPoints[i].X, MyPoints[i].Y] :=
rgb(105+i,105+i,105+i) ;
// form1.caption := 'rgb(55+' + IntToStr(i) + ',55+' + IntToStr(i) +',55+' + IntToStr(i) ;
end;
//Canvas.Pixels[Xold,Yold] := clgray;
//MyPoint[
inc(Zahl);
end;
procedure TForm1.FormCreate(Sender: TObject);
var i : Integer;
begin
for i := 1
to high(MyPoints)-1
do
MyPoints[i] := Point(0,0);
end;
wenn ihr es ausprobiert werdet ihr sehen das der code insofern schlecht ist ...
ich wollte das der pixel der neu gezzeichnet wird der hellste ist(weiß also) und der rest pixel für pixel grauer wird (von hell zu dunkel) so das es auschaut als zieht es sich so hinterhe rund fällt ab
geht aber irgendwie nicht ganz und die logik hab ich nicht
