Cria um objeto do tipo caixa de seleção (CheckBox).
#include "TOTVS.CH" User Function TCheckBox() local lCheck1 := .T. local lCheck2 := .F. DEFINE DIALOG oDlg TITLE "Exemplo TCheckBox" FROM 180,180 TO 550,700 PIXEL oCheck1 := TCheckBox():New(01,01,'CheckBox 001',{||lCheck1},oDlg,100,210,,,,,,,,.T.,,,) oCheck2 := TCheckBox():New(11,01,'CheckBox 002',{||lCheck2},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,,61,01,'CheckBox 006',100,210,,,,,,,,.T.,'CheckBox 006',,) oCheck7 := TCheckBox():Create( oDlg,,71,01,'CheckBox 007',100,210,,,,,,,,.T.,'CheckBox 007',,) ACTIVATE DIALOG oDlg CENTERED Return |
Microsiga Protheus 8.11, Microsiga Protheus 11, Protheus 10, TOTVS Application Server 10, ByYou Application Server