Schnellansicht von Tifs auf rechte untere Ecke stellen?

[Peter]

Ich verwende sehr viele Tif-Dateien, die in der rechten unteren Ecke einen Plankopf tragen. Die Schnellansicht (Strg-Q) zeigt bei unskalierten Bildern immer die linke obere Ecke an, bei eingepassten Bilder zwar alles - aber zu klein, um den Plankopf lesen zu können.

Kann man die Schnellansicht so einstellen,dass immer die rechte untere Ecke (in der Größe von X x Y Pixel) angezeigt wird?

Peter

[ghisler(Author)]

Nein, leider nicht. Das liesse sich aber mit einem einfachen Lister-Plugin realisieren - dazu bräuchte man nur eine TIFF- nach BMP-Umwandelfunktion und etwas Zeit...

[van Dusen]

2Peter

Hier eine dumpfe Umgehungslösung per AutoIT-Script.
Wenn
* der Lister im Quickview aktiv ist
* und eine Bilddatei mit der Erweiterung bmp, jpg, jpeg, png, tga, tif oder tiff angezeigt wird
* und die Datei gewechselt wird
dann
* wechselt das Script per <Tab> das Panel,
* sendet 10x <PgDn> und 10x <End> (ist also für Imagine gedacht)
* und kehrt dann mit <Tab> ins Ausgangspanel zurück.

Code: Select all

;====================================================================================================
;TCQuickViewScrollEnd.au3, van Dusen, 07.06.2006
;Script for AutoIT3 V3.1.1.114 (http://www.autoitscript.com/autoit3/)
;====================================================================================================

AutoItSetOption("WinTitleMatchMode", 4)

$fileext_img = ".bmp].jpg].jpeg].png].tga].tif].tiff]"
$viswintxt_prev = ""

While 1
	WinWaitActive("classname=TTOTAL_CMD", "Lister ")
	$viswintxt = StringSplit(WinGetText("classname=TTOTAL_CMD", "Lister "), @LF)
	$fileext_cur = StringLower(StringMid($viswintxt[1], StringInStr($viswintxt[1], ".", 0, -1)))
	If Not @error And $viswintxt_prev <> $viswintxt[1] And StringInStr($fileext_img, $fileext_cur) > 0 Then
		$viswintxt_prev = $viswintxt[1]
;~ 		Send("{TAB}{RIGHT 10}{PGDN 10}{TAB}") ;*** IrfanView
		Send("{TAB}{END 10}{PGDN 10}{TAB}") ;*** Imagine
	EndIf
WEnd

Hab's nicht ausführlich getestet, das Script kann also Macken haben.

Als Executable (benötigt keine AutoIT-Installation):
http://rapidshare.de/files/22405998/TCQuickviewScrollEnd.zip.html

[Peter]

...Als Executable (benötigt keine AutoIT-Installation):

Da ich kein AutoIT habe, bräuchte ich die EXE. Aber wie binde ich die ein bzw. aktiviere sie? Da habe ich noch keine Ahnung.

Peter

[Lefteous]

2Peter
Du musst die Exe einfach starten und dann geht es so wie gewünscht.

2van Dusen
Eine schöne schmutzige Lösung

[Peter]

Erstmals Danke, aber ...

Ich habe jetzt Imagine 0.9 installiert, und es läuft ziemlich - bis auf die Zoomeinstellungen...

Programmeinstellungen - Sprache Deutsch - Anzeigen - gibt es eine Liste mit Zoomfaktoren. Da kann ich zwar neue Zahlen ergänzen, aber sonst tut sich da nichts. Daher habe ich bei jeder Ansicht eine "100%"-Ansicht (Details in der linken oberen Ecke), und daher springt das Programm mit den 10fach-Befehlen nicht bis in die untere rechte Ecke.

Wie kann ich die Voreinstellung des Zoomfaktors in Imagine z.B. auf 50% einstellen?

Dann funktioniert diese Verschiebung, und der Bildausschnitt hat auch eine passable Grösse.

Peter

[van Dusen]

2Peter

Hab' ich schon befürchtet, dass 10x scrollen u.U. nicht ausreicht. Deshalb hier eine modifizierte Version des dirty Scripts , die die Parameter
* zu berücksichtigende Dateinamenserweiterungen
* Taste und ggf. Qualifier
- für Nach-rechts-scrollen und
- für Nach-unten-scrollen sowie
* Anzahl Tastenwiederholungen
aus einer INI-Datei liest:

Code: Select all

;====================================================================================================
;TCQuickViewScrollEnd.au3, van Dusen, 08.06.2006
;Script for AutoIT3 V3.1.1.114 (http://www.autoitscript.com/autoit3/)
;====================================================================================================

AutoItSetOption("WinTitleMatchMode", 4)

$inifile = @ScriptDir & "\TCQuickviewScrollEnd.ini"

$keyscrollright = IniRead($inifile, "Configuration", "KeyScrollRightQualifier", "")
$keyscrollright = $keyscrollright & "{" & IniRead($inifile, "Configuration", "KeyScrollRight", "END")
$keyscrollright = $keyscrollright & " " & IniRead($inifile, "Configuration", "KeyRepeatNum", "10") & "}"

$keyscrolldown = IniRead($inifile, "Configuration", "KeyScrollDownQualifier", "")
$keyscrolldown = $keyscrolldown & "{" & IniRead($inifile, "Configuration", "KeyScrollDown", "PGDN")
$keyscrolldown = $keyscrolldown & " " & IniRead($inifile, "Configuration", "KeyRepeatNum", "10") & "}"

$fileext_img = IniRead($inifile, "Configuration", "FileExtensions", ".bmp].jpg].jpeg].png].tga].tif].tiff]")
$viswintxt_prev = ""

While 1
	WinWaitActive("classname=TTOTAL_CMD", "Lister ")
	$viswintxt = StringSplit(WinGetText("classname=TTOTAL_CMD", "Lister "), @LF)
	$fileext_cur = StringLower(StringMid($viswintxt[1], StringInStr($viswintxt[1], ".", 0, -1)))
	If Not @error And $viswintxt_prev <> $viswintxt[1] And StringInStr($fileext_img, $fileext_cur) > 0 Then
		$viswintxt_prev = $viswintxt[1]
;~ 		Send("{TAB}{RIGHT 10}{PGDN 10}{TAB}") ;*** IrfanView
;~ 		Send("{TAB}{END 10}{PGDN 10}{TAB}") ;*** Imagine
		Send("{TAB}" & $keyscrollright & $keyscrolldown & "{TAB}")
	EndIf
WEnd

Die INI-Datei <TCQuickviewScrollEnd.ini> muss sich im selben Verzeichnis wie die <TCQuickviewScrollEnd.exe> (oder die <TCQuickviewScrollEnd.au3>) befinden, anderenfalls werden die im alten Script benutzten Fehlwerte verwendet. Die Schlüssel der INI-Datei sind, denke ich, selbsterklärend:

Code: Select all

[Configuration]
FileExtensions=.bmp].jpg].jpeg].png].tga].tif].tiff]
;Übliche Scroll-Tasten: 'UP', 'DOWN', 'PGUP', 'PGDN', 'HOME', 'END'; 'LEFT', 'RIGHT'
;Qualifier (können kombiniert werden): SHIFT: '+', ALT: '!', CTRL: '^', WIN: '#'
KeyScrollRight=END
KeyScrollRightQualifier=
KeyScrollDown=PGDN
KeyScrollDownQualifier=
KeyRepeatNum=20

Die ausführbare EXE, das o.g. Script und die o.g. Beispiel-INI kannst Du hier herunterladen:
http://rapidshare.de/files/22557435/TCQuickviewScrollEnd.zip.html

[Peter]

2van Dusen
herzlichen Dank - es läuft (jedenfalls in der Grundeinstellung in Imagine 0.9).

Schönes Wochenende.

Peter