Histórico da Página

#include "TOTVS.CH"

function u_ExGSpcr()
  oWnd:= TWindow():New(0, 0, 550, 700, "Exemplo AddSpacer", NIL, NIL, NIL, NIL, NIL, NIL, NIL,;
        CLR_BLACK, CLR_WHITE, NIL, NIL, NIL, NIL, NIL, NIL, .T. )

  oLayout1:= tGridLayout():New(oWnd,CONTROL_ALIGN_ALLCLIENT,0,0)
  oLayout1:SetColor(,CLR_BLUE)

  oTButton1 := TButton():New( 0, 0, "Botão 01", oLayout1,{||alert("Botão 01")}, 40,10,,,.F.,.T.,.F.,,.F.,,,.F. )
  oTButton2 := TButton():New( 0, 0, "Botão 02", oLayout1,{||alert("Botão 02")}, 40,10,,,.F.,.T.,.F.,,.F.,,,.F. )
  oTButton3 := TButton():New( 0, 0, "Botão 03", oLayout1,{||alert("Botão 03")}, 40,10,,,.F.,.T.,.F.,,.F.,,,.F. )
  oLayout1:addInLayout( oTButton1, 2, 1)
  oLayout1:addInLayout( oTButton2, 2, 2)
  oLayout1:addInLayout( oTButton3, 2, 3)
  
  oTButton4 := TButton():New( 0, 0, "Botão 04", oLayout1,{||alert("Botão 04")}, 40,10,,,.F.,.T.,.F.,,.F.,,,.F. )
  oTButton5 := TButton():New( 0, 0, "Botão 05", oLayout1,{||alert("Botão 05")}, 40,10,,,.F.,.T.,.F.,,.F.,,,.F. )
  oTButton6 := TButton():New( 0, 0, "Botão 06", oLayout1,{||alert("Botão 06")}, 40,10,,,.F.,.T.,.F.,,.F.,,,.F. )
  oLayout1:addInLayout( oTButton4, 3, 1)
  oLayout1:addInLayout( oTButton5, 3, 2)
  oLayout1:addInLayout( oTButton6, 3, 3)
  
  oTButton7 := TButton():New( 0, 0, "Botão 07", oLayout1,{||alert("Botão 07")}, 40,10,,,.F.,.T.,.F.,,.F.,,,.F. )
  oTButton8 := TButton():New( 0, 0, "Botão 08", oLayout1,{||alert("Botão 08")}, 40,10,,,.F.,.T.,.F.,,.F.,,,.F. )
  oTButton9 := TButton():New( 0, 0, "Botão 09", oLayout1,{||alert("Botão 09")}, 40,10,,,.F.,.T.,.F.,,.F.,,,.F. )
  oLayout1:addInLayout( oTButton7, 4, 1)
  oLayout1:addInLayout( oTButton8, 4, 2)
  oLayout1:addInLayout( oTButton9, 4, 3)
  
  oLayout1:addSpacer( , 1, 10)
  oLayout1:addSpacer( , 2, 30)
  oLayout1:addSpacer( , 3, 60)
  oLayout1:addSpacer( 1, , 1)
  oLayout1:addSpacer( 5, , 1)

  oWnd:Activate()
return