[Архив - Часть 3] AutoIt скрипты .:[общие вопросы]:.

Creat0R · Конфигурация компьютера

NikLok,

Цитата:

возникают проблемы если захочется делать окно масштабируемым?

А в чём проблема задать относительные координаты? можно создать переменную $GUI_WIDTH и $GUI_HEIGHT, и соответственно строить элементы:

Код:

GUICtrlCreateCheckbox("AccessOpt", 35, 50, $GUI_WIDTH-70, 15)

-70 это 35 + 35, таким образом ширена чекбокса будет ровно по ширине GUI (т.е с равномерными отступами с боков).

Цитата:

Кто как решает проблему масштабируемости?

Очень просто, для этого существует GUICtrlCreateTab(), ну или в крайнем случае TreeView (правда процесс переключения элементов придётся обрабатывать вручную). Или в ещё более крайних случаях, ListView с чекбоксами.

Цитата:

при проведении мышкой над чекбоксом его подпись меняет фон на темно серый!

Такой “эффект” может наблюдаться если с чекбоксом пересекаются другие (в частности Group) контроли. Пример можно увидеть где это происходит?

Цитата:

Кто нить достал книгу по autoit - AutoIt v3: Your Quick Guide

Судя по Wikipedia, издание от O'Reilly в сентябре 2007-ого только было опубликовано. Не думаю что так уже распространена эта книга. Хотя 8$ не так уж и много для книги подобного типа... вопрос в том насколько эта книга поможет

- Можно собрать книгу хотябы из всех архивов (по AutoIt) на этом форуме, я уже не говорю об офф. форуме.

NikLok · Конфигурация компьютера

Creat0R,

Цитата Creat0R:

Пример можно увидеть где это происходит? »

Ох и длинный он однако:

Код:

;Автор скрипта: NikLok (http://forum.oszone.net/member.php?u=15218)
; 12 March 2008 - SRISA _ LNM
#include <GuiConstants.au3>
AutoItSetOption("TrayIconDebug",1)
AutoItSetOption("SendKeyDelay",40)

Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)

Global $CfgFile = "winnt.sif"
Global $AccessOpt_state=$GUI_CHECKED
Global $Appsrv_console_state=$GUI_UNCHECKED
Global $Aspnet_state=$GUI_UNCHECKED

$fn="winnt.sif"
If	FileExists($fn) Then
	$file = FileOpen($fn,0)
	; Check if file opened for writing OK
	If $file = -1 Then
	    MsgBox(0, "Error", "Unable to open " & $fn & " file.")
	Else
;		$newfile = FileOpen("winnt_assemble.sif",1)
		; Check if file opened for writing OK
;		If $newfile = -1 Then MsgBox(0, "Error", "Unable to open winnt_assemble.sif file.")
		; Read in lines of text until the EOF is reached
		While 1
		    $line = FileReadLine($file)
		    If @error = -1 Then ExitLoop
;			FileWriteLine($newfile, $line)
			$r=StringRegExp($line,"OemPnPDriversPath",0)
		    If $r <> 0 Then
				$t=StringInStr($line,'=')
				If $t <> 0 Then
					$WSOemPnPDriversPath = StringTrimLeft($line,$t)
					$OemPnPDriversPath = StringStripWS($WSOemPnPDriversPath,3)
					;$OemPnPDriversPath=StringInStr($line,'=')
					;MsgBox(0,"Info",$OemPnPDriversPath)
				Else
					$OemPnPDriversPath=''
				EndIf
					$array = StringSplit($OemPnPDriversPath,';',1)
			EndIf
		Wend
		FileClose($file)
	EndIf
EndIf

$hGUI = GuiCreate("WIndows XP winnt.Sif managers - feesh 0.0.1", 1020, 620)

$LoadButton   = GUICtrlCreateButton("Load", 600, 5, 80, 25 )
$SaveButton   = GUICtrlCreateButton("Save", 700, 5, 80, 25 )
$ExitButton   = GUICtrlCreateButton("Exit", 800, 5, 80, 25 )
$AcceptButton = GUICtrlCreateButton("Ok",   500, 5, 60, 25)
$CancelButton = GUICtrlCreateButton("Cancel",900,5, 60, 25)

; TAB
GuiCtrlCreateTab(30, 10, 960, 590)
GuiCtrlCreateTabItem("User")
;GuiCtrlCreateLabel("Sample Tab with tabItems", 250, 40)
	GuiCtrlCreateLabel("FullName", 50, 80)
	GuiCtrlCreateLabel("OrgName", 50, 100)
	GuiCtrlCreateLabel("ComputerName", 50, 120)
	GuiCtrlCreateLabel("Workgroup", 50, 140)

GuiCtrlCreateTabItem("Ip")
	; CHECKBOX
	GuiCtrlCreateCheckbox("RIS installation", 50, 50, 80, 20)
	GuiCtrlSetState(-1, $GUI_CHECKED)
	GuiCtrlCreateLabel("IP adress", 50, 80)
	GuiCtrlCreateLabel("Gateway", 50, 100)
	GuiCtrlCreateLabel("DNS Server", 50, 120)
	GuiCtrlCreateLabel("Proxy Server", 50, 140)
	GuiCtrlCreateLabel("Proxy Override", 50, 160)

GuiCtrlCreateTabItem("Drivers")

	$treeDrivers = GuiCtrlCreateTreeView(30,50,980,500, $TVS_CHECKBOXES)
	$n=StringLen($OemPnPDriversPath)
	If $n <> 0 Then
		$array = StringSplit($OemPnPDriversPath,';',1)
		For $m=1 to $array[0] Step 1
			GuiCtrlCreateTreeViewItem($array[$m], $treeDrivers)
		Next	
	EndIf
	; CHECKBOX
	GuiCtrlCreateCheckbox("Check existense",35,560,140,20)
	GuiCtrlSetState(-1, $GUI_CHECKED)

GuiCtrlCreateTabItem("Screen")
	GuiCtrlCreateLabel("Bits Per Pixel", 50, 80)
	GuiCtrlCreateLabel("Xresolution", 50, 100)
	GuiCtrlCreateLabel("Yresolution", 50, 120)
	GuiCtrlCreateLabel("Vertical refresh", 50, 140)
	;GuiCtrlCreateLabel("Proxy Override", 50, 160)

GuiCtrlCreateTabItem("Components")
;CreateGUI
$AccessOpt = GUICtrlCreateCheckbox("AccessOpt",35,50,210,15)
GUICtrlSetState($AccessOpt,$AccessOpt_State)
$Appsrv_console = GUICtrlCreateCheckbox("Appsrv_console",35,90,210,15)
GUICtrlSetState($Appsrv_console,$Appsrv_console_State)
$Aspnet = GUICtrlCreateCheckbox("Aspnet",35,130,210,15)
GUICtrlSetState($Aspnet,$Aspnet_State)

GuiCtrlCreateTabItem("Settings")
	GuiCtrlCreateLabel("Base directory", 50, 80)
	GuiCtrlCreateLabel("Builderman", 50, 100)
	GuiCtrlCreateLabel("Contacts", 50, 120)

; GUI MESSAGE LOOP
GuiSetState()
While 1
    $msg = GUIGetMsg()
    Switch $msg
    Case $GUI_EVENT_CLOSE, $CancelButton
        ExitLoop
    Case $AcceptButton
        ;_SaveCfg()
        ExitLoop
    EndSwitch
WEnd

Func _LoadCfg()
	$AccessOpt_State = IniRead($CfgFile,"Components","AccessOpt","Off")
	If $AccessOpt_State == "On" Then
		$AccessOpt_State=$GUI_CHECKED
		;GUICtrlSetState($AccessOpt,$GUI_CHECKED)
	Else
		$AccessOpt_State=$GUI_UNCHECKED
		;GUICtrlSetState($AccessOpt,$GUI_UNCHECKED)
	EndIf
	$Appsrv_console_State = IniRead($CfgFile,"Components","Appsrv_console","Off")
	If $Appsrv_console_State == "On" Then
		$Appsrv_console_State=$GUI_CHECKED
		;GUICtrlSetState($Appsrv_console,$GUI_CHECKED)
	Else
		$Appsrv_console_State=$GUI_UNCHECKED
		;GUICtrlSetState($Appsrv_console,$GUI_UNCHECKED)
	EndIf
	$Aspnet_State = IniRead($CfgFile,"Components","Aspnet","Off")
	If $Aspnet_State == "On" Then
		$Aspnet_State=$GUI_CHECKED
		;GUICtrlSetState($Aspnet,$GUI_CHECKED)
	Else
		$Aspnet_State=$GUI_UNCHECKED
		;GUICtrlSetState($Aspnet,$GUI_UNCHECKED)
	EndIf
EndFunc


Func _SaveCfg()
    GUISetState(@SW_HIDE, $hGUI)
	If GUICtrlRead($AccessOpt) = $GUI_CHECKED Then
		$AccessOpt_State="On"
	Else
		$AccessOpt_State="Off"
	EndIf
    IniWrite($CfgFile,"Components","AccessOpt",$AccessOpt_State)
	If GUICtrlRead($Appsrv_console) = $GUI_CHECKED Then
		$Appsrv_console_State="On"
	Else
		$Appsrv_console_State="Off"
	EndIf
    IniWrite($CfgFile,"Components","Appsrv_console",$Appsrv_console_State)
	If GUICtrlRead($Aspnet) = $GUI_CHECKED Then
		$Aspnet_State="On"
	Else
		$Aspnet_State="Off"
	EndIf
    IniWrite($CfgFile,"Components","Aspnet",$Aspnet_State)
EndFunc
Exit

В директории запуска должон быть winnt.sif - или корректировать $CfgFile

Цитата Creat0R:

Хотя 8$ не так уж и много для книги подобного типа... »

Согласен, но дело принципа. Я просмотрел её содержимое и сильно разочаровался!!! Это краткий справочник скорее чем книга!

Maza Faka · Отправлено: **15:51, 13-03-2008** | #**223**

NikLok
Скрипт-то нерабочий. Ты вот, что сделай: напиши небольшой скриптик содержащий только проблемное место, так всем будет легче и охотней его смотреть, чем огромный и нерабочий код.

NikLok · Конфигурация компьютера

Maza Faka, Sorry. У меня работает! Вот еще сократил. Оставил одну вкладку и все почистил.

Код:

;Автор скрипта: NikLok (http://forum.oszone.net/member.php?u=15218)
; 12 March 2008 - SRISA _ LNM
#include <GuiConstants.au3>
AutoItSetOption("TrayIconDebug",1)
AutoItSetOption("SendKeyDelay",40)

Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)

Global $CfgFile = "winnt.sif"
Global $AccessOpt_state=$GUI_CHECKED
Global $Appsrv_console_state=$GUI_UNCHECKED
Global $Aspnet_state=$GUI_UNCHECKED

$hGUI = GuiCreate("WIndows XP winnt.Sif managers - feesh 0.0.1", 1020, 620)

$LoadButton   = GUICtrlCreateButton("Load", 600, 5, 80, 25 )
$SaveButton   = GUICtrlCreateButton("Save", 700, 5, 80, 25 )
$ExitButton   = GUICtrlCreateButton("Exit", 800, 5, 80, 25 )
$AcceptButton = GUICtrlCreateButton("Ok",   500, 5, 60, 25)
$CancelButton = GUICtrlCreateButton("Cancel",900,5, 60, 25)

GuiCtrlCreateTab(30, 10, 960, 590)
GuiCtrlCreateTabItem("Components")
;CreateGUI
$AccessOpt = GUICtrlCreateCheckbox("AccessOpt",35,50,210,15)
GUICtrlSetState($AccessOpt,$AccessOpt_State)
$Appsrv_console = GUICtrlCreateCheckbox("Appsrv_console",35,90,210,15)
GUICtrlSetState($Appsrv_console,$Appsrv_console_State)
$Aspnet = GUICtrlCreateCheckbox("Aspnet",35,130,210,15)
GUICtrlSetState($Aspnet,$Aspnet_State)

; GUI MESSAGE LOOP
GuiSetState()
While 1
    $msg = GUIGetMsg()
    Switch $msg
    Case $GUI_EVENT_CLOSE, $CancelButton
        ExitLoop
    Case $AcceptButton
        ExitLoop
    EndSwitch
WEnd
Exit

Нужно провести по чекбоксам и увидите.

Creat0R · Конфигурация компьютера

NikLok,
У меня всё нормально, не видно проблемы... попробуй подвинуть чекбоксы правее, чтобы они небыли у самого края. Возможно у тебя какая то тема оформления установлена, которая вызывает такие глюки?

P.S
Вместо 1020 лучше использовать макрос @DesktopWidth

И по поводу Opt("WinTitleMatchMode",4) - это можно не использовать (оставлено в целях обратной совместимости), при поиске окон есть другой метод (см. раздел Window Titles and Text (Advanced) в справке).

NikLok · Конфигурация компьютера

Creat0R,

Цитата Creat0R:

Возможно у тебя какая то тема оформления установлена, которая вызывает такие глюки? »

Это возможно - стоит тема VistaXP ! Правда смена темы на классическую ничего не дала.! Подвижка на 100 тоже не исправила дела!

Цитата Creat0R:

Вместо 1020 лучше использовать макрос @DesktopWidth »

Это ширина десктопа, а я не хочу на весь экран распахивать то!
А как узнать ширину родительского GUI. То есть ширину для $hGUI ?

Creat0R · Конфигурация компьютера

NikLok,

Цитата:

Это ширина десктопа, а я не хочу на весь экран распахивать то!

У меня 1020 это почти ширена экрана, я просто привёл пример, у кого то разрешение экрана может быть очень низким, и часть GUI не будет видно.

Цитата:

как узнать ширину родительского GUI

$aGUI_Coords = WinGetPosition($hGUI)

Возвращённое значение:

Код:

$aGUI_Coords[0] = Left
$aGUI_Coords[1] = Top
$aGUI_Coords[2] = Width
$aGUI_Coords[3] = Height

Maza Faka · Отправлено: **07:05, 14-03-2008** | #**228**

Цитата NikLok:

Это ширина десктопа, а я не хочу на весь экран распахивать то! »

Да не нужно ничего распахивать! Тебе же уже подсказали, используй элементы TabItem.

Angelus · Отправлено: **11:07, 14-03-2008** | #**229**

А в скрипте есть возможность блокировки партов???.....а то я хелп читал чтото не нашол...

NikLok · Конфигурация компьютера

Maza Faka,

Цитата Maza Faka:

Тебе же уже подсказали, используй элементы TabItem. »

Что-то я туплю! Тки пальцем - чего - то я такого не припомню!