FToolBtn

Die Button sind flach und reagieren auf MouseOver durch anheben des Randes. Sie können auf down (und zurück) gestellt werden um Eigenschaften zu symbolisieren.

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
BorderInteger (R/W) True = Rand 1 Pixel in der Farbe BorderColor , Voreingestellt FALSE
BorderColorUInteger (R/W) Border Farbe , wenn Border = TRUE; Voreingestellt schwarz
VisibleInteger (R/W) TRUE = sichtbar (voreingestellt) ; FALSE = nicht sichtbar
EnabledInteger (R/W) TRUE = aktiv (voreingestellt) ; FALSE = inaktiv
ColorUInteger (R/W) Hintergrundfarbe ; voreingestellt ist hellgrau
TextColorUInteger (R/W) Textfarbe ; voreingestellt ist schwarz
FocusedInteger (R/W) Bestimmt ob ein Focusrect angezeigt wird , TRUE = Ja; FALSE = nein
DownInteger (R/W) Bestimmt ob der Button als Down angezeigt wird , TRUE = Ja; FALSE = nein
TextPosInteger (R/W) Bestimmt wo der Text angezeigt wird , wenn Image und Caption angegeben ist;
TRUE = Bild oben; FALSE = Bild links
TipString (W) Der hier zugeordnete String wird als ToolTip angezeigt
Sub/FunctionArgumenteHinweise
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 x,y,Weite,Höhe
Sub Image( value as String) Bild (.bmp) im Button. Es kann ein Dateiname oder ein Resourcename ( kein ID) sein.
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
onRbuttondownkeine Wenn auf Button mit der rechten Mousetaste geklickt wird

Beispiel :

    #Include "winFBgui.bi"
    
    Dim Shared As FForm form1
    Dim Shared As FToolBtn Btn1,Btn2,Btn3,btn4,btn5
      
    Sub btn1_Click
    	form1.FormClose
    End Sub
    
    '--------------------------------------------------------------------
    '                  Form und Control
    '--------------------------------------------------------------------
    
    form1.Create("Test 1",0,0,350,300)
    Form1.Center
    Form1.Color = &HEEFFBF
    
    Btn1.Create(form1.Handle,10,10,120,30)
    Btn1.Caption = "Nur Text"
    Btn1.onClick = @btn1_Click
    Btn1.Border = TRUE
    Btn1.BorderColor = &HAAAAAA
    
    Btn2.Create(form1.Handle,140,10,68,100)
    Btn2.LoadBmp("bild1.bmp")
    Btn2.Caption = "Bild.bmp"
    Btn2.Border = TRUE
    Btn2.BorderColor = &HAAAAAA
    
    Btn3.Create(form1.Handle,218,10,68,100)
    Btn3.Image("txt64.jpg")
    Btn3.Caption = "Bild.jpg"
    Btn3.Color =  &HFFFFFF
    Btn3.Border = TRUE
    Btn3.BorderColor = &HAAAAAA
    
    Btn4.Create(form1.Handle,140,140,110,40)
    Btn4.Image("166.jpg")
    btn4.TextPos = 0
    Btn4.Caption = "Bild.jpg"
    Btn4.Color =  &HEEFFBF
    Btn4.Border = TRUE
    Btn4.BorderColor = &HAAAAAA
    
    Btn5.Create(form1.Handle,10,78,40,40)
    Btn5.Image("166.jpg")
    Btn5.Color =  &HEEFFBF
    
    '------ Show entält MessageLoop - muss immer am Ende sein ------------
    form1.Show
    
    ExitProcess(0)
    End
    
So siet es aus : Ftoolbtn