SNAK
SNAK
- Сообщения
- 59
- Репутация
- 0
Как изменить размер активного окна ?
Допустим есть 3 кнопки 1 размер ,2 размер и 3
Допустим есть 3 кнопки 1 размер ,2 размер и 3
Код:
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Global $sStart = 1
$long = @DesktopWidth
$short = @DesktopHeight
$xsenter = $long/2
$ysenter = $short/2
$razmer = 3
$tochka = GUICreate("", $razmer, $razmer, $xsenter-1, $ysenter+11, $WS_POPUP, $WS_EX_LAYERED + $WS_EX_COMPOSITED)
GUISetBkColor(0xFF0000)
GUICtrlSetColor(1, 0xFF0000)
WinSetOnTop($tochka,"",1)
GUISetState(0)
While 1
_Check()
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
Func _Check()
if $sStart = 1 Then
If GUICtrlRead ($Radio1) = 1 Then $razmer = 1
If GUICtrlRead ($Radio2) = 1 Then $razmer = 2
If GUICtrlRead ($Radio3) = 1 Then $razmer = 3
EndIf
EndFunc
WEnd