Что нового

[Элементы GUI] Изменение размеров формы

Vlasssov

Осваивающий
Сообщения
428
Репутация
25
У меня в приложении, в зависимости от элемента
Код:
$bIE = GUICtrlCreateObj($oIE, $IE_x, $IE_y, $IE_w, $IE_h)

Изменяются координаты и положение элементов. Но
Код:
#Region ### START Koda GUI section ### Form=C:\proekt\Тюряга\form\Form1.kxf
$Form1 = GUICreate("Тюряга", $IE_w+$form_w, $IE_h-2*$IEy0, $form_x, $form_y)
$kn_zapis = GUICtrlCreateButton("Режим записи", $IE_w+$IE_x+$dx, $dy, $kn_w, $kn_h, $WS_GROUP)
$kn_poligon = GUICtrlCreateButton("Запись области", $IE_w+$IE_x+$dx, $kn_h+$dy*2, $kn_w, $kn_h, $WS_GROUP)
$kn_save = GUICtrlCreateButton("Сохранить", $IE_w+$IE_x+$dx, $kn_h*2+$dy*3, $kn_w, $kn_h, $WS_GROUP)
$coor = GUICtrlCreateLabel("Координаты мыши", $IE_w+$IE_x+$dx, $kn_h*3+$dy*4, $kn_w, $kn_h*4, $WS_BORDER)

$n_form_app = GUICtrlCreateLabel("ПриложЕние", $IE_w+$IE_x+$dx, $kn_h*7+$dy*5, $kn_w, $kn_h)
$form_app = GUICtrlCreateInput($app0, $IE_w+$IE_x+$dx, $kn_h*8+$dy*6, $kn_w, $kn_h)
$kn_nav = GUICtrlCreateButton("Загрузить", $IE_w+$IE_x+$dx, $kn_h*9+$dy*7, $kn_w, $kn_h, $WS_GROUP)
GUICtrlSetBkColor($coor, 0xFFFFFF)
GUICtrlSetResizing($coor, $GUI_DOCKBOTTOM)
$bIE = GUICtrlCreateObj($oIE, $IE_x, $IE_y, $IE_w, $IE_h)
;_IEBodyWriteHTML($oIE,$code_app)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


Но надо еще и форму приложения изменить. Вот такая конструкция все меняет, кроме размеров формы

Код:
GUICtrlSetPos($Form1,$IE_w+$form_w, $IE_h-2*$IEy0, $form_x, $form_y)
GUICtrlSetPos($bIE,$IE_x,$IE_y,$IE_w,$IE_h)
GUICtrlSetPos($kn_zapis,$IE_w+$IE_x+$dx, $dy, $kn_w, $kn_h)
	
GUICtrlSetPos($kn_poligon,$IE_w+$IE_x+$dx, $kn_h+$dy*2, $kn_w, $kn_h)
GUICtrlSetPos($kn_save,$IE_w+$IE_x+$dx, $kn_h*2+$dy*3, $kn_w, $kn_h)
GUICtrlSetPos($coor,$IE_w+$IE_x+$dx, $kn_h*3+$dy*4, $kn_w, $kn_h*4)
	
GUICtrlSetPos($n_form_app,$IE_w+$IE_x+$dx, $kn_h*7+$dy*5, $kn_w, $kn_h)
GUICtrlSetPos($form_app,$IE_w+$IE_x+$dx, $kn_h*8+$dy*6, $kn_w, $kn_h)
GUICtrlSetPos($kn_nav,$IE_w+$IE_x+$dx, $kn_h*9+$dy*7, $kn_w, $kn_h)


Видимо, есть какой-то другой способ изменить размеры формы...
 

Yashied

Модератор
Команда форума
Глобальный модератор
Сообщения
5 379
Репутация
2 712
Автор
Vlasssov

Vlasssov

Осваивающий
Сообщения
428
Репутация
25
Код:
Func _GUIResizeForm($Form, $iSizeX, $iSizeY)
    $hWnd = $Form
	 Local $winpos = WinGetPos($hWnd)
     WinMove($hWnd, "", $winpos[0], $winpos[1], $iSizeX, $iSizeY)
 EndFunc

По мотивам
http://www.autoitscript.com/forum/topic/122188-simple-form-resize-based-on-client-size/
 
Верх