FLabel

Standard-Label

PropertyDatentyp(Read/Write)Hinweise
LeftInteger (R/W) Linke Position
TopInteger (R/W) Obere Position
WidthInteger (R/W) Weite
HeightInteger (R/W) Höhe
HandleHWND (R) Handle des Control (nur lesen !)
CaptionString (R/W) Liest,Setzt oder ändert den Text
VisibleInteger (R/W) TRUE = sichtbar (voreingestellt) ; FALSE = nicht sichtbar
ColorUInteger (R/W) Hintergrundfarbe ; voreingestellt ist hellgrau
TextColorUInteger (R/W) Textfarbe ; voreingestellt ist schwarz
BorderInteger (R/W) Border : 0=ohne (voreingestellt) , 1= sunken , 2 = Rahmen
AligenInteger (R/W) Textausrichtung : 0=links (voreingestellt) , 1= mitte , 2 = rechts
     
SUB ArgumenteHinweis
Sub Create (ByVal hParent As HWND,
Caption as String
ByVal x As Integer,ByVal y As Integer,ByVal w As Integer,ByVal h As Integer )
Handle des Elternfenster
Label-Text
Dimensionen
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

 

Beispiel:

      #Define F_Button
#Define F_StaticFrame
#Define F_LabelEx
#Define F_Panel
#Define F_Label

#Include "winFBgui2.bi"

Dim Shared As FForm form1
Dim As FStaticFrame line1,line2,line3,line4,line6
Dim As FButton btn1
Dim As FlabelEx lbl1
Dim As FPanel panel1
Dim As FLabel label1,label2,label3,Label4

'------------- Event-Sub ------------------------------------
Sub btn_Click
form1.FormClose
End Sub

' ------------------- Create Control ---------------------------------
' Form
form1.Create("Test",10,10,400,300)
form1.Border = 2 ' Dialogbox-Style
form1.Color = &Hdddddd

lbl1.Create(form1.Handle,25,30,335,120)
lbl1.Caption = "Freebasic"
lbl1.Color = -1 'Transparent
lbl1.TextColor = bgr(0,0,125)
lbl1.TextEndColor = bgr(195,240,255)
lbl1.TextGradients = 2
lbl1.SetFont("Arial",40,1,0,0)

btn1.Create(form1.Handle,"Exit",140,150,100,30)
btn1.onClick = @btn_Click

line1.Create(form1.Handle,25,20,345,190)
line2.Create(form1.Handle,27,22,341,186)

panel1.Create(form1.Handle,25,220,343,30)
Panel1.Color = &HE0b090
Panel1.Border = 3

line3.Create(panel1.Handle,90,2,2,26)
line4.Create(panel1.Handle,170,2,2,26)
line3.Create(panel1.Handle,250,2,2,26)

label1.Create(panel1.Handle,"Label",6,6,70,22)
label1.Color = &HE0b090
label1.TextColor = &HE0

label2.Create(panel1.Handle,"Align 1",98,6,70,22)
label2.Color = &HE0b090
label2.Align = 1

label3.Create(panel1.Handle,"Border 1",177,4,68,22)
label3.Color = &HE0b090
label3.Border = 1

label3.Create(panel1.Handle,"Border 2",258,4,76,22)
label3.Color = &HE0b090
label3.Border = 2

' alles anzeigen
form1.Show
ExitProcess(0)
End

So sieht es aus: