QuickPic

Mirage

Hier ist Script namens QuickPic

Man kann es dazu nutzten wenn man xx Bilder in ein Ordner hat

und diese Sortieren möchte öffnet man sie einfach mit den Programm

Windows Bild- und Faxanzeige und wenn man welche haben möchte

drückt man einfach eine Tastenkombi und das Bild wird in einem neuen

Ordner gespeichert.

Im Anhang befinden sich eine ausführliche Bedienungsanleitung , das

Programm selbst.. und die source codes + Icon

mfg Mirage

geRRus

Hallo Mirage,
das Tool funktioniert super.
Nur ich vermisse so bisschen die Möglichkeit das Hotkey selbst einzustellen.
Denn du hast sehr unglückliches Hotkey gewählt.
Grund:man muss immer mit der rechten Hand das "Plus"-Zeichen drücken und dabei muss man die Maus natürlich los lassen, um aber nächstes Bild anzuzeigen braucht man wieder die Maus. Deswegen mein Wunsch das du evtl eine Möglich einbaust mit der man Hotkeys ändern kann.

**GtaSpider**

Hallo!

Erstmal ein großes lob an dich! Mach weiter so.
Hotkey:
Man könnte dies mit einer INI realiesieren!
Die könnte ca so aussehen:

Code

[HTKEY]
1=!a

und auslesen dann in den Script so:

Code

HotKeySet(IniRead("ini.ini","HTKEY",1,"!a"),"alta_Function")

Mirage

Muss ich Zuhause umstellen werd das aber erst Dienstag ins net stellen können weil ich zB heute bei mein Vater bin Morgen und Montag feier
ich mein Geburstag

also muss ich gucken wenn ich morgen etwas Zeit finde stell ich es rein

mfg Mirage

Mirage

So hab das jetzt mal so gemacht das man zwischen verschiedenen Hotkeys wählen kann. die Möglichkeit das man sich die selber aussuchen
kann ist nicht die beste Lösung.
Das neue Programm inklusive QuellCodes und Hilfe findet ihr im ersten Post

geRRus

Hallo Mirage
ich habe mal was tolles im Welt Weitem Web gefunden, womit du dein Programm perfektionieren kannst:)

probiere doch einfach mal diesen script aus dann weiß du was ich meine

Spoiler anzeigen

Code

$file= FileGetShortName("c:\fenster.jpg")
RunWait(@ComSpec & ' /c rundll32.exe C:\WINDOWS\System32\shimgvw.dll,ImageView_Fullscreen '&$file, '', @SW_HIDE)

es muss natürlich ein Bild auf c:\ namens fenster.jpg sein. gegebenenfalls einfach ändern. aber das weiß du bestimmt selber:)

**GtaSpider**

Hallo!

Was sonst auch noch eine Idee wäre wenn man das Selber mit einer GUI in AutoIt erstellt das würde ca so aussehen wie hier:

Spoiler anzeigen

Code

#include <GUIConstants.au3>


$Form1 = GUICreate("", 800, 601, 192, 125, BitOR($WS_SYSMENU,$WS_POPUPWINDOW,$WS_BORDER))
$Pic1 = GUICtrlCreatePic("c:\fenster.jpg", -1, 0, 800, 600, BitOR($SS_NOTIFY,$WS_GROUP))
GUISetState(@SW_SHOW)


While 1
	$msg = GuiGetMsg()
	Select
	Case $msg = $GUI_EVENT_CLOSE
		ExitLoop
	Case Else
		;;;;;;;
	EndSelect
WEnd

Alles anzeigen

geRRus

das ist dann natürlich die highend lösung:)
quasi Bildbetrachter eigenbau:)
NICE

nur das mit dem vorherigen und näöchsten bild das wird wohl schwierig sein, oder gibts ada eine nice funktion?

**GtaSpider**

Hallo!

Danke geRRus!
ja natürlich gibt es auch dafür eine Funktion:

Spoiler anzeigen

Code

#include <GUIConstants.au3>


HotKeySet("{RIGHT}", "NextPicRight")
HotKeySet("{LEFT}", "NextPicLeft")


$mom = 1


$Form1 = GUICreate("", 800, 601, 192, 125, BitOR($WS_SYSMENU, $WS_POPUPWINDOW, $WS_BORDER))
$Pic1 = GUICtrlCreatePic("1.jpg", -1, 0, 800, 600, BitOR($SS_NOTIFY, $WS_GROUP))
GUISetState(@SW_SHOW)


While 1
	$msg = GUIGetMsg()
	Select
		Case $msg = $GUI_EVENT_CLOSE
			ExitLoop
		Case Else
			;;;;;;;
	EndSelect
WEnd


Func NextPicRight()
	If WinGetState($Form1) = 15 Then;nur wenn fenster aktiv!
		$mom = $mom + 1
		If $mom > 2 Then $mom = 1;wenn $mom größer als 2 ist soll er wider von vorne anfangen(es sind 2 bilder, wenn es 3 bilder währen müsste If $mom > 3 Then dahin!)
		GUICtrlSetImage($Pic1, $mom & ".jpg")
	Else;wenn nicht dann wird hotkey kurz weggenommen und Right gesendet!
		HotKeySet("{RIGHT}")
		Send("{RIGHT}")
		HotKeySet("{RIGHT}", "NextPicRight")
	EndIf
EndFunc   ;==>NextPicRight
Func NextPicLeft()
	If WinGetState($Form1) = 15 Then;nur wenn fenster aktiv!
		$mom = $mom - 1
		If $mom < 1 Then $mom = 2 ;2 ist das letzte pic (wenn es 3 bilder währen müsste da 3 hin!
		GUICtrlSetImage($Pic1, $mom & ".jpg")
	Else;wenn nicht dann wird hotkey kurz weggenommen und Left gesendet!
		HotKeySet("{LEFT}")
		Send("{LEFT}")
		HotKeySet("{LEFT}", "NextPicLeft")
	EndIf
EndFunc   ;==>NextPicLeft

Alles anzeigen

geRRus

super
jetzt mus mirage das ganze nur einbauen und es wird ein tolles tool für digicam besitzer:)

Mirage

Das man das Bild anzeigen kann und ein "Bilder Katalog" ensteht wollt ich eh noch machen hab in den nächsten Tagen was andres noch zu tun und für ein paar Tage is mein PC weg da ich einen neuen bekomme
:tier: :tier: :tier:

aber ich versuch das mal heute nacht einzubauen hab morgen eh nur Wandertag.. ab ins Melancholie da freuht man sich doch

Mirage

So ich hab mir das Zuhause mal angeschaut.

Es geht mit einer einfachen Variante das man das Bild dann einfach einfügt usw wie das halt gta beschrieben hat

da mir das aber zu Simpel ist würde ich gerne wissen ob es eine Funktion/UDF gibt wo man an die Infos einer Datei rankommt also nicht wie die Datei heisst wie groß sie ist usw sondern die Speziellen Infos
es würde Mit control Send gehen aber das ist nun wirklich sehr hässlich ich wollte das so machen das das GUI an die Bilder angepasst wird heisst das das Gui so eingestellt wird das das Bild die größe bestimmt wie das klappt weiß ich schon aber die für mich die einzigste möglichkeit an die Größe des Bildes zu kommen ist über Infos

Mfg Mirage

geRRus

so einfach und doch genial:)
Habe ich im english froum gefunden.

Code

$test=test("c:\fenster.jpg")
MsgBox(4,"test",$test)








Func test($graphic)
    #include <GuiConstants.au3>
    GuiCreate("pic",0,0,0,0,$WS_POPUPWINDOW)
    $pic = GUICtrlCreatePic ($graphic,0,0,0,0)
    $size = ControlGetPos ("pic", "", $pic)
    Return $size[2] & "x" & $size[3]
EndFunc

Alles anzeigen

aber wenn ich denn code so anschaue, dann passt sich wohl die GUICtrlCreatePic, dem Bild an.Also bräuchtest du an sich keine grössen zu kennen.

Mirage

Das Problem ist ja das da zu dem Bild noch ein paar knöpfchen hinsollen wie zB Optionen oder Zurück nächstes usw
muss ich mir ma kurz angucken ob das damit realisierbar ist

mfg Mirage

Ps komma irc ~~

no-GuRu

Sehr schönes Script!
Dickes Lob

SanchoPanza

Hallo Mirage,
bin auf das Tool gestossen und finde es echt klasse.
Hast du seit damals noch etwas daran gemacht ? Wie ich hier lesen konnte waren ein paar schöne features geplant. :musik1:

Mirage

Nein tut mir leid, ich programmiere nicht mehr mit AutoIt, aber
es steht dir frei das Programm nach belieben zu ändern

Lenny

Hallo!
Ich habe das Programm Getestet Und es ist die Perfektion unter den QuicPic Programmen (Das einzige :P)

Es läuft super Flüssig!

Vielen Dank ... .

Lenny!

**Alina**

Hallo zusammen.

Also das ganze zusammenprogrammieren, das bekomme ich nicht hin, aber mal schauen was noch so hier passiert.

Gruss und träumt was anständiges.

Lina