Bildbearbeitungsprogramm--> Rechteck auf einem Bild ziehen

[Mouby]

In unserem Informatikkurs in der Schule wurden wir damit beauftragt ein kleines Bildbearbeitungsprogramm zu schreiben.

Meine spezielle Aufgabe ist es, dafür zu sorgen, dass der Benutzer ein Auswahlrechteck mit der Maus ziehen, und die ausgewählte Stelle dann bearbeiten oder ausschneiden kann.

Leider habe ich nichtmal einen Ansatz mit dem ich arbeiten könnte und mein Lehrer sagte nur:"such dir woanders hilfe, ihr müsst lernen Probleme alleine zu lösen"

Wäre also sehr dankbar für jegliche hilfe....

[lbccaleb]

hallo und herulichwillkommen in der dp!!

gleich vorweg, du wirst hier bestimmt niemanden finder der deine schul-/hausaufgaben macht!! aber ansätze geben wir immer wieder gerne

also, um auf einem bild zu zeichen (in deinem fall ja das rechteck) kannst du zb eine paintbox erstellen, und mit dem canwas und drawline arbeiten, wenn du hier in der dp danach suchst wirst du auch fündig...
desweitern kann st du das denn mit onmousdown und und onmouseup per mauseingabe bewerkstelligen!!

[bigben37]

Das kann man mit folgenden 3 Prozeduren machen (die bekommst du über den Objektinspektor)

Delphi-Quellcode:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);

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

Du brauchst 5 globale Variablen

xo, yo, xu, yu (X-Oben, Y-Oben, X-Unten, Y-Unten)vom Type Integer
fMouse vom Type Boolean

Bei MouseDown setzt du fMouse auf true und und gibst xo und yo die Mausposition

Bei MouseMove fragst du zuerst ab, of fMouse true ist. Dann gibst du xu und yu die aktuelle Mausposition und zeichnest ein Auswahlfenster

Canvas.DrawFocusRect(Rect(xo,yo,xu,yu)); Bei Mouseup kannst du dann mit den Rechteckkoordinaten weiterarbeiten und fMouse auf false setzen, damit nicht weiter das Auswahlsfenster angezeigt wird.

[DeddyH]

Tipp: Delphi pmXor