Что нового

Изменение цвета текста и фона в комбоксе

Can

Новичок
Сообщения
59
Репутация
1
Здравствуйте! Подскажите пожалуйста на моём примере, как изменить цвет фона формы, цвет фона комбокса, а также размер и стиль надписей?

Я в примере всё расписал, где не понятно:

Код:
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



Заранее благодарю!
 

snoitaleR

AutoIT Гуру
Сообщения
854
Репутация
223
Re: Изменение цвета текста, размера и стиля.

Can
Примерно, так:

Код:
$GUI=GUICreate('Супер C', 440, 290) ; Как изменить цвет фона?
GUISetBkColor (0xFF00FF, $GUI)
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8 472
Репутация
2 401
Автор
C

Can

Новичок
Сообщения
59
Репутация
1
Re: Изменение цвета текста, размера и стиля.

snoitaleR

Спасибо, цвет формы поменял на Вышем примере, остальное не получается пока.

CreatoR

Вам тоже спасибо, если можно, небольшой примерчик, я не такой спец, получилось только с фоном формы на примере snoitaleR.
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8 472
Репутация
2 401
Re: Изменение цвета текста, размера и стиля.

Can [?]
Чтобы почитать справку не нужно быть спецом :smile:
Вы же как то написали(?) всё остальное, в чём сложность с указанными мной функциями?

Код:
...

GUICreate('Супер C', 440, 290) ; Как изменить цвет фона?
GUISetBkColor(0xFFFFFF)
 
GUICtrlCreateLabel('Поездка №1:', 10, 12, 220, 20)  ;Как изменить размер и стиль шрифта надписи?
GUICtrlSetColor(-1, 0xFF0470)
GUICtrlSetFont(-1, 10, 200, 2, 'Tahoma')

$Combo1 = GUICtrlCreateCombo('', 230, 10, 150, 20)  
GUICtrlSetData(-1, 'Функция1|Функция2|Функция3|Функция4|Функция5', 'Функция1') ; Как изменить и цвет и размер шрифта надписей,
; а также цвет фона в комбоксе?
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetFont(-1, 7)


$Button1 = GUICtrlCreateButton('Update', 10, 230, 100, 20) 
GUICtrlSetOnEvent(-1, 'Update')
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0xFF0470)
$Button2 = GUICtrlCreateButton('Старт', 10, 260, 100, 20) ; как изменить цвет кнопок и надписей на них?, на кнопке 1 как-то не очень получается
GUICtrlSetOnEvent(-1, 'Start')
GUISetOnEvent(-3, '_Exit')
GUISetState()

...
 
Автор
C

Can

Новичок
Сообщения
59
Репутация
1
Re: Изменение цвета текста, размера и стиля.

CreatoR

Огромное спасибо Вам.

Решилась тема не до конца:

Не получилось с комбоксом ничего сделать(цвет текста и фон не изменился), кроме размера текста в нем, и хотелось бы, чтобы при наводе на кнопку мышкой, цвет или текст плавно менялся, если это возможно.

Что у меня не правильно?:

Код:
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) ; РЕШЕНО
GUISetBkColor(0xFF0470)

 
GUICtrlCreateLabel('Поездка №1:', 10, 12, 220, 20)  ; РЕШЕНО
GUICtrlSetColor(-1, 0x1F0470)
GUICtrlSetFont(-1, 14, 200, 2, 'Tahoma')

$Combo1 = GUICtrlCreateCombo('', 230, 10, 150, 20)  ; НЕ ПОЛУЧИЛОСЬ !!!

GUICtrlSetData(-1, 'Функция1|Функция2|Функция3|Функция4|Функция5', 'Функция1') ; Как изменить  цвет  надписей,
; а также цвет фона в комбоксе?
GUICtrlSetColor(-1, 0xFA0470)
GUICtrlSetBkColor(-1, 0xFF0470)
GUICtrlSetFont(-1, 14, 200, 2, 'Tahoma')

$Button1 = GUICtrlCreateButton('Update', 10, 230, 100, 20) ; как по красивее сделать кнопки при наводе мышки?
GUICtrlSetOnEvent(-1, 'Update')

GUICtrlSetColor(-1, 0x9F8001)
GUICtrlSetBkColor(-1, 0x1F0470)


$Button2 = GUICtrlCreateButton('Старт', 10, 260, 100, 20) 
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
 
Автор
C

Can

Новичок
Сообщения
59
Репутация
1
Re: Изменение цвета текста, размера и стиля.

Подскажите пожалуйста, в чём ошибка, что не меняется в комбоксе цвет надписи и фон?
Скрипт в предыдущем посте.

И можно ли сделать красивее кнопки при наводе мышкой(плавный переход цвета кнопки), но это не самое главное, важнее с комбоксом разобраться.

Спасибо всем за помощь!
 

snoitaleR

AutoIT Гуру
Сообщения
854
Репутация
223
Re: Изменение цвета текста, размера и стиля.

Can
Все получилось, только цвета подобраны неудачно...

Зеленый на синем (к примеру):
Код:
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor(-1, 0x0000FF)


Как поменять цвета выпадающего списка - не смог найти...
 
Автор
C

Can

Новичок
Сообщения
59
Репутация
1
Re: Изменение цвета текста, размера и стиля.

snoitaleR сказал(а):
Can
Все получилось, только цвета подобраны неудачно...

Зеленый на синем (к примеру):
Код:
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor(-1, 0x0000FF)


Как поменять цвета выпадающего списка - не смог найти...

Блин, может я чего-то не понимаю, но в комбоксе как был белый фон с черным текстом, так и остался, толко шрифт меняется( ?
 
Автор
C

Can

Новичок
Сообщения
59
Репутация
1
Re: Изменение цвета текста, размера и стиля.

Товарищи специалисты:

Если в выпадающем списке комбокса нельзя изменить фон и цвет текста, то хотя бы скажите об этом, и я закрою эту тему, или подскажите, что я не так делаю.
 

dwerf

Использует ArchLinux
Сообщения
478
Репутация
218
Re: Изменение цвета текста, размера и стиля.

Can [?]
Товарищи специалисты:
Если в выпадающем списке комбокса нельзя изменить фон и цвет текста, то хотя бы скажите об этом, и я закрою эту тему, или подскажите, что я не так делаю.
Вы гугл не используете.
http://www.autoitscript.com/forum/index.php?showtopic=116705
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8 472
Репутация
2 401
Re: Изменение цвета текста, размера и стиля.

Can [?]
не меняется в комбоксе цвет надписи и фон
У меня меняется, естественно не для выделения, а только если элемент combo теряет фокус.

можно ли сделать красивее кнопки при наводе мышкой
Это вопрос не простой и заслуживает отдельной темы.
 
Автор
C

Can

Новичок
Сообщения
59
Репутация
1
Re: Изменение цвета текста, размера и стиля.

dwerf сказал(а):
Can [?]
Товарищи специалисты:
Если в выпадающем списке комбокса нельзя изменить фон и цвет текста, то хотя бы скажите об этом, и я закрою эту тему, или подскажите, что я не так делаю.
Вы гугл не используете.
http://www.autoitscript.com/forum/index.php?showtopic=116705

Я так понял, что это сделать не просто, чтобы изменить фон и цвет текста в выпадающем списке.

Подожду еще вариантов, если не будет, тогда закрою тему.

Всем спасибо за помощь!
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8 472
Репутация
2 401
Re: Изменение цвета текста, размера и стиля.

Can [?]
это сделать не просто, чтобы изменить фон и цвет текста в выпадающем списке
Так точно, это не просто, но возможно, и в примерах по ссылке выше это показанно.
 
Верх