Einzelnen Beitrag anzeigen

Benutzerbild von bigben37
bigben37

Registriert seit: 19. Dez 2007
Ort: Freiburg
116 Beiträge
 
Delphi 2009 Professional
 
#3

Re: Bildbearbeitungsprogramm--> Rechteck auf einem Bild z

  Alt 7. Apr 2008, 18:49
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.
Benjamin
  Mit Zitat antworten Zitat