FLabelEx

FLabelEx ist zur Darstellung einzeiliger Texte als Überschrift mit erweiterten Fähigkeiten.

Declare Sub Create(ByVal hParent As HWND, ByVal x As Integer,ByVal y As Integer,ByVal w As Integer,ByVal h As Integer )
PropertyDatentyp(Read/Write)Hinweise
LeftInteger (R/W) Linke Position
TopInteger (R/W) Obere Position
WidthInteger (R/W) Weite
HeightInteger (R/W) Höhe
BorderWidthInteger (R/W) Einfache Umrandung des Label in der angegebenen Breite.
BorderColorUInteger (R/W) Einfache Umrandung des Label in der angegebenen Farbe. Ist nur wirksam wenn BorderWidth > 0 ist.
CaptionString (R/W) Text der angezeigt wird (max. 255 Zeichen)
TextAlignInteger (R/W) Horizontale Ausrichtung des Textes. 0:links, 1:mitte (voreingestellt), 2:rechts
TextBorderWidthInteger (R/W) Einfache Umrandung der Schrift.
TextBorderColorUInteger (R/W) Einfache Umrandung der Schrift in der angegebenen Farbe. Ist nur wirksam wenn TextBorderWidth > 0 ist.
ColorUInteger (R/W) Hintergrundfarbe des Label ; voreingestellt ist transparent (Value = -1)
TextColorUInteger (R/W) Textfarbe ; voreingestellt ist schwarz
TextEndColorUInteger (R/W) Farbverlauf-Endfarbe wenn TextGradients > 0 ist ; voreingestellt ist weiss
TextGradientsUInteger (R/W) Schrift erhält ein Farbverlauf. 0:kein Farbverlauf, 1:horizontal, 2:vertical
VisibleInteger (R/W) TRUE = sichtbar (voreingestellt) ; FALSE = nicht sichtbar
HandleHWND (R) Handle des Control (nur lesen !)
SUB ArgumenteHinweis
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
Position und Dimensionen
Sub 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:
      '
'---- Was soll eingebunden werden :
' Form, menu , Control-Basis ist immer Eingebunden
 
#Define F_Button
#Define F_LabelEx

'---- Einbinden der Bibliotheken
#Include "winFBgui2.bi"


'---- Definieren der Control
Dim Shared As FForm form1 		
Dim Shared As FButton Btn1
Dim Shared As FLabelEx lbl1,lbl2,lbl3,lbl4,lbl5

' EventSub
Sub btn1_Click		
	form1.FormClose
End Sub

' Fenter erstellen
form1.Create("Test 1",90,90,600,400)
form1.Color = &HFFd09F


lbl1.create(form1.Handle,10,40,90,22)
lbl1.Caption = "Einfach "
lbl1.TextAlign = 0 'links

lbl2.create(form1.Handle,10,90,390,26)
lbl2.Caption = "Umrandung Text und Hintergrund farbig"
lbl2.BorderColor = bgr(37,87,137)
lbl2.BorderWidth = 1
lbl2.Color = bgr(250,190,120)
lbl2.TextColor = bgr(30,80,180)
'
lbl3.create(form1.Handle,10,140,560,50)
lbl3.Caption = "Farbverlauf horizontal"
lbl3.Color =&HFFEEDD
lbl3.TextColor = 	bgr(255,0,0) 		' Anfängliche Farbe
lbl3.TextGradients=1					' Farbverlauf horiz.
lbl3.TextEndColor	= 	bgr(0,255,255)	' Farbe am Ende
lbl3.setFont("Arial",32,1,0,0)

lbl4.create(form1.Handle,10,210,560,70)
lbl4.Caption = "Farbverlauf vert."
lbl4.Color =&HFFd09F
lbl4.TextColor = 	bgr(255,0,0) 		' Anfängliche Farbe
lbl4.TextGradients=2					' Farbverlauf vert.
lbl4.TextEndColor	= 	bgr(0,255,255)	' Farbe am Ende
lbl4.setFont("Arial",36,1,0,0)
lbl4.BorderColor = bgr(37,87,137)
lbl4.BorderWidth = 2
lbl4.TextBorderWidth=1
lbl4.TextBorderColor=&H0

lbl5.create(form1.Handle,140,15,360,48)
lbl5.Caption = "Rechtsbündig"
lbl5.TextAlign = 2
lbl5.TextBorderWidth=1
lbl5.TextBorderColor=&HFFFFFF
lbl5.Color =&H0
lbl5.setFont("Arial",26,1,0,0)

' Button erstellen						
Btn1.Create(form1.Handle,"Exit",250,form1.Height-100,100,35)
Btn1.Color = bgr(60,197,255)
Btn1.onClick = @btn1_Click	


'-----------------------------------------------------------
' alles anzeigen
form1.Show
ExitProcess(0) 
End

So sieht das aus: