プログラム言語 FreeBasic |
FontRequester
function FontRequester(byval hwnd As HWND = 0, byval nColor As Integer = 0) As Integer
ダイアログ・ウィンドウから、フォントのハンドルを受け取ることができます。
日本語フォントも選択できます。
この関数を使うと、さらに、この関数の追加情報を取得できます:
SelectedFontName フォント名
SelectedFontColor フォントの色
SelectedFontSize フォント・サイズ
SelectedFontStyle フォント・スタイル
オプションhwnd - ダイアログが表示されるウィンドウ
nColor - Windows のみ:初期化時のフォントの色
Windows , Linux
例:
#Include "window9.bi"
OpenWindow("",10,10,400,200)
SetGadgetFont(,FontRequester())
ButtonGadget(1,10,10,300,40,"選択されたフォントで表示")
Do
Var event=WaitEvent
Select Case event
Case EventClose
End
End Select
Loop