Frage
|
| |
|
Wie kann ich sicherstellen, daß meine aufgenommenen Bilder im CVB Display in Originalgröße (1:1) angezeigt werden?
|
|
Antwort
|
| |
|
Der Zoomfaktor für das CVB Display kann mittels der Methode SetDisplayZoom auf eine 1:1 Darstellung eingestellt werden. Um eine Darstellung mit Scrollbalken zu vermeiden sollte - soweit möglich - das Display außerdem auf die volle Bildgröße aufgezogen werden.
|
|
Benutzer von Visual Basic müssen dabei die Größen erst noch in Fensterkoordinaten, die in TWIPS angegeben werden, umwandeln:
|
|
Dim imx As Long
|
Dim imy As Long
|
Dim x As Long
|
Dim y As Long
|
Dim xpixel As Long
|
Dim ypixel As Long
|
|
x = cvImg.ImageHeight ' get height of the image
|
y = cvImg.ImageWidth ' get width of the image
|
|
xpixel = x * Screen.TwipsPerPixelX ' conversion from pixels to twips
|
ypixel = y * Screen.TwipsPerPixelY ' conversion from pixels to twips
|
|
|
Danach muss die neue Höhe und neue Breite des Displays gesetzt werden.
|
|
|
cvDisp.Height = xpixel + (30 * Screen.TwipsPerPixelX) 'set new display height
|
cvDisp.Width = ypixel + (30 * Screen.TwipsPerPixelY) 'set new display width
|
|
|
| Die 30 im obigen Beispiel stellt sicher, daß die Ränder und die Statuszeile des CVB Displays mit berücksichtigt werden. |
