Page 1 of 1

PanelGadget FixedWidth & Spacing

Posted: Tue Aug 14, 2012 12:42 am
by SoFlawLess_
Hi, I'm trying to make every tab on my PanelGadget the same width ... I've tried using #TCS_FIXEDWIDTH but all it does it not show the tabs.

Also, is it possible to increase the vertical spacing between the tab and the panel?

Re: PanelGadget FixedWidth & Spacing

Posted: Tue Aug 14, 2012 1:19 am
by IdeasVacuum

Re: PanelGadget FixedWidth & Spacing

Posted: Tue Aug 14, 2012 3:22 am
by RASHAD

Code: Select all

  TWidth = 80
  THeight = 25
  
  If OpenWindow(0, 0, 0, 322, 220, "PanelGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    PanelGadget     (0, 8, 8, 306, 203)    
      AddGadgetItem (0, -1, "Panel 1")
        PanelGadget (1, 5, 5, 290, 166)
          AddGadgetItem(1, -1, "Sub-Panel 1")
          AddGadgetItem(1, -1, "Sub-Panel 2")
          AddGadgetItem(1, -1, "Sub-Panel 3")
        CloseGadgetList()
        SetWindowLong_(GadgetID(1), #GWL_STYLE, GetWindowLong_(GadgetID(1), #GWL_STYLE) | #TCS_FIXEDWIDTH)
        SendMessage_(GadgetID(1), #TCM_SETITEMSIZE, 0, TWidth|THeight<<16)
      AddGadgetItem (0, -1,"Panel 2")
        ButtonGadget(2, 10, 15, 80, 24,"Button 1")
        ButtonGadget(3, 95, 15, 80, 24,"Button 2")
    CloseGadgetList()
    SetWindowLong_(GadgetID(0), #GWL_STYLE, GetWindowLong_(GadgetID(0), #GWL_STYLE) | #TCS_FIXEDWIDTH)
    SendMessage_(GadgetID(0), #TCM_SETITEMSIZE, 0, TWidth|THeight<<16)
    Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
  EndIf