Farbige Bereiche in einem Window

Anfängerfragen zum Programmieren mit PureBasic.
Angelo
Beiträge: 102
Registriert: 20.02.2010 14:47
Wohnort: Berlin

Farbige Bereiche in einem Window

Beitrag von Angelo »

Hallo, ich habe in einem Fenster drei Bereiche mit Labels, Buttons etc., die logisch zusammengehören. Damit man das auch optisch erkennt, habe ich jeden dieser drei Bereiche in ein Frame-Gadget gepackt. Leider ist die Funktionalität dieser Frame-Gadgets nicht sehr hoch, vor allem, was die farbliche Ausgestaltung angeht. Gibt es eine Möglichkeit, diese drei Bereiche mit jeweils einer anderen Hintergrundfarbe zu gestalten? Ich habe es mit der Draw-Funktion Box() versucht. Aber leider verschwinden dann die Up- und Down-Pfeile des Date-Gadgets und außerdem ist die Box nicht mehr vorhanden, wenn man das Fenster aus der Taskleiste wieder in der Vordergrund holt. Für jede Anregung bin ich dankbar!
PB 5.50; Win 7
Benutzeravatar
RSBasic
Admin
Beiträge: 8047
Registriert: 05.10.2006 18:55
Wohnort: Gernsbach
Kontaktdaten:

Re: Farbige Bereiche in einem Window

Beitrag von RSBasic »

Du kannst ein ContainerGadget mit beliebiger Hintergrundfarbe verwenden:

Code: Alles auswählen

EnableExplicit

If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  If ContainerGadget(1, 10, 10, 240, 200, #PB_Container_Single)
    ButtonGadget(3, 10, 10, 100, 20, "Button 1", 0)
    
    SetGadgetColor(1, #PB_Gadget_BackColor, RGB(200, 200, 200))
    CloseGadgetList()
  EndIf
  If ContainerGadget(2, 260, 10, 230, 200, #PB_Container_Single)
    ButtonGadget(4, 10, 10, 100, 20, "Button 2", 0)
    
    SetGadgetColor(2, #PB_Gadget_BackColor, RGB(150, 150, 150))
    CloseGadgetList()
  EndIf
  
  Repeat
    Select WaitWindowEvent()
      Case #PB_Event_CloseWindow
        End
    EndSelect
  ForEver
EndIf
Aus privaten Gründen habe ich leider nicht mehr so viel Zeit wie früher. Bitte habt Verständnis dafür.
Bild
Bild
Angelo
Beiträge: 102
Registriert: 20.02.2010 14:47
Wohnort: Berlin

Re: Farbige Bereiche in einem Window

Beitrag von Angelo »

Super, vielen Dank, RSBasic. Das ist es!
PB 5.50; Win 7
Antworten