Rechteck in ein Image zeichnen mit Mouse positioniertbar

[Christian18]

Hallo,

ich habe ein BMP Bild, was ich in einem Image anzeigen lasse. In dem Image habe ich die Eigenschaft Proportional auf True gesetzt. In dem Image soll mit der Mouse es möglich sein kleine Rechtecke zu setzen. Bei dem Ereignis onMouseDown löse ich folgendes aus!

Image1.Canvas.Regtangle(x - 5, y - 5, x + 5, y + 5);

Meiner Meinung nach sollte das Rechteck gezeichnet werden, und zwar genau da wo die Diagonalen des Rechtecks sich schneiden. Das tut es aber nicht. Das Rechteck wird irgendwo gezeichnet. GHat jemand einen Tipp für mich???

Mit freundlichen Grüßen

Christian18

[XeRo]

wird das bild verkleinert oder wird es in originalgröße angezeigt?

[edit]wenn man das bild verkleinert sind auch die koordinaten der pixel verschoben.[/edit]

[marabu]

Hallo Christian,

machst du noch mehr im Ereignis OnMouseDown()? Oder hast du aus Versehen das Ereignis der Form oder einer anderen Komponente benutzt, so dass die Koordinaten das falsche Bezugssystem haben? Das hier funktioniert:

Delphi-Quellcode:

procedure TDemoForm.ImageMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  with Sender as TImage do
    Canvas.Rectangle(X-5, Y-5, X+5, Y+5);
end;

Grüße vom marabu