problem mit minipaint--->4ecke und kreise...

[la.ma]

so, ich habs nu hinbekommen, leider arbeite ich ohne eine paintbox und auch nicht mit delphi 7..

so hier nochmal für die nachwelt:

Delphi-Quellcode:

procedure Tpaint.FormMouseDown (Sender: TObject; Button: TMouseButton;
                                Shift: TShiftState; X, Y: Integer);
 begin
     //Rechteck
     else if BitBtnrechteck.Enabled = False
     then begin

     Mausgedrueckt := True;
        xanfang := x;
        yanfang := y;
        xende := x;
        yende := y;



     end
end;
procedure Tpaint.FormMouseMove (Sender: TObject; Shift: TShiftState;
                                X, Y: Integer);
 begin
       //Rechteck
      if BitBtnrechteck.enabled = false
      then begin
      if MausGedrueckt = true
      then begin
      canvas.pen.mode := pmnotxor;
      canvas.rectangle (xanfang,yanfang,xende,yende);
       canvas.pen.style := psdot;
      canvas.rectangle (xanfang,yanfang,x,y);

      xende := x;
      yende := y;


      end
      end;

end;

procedure Tpaint.FormMouseUp (Sender: TObject; Button: TMouseButton;
                              Shift: TShiftState; X, Y: Integer);
 begin

      //Rechteck
      If Bitbtnrechteck.enabled = false
      then begin
            canvas.pen.mode := pmcopy;
      Canvas.Pen.Style := pssolid ;
      canvas.pen.mode := pmcopy;
      Canvas.Pen.Style := pssolid ;
      xende := x;
      yende := y;
      Canvas.Rectangle(xanfang, yanfang, x, y);

      end;
end;

so viel spaß noch und danke nochmal