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 BKImg (IMGName as String)
Wie BKBmp jedoch JPG,PNG,TIFF,GIF. IMGName ist der Dateiname oder der Name der Resource (kein ID)
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 "winFBgui.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
ExitProcess(0)
End

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