Что нового

Конфликт GIFAnimation.au3 и _ResourceSetImageToCtrl

saraconor

Новичок
Сообщения
379
Репутация
2
Код:
#AutoIt3Wrapper_Res_File_Add=1.bmp, rt_rcdata, G1
#AutoIt3Wrapper_Res_File_Add=2.bmp, rt_rcdata, G2
#AutoIt3Wrapper_Res_File_Add=3.bmp, rt_rcdata, G3
#AutoIt3Wrapper_Res_File_Add=ANI1.gif, rt_rcdata, ANI1
#include "resources.au3"
#include <ButtonConstants.au3>
#include <GuiConstants.au3>
#include "GIFAnimation.au3"
$hGui = GUICreate('', 330, 144, 330, 144, $WS_EX_CONTROLPARENT)
$PicBack1 = GUICtrlCreatePic('', 0, 0, 330, 144)
GUICtrlSetState(-1, $GUI_DISABLE)
_ResourceSetImageToCtrl($PicBack1, "G1")
if Not @Compiled Then GUICtrlSetImage(-1, "1.bmp", -1)
$B1 = GUICtrlCreateButton('', 12, 71, 131, 20, $BS_BITMAP)
_ResourceSetImageToCtrl(-1, "G2")
if Not @Compiled Then GUICtrlSetImage(-1, "2.bmp", -1)
;-------- ( если компилировать без этого, то будет все нормально )---------------------
$B2  = _GUICtrlCreateGIF(@ScriptDir & "\ANI1.gif", "", 21, 21)
if @Compiled then $B2  = _GUICtrlCreateGIF(@ScriptFullPath, "10;ANI1", 21, 21)
;--------------------------------------------------------------------------------------------------------------------
GUISetState(@SW_SHOW, $hGui)
do
$msg = GUIGetMsg()
    Switch $msg
        case $B1
        _ResourceSetImageToCtrl($B1, "G3")
        if Not @Compiled Then GUICtrlSetImage($B1,  "3.bmp", -1)
        sleep(211)
        _ResourceSetImageToCtrl($B1, "G2")
        if Not @Compiled Then GUICtrlSetImage($B1, "2.bmp", -1)
        sleep(211)
    EndSwitch
until $msg = -3


Суть проблемы: после компиляции при нажатии на кнопку она должна меняться, но GIF анимация в GUI как-то мешает этому процессу и кнопка ломается.
Как сохранить и меняющуюся кнопку и анимацию при компиляции?
 

Вложения

InnI

AutoIT Гуру
Сообщения
4 462
Репутация
1 208
Код:
$B2 = _GUICtrlCreateGIF(@ScriptFullPath, "10;ANI1", 21, 21)
If Not @Compiled then $B2 = _GUICtrlCreateGIF(@ScriptDir & "\ANI1.gif", "", 21, 21)
 
Верх