функция SetGadgetColor
|
|
Vitamin | Дата: Пятница, 24.02.2023, 20:44 | Сообщение # 1 |
Лейтенант
Группа: Пользователи
Сообщений: 59
Статус: Offline
| функция меняет цвет текста CheckBoxGadget только до цикла ожидания событий окна, а в теле цикла почему-то не срабатывает, вот пример:Код #Include "window9.bi" CenterWindow(OpenWindow("",10,10,260,100)) CheckBoxGadget(1,10,10,82,18,"Выбор") TextGadget(2,100,20,50,50,"ggg")
'SetGadgetColor(1,0,255,2) 'SetGadgetColor(2,0,255,2)
Do Var event=WaitEvent() If event=EventGadget Then If EventNumber = 1 Then If GetGadgetState(1) = 1 Then ' если галка включена ?"+" SetGadgetColor(1,0,255,2) ' красный цвет текста SetGadgetColor(2,0,255,2) Else ' выключена ?"-" SetGadgetColor(1,0,65280,2) ' зелёный цвет текста SetGadgetColor(2,0,65280,2) EndIf EndIf EndIf If event=eventclose Then End Loop
при этом TextGadget отрабатывает нормально, чего для CheckBoxGadget не хватает?
|
|
| |
haav | Дата: Пятница, 24.02.2023, 21:51 | Сообщение # 2 |
Генералиссимус
Группа: Администраторы
Сообщений: 1372
Статус: Offline
| Как только смогу , я сделаю исправление. А пока можно для CheckBoxGadget после вызова SetGadgetColor применить InvalidateRect(GadgetID(1) , 0 , 1) . В данном случае обновится гаджет с номером 1. Если нужно обновить другой , то номер в GadgetID должен быть другим.
Ты в каком редакторе пишешь? Код содержит некорректные символы. Возможно форум косячит , но почему-то мне кажется , что было написано в FbEdit.
Вы сохраняете власть над людьми покуда оставляете им что-то…Отберите у человека все, и этот человек уже будет неподвластен вам…
|
|
| |
Vitamin | Дата: Пятница, 24.02.2023, 21:53 | Сообщение # 3 |
Лейтенант
Группа: Пользователи
Сообщений: 59
Статус: Offline
| ОК, попробую да, FbEditДобавлено (25.02.2023, 12:15) --------------------------------------------- да, так работает Код #Include "window9.bi"
CenterWindow(OpenWindow("",10,10,260,100)) CheckBoxGadget(1,10,10,82,18,"Выбор")
Do Var event=WaitEvent() If event=EventGadget Then If EventNumber = 1 Then If GetGadgetState(1) = 1 Then ' если галка включена SetGadgetColor(1,0,&h0000FF,2) ' красный цвет текста Else ' выключена SetGadgetColor(1,0,&h00C000,2) ' зелёный цвет текста EndIf InvalidateRect(GadgetID(1),0,1) EndIf EndIf If event=eventclose Then End Loop
однако если изменить стиль windows при помощи .manifest, то цвет перестаёт меняться видимо не судьба ...
Сообщение отредактировал Vitamin - Пятница, 24.02.2023, 21:53 |
|
| |
haav | Дата: Суббота, 25.02.2023, 16:03 | Сообщение # 4 |
Генералиссимус
Группа: Администраторы
Сообщений: 1372
Статус: Offline
| Цитата Vitamin ( ) однако если изменить стиль windows при помощи .manifest, то цвет перестаёт меняться видимо не судьба ...
Я вообще не парюсь с манифестами (пофиг на них). Мне уже много раз писали , типа почему ты не используешь манифест в своих программах. Ну так вот, ты отыскал как минимум одну причину. Кстати , я сделал исправление и обновил библиотеку , теперь не должно быть проблем с цветами у кнопок.
Вы сохраняете власть над людьми покуда оставляете им что-то…Отберите у человека все, и этот человек уже будет неподвластен вам…
|
|
| |
|