Page tree
Skip to end of metadata
Go to start of metadata

Cria um objeto do tipo caixa de seleção (CheckBox).

Hierarquia

Construtores

Métodos

Exemplos

Exemplo 1
  #include "TOTVS.CH"
  User Function TCheckBox()
   DEFINE DIALOG oDlg TITLE "Exemplo TCheckBox" FROM 180,180 TO 550,700 PIXEL
     lCheck := .T.    // Usando New    
     oCheck1 := TCheckBox():New(01,01,'CheckBox 001',{||lCheck},oDlg,100,210,,,,,,,,.T.,,,)
     oCheck2 := TCheckBox():New(11,01,'CheckBox 002',{||lCheck},oDlg,100,210,,,,,,,,.T.,,,)
     oCheck3 := TCheckBox():New(21,01,'CheckBox 003',,oDlg,100,210,,,,,,,,.T.,,,)
     oCheck4 := TCheckBox():New(31,01,'CheckBox 004',,oDlg,100,210,,,,,,,,.T.,,,)
     oCheck5 := TCheckBox():New(41,01,'CheckBox 005',,oDlg,100,210,,,,,,,,.T.,,,)
     // Usando Create
     oCheck6 := TCheckBox():Create( oDlg,{||lCheck},61,01,'CheckBox 006',100,210,,,,,,,,.T.,'CheckBox 006',,)
     oCheck7 := TCheckBox():Create( oDlg,{||lCheck},71,01,'CheckBox 007',100,210,,,,,,,,.T.,'CheckBox 007',,)
   ACTIVATE DIALOG oDlg CENTERED
  Return

Resultado do Exemplo

Abrangência

Microsiga Protheus 8.11, Microsiga Protheus 11, Protheus 10, TOTVS Application Server 10, ByYou Application Server

  • No labels