they are the controlId's _ProgressOn($progress, $main, $sub, "This is the main text", "This is the sub-text", 150, 10) Parameter(s): $s_mainlabel($main-text var), $s_sublabel($sub-text var), $s_control($progress var), $s_main(Main text), $s_sub(Sub Text), $x(Position), $y(Position), $fSmooth(1 for smooth, 0 for not smooth) Requirement(s): AutoIt, #include Return Value(s): Success - Returns array $array - $progress id $array - Main Label $array - Sub label $array - x pos $array - y pos Failure - 0 and sets to 1 Author(s): RazerM = Func _ProgressOn ( ByRef $s_mainlabel, ByRef $s_sublabel, ByRef $s_control, $s_main, $s_sub, $x, $y, $fSmooth = 0 ) $s_mainlabel = GUICtrlCreateLabel ( $s_main, $x, $y, StringLen ( $s_main ) * 10 ) If $s_mainlabel = 0 Then SetError ( 1 ) Return 0 EndIf GUICtrlSetFont ( $s_mainlabel, 14 ) If StringInStr (, "WIN32_NT" ) And $fSmooth = 1 Then $prev = DllCall ( "uxtheme.dll", "int", "GetThemeAppProperties" ), "int", 0) DllCall ( "uxtheme.dll", "none", "SetThemeAppProperties", "int", 0 ) EndIf $s_control = GUICtrlCreateProgress ( $x, $y + 30, 260, 20, $PBS_SMOOTH ) If StringInStr (, "WIN32_NT" ) And $fSmooth = 1 Then DllCall ( "uxtheme.dll", "none", "SetThemeAppProperties", "int", $prev ) EndIf If $s_control = 0 Then SetError ( 1 ) Return 0 EndIf $s_sublabel = GUICtrlCreateLabel ( $s_sub, $x, $y + 55 ) If $s_sublabel = 0 Then SetError ( 1 ) Return 0 EndIf Dim $a_info $a_info = $s_control $a_info = $s_mainlabel $a_info = $s_sublabel $a_info = $x $a_info = $y Return $a_info EndFunc =>_ProgressOn = Function Name: _ProgressSet Description:: Sets a progressbar created with _ProgressOn Parameter(s): $a_info(Progress Id returned by _ProgressOn), $i_per(Percent), $s_sub(Sub text), $s_main(main text) Requirement(s): AutoIt, #include Return Value(s): Success - 1, Failure - 0 and sets to 1 Author(s): RazerM = Func _ProgressSet ( $a_info, $i_per, $s_sub = "", $s_main = "" ) If $s_main = "" Then $s_main = GUICtrlRead ( $a_info ) If $s_sub = "" Then $s_sub = GUICtrlRead ( $a_info ) $set1 = GUICtrlSetData ( $a_info, $i_per ) $set2 = GUICtrlSetData ( $a_info, $s_main ) $set3 = GUICtrlSetData ( $a_info, $s_sub ) GUICtrlSetPos ( $a_info, $a_info, $a_info + 55, StringLen ( $s_sub ) * 6 ) GUICtrlSetPos ( $a_info, $a_info, $a_info, StringLen ( $s_main ) * 10 ) If ( $set1 = 0 ) Or ( $set2 = 0 ) Or ( $set3 = 0 ) Then SetError ( 1 ) Return 0 EndIf If ( $set1 = - 1 ) Or ( $set2 = - 1 ) Or ( $set3 = - 1 ) Then SetError ( 1 ) Return 0 EndIf Return 1 EndFunc =>_ProgressSet = Function Name: _ProgressOff() Description:: Deletes a progress bar created with _ProgressOn() Parameter(s): $a_info(Progress Id returned by _ProgressOn) Requirement(s): AutoIt, #include Return Value(s): Success - 1, Failure - 0 and sets to 1 Author(s): RazerM = Func _ProgressOff ( $a_info ) $del1 = GUICtrlDelete ( $a_info ) $del2 = GUICtrlDelete ( $a_info ) $del3 = GUICtrlDelete ( $a_info ) If ( $del1 = 0 ) Or ( $del2 = 0 ) Or ( $del3 = 0 ) Then SetError ( 1 ) Return 0 EndIf EndFunc =>_ProgressOff
0 kommentar(er)
