Images on GUI

[cristii88bic]

Hello! I want to know if it's possible to use pictures on on GUI without using 'SplashImageON/OFF' or a buton (what i'm trying to say is that i use buttons and combine the original style with '$bs_bitma'p using 'BitOR' and then 'guictrlsetimage'). I' currently trying to make (for example) a picture starting from the center of the GUI to increse(or move in the GUI) and for that I used buttons with images, but because i delete the buttons and then create new ones the increasing (or moving) effect doesn't seem real because it's flashing. So I tried using 'avi'. In this instance the effect works great because it's made in macromedia flash but it's hard work to make this effects. So I'm asking for your help. Please excuse my english language (i don't know it very well and it's my first post here). Thank you.

[cristii88bic]

OK! I've discovered myself. With 'GuiCtrlCreatePic'.

[picea892]

I think you will find the same limitation with guictrlcreatepic. Creating and destroying will cause it to blink.

I have a bit better results using controlmove ... but even still.

[Emiel Wieldraaijer]

also look at

http://www.autoitscript.com/forum/index.php?showtopic=51103&hl=resource&st=0

Best regards,

Emiel

[GEOSoft]

Do you mean something like this?

expandcollapse popup

#include <WindowsConstants.au3>

Global $iGw = 410, $iGh = 350, $bChng = True, $iDel = 600
$Frm_Main = GUICreate("My Test Form", $iGw,$iGh)
Global $aImage[2] = [@ScriptDir & "\Sunrise_ProtIsl.jpg", @ScriptDir & "\Sunrise.jpg"]
GUISetState()
$Frm_sImage = GUICreate("image", $iGw, $iGh, 0, 0, $WS_CHILD, -1, $Frm_Main)
$aClientSz = WinGetClientSize($Frm_sImage)
$hPic = GUICtrlCreatePic("", 0, 0, $aClientSz[0], $aClientSz[1])
GUICtrlSetImage($hPic, $aImage[0])
GUISetState()
$iTimer = TimerInit()
While 1
    $Msg = GUIGetMsg()

    If TimerDiff($iTimer) >= 3000 Then _ImgChng()
    Switch $Msg
        Case -3
            Exit
    EndSwitch
WEnd

Func _ImgChng()
    $bChng = NOT $bChng
    If NOT $bChng Then
        _Win_xPlode($Frm_sImage, 5, $iDel)
        GUICtrlSetImage($hPic, $aImage[1])
        _Win_xPlode($Frm_sImage, 4, $iDel)
    Else
        _Win_xPlode($Frm_sImage, 5, $iDel)
        GUICtrlSetImage($hPic, $aImage[0])
        _Win_xPlode($Frm_sImage, 4, $iDel)
    EndIf
    $iTimer = TimerInit()
EndFunc

Func _Win_xPlode($hWnd, $iType = 4, $tDel = 600)
  If Not StringInStr("45", $iType) Then $pType = 4
  Local $btype = "0x000" & $iType & "0010"
  DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hWnd, "int", $tDel, "long", $btype)
    If $iType = 4 Then
      GUISetState(@SW_SHOW, $hWnd)
    Else
      GUISetState(@SW_Hide, $hWnd)
    EndIf
EndFunc   ;==>_Win_Plode

Edit: Hang on a minute. You need the images and I want to make a small code change.

Edit 2:

Good to go. Images (attached) must be extracted to the script dir. This does an image change every 3 seconds and it's just a demo of how to handle your own code.

Edited October 11, 2009 by GEOSoft

[picea892]

Very nice use of the winanimate dllcall. I hadn't thought to use it that way before

sometimes these simple touches make all the difference. I appreciate you sharing

[GEOSoft]

Very nice use of the winanimate dllcall. I hadn't thought to use it that way before

sometimes these simple touches make all the difference. I appreciate you sharing

I actually wrote a slideshow like that using all the winanimate calls for a script which was my wifes electronic birthday card. using all card images and a label at the bottom that was set using random sayings from an array.

[cristii88bic]

I thank you all, especially GeoSoft!