Mini-Paint - Rechtecke ziehen

[DeddyH]

Aufbauend auf dem Code aus dem Entwicklerhandbuch:

Delphi-Quellcode:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Drawing := true;
  Origin := Point(X,Y);
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if Drawing then
    begin
      Canvas.Pen.Mode := pmNotXor;
      Canvas.Pen.Style := psDot;
      Canvas.Rectangle(Origin.X,Origin.Y,MovePt.X,MovePt.Y);
      Canvas.Rectangle(Origin.X,Origin.Y,X,Y);
    end;
  MovePt := Point(X,Y);
  Canvas.Pen.Mode := pmCopy;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Drawing := false;
end;