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 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 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.