Criar botoes com dados.

[marcos.gurupi]

Caros, estou querendo criar uma janela com botoes contruidos atraves de dados. Ou seja, tenho um grupo de produtos, quero q cada grupo seja um botao. Como eu faco para construir usar os dados de um dbf para o CAPTION de um botao ?

[sygecom]

Posta a sua DIALOG que agente tenta mostrar em cima dela....

[marcos.gurupi]

Aqui o dialogo:

Código: Selecionar todos

Static Function Grupo01(vGrupo)

Local oDlgGrupo

INIT DIALOG oDlgGrupo TITLE "AtendimentoNet 1.0 - "+vGrupo AT 0,0 SIZE 250,300 ON INIT {||AlimentaBotao()} FONT HFont():Add( 'Arial',0,-13,400,,,) CLIPPER  NOEXIT  STYLE WS_POPUP+WS_SYSMENU //+WS_VSCROLL
 //STYLE WS_POPUP+WS_CAPTION+WS_SYSMENU+WS_SIZEBOX+DS_SYSMODAL 
    Thisform := oDlg                                                                                                          

   @ 7,5 SAY oLabel1 CAPTION "Mesa:"  SIZE 37,19 FONT HFont():Add( 'Arial',0,-12,400,,,)
   @ 78,5 SAY oLabel3 CAPTION "Garcom:"  SIZE 56,19 FONT HFont():Add( 'Arial',0,-12,400,,,)

   @ 44,5 SAY oLabel2 CAPTION Transform(vNoMesa,"999") SIZE 28,19 FONT HFont():Add( 'Arial',0,-12,400,,,)
   @ 131,5 SAY oGarcom CAPTION NomeGarcom  SIZE 165,19 FONT HFont():Add( 'Arial',0,-12,400,,,)

   @   5, 30 BUTTON oGrupo CAPTION ""   SIZE 75,25 STYLE WS_TABSTOP  FONT HFont():Add( 'Arial',0,-11,400,,,)
   @  85, 30 BUTTON oGrupo CAPTION ""   SIZE 75,25 STYLE WS_TABSTOP FONT HFont():Add( 'Arial',0,-11,400,,,)
   @ 165, 30 BUTTON oGrupo CAPTION ""   SIZE 75,25 STYLE WS_TABSTOP FONT HFont():Add( 'Arial',0,-11,400,,,)
   
   @   5, 60 BUTTON oGrupo CAPTION ""   SIZE 75,25 STYLE WS_TABSTOP FONT HFont():Add( 'Arial',0,-11,400,,,)
   @  85, 60 BUTTON oGrupo CAPTION ""   SIZE 75,25 STYLE WS_TABSTOP FONT HFont():Add( 'Arial',0,-11,400,,,)
   @ 165, 60 BUTTON oGrupo06 CAPTION ""   SIZE 75,25 STYLE WS_TABSTOP FONT HFont():Add( 'Arial',0,-11,400,,,)
   
   @   5, 90 BUTTON oGrupo07 CAPTION ""   SIZE 75,25 STYLE WS_TABSTOP FONT HFont():Add( 'Arial',0,-11,400,,,)
   @  85, 90 BUTTON oGrupo08 CAPTION ""   SIZE 75,25 STYLE WS_TABSTOP FONT HFont():Add( 'Arial',0,-11,400,,,)
   @ 165, 90 BUTTON oGrupo09 CAPTION ""   SIZE 75,25 STYLE WS_TABSTOP FONT HFont():Add( 'Arial',0,-11,400,,,)
   
   @   5,120 BUTTON oGrupo10 CAPTION ""   SIZE 75,25 STYLE WS_TABSTOP FONT HFont():Add( 'Arial',0,-11,400,,,)
   @  85,120 BUTTON oGrupo11 CAPTION ""   SIZE 75,25 STYLE WS_TABSTOP FONT HFont():Add( 'Arial',0,-11,400,,,)
   @ 165,120 BUTTON oGrupo12 CAPTION ""   SIZE 75,25 STYLE WS_TABSTOP FONT HFont():Add( 'Arial',0,-11,400,,,)
   
   @   5,150 BUTTON oGrupo13 CAPTION ""   SIZE 75,25 STYLE WS_TABSTOP FONT HFont():Add( 'Arial',0,-11,400,,,)
   @  85,150 BUTTON oGrupo14 CAPTION ""   SIZE 75,25 STYLE WS_TABSTOP FONT HFont():Add( 'Arial',0,-11,400,,,)
   @ 165,150 BUTTON oGrupo15 CAPTION ""   SIZE 75,25 STYLE WS_TABSTOP FONT HFont():Add( 'Arial',0,-11,400,,,)
   
	@   5,180 BUTTON oGrupo16 CAPTION ""   SIZE 75,25 STYLE WS_TABSTOP FONT HFont():Add( 'Arial',0,-11,400,,,)
   @  86,180 BUTTON oGrupo17 CAPTION ""   SIZE 75,25 STYLE WS_TABSTOP FONT HFont():Add( 'Arial',0,-11,400,,,)
   @ 165,180 BUTTON oGrupo18 CAPTION ""   SIZE 75,25 STYLE WS_TABSTOP FONT HFont():Add( 'Arial',0,-11,400,,,)
	   
	@   5,210 BUTTON oGrupo19 CAPTION ""   SIZE 75,25 STYLE WS_TABSTOP FONT HFont():Add( 'Arial',0,-11,400,,,)
   @  86,210 BUTTON oGrupo20 CAPTION ""   SIZE 75,25 STYLE WS_TABSTOP FONT HFont():Add( 'Arial',0,-11,400,,,)
   @ 165,210 BUTTON oGrupo21 CAPTION ""   SIZE 75,25 STYLE WS_TABSTOP FONT HFont():Add( 'Arial',0,-11,400,,,)

   @   5,240 BUTTON oGrupo22 CAPTION ""   SIZE 75,25 STYLE WS_TABSTOP FONT HFont():Add( 'Arial',0,-11,400,,,)
   @  85,240 BUTTON oGrupo23 CAPTION ""   SIZE 75,25 STYLE WS_TABSTOP FONT HFont():Add( 'Arial',0,-11,400,,,)
   @ 165,240 BUTTON oGrupo24 CAPTION ""   SIZE 75,25 STYLE WS_TABSTOP FONT HFont():Add( 'Arial',0,-11,400,,,)

   @   5,270 BUTTON oGrupo25 CAPTION ""   SIZE 75,25 STYLE WS_TABSTOP FONT HFont():Add( 'Arial',0,-11,400,,,)
   @  85,270 BUTTON oGrupo26 CAPTION ""   SIZE 75,25 STYLE WS_TABSTOP FONT HFont():Add( 'Arial',0,-11,400,,,)
	@ 165,270 BUTTON oVoltar  CAPTION "Voltar..." ON CLICK {||EndDialog()}  SIZE 75,25 STYLE WS_TABSTOP FONT HFont():Add( 'Arial',0,-11,400,,,)


   ACTIVATE DIALOG oDlgGrupo 

RETURN oDlgGrupo:lresult

Aqui a funcao:

Código: Selecionar todos

Static Function AlimentaBotao()

Local Areant:=Select()
Select 8
OrdSetFocus(2)
i:=1
Do While !Eof()
   cgrupo := oGrupo+strzero(i,2)  //Aqui estah apresentando um erro
   &cGrupo:caption:= Alltrim(Grupo->Descricao)
   cGrupo:Refresh()
   DbSkip()
   i++
Enddo
Select(Areant)
Return .T.

[marcos.gurupi]

Com 99% da ajuda do Basso segue abaixo de como ficou 100%

Código: Selecionar todos

Static Function AlimentaBotao()

Local Areant:=Select()
Select 8
OrdSetFocus(2)
DBGOTOP()
i:=1
Do While !Eof()
   cgrupo :="oGrupo"+strzero(i,2)
   &cGrupo:caption:= Alltrim(Grupo->Descricao)
   &cGrupo:Refresh()
   DbSkip()
   i++
Enddo
Select(Areant)
Return .T.