mini paint->rechtecke zeichnen

[Klaus01]

.. ein kleiner Ansatz:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    rechtecke_zeichnen : Boolean;
    rechtecke_startpunkt : TPoint;
  public
    { Public declarations }
  end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if rechtecke_zeichnen then
    begin
      canvas.Rectangle(rechtecke_startpunkt.X,rechtecke_startpunkt.Y,x,y);
    end;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if rechtecke_zeichnen  then
    begin
      rechtecke_startpunkt.x:=x;
      rechtecke_startpunkt.y:=y;
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  rechtecke_zeichnen := not rechtecke_zeichnen;
end;

In Dein Programm umsetzen solltest Du es selbst.

Grüße
Klaus