FPanel

PropertyDatentyp(Read/Write)Hinweise
LeftInteger (R/W) Linke Position
TopInteger (R/W) Obere Position
WidthInteger (R/W) Weite
HeightInteger (R/W) Höhe
ClientHeightInteger (R) Höhe des Clientbereiches
ClientWidthInteger (R) Breite des Clientbereiches
CaptionString (R/W) Liest,Setzt oder ändert den Text
VisibleInteger (R/W) TRUE = sichtbar (voreingestellt) ; FALSE = nicht sichtbar
EnabledInteger (R/W) TRUE = aktiv (voreingestellt) ; FALSE = inaktiv
ColorUInteger (R/W) Hintergrundfarbe ; voreingestellt ist hellgrau
TextColorUInteger (R/W) Textfarbe ; voreingestellt ist schwarz
HandleHWND (R) Handle des Control(nur lesen !)
BorderInteger (R/W) Umrandung :
0   ohne (voreingestellt)
1  sunken
2  raised
3   mit kombination sunken+raised umrahmt
4 1Px breite Linie in der Farbe hellgrau
TextAlignInteger (R/W) Textausrichtung :
0  links einzeilig
1  mitte einzeilig (voreingestellt)
2  rechts einzeilig
3   links mehrzeilig
4   mitte mehrzeilig
5   rechts mehrzeilig
SUB ArgumenteHinweis
Invalidate keine Veranlasst das senden einer WM_PAINT Botschaft
Repaint keine Wie Invalidate aber mit Nicht-Clientbereich
setFont (Face As String,
ByVal size As Integer,
ByVal bold As Integer,
ByVal italic As Integer,
ByVal underlin As Integer)
Schrift-Name
Schriftgröße
1=bold,0=normal
1=italic,0=normal
1=underlin,0=normal
SUB BKBmp ( BMPName as String) BMPName ist der Dateiname oder der Name der Resource (kein ID) des Bitmap
Das Bitmap wird als Hintergrund gezeichnet indem es
auf volle Panelgröße gezoomt wird. Es kann z.B. ein Bitmap 1px breit und Höhe des Panel benutzt werden um einen Farbverlauf in den Hintergrund zu zeichnen.
SUB Create (ByVal hParent As HWND,
ByVal x As Integer,ByVal y As Integer,ByVal w As Integer,ByVal h As Integer )
Handle des Elternfenster
Dimensionen x,y,Weite,Höhe
Event SUBArgumenteHinweis
onPaint(ByVal hDC As HDC) HDC des Fenster
onLbuttondown(ByVal x As Integer,
ByVal y As Integer,
ByVal flag As Integer)
x - Position im Clientbereich
y - Position im Clientbereich
ob und welcher virtual keys ist gedrückt(z.B.MK_CONTROL,MK_SHIFT)
onLbuttonup(ByVal x As Integer,
ByVal y As Integer,
ByVal flag As Integer)
x - Position im Clientbereich
y - Position im Clientbereich
ob und welcher virtual keys ist gedrückt(z.B.MK_CONTROL,MK_SHIFT)
onRbuttondown(ByVal x As Integer,
ByVal y As Integer,
ByVal flag As Integer)
x - Position im Clientbereich
y - Position im Clientbereich
ob und welcher virtual keys ist gedrückt(z.B.MK_CONTROL,MK_SHIFT)
onMousemove(ByVal x As Integer,
ByVal y As Integer,
ByVal flag As Integer)
x - Position im Clientbereich
y - Position im Clientbereich
ob und welcher virtual keys ist gedrückt(z.B.MK_CONTROL,MK_SHIFT)
Beispiel :
    #Include "FBForms.bi" 	' FBForms.bi immer zuerst
                            ' bindet andere Freebasic .bi wie z.B "windows.bi" ein
    #Include "FBControls.bi"
    
    Dim Shared As FForm form1
    Dim Shared As FPanel panel1
    
    Sub Form1_onSize(ByVal w As Integer, ByVal h As Integer,ByVal flag As Integer)
	   panel1.width = w
    End Sub

    form1.Create("Testform",0,0,870,720)
    Form1.Center
    Form1.Color = &Hefcb90
    Form1.onSize = @Form1_onSize

    panel1.Create(form1.Handle,0,0,form1.Width,26)
    panel1.Caption ="Irgend eine Überschrift"         ' Voreingestellt ist einzeilig zentriert
    panel1.Border = 1                                 ' sunken
    panel1.Color = &Hefcb90                           ' gleiche Farbe wie Form
    
    '------ Show entält MessageLoop - muss immer am Ende sein ------------
    form1.Show
    End
    

Wenn Panel ohne Text, also nur als Container verwendet werden soll, bleibt Caption einfach leer bzw wird nicht berücksichtigt.