Browse e Toggle Box

Pessoal, alguém sabe como consigo fazer um browse com o Toggle Box em uma das colunas ??
Que o o TB seja um para cada linha do browse....

obrigado

Achei um exemplo que eu tinha aqui é bem simples, mas ve se lhe ajuda

Código:

def temp-table tt-teste
   field coluna1 as char
   field coluna2 as int
   field coluna3 as int
   field coluna4 as log.

def var loop as int.


do loop = 1 to 10.
   create tt-teste.
   assign
      tt-teste.coluna1 = "teste1"
      tt-teste.coluna2 = int(random(1,10))
      tt-teste.coluna3 = int(random(1,10))
      tt-teste.coluna4 = yes.   
end.   
   
def var bh        as widget-handle.
def var qh        as widget-handle.
def var ch        as widget-handle extent 5.

def frame f-principal
   with  three-d side-label overlay size 70 by 20.

create query qh.

qh:set-buffers(buffer tt-teste:handle ).
qh:query-prepare("for each tt-teste"). 
qh:query-open.

create browse bh 
     assign
     frame = frame f-principal:handle
     row = 1
     col = 1
     width =  50 
     down  = 18
     separators = true
     query = qh
     sensitive = true
     visible = true
     read-only = false.
     

ch[1] = bh:add-like-column("tt-teste.coluna1",1,"drop-down").
ch[1]:read-only = false.
ch[1]:list-items = "teste1,teste2,teste4".

ch[2] = bh:add-like-column("tt-teste.coluna2",2).
ch[2]:read-only = false.    
ch[3] = bh:add-like-column("tt-teste.coluna3",3).
ch[3]:read-only = false.    

ch[4] = bh:add-like-column("tt-teste.coluna4",4,"toggle-box").
ch[4]:read-only = false.    

ch[5] = bh:add-calc-column("char",">>>>9","","lb",5).
ch[5]:read-only = true.    



enable all with frame f-principal.
wait-for close of current-window.

Valeu, perfeito....

obrigado

Boa tarde,
Verifiquei o exemplo abaixo, quando executamos o exemplo, o programa já monta o browse mostrando todos os campos com o read-only False. Precisava montar com o seguinte criterio: se a coluna4 estiver desmacado, a coluna5 ficaria habilitado. Se a coluna4 estiver marcado a coluna5 ficaria desabilitado.

At.

Jlsperes

Quando rodo o arquivo esta aparecendo uma mensagem de erro na linha do:

"ch[1] = bh:add-like-column("tt-teste.coluna1",1, "drop-down")."

Mensagem:
"Invalid number of arguments for attribute add-like-column,
Não entendi linha 46."


Alguém pode me ajudar?

Se possível, poderia me enviar um exemplo em SmartWindow?

Agradeço desde já!

Danilo Valim

na definição da temp-table ou no display do browse por "view-as toggle-box"


define temp-table tt-teste no-undo
field t1 as log view-as toggle-box.


ou no display

tt-teste.t1 view-as toggle-box.

Mas só pega apartir da versão 10