プログラム言語 FreeBasic |
StatusBarGadget
StatusBarGadget(gadget,[simpletext=""],[style=0],[style2=0])
Function StatusBarGadget(ByVal gadget As long, ByRef singleText As String="", ByVal style As integer=0, ByVal style2 As integer=0) As HWND
ステータスバーのガジェット
Windows システムでは、高さのサイズはフォントに応じてシステムによって自動的に調整されます。
Linuxシステムでは、高さのサイズは自動的に調整できませんが、最後のパラメーターで ResizeGadget を使って変更できます。
ガジェットの色(背景のみ)を設定する関数 SetGadgetColor(Windowsのみ)
ガジェットの色(背景のみ)を取得する関数 GetGadgetColor(Windowsのみ)
ガジェットのフォントを設定する関数 SetGadgetFont
ガジェットが列に分割されていない場合は、SetGadgetText を使ってテキストを変更できます。
Windows についてさらに詳しい情報は、ウェブサイトを参照下さい: https://msdn.microsoft.com/ja-jp/library/bb760726(v=vs.85).aspx
gadget - ガジェット番号(ゼロより大きい任意の自然数、1、2、3、4など)
simpletext - 初期テキスト。 分割されておらず欄がひとつなら、ガジェットのために使われます。
Windows , Linux
例:
#Include "window9.bi"
Dim As HWND hwnd
hwnd=OpenWindow("Test",10,10,500,500) : CenterWindow(hwnd)
StatusBarGadget(1,"StatusBarGadget")
Do
Var event=WaitEvent()
If Event=EventClose Then End
Loop
デフォルトでは、両方のスタイルのパラメータは、0 です。
style1:
SBT_TOOLTIPS - ToolTipStatusBar を使って、ツールヒント(ToolTip TIPS)を使用する、スタイルスピーカー
標準スタイルの CreateWindow(API)または OpenWindow と同様。 理由は分かりませんが、念のためパラメータを設定して下さい。
style2(Windowsのみ):
拡張スタイル CreateWindow(API)または OpenWindow。 理由は分かりませんが、念のためパラメータを設定して下さい。