Histórico da Página

#include "TOTVS.CH"

#define LAYOUT_LINEAR_T2B 2 // TOP TO BOTTOM

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

  oLayout := tLinearLayout():New( oWnd, LAYOUT_LINEAR_T2B, CONTROL_ALIGN_ALLCLIENT )
  oLayout:SetColor(,CLR_BLUE)
  
  oTButton1 := TButton():New( 0, 0, "Botão 01", oLayout,{||alert("Botão 01")}, 40,10,,,.F.,.T.,.F.,,.F.,,,.F. )
  oTButton2 := TButton():New( 0, 0, "Botão 02", oLayout,{||alert("Botão 02")}, 40,10,,,.F.,.T.,.F.,,.F.,,,.F. )
  oTButton3 := TButton():New( 0, 0, "Botão 03", oLayout,{||alert("Botão 03")}, 40,10,,,.F.,.T.,.F.,,.F.,,,.F. )

  oLayout:AddInLayout(oTButton1)
  oLayout:AddInLayout(oTButton2)
  oLayout:AddInLayout(oTButton3)

  oLayout:AddSpacer(1,30)
  oLayout:AddSpacer(3,50)
  oLayout:AddSpacer(6,20)

  oWnd:Activate()
return