FreeBasic
Главная
Вход
Регистрация
Четверг, 21.06.2018, 02:02Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум » Библиотеки для FreeBasic » Библиотека Window9 для Freebasic » PanelGadget
PanelGadget
salexeiyДата: Четверг, 30.11.2017, 10:24 | Сообщение # 1
Лейтенант
Группа: Пользователи
Сообщений: 60
Репутация: 2
Статус: Offline
В документации забыли описать такой стиль, как TCS_FLATBUTTONS.

Ещё вопрос. Не понятно, как сделать шрифт для вкладок, установленный в системе.
 
haavДата: Четверг, 30.11.2017, 10:37 | Сообщение # 2
Генерал-полковник
Группа: Администраторы
Сообщений: 852
Репутация: 34
Статус: Offline
Цитата salexeiy ()
Ещё вопрос. Не понятно, как сделать шрифт для вкладок, установленный в системе.


Для большинства гаджетов, для установки шрифта используется функция SetGadgetFont

Во избежание утечки ресурсов, шрифт загружается отдельно с помощью LoadFont и используется хендл , возвращаемый этой функцией. Если шрифт становится не востребованным, его следует освободить с помощью DeleteObject . Например:

Код
#Include "window9.bi"

Dim As HFONT font=LoadFont("Courier New",14)

OpenWindow("",10,10,300,100)

ButtonGadget(1,10,10,200,20,"This button")

SetGadgetFont(1,font)

Do
   
Loop Until WaitEvent = eventclose

DeleteObject (font)


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


Вы сохраняете власть над людьми покуда оставляете им что-то…Отберите у человека все, и этот человек уже будет неподвластен вам…
 
salexeiyДата: Четверг, 30.11.2017, 11:43 | Сообщение # 3
Лейтенант
Группа: Пользователи
Сообщений: 60
Репутация: 2
Статус: Offline
Спасибо за ответ! Про шрифт понял. Насчёт освобождения ресурсов: т.е. по завершению работы программы все гаджеты нужно освобождать?

Ещё забыл добавить, что стиль TCS_FLATBUTTONS проявляется только тогда, когда к экзешнику прикручен манифест (ну это в виндовс, как в других системах не знаю). Да по сути говоря, манифест влияет на всё приложение. Спрошу про него в отдельной теме.
 
haavДата: Четверг, 30.11.2017, 12:16 | Сообщение # 4
Генерал-полковник
Группа: Администраторы
Сообщений: 852
Репутация: 34
Статус: Offline
Цитата salexeiy ()
Насчёт освобождения ресурсов: т.е. по завершению работы программы все гаджеты нужно освобождать?


При закрытии окна (программно или пользовательским нажатием на крестик), все гаджеты освобождаются автоматически. Соотвественно , при закрытии приложения, автоматически закрываются все открытые в этом приложении окна и освобождаются все принадлежащие этим окнам гаджеты и ресурсы.

Другое дело , если окно не закрывается, а например скрывается\свертывается. Тогда гаджеты никуда не деваются.


Вы сохраняете власть над людьми покуда оставляете им что-то…Отберите у человека все, и этот человек уже будет неподвластен вам…
 
Форум » Библиотеки для FreeBasic » Библиотека Window9 для Freebasic » PanelGadget
  • Страница 1 из 1
  • 1
Поиск: