Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для Yashied

Старожил


Сообщения: 206
Благодарности: 88

Профиль | Отправить PM | Цитировать


Изображения
Тип файла: jpg Test.jpg
(43.4 Kb, 17 просмотров)

Код: Выделить весь код
#Include <GUIConstantsEx.au3>
#Include <WindowsConstants.au3>

Global $Zoom = 0

GUICreate('MyGUI', 400, 400)
$Pic = GUICtrlCreatePic('Test.jpg', 168, 168, 64, 64)
GUISetState()

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Pic
            If $Zoom Then
                For $i = 244 To 64 Step -20
                    GUICtrlSetPos($Pic, (400 - $i) / 2,(400 - $i) / 2, $i, $i)
                    GUICtrlSetImage($Pic, 'Test.jpg')
                Next
            Else
                For $i = 76 To 256 Step 20
                    GUICtrlSetPos($Pic, (400 - $i) / 2,(400 - $i) / 2, $i, $i)
                    GUICtrlSetImage($Pic, 'Test.jpg')
                Next
            EndIf
            $Zoom = Not $Zoom
    EndSwitch
WEnd
Это сообщение посчитали полезным следующие участники:

Отправлено: 02:34, 17-02-2011 | #2