FRadioBtn

Der Style AutoradioButton ist nicht verfügbar. Die Steuereung muss über onClick und Property Check selbst geregelt werden (siehe Unten)
PropertyDatentyp(Read/Write)Hinweise
LeftInteger (R/W) Linke Position
TopInteger (R/W) Obere Position
WidthInteger (R/W) Weite
HeightInteger (R/W) Höhe
ClientHeightInteger (R) Höhe des Clientbereiches
ClientWidthInteger (R) Breite des Clientbereiches
CaptionString (R/W) Liest,Setzt oder ändert den Text
EnabledInteger (R/W) TRUE = aktiv (voreingestellt) ; FALSE = inaktiv
VisibleInteger (R/W) TRUE = sichtbar (voreingestellt) ; FALSE = nicht sichtbar
ColorUInteger (R/W) Hintergrundfarbe ; voreingestellt ist hellgrau
TextColorUInteger (R/W) Textfarbe ; voreingestellt ist schwarz
HandleHWND (R) Handle des Control(nur lesen !)
CtHandleHWND (R) Handle des Containers , ein unsichtbares Elternfenster (nur lesen !)
TipString (W) Der hier zugeordnete String wird als ToolTip angezeigt
Check Integer (R/W) TRUE = Checked; FALSE = Unchecked
BtnLike Integer (R/W) TRUE = Buttonlike; FALSE = RadioButton
Sub/FunctionArgumenteHinweise
SUB Create (ByVal hParent As HWND,
Capt As String,
ByVal x As Integer,ByVal y As Integer,ByVal w As Integer,ByVal h As Integer )
Handle des Elternfenster
Text des Button
Dimensionen x,y,Weite,Höhe
Sub BmpBtn (bm As String) Setzt ein Bitmap statt Text.
bm kann Dateiname oder Resource-Name sein (kein ID)
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
Event SUBArgumenteHinweis
onClickkeine Wenn Button geklickt wird

Style Autoradiobutton ist nicht verfügbar, da dieser Stiel ein gemeinsames Elternfenster erfordert.
Wie im Beispiel ist dies trozdem möglich.

Beispiel :
    #Include "winFBgui.bi"

    Dim Shared As FForm form1
    Dim Shared As FRadioBtn radio1,radio2

    Sub radio1_Click
        radio1.Check = TRUE
        radio2.Check = FALSE   
        
    End Sub
    
    Sub radio2_Click
        radio2.Check = TRUE
        radio1.Check = FALSE
    End Sub

    form1.Create("Testform",0,0,870,720)
    Form1.Center
    Form1.Color = &Hefcb90

    radio1.Create(form1.Handle,"text",10,200,90,26)
    radio1.onClick = @radio1_Click
    radio1.Color = &Hefcb90               ' Button Hintergrund-Farbe
    
    radio2.Create(form1.Handle,"text 2",10,240,90,26)
    radio2.onClick = @radio2_Click
    radio2.TextColor = &HFF0000           ' Button Text-Farbe
    

    '------ Show entält MessageLoop - muss immer am Ende sein ------------
    form1.Show
    ExitProcess(0)
    End