Koordinaten im TImage trotz Fenster mit Scrollbalken

[Schubi]

Hallo!
Stellt euch ein leeres Form vor. Dort habe ich an Position 0,0 ein TImage mit Autosize gelegt und ein Bitmap mit 1200 Pixel breite geladen. Die Form hat nun unten einen Scrollbalken.

Jetzt will ich die Koordinaten des Pixels wo die Maus drauf zeigt. Also Mouse.Position mit Form.ScreenToCanvas. Das klappt ja soweit auch. Nur wenn ich nun etwas zur Seite Scrolle funktioniert das nicht mehr. Wie kann ich herausfinden um wie viele Pixel mit dem Scrollbalken nach rechts gescrollt wurde, um den Wert addieren zu können?

[marabu]

Hallo Christian,

vielleicht verstehe ich ja nicht so richtig, aber hast du das schon ausprobiert?

Delphi-Quellcode:

procedure TDemoForm.ImageMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Caption := Format('X %d   Y %d', [X, Y]);
end;

Grüße vom marabu

[EWeiss]

Zitat von Schubi:

Hallo!
Stellt euch ein leeres Form vor. Dort habe ich an Position 0,0 ein TImage mit Autosize gelegt und ein Bitmap mit 1200 Pixel breite geladen. Die Form hat nun unten einen Scrollbalken.

Jetzt will ich die Koordinaten des Pixels wo die Maus drauf zeigt. Also Mouse.Position mit Form.ScreenToCanvas. Das klappt ja soweit auch. Nur wenn ich nun etwas zur Seite Scrolle funktioniert das nicht mehr. Wie kann ich herausfinden um wie viele Pixel mit dem Scrollbalken nach rechts gescrollt wurde, um den Wert addieren zu können?

Scrollbalken.max = Bitmap 1200 Pixel
Value = Koordinaten des Pixels

rest kannst dir denken..

gruß

[Schubi]

Aber wie kann ich den Scrollbalken ansprechen?
Es ist ja der Scrollbalken vom Form der automatisch hinzugefügt wird. Wie bekomm ich sein Handle?

[SirThornberry]

es gibt sicher auch eine Möglichkeit den scrollbalken anzusprechen. Wenn ich mich recht Entsinne wird aber das TImage auch verschoben so das du anhand der Position deines TImage auch die Scrollposition heraus finden kannst. Wenn also 3 Pixel nach rechts gescrollt ist und dein TImage ursprünglich bei 0/0 lag müsste es dann bei -3/0 liegen.

[Muetze1]

Marabu hat doch schon die Lösung gepostet: Die Mouse Funktionen des Image selber liefern immer die Image Koordinaten - unabhängig vom Scrollbalken der Form oder der Scrollbox, da das Image soweit nichts von denen und deren Scrollbalken weiss (und auch nicht wissen muss).

[marabu]

Hallo Jens,

Zitat von SirThornberry:

... Wenn ich mich recht Entsinne wird aber das TImage auch verschoben ...

das ist es, auf was ich mit der einen Zeile Code in Beitrag #2 hinweisen wollte - aber es ist offensichtlich bei keinem Leser angekommen.

Freundliche Grüße

[EWeiss]

Zitat von marabu:

Hallo Jens,

Zitat von SirThornberry:

... Wenn ich mich recht Entsinne wird aber das TImage auch verschoben ...

das ist es, auf was ich mit der einen Zeile Code in Beitrag #2 hinweisen wollte - aber es ist offensichtlich bei keinem Leser angekommen.

Freundliche Grüße

Doch !
Schau mal auf die Uhrzeit

Wir haben zur gleichen zeit geposted dadurch hat sich ein
weiteres kommentar meinerseits erübrigt .

war auch nicht ganz ersichtlich was er nun eigentlich wollte.

Gruß

[marabu]

Sorry Emil,

das habe ich übersehen - und auch den Beitrag von Thomas habe ich garnicht wahrgenommen. Kommt davon, weil ich immer so langsam bin.

Schönes Wochenende noch

marabu

[EWeiss]

Zitat von marabu:

Sorry Emil,

das habe ich übersehen - und auch den Beitrag von Thomas habe ich garnicht wahrgenommen. Kommt davon, weil ich immer so langsam bin.

Schönes Wochenende noch

marabu

Ist doch nicht so tragisch
Ebenfalls ein schönes

gruß