FLabelEx ist zur Darstellung einzeiliger Texte als Überschrift mit erweiterten Fähigkeiten.
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 |
BorderWidth | Integer (R/W) | Einfache Umrandung des Label in der angegebenen Breite. |
BorderColor | UInteger (R/W) | Einfache Umrandung des Label in der angegebenen Farbe. Ist nur wirksam wenn BorderWidth > 0 ist. |
Caption | String (R/W) | Text der angezeigt wird (max. 255 Zeichen) |
TextAlign | Integer (R/W) | Horizontale Ausrichtung des Textes. 0:links, 1:mitte (voreingestellt), 2:rechts |
TextBorderWidth | Integer (R/W) | Einfache Umrandung der Schrift. |
TextBorderColor | UInteger (R/W) | Einfache Umrandung der Schrift in der angegebenen Farbe. Ist nur wirksam wenn TextBorderWidth > 0 ist. |
Color | UInteger (R/W) | Hintergrundfarbe des Label ; voreingestellt ist transparent (Value = -1) |
TextColor | UInteger (R/W) | Textfarbe ; voreingestellt ist schwarz |
TextEndColor | UInteger (R/W) | Farbverlauf-Endfarbe wenn TextGradients > 0 ist ; voreingestellt ist weiss |
TextGradients | UInteger (R/W) | Schrift erhält ein Farbverlauf. 0:kein Farbverlauf, 1:horizontal, 2:vertical |
Visible | Integer (R/W) | TRUE = sichtbar (voreingestellt) ; FALSE = nicht sichtbar |
Handle | HWND (R) | Handle des Control (nur lesen !) |
SUB | Argumente | Hinweis |
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: ![]() |