Здравствуйте! Подскажите пожалуйста на моём примере, как изменить цвет фона формы, цвет фона комбокса, а также размер и стиль надписей?
Я в примере всё расписал, где не понятно:
Заранее благодарю!
Я в примере всё расписал, где не понятно:
Код:
HotKeySet("{ESC}", "_Exit")
Opt('GUIOnEventMode', 1)
Global $nF = 1, $Started = False
Global $Cycle1001 = 'Func1001', $Cycle1002 = 'Func1002', $Cycle1003 = 'Func1003', $Cycle1004 = 'Func1004', $Cycle1005 = 'Func1005'
GUICreate('Супер C', 440, 290) ; Как изменить цвет фона?
GUICtrlCreateLabel('Поездка №1:', 10, 12, 220, 20) ;Как изменить размер и стиль шрифта надписи?
GUICtrlSetColor(-1, 0xFF0470)
$Combo1 = GUICtrlCreateCombo('', 230, 10, 150, 20)
GUICtrlSetData(-1, 'Функция1|Функция2|Функция3|Функция4|Функция5', 'Функция1') ; Как изменить и цвет и размер шрифта надписей,
; а также цвет фона в комбоксе?
$Button1 = GUICtrlCreateButton('Update', 10, 230, 100, 20)
GUICtrlSetOnEvent(-1, 'Update')
GUICtrlSetColor(-1, 0xFF0470)
$Button2 = GUICtrlCreateButton('Старт', 10, 260, 100, 20) ; как изменить цвет кнопок и надписей на них?, на кнопке 1 как-то не очень получается
GUICtrlSetOnEvent(-1, 'Start')
GUISetOnEvent(-3, '_Exit')
GUISetState()
Func Update()
$Cycle1001 = Translate(GUICtrlRead($Combo1))
$Cycle1002 = Translate(GUICtrlRead($Combo1))
$Cycle1003 = Translate(GUICtrlRead($Combo1))
$Cycle1004 = Translate(GUICtrlRead($Combo1))
$Cycle1005 = Translate(GUICtrlRead($Combo1))
EndFunc
Func Translate($FuncName)
Switch $FuncName
Case 'Функция1'
Return 'Func1001'
Case 'Функция2'
Return 'Func1002'
Case 'Функция3'
Return 'Func1003'
Case 'Функция4'
Return 'Func1004'
Case 'Функция5'
Return 'Func1005'
EndSwitch
EndFunc
Func Start()
$Started = Not $Started
If $Started Then
GUICtrlSetData($Button2, 'Стоп')
Else
GUICtrlSetData($Button2, 'Старт')
EndIf
EndFunc
While 1
If $Started Then
Switch $nF
Case 1001
Call($Cycle1001)
Case 1002
Call($Cycle1002)
Case 1003
Call($Cycle1003)
Case 1004
Call($Cycle1004)
Case 1005
Call($Cycle1005)
EndSwitch
EndIf
WEnd
Func _Exit()
Exit
EndFunc
Func Func1001()
ConsoleWrite("Func1001()" & @CRLF)
MouseMove(578, 222, 5)
$nF = 5
EndFunc
Func Func1002()
ConsoleWrite("Func1002()" & @CRLF)
MouseMove(530, 269, 5)
$nF = 5
EndFunc
Func Func1003()
ConsoleWrite("Func1003()" & @CRLF)
MouseMove(369, 200, 5)
$nF = 5
EndFunc
Func Func1004()
ConsoleWrite("Func1004()" & @CRLF)
MouseMove(511, 312, 5)
$nF = 5
EndFunc
Func Func1005()
ConsoleWrite("Func1005()" & @CRLF)
MouseMove(341, 465, 5)
$nF = 5
EndFunc
Заранее благодарю!