Change PanelGadget Orientation?

[Dr. Dri]

with the loop (for/next)

Code: Select all

#TCS_BOTTOM = 2
#TCS_RIGHT = 2
#TCS_VERTICAL = $80
If OpenWindow(0,0,0,322,220,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"PanelGadget") And CreateGadgetList(WindowID(0))
  hPgad = PanelGadget(0,8,8,306,203)
  AddGadgetItem (0,-1,"Panel 1")
  AddGadgetItem (0,-1,"Panel 2")
  AddGadgetItem (0,-1,"Panel 3")
  AddGadgetItem (0,-1,"Panel 4")
  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_BOTTOM)
  Repeat
    pgStatic = 0
    For i = 1 To CountGadgetItems(0)
      pgStatic = FindWindowEx_(hPgad, pgStatic, "Static", 0)
      MoveWindow_(pgStatic, 0, 0, 260, 180, 1)
    Next i
  Until WaitWindowEvent()=#PB_Event_CloseWindow
EndIf

Dri ^^