Картинка дергается
Имеется самый простой GUI куда я всунул картинку, но при запуске картинка как-бы дергается - мерцает.
менял формат картинки *bmp *jpg - результат один.
В общем вопрос, кто сталкивался с такой задачей и как быть ?
Код:
#include <GUIConstants.au3>
Global $Path1, $Path2, $Path3
GUICreate("Setup:", 300, 230)
$pic="logo.bmp" ; <-----------------------
$bud=GUICtrlCreatePic($pic,85,40,130,65)
GUISetBkColor(0x00aabbcc)
GUISetFont(9, 200)
GUICtrlCreateGraphic(10,120,280,2,$SS_BLACKRECT)
$hlabel = GUICtrlCreateLabel("My first program", 110,15,300,20)
GUICtrlSetColor(-1, 0x000000)
GUICtrlSetFont($hLabel, Default, 400)
$Path1 = GUICtrlCreateCheckbox("My first program 1",20,130,300,20)
guictrlsetstate(1,$gui_unchecked)
$Path2 = GUICtrlCreateCheckbox("My first program 2",20,150,300,20)
guictrlsetstate(2,$gui_unchecked)
$Path3 = GUICtrlCreateCheckbox("My first program 3",20,170,300,20)
guictrlsetstate(3,$gui_unchecked)
$GoButton = GUICtrlCreateButton("OK",100,200,100,25)
ControlFocus("Install", "", "Button3")
GuiSetState()
While 1
$pic="logo.bmp"
GuiCtrlSetImage($bud,$pic)
$msg = guigetmsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $GoButton
if(GuiCtrlRead($Path1) = 1) then
DirCopy(@ScriptDir & "\p1", @AppDataDir & "My first program\1", 1)
EndIf
if(GuiCtrlRead($Path2) = 1) then
DirCopy(@ScriptDir & "\p2", @AppDataDir & "My first program\2", 1)
EndIf
if(GuiCtrlRead($Path3) = 1) then
DirCopy(@ScriptDir & "\p3", @AppDataDir & "My first program\3", 1)
EndIf
MsgBox(32,"Setup:","My first program has been installed", 3)
ExitLoop
EndSelect
WEnd
Exit
|
