flache buttons?

[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?

[bobobo]

Nimm nen Hammer

oder das hier

[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.

[Christian]

Hi!

Versuch es mal mit der FlatGadget-Lib auf pureare.net.

Gruß
Christian

[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