moin moin,
habe hier auch nochmal ne weitere version: nun sind keine dateien erforderlich, das script kann direkt gestartet werden.
die bildauswahl erfolgt dann einfach per klick auf die 2 mini-bilder:
[Blockierte Grafik: http://www.andygo1.de/03-2011/20.03.2011--11_25_45--WCNy.jpg]
Spoiler anzeigen
#include <GuiConstantsEx.au3>
#include <GDIPlus.au3>
#Include <Misc.au3>
global $Width2 = 640, $Height2 = 360, $Width3 = 0, $Height3 = 0, $hClonea, $hCloneb, $hBitmapa, $hBitmapb
$hGUI = GUICreate("Picture Slider", 660, 440)
$d2 = GUICtrlCreateSlider(10, 412, 640, 20)
GUICtrlSetLimit(-1, 639, 1)
GUICtrlSetData(-1, 320)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Quit")
GUISetbkColor(0xe0e0e0)
GUISetState()
Opt("GuiOnEventMode", 1)
_GDIPlus_Startup ()
$hGraphic = _GDIPlus_GraphicsCreateFromHWND ($hgui)
bkg("a", 0xff000000)
bkg("b", 0xffff0000)
GUICtrlCreateLabel("Bild 1:", 50, 20, 40, 15)
GUICtrlCreateLabel("Bild 2:", 200, 20, 40, 15)
$pica = GUICtrlCreatePic (@ScriptDir & "\tempa.jpg", 90, 10, 45, 30)
GUICtrlSetOnEvent(-1, "_sela")
$picb = GUICtrlCreatePic (@ScriptDir & "\tempb.jpg", 240, 10, 45, 30)
GUICtrlSetOnEvent(-1, "_selb")
_slider()
$mylo = @WindowsDir & "\"
func bkg($side, $col)
$hBitmap1 = _WinAPI_CreateBitmap(640,360,1,32)
$pen = _GDIPlus_BrushCreateSolid($col)
if $side = "a" then
$hBitmapa = _GDIPlus_BitmapCreateFromHBITMAP($hBitmap1)
$hGraphic1 = _GDIPlus_ImageGetGraphicsContext($hBitmapa)
_GDIPlus_GraphicsFillRect($hGraphic1, 0, 0, 640, 360, $Pen)
_GDIPlus_ImageSaveToFile($hBitmapa, @ScriptDir & "\temp"&$side&".jpg")
Else
$hBitmapb = _GDIPlus_BitmapCreateFromHBITMAP($hBitmap1)
$hGraphic1 = _GDIPlus_ImageGetGraphicsContext($hBitmapb)
_GDIPlus_GraphicsFillRect($hGraphic1, 0, 0, 640, 360, $Pen)
_GDIPlus_ImageSaveToFile($hBitmapb, @ScriptDir & "\temp"&$side&".jpg")
endif
_WinAPI_DeleteObject ($hBitmap1)
_GDIPlus_BrushDispose($pen)
endfunc
func _slider()
$hand = GUICtrlRead($d2)
_GDIPlus_ImageDispose ($hClonea)
_GDIPlus_ImageDispose ($hCloneb)
$hClonea = _GDIPlus_BitmapCloneArea ($hbitmapa, 0, 0, $hand, 360)
$hCloneb = _GDIPlus_BitmapCloneArea ($hbitmapb, $hand, 0, 640-$hand, 360)
_GDIPlus_GraphicsDrawImageRect($hGraphic, $hclonea, 10, 50, $hand, 360)
_GDIPlus_GraphicsDrawImageRect($hGraphic, $hcloneb, 10+$hand, 50, 640-$hand, 360)
endfunc
func _quit()
_GDIPlus_GraphicsDispose ($hGraphic)
_GDIPlus_ImageDispose ($hClonea)
_GDIPlus_ImageDispose ($hCloneb)
_GDIPlus_BitmapDispose ($hBitmapa)
_GDIPlus_BitmapDispose ($hBitmapb)
_GDIPlus_Shutdown ()
Exit
EndFunc
While 1
sleep(20)
while _IsPressed(01)
sleep(20)
_slider()
wend
WEnd
func resize($inp, $outp)
$hBitmap1 = _WinAPI_CreateBitmap(640,360,1,32)
$hImage = _GDIPlus_ImageLoadFromFile($inp)
$hImage1 = _GDIPlus_BitmapCreateFromHBITMAP($hBitmap1)
$hGraphic1 = _GDIPlus_ImageGetGraphicsContext($hImage1)
_GDIPlus_GraphicsDrawImageRect($hGraphic1, $hImage, $Width3, $Height3, $Width2, $Height2)
_GDIPlus_BitmapDispose($hImage)
_GDIPlus_ImageSaveToFile($hImage1, $outp)
_GDIPlus_BitmapDispose($hImage1)
_WinAPI_DeleteObject ($hBitmap1)
endfunc
func _sela()
_GDIPlus_BitmapDispose ($hBitmapa)
_select($pica, "a", 0xff000000)
$hBitmapa = _GDIPlus_BitmapCreateFromFile(@ScriptDir & "\tempa.jpg")
_slider()
endfunc
func _selb()
_GDIPlus_BitmapDispose ($hBitmapb)
_select($picb, "b", 0xffff0000)
$hBitmapb = _GDIPlus_BitmapCreateFromFile(@ScriptDir & "\tempb.jpg")
_slider()
endfunc
func _select($pic, $temp, $rc)
$cstm2pre = FileOpenDialog("Browse...", $mylo, "Images (*.jpg;*.png;*.gif;*.bmp;*.tif)", 1 + 2 + 4)
$cstm22 = StringLeft ($cstm2pre, stringinstr ($cstm2pre, "|") - 1) & "\"
$cstm2pre = StringTrimLeft ($cstm2pre, stringinstr ($cstm2pre, "|"))
if stringinstr ($cstm2pre, "|", 0, 1, 1) > 0 then
$user = $cstm22 & StringLeft ($cstm2pre, stringinstr ($cstm2pre, "|") - 1)
Else
$user = $cstm22 & $cstm2pre
if stringleft ($user, 1) = "\" then $user = stringtrimleft ($user, 1)
endif
$mylo = StringLeft($user, StringInStr ($user, "\", 0, -1))
if StringInStr("jpg|png|gif|bmp|tif", StringRight($user, 3)) = 0 then
bkg($temp, $rc)
else
repic($user, 640, 360)
resize($user, @ScriptDir & "\temp"&$temp&".jpg")
endif
GUICtrlSetImage($pic, @ScriptDir & "\temp"&$temp&".jpg")
endfunc
func repic($rp, $rp1, $rp2)
$tp = _GDIPlus_BitmapCreateFromFile($rp)
$Width = _GDIPlus_ImageGetWidth($tp)
$Height = _GDIPlus_ImageGetHeight($tp)
_GDIPlus_BitmapDispose ($tp)
$i = $rp1
$xa = $Width / $rp1
while $Height / $xa > $rp2
$i -= 1
$xa = $Width / $i
wend
$Width2 = $Width
$Height2 = $Height
if $Width > $rp1 or $Height > $rp2 then
$Width2 = int($Width / $xa)
$Height2 = int($Height / $xa)
endif
if $rp2 = 99999 Then
$width2 = $rp1
$height2 = int(($rp1/$width)*$height)
Else
$Width3 = 0
$Height3 = 0
if int(($rp1 - $Width2) / 2) > 1 then $Width3 = int(($rp1 - $Width2) / 2)
if int(($rp2 - $Height2) / 2) > 1 then $Height3 = int(($rp2 - $Height2) / 2)
endif
endfunc
Edit: Habe das Script nochma aktualisiert. Bilder werden jetz maßstabsgetreu (also unverzerrt) skaliert und zentriert dargestellt.
Bei sichtbarem Fenster ist auch nur ein Teil der Seite sichtbar... Unter WinXP funzt auch der Screenshot von sichtbaren Fenstern...
