FStaticFrame

FStaticFrame zeichnet eine Linie oder Rechteck zur Gestaltung einer Oberfläche

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 !)
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
Dimensionen

 

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: