Image Cursor verzogen

[Kolone]

Hallo Leute,
wenn ich in einem Image die OnMousedown Methode benutze und dann die vorgegebenen integer Werte von X und Y nehme, dann ist der Cursor von der Maus immer verschoben. Heißt wenn ich ein punkt per klick machen will taucht der Punkt nicht da auf wo ich ihn wollte sondern an einer ganz anderen Stelle.

Delphi-Quellcode:

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

Image1.Canvas.FillRect(Rect(X, Y, X+10, Y+10));

was mach ich falsch?

Und warum immer Image?!?!

[Kolone]

okay hab den Fehler rausgefunden. Ich nehme meistens ein kleineres Bild, bei diesen wird die Pixelanzahl anscheinend verkleinert und dadurch kommt es zu einer verschiebung. Wie kann man das so einstellen, dass die Pixelanzahl wieder höher ist?

[Kolone]

also im gestratchten zustand?

[himitsu]

Garnichts stratchen, also das Bild in der richtigen größe rein.

Ansonsten mußt du die Koordinaten eben umrechnen, also um den Zoomfaktor und einen eventuellen Offset.

[Kolone]

Wie kann man denn den Zoomfaktor ermitteln?

Oder muss man den selber errechnen aus der Weite des Bildes und der Komponente