FStatusbar

 

PropertyDatentyp(Read/Write)Hinweise
SimplePanelInteger (R/W) True = SimplePanel ; False = mehrere Parts (False = voreingestellt)
SimpleTextString (R/W) Text der angezeigt wird
Sub/FunctionArgumenteHinweise
SUB Create (ByVal hParent As HWND) Handle des Elternfenster
SUB AddPanels (ByVal PartWidth As Integer) Weite des Part (Beim letzten aufruf, also beim am weitesten rechts liegenden Panel sollte der Wert -1 sein. Das bewirkt die ausdehnung bis zum rechten Rand )
SUB SetPanelText (ByVal Part As Integer, txt As String) Setzt den Text in die Part-Nr (Nummerierung mit 0 beginnend)
SUB setSize (ByVal w As short,ByVal h As Short) Löst eine WM_SIZE Botschaft aus. Ist zwingend Notwendig
Hinweis :

In das EventSub onSize des Elternfester sollte setSize(w,h) eingestellt werden.

Beispiel :
    #Include "winFBgui.bi"

    Dim Shared As FForm form1
    Dim Shared As FStatusbar status1


    Sub form1_Size(ByVal x As Integer,ByVal y As Integer,ByVal f As Integer)
	   status1.setSize(x,y)
    End Sub

    '
    ' Fenter erstellen
    
    form1.Create("Test 1",90,90,450,320)
    form1.onSize = @form1_Size


    status1.Create(form1.Handle)
    'Panels
    status1.AddPanels(50)
    status1.AddPanels(100)
    status1.AddPanels(-1)
    'Texte
    status1.SetPanelText(0,"INS")         
    status1.SetPanelText(1,"Part1")
    status1.SetPanelText(2,"Letzter Part")

    '------ Show entält MessageLoop - muss immer am Ende sein ------------
    form1.Show
    ExitProcess(0)
    End