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 "FBForms.bi"
#Include "FBControls.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


End
So siet es aus : Ftoolbtn