Relative Pixelkoordinaten eines Bildes ermitteln

[Shiva]

Hallo miteinander!

Ich habe in meiner Anwendung ein TImage, welches in einer TScrollBox steckt. Wenn ich diese beiden Komponenten direkt auf dem Formular platziere, dann bestimme ich die relativen Pixelkoordnaten wie folgt:

Delphi-Quellcode:

 
// absoluten CursoKoord.
GetCursorPos(Point);

Point.X := Trunc(abs((Point.X - ScrollBoxOrginalBild.Left - MainForm.Left - 7 + 
                 abs((ImageOrginal.ClientOrigin).X - (ScrollBoxOrginalBild.ClientOrigin).X)) / Scalefactor));

Point.Y := Trunc(abs((Point.Y  - ScrollBoxOrginalBild.Top - MainForm.Top - 52 +
                 abs((ImageOrginal.ClientOrigin).Y - ScrollBoxOrginalBild.ClientOrigin).Y)) / Scalefactor));

Die "7" für die X-Koord. sowie die "52" für die Y-Koord sind Offsets, die ich durch probieren herausbekommen habe. Ich weiss alledings nicht wie es zu diesen Offsets kommt.

... Wenn ich jetzt die ScrollBox mit dem untergeordnetem TImage in ein TabbedNotebook stecke, dann versuche ich die rel. Pixelkoordinaten wie folgt zu bestimmen.

Delphi-Quellcode:

// absoluten CursoKoord.
GetCursorPos(Point);

Point.X := Trunc(abs((Point.X - ScrollBoxOrginalBild.Left - TabbedNotebook_Original.Left - MainForm.Left - 7 +
                 abs((ImageOrginal.ClientOrigin).X - (ScrollBoxOrginalBild.ClientOrigin).X)) / scalefactor));

Point.Y := Trunc(abs((Point.Y  - ScrollBoxOrginalBild.Top - TabbedNotebook_Original.Top - MainForm.Top  - 52 +
                 abs((ImageOrginal.ClientOrigin).Y - (ScrollBoxOrginalBild.ClientOrigin).Y)) / scalefactor));

Mann kann das Bild zoomen. Die Zoomfunktion realisiere ich so, indem ich die TImage.height := ZoomFaktor * Bild.Height und TImage.Width:= ZoomFaktor * Bild.Width setzte und dann mit StretchDraw zeichne.

Das Problem welches jetzt auftritt ist, dass sich die Pixelkoordinaten, innerhalb eines Pixels, ändern, was ja eigentl. nicht sein kann.

Wenn ich die ScrollBox mit dem TImage direkt auf dem Forumular platziere, dann ist dass nicht der Fall. Allerdings brauch ich das TabbedNoteBook, aus Platz und übersichtlichkeits-Gründen.

Z.Zt. sehe ich den Wald wohl vor lauter Bäumen nicht ... Falls wer eine Idee hat ... ich bin sehr dankbar für jeden hilfreichen Kommentar

so far so long
mfg Shiva

[Shiva]

lol ... irgendwie hat sich das Phänomen verselbstständigt ... nun funzt es wie gedacht ...

derweil habe ich aber noch ein anderes Phänomen/Bug festgestellt. ... Und zwar habe ich ja ein TabbedNotebook, welches mehre tabs hat. in jedem tab ist ein TImage enthalten, welches in einer TScrollBox enthalten ist. gleich nach dem start, wird im 1. tab ein bild dargestellt. wenn man nun mit dem cursor über das Bild fährt, und eine stelle einfach mit einem linksclick markieren will, dann wird die markierung an falscher Posistion dargestellt. Erst wenn ich mind. einmal die Tabs hin und hergeswitched habe, wird die Markierung an korrekter Stelle gezeichnet ... ^^ ... dass versteh einer

so far so long
mfg Shiva

[jfheins]

Benutze nicht das TTabbedNotebook - das ist noch für/von Windows 3.11 :???:

Stattdessen solltest du mal TPageControl ausprobieren ;)

[Shiva]

ah ... jjjja ... :D .... thx für den Hinweis, werd ich gleich mal ausprobieren :)