PureBoard

Verfasst: **26.05.2009 11:12**

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

Verfasst: **26.05.2009 15:58**

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

Verfasst: **27.05.2009 09:24**

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.

Verfasst: **27.05.2009 15:34**

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

Verfasst: **28.05.2009 17:55**

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

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

PureBoard

Hintergrundfarbe von ToolBar anpassen

Hintergrundfarbe von ToolBar anpassen