PC Toledo

Código: Selecionar todos

#include "hwgui.ch"
STATIC Thisform

FUNCTION Main()
 PRIVATE oPanel1, oPanel2, oGroup1, oButton2, oButtonex1

  INIT DIALOG oDlg TITLE "Titulo" ;
    AT 310,160 SIZE 508,446 ;
        FONT HFont():Add( 'Verdana',0,-13,400,,,) CLIPPER  NOEXIT  ;
     STYLE WS_POPUP+WS_CAPTION+WS_SYSMENU+DS_CENTER 
    Thisform := oDlg

   @ 14,20 PANEL oPanel1 OF oGroup1 SIZE 479,134 ;
        STYLE WS_BORDER  
   @ 17,17 BUTTONEX oButtonex1 CAPTION "Clique" OF oPanel1  SIZE 95,95 ;
        STYLE WS_TABSTOP   ;
        ON CLICK {|| Mostra_Btn() }
   @ 14,173 PANEL oPanel2 OF oGroup1 SIZE 479,223 ;
        STYLE WS_BORDER+WS_VSCROLL

   @ 5,0 GROUPBOX oGroup1 CAPTION "" SIZE 496,408   
   @ 399,415 BUTTON oButton2 CAPTION "&Sair"   SIZE 90,25 ;
        STYLE WS_TABSTOP   ;
        FONT HFont():Add( 'Arial',0,-12,400,,,) ;
        ON CLICK {|| oDlg:CLOSE() }

   ACTIVATE DIALOG oDlg 

RETURN

FUNC Mostra_Btn()
PRIVATE oBtn1, oBtn2, oBtn3, oBtn4, oBtn5, oBtn6, oBtn7, oBtn8, oBtn9
@ 17,17 BUTTONEX oBtn1 CAPTION "Botao 1" OF oPanel2  SIZE 95,95
@ 117,17 BUTTONEX oBtn2 CAPTION "Botao 2" OF oPanel2  SIZE 95,95
@ 217,17 BUTTONEX oBtn3 CAPTION "Botao 3" OF oPanel2  SIZE 95,95
@ 17,117 BUTTONEX oBtn4 CAPTION "Botao 4" OF oPanel2  SIZE 95,95
@ 117,117 BUTTONEX oBtn5 CAPTION "Botao 5" OF oPanel2  SIZE 95,95
@ 217,117 BUTTONEX oBtn6 CAPTION "Botao 6" OF oPanel2  SIZE 95,95
@ 17,217 BUTTONEX oBtn7 CAPTION "Botao 7" OF oPanel2  SIZE 95,95
@ 117,217 BUTTONEX oBtn8 CAPTION "Botao 8" OF oPanel2  SIZE 95,95
@ 217,217 BUTTONEX oBtn9 CAPTION "Botao 9" OF oPanel2  SIZE 95,95
oPanel2:Refresh()
RETURN .T.