Seite 1 von 1
flache buttons?
Verfasst: 19.10.2004 17:12
von nicolaus
Hi zusammen
Ich habe mal wieder ne frage wie bekomme ich nen flachen button? Ich meine damit das man nicht die buttonerhebung sieht eben so ähnlich wie bei einer toolbar? Gibts da ein flag für was ich übersehen habe oder wie kann ich das angehen um einen solchen button hin zu bekommen?
Verfasst: 19.10.2004 17:26
von bobobo
Nimm nen Hammer
oder
das hier
Verfasst: 19.10.2004 17:38
von nicolaus
ZHX esrt mal!
Hatte wohl vergessen zu sagen das ich das gern bei imagebuttons hätte und da kann ich den flag ja nich setzten.
hatte es auch schon mal mit sendmessage_() versucht doch geht auch das nich.
Verfasst: 19.10.2004 17:41
von Christian
Hi!
Versuch es mal mit der FlatGadget-Lib auf pureare.net.
Gruß
Christian
Verfasst: 20.10.2004 15:09
von bobobo
oder so
Code: Alles auswählen
; www.purearea.net (Sourcecode collection by cnesm)
; Author:
; Date: 22. November 2003
; erweitert durch nen platten Knopf
Procedure.l MyImage(ImageNumber.l, Width.l, Height.l, Color.l)
ImageID.l = CreateImage(ImageNumber, Width, Height)
StartDrawing(ImageOutput())
Box(0, 0, Width, Height, Color)
StopDrawing()
ProcedureReturn ImageID
EndProcedure
#BS_FLAT=$8000
;
; Main starts here
;
If OpenWindow(0, 200, 200, 150, 100, #PB_Window_SystemMenu, "zZzzzZzZzZzzzZzzz")
If CreateGadgetList(WindowID())
ButtonImageGadget(105, 10, 10, 40, 20, MyImage(1,40,20,$0000FF))
ButtonImageGadget(106, 60, 10, 40, 20, MyImage(2,40,20,$FF00BB))
s.l=GetWindowLong_(GadgetID(106), #GWL_STYLE)
SetWindowLong_(GadgetID(106), #GWL_STYLE, #BS_FLAT | s)
EndIf
Repeat
Select WaitWindowEvent()
Case #PB_EventCloseWindow : End
Case #PB_EventGadget
Select EventGadgetID()
Case 105 ; Button 1
SetGadgetState(106,MyImage(2,40,20,Random($FFFFFF)))
Case 106 ; Button 2
EndSelect
EndSelect
ForEver
EndIf