Hintergrundfarbe von ToolBar anpassen

[CNESM]

Hallo,

da ich gerade die Notwendigkeit hatte, die Toolbarfarbe entsprechend anzupassen und das Toolbar frei im Fenster zu plazieren, hier Trick dies einfach zu realisieren. Ist eher eine "IchBinZuFaulZumRichtigMachen" aber bei mir funktionierts und da ich im Forum u.ä. nichts gefunden habe, hier der Code:

Code: Alles auswählen

If OpenWindow(1,0,0,400,300,"Set color for free placed toolbar")
  SetWindowColor(1,RGB(27,150,86)) 
  MDIGadget(2,20,20,100,22, 0,0,#PB_MDI_BorderLess|#PB_MDI_NoScrollBars)
    SetGadgetColor(2,#PB_Gadget_BackColor,RGB(255,242,0))
      TB=CreateToolBar(3,GadgetID(2))
      SendMessage_(TB,#TB_SETSTYLE,0,SendMessage_(TB,#TB_GETSTYLE,0,0)|#CCS_NODIVIDER)
      SendMessage_(TB,#TB_SETINDENT,0,0)
      ToolBarStandardButton(4,#PB_ToolBarIcon_New)
      ToolBarStandardButton(5,#PB_ToolBarIcon_Open)
  Repeat:Until WaitWindowEvent()=#PB_Event_CloseWindow
EndIf

[Andesdaf]

gut, hab aber TBpro und damit kann man sowas auch machen

[CNESM]

Ist ja auch nur als kleiner Tip gedacht, für diejenigen, die eine einfachen Lösung haben möchten, ohne gleich auf Lips etc. zugreifen zu müssen.

[Fluid Byte]

Geht auch ohne MDIGadget:

Code: Alles auswählen

OpenWindow(0,0,0,400,300,"void",#PB_Window_SystemMenu | 1)
SetWindowColor(0,RGB(27,150,86))
OpenWindow(1,50,50,200,22,"",#WS_CHILD,WindowID(0))
SetWindowColor(1,RGB(255,242,0))
hwndTB = CreateToolBar(0,WindowID(1))
SendMessage_(hwndTB,#TB_SETSTYLE,0,SendMessage_(hwndTB,#TB_GETSTYLE,0,0) | #CCS_NODIVIDER)
ToolBarStandardButton(0,#PB_ToolBarIcon_New)
ToolBarStandardButton(1,#PB_ToolBarIcon_Open)
ToolBarStandardButton(2,#PB_ToolBarIcon_Save)
While WaitWindowEvent() ! #PB_Event_CloseWindow : Wend

[Andesdaf]

@CNESM: Ist ja auch nur als kleinet Tip meinerseits gedacht.

@Fluid Byte: Danke, ohne MDI ist auch gut.