Цитата 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 необязательна, поскольку все равно программа завершается. Но часто во время программы требуется менять шрифт, тогда в каком нибудь событии может потребоваться загрузить новый шрифт, а старый удалить.
