Property | Datentyp(Read/Write) | Hinweise |
Left | Integer (R/W) | Linke Position |
Top | Integer (R/W) | Obere Position |
Width | Integer (R/W) | Weite |
Height | Integer (R/W) | Höhe |
ClientHeight | Integer (R) | Höhe des Clientbereiches |
ClientWidth | Integer (R) | Breite des Clientbereiches |
Caption | String (R/W) | Liest,Setzt oder ändert den Text |
Visible | Integer (R/W) | TRUE = sichtbar (voreingestellt) ; FALSE = nicht sichtbar |
Enabled | Integer (R/W) | TRUE = aktiv (voreingestellt) ; FALSE = inaktiv |
Color | UInteger (R/W) | Hintergrundfarbe ; voreingestellt ist hellgrau |
TextColor | UInteger (R/W) | Textfarbe ; voreingestellt ist schwarz |
Handle | HWND (R) |
Handle des Control(nur lesen !) |
Border | Integer (R/W) |
Umrandung : 0 ohne (voreingestellt) 1 sunken 2 raised 3 mit kombination sunken+raised umrahmt 4 1Px breite Linie in der Farbe hellgrau |
TextAlign | Integer (R/W) |
Textausrichtung : 0 links einzeilig 1 mitte einzeilig (voreingestellt) 2 rechts einzeilig 3 links mehrzeilig 4 mitte mehrzeilig 5 rechts mehrzeilig |
SUB | Argumente | Hinweis |
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 SUB | Argumente | Hinweis |
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) |
#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.