Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/
http://www.purebasic.fr/german/viewtopi ... 94#p284594Velindos hat geschrieben:gibt es die Möglichkeit der Platzierung von ButtonImageGadget in der Statusbar?
Richtig, Ihr helft mir PureBasic und dessen Funktionen besser zu verstehen! Oder, ein Button oder eine Statusbar ist nur eine Funktion aber nicht ein Programm!!!Mitdenken solltest Du schon, wir schreiben Dir doch nicht die Programme
Code: Alles auswählen
f OpenWindow(0, 100, 150, 300, 100, "PureBasic - StatusBar Example", #PB_Window_SystemMenu | #PB_Window_SizeGadget)
CreateStatusBar(0, WindowID(0))
;HyperLinkGadget(0, 5, 5, 130, StatusBarHeight(0), "www.purebasic.fr/german", RGB(255,0,0), #PB_HyperLink_Underline)
ButtonGadget(0, 10, 5, StatusBarHeight(0), 16, "|<")
SetParent_(GadgetID(0), StatusBarID(0))
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow : Break
Case #PB_Event_Gadget
Select EventGadget()
Case 0
RunProgram(GetGadgetText(0))
EndSelect
EndSelect
ForEver
EndIf Hast Du schon mal, in einem anderem Programm, gesehen das die Statusbar eine andere Höhe hat?Velindos hat geschrieben: Habe jetzt den Button hineingeben, finde aber nichts wie ich die Höhe der Statusbar beeinflussen kann!
Code: Alles auswählen
Enumeration
#myButton
EndEnumeration
;{-Image Plugin
UsePNGImageDecoder()
UsePNGImageEncoder()
;}
MyButton=CatchImage(#myButton,?Bildchen)
;{ Included Images
DataSection
Bildchen:
IncludeBinary "C:\Store\Design_8\Button16.png"
EndDataSection
;}
If OpenWindow(0, 100, 150, 300, 100, "PureBasic - StatusBar Example", #PB_Window_SystemMenu | #PB_Window_SizeGadget)
CreateStatusBar(0, WindowID(0))
;HyperLinkGadget(0, 5, 5, 130, StatusBarHeight(0), "www.purebasic.fr/german", RGB(255,0,0), #PB_HyperLink_Underline)
;ButtonGadget(0, 10, 5, StatusBarHeight(0), 16, "|<")
ButtonImageGadget(0, 10, 5, 16, 16, MyButton)
ImageGadget(1, 5, 5, 20, 20,MyButton, #PB_Image_Border)
SetParent_(GadgetID(0), StatusBarID(0))
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow : Break
Case #PB_Event_Gadget
Select EventGadget()
Case 0
RunProgram(GetGadgetText(0))
EndSelect
EndSelect
ForEver
EndIf naja, Du lässt Dich sehr gerne mit fertigen Codes bedienen.Velindos hat geschrieben:Richtig, Ihr helft mir PureBasic und dessen Funktionen besser zu verstehen!
Ich schon !ts-soft hat geschrieben:Hast Du schon mal, in einem anderem Programm, gesehen das die Statusbar eine andere Höhe hat?Velindos hat geschrieben: Habe jetzt den Button hineingeben, finde aber nichts wie ich die Höhe der Statusbar beeinflussen kann!
Du musst schon die grösse des Buttons an die Statusbar anpassen oder Du bastelst Dir selber eine
Statusbar.
Code: Alles auswählen
#SB_SETMINHEIGHT = (#WM_USER+8)
If OpenWindow(0, 100, 150, 300, 100, "PureBasic - StatusBar Example", #PB_Window_SystemMenu | #PB_Window_SizeGadget)
If CreateStatusBar(0, WindowID(0))
AddStatusBarField(100)
AddStatusBarField(50)
AddStatusBarField(100)
EndIf
StatusBarText(0, 0, "Area 1")
StatusBarText(0, 1, "Area 2", #PB_StatusBar_BorderLess)
StatusBarText(0, 2, "Area 3", #PB_StatusBar_Right | #PB_StatusBar_Raised)
SendMessage_(StatusBarID(0),#SB_SETMINHEIGHT,40,0)
SendMessage_(StatusBarID(0),#WM_SIZE,0,0)
Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf