Não sei se vou acostumar com GUI...
É tão bom ver o aplicativo livre...

Moderador: Moderadores
#include '{% HB_GETENV( 'PRGPATH' ) + '/include/hmg.ch' %}'
FUNCTION MAIN()
DEFINE FORM HEADER 'Dialog Demo' FOOTER 'HMG/WEB Power!' WIDGETSIZE WS_SMALL PAGESTYLE PS_DIALOG
DEFINE TEXT 'text_1'
VALUE 'Hello Dialog!'
LABEL 'Text:'
END TEXT
DEFINE TEXTAREA 'textarea_1'
VALUE 'This is a TextArea'
LABEL 'TextArea:'
END TEXTAREA
DEFINE SUBMIT 'submit_1'
VALUE 'Send Form Data To Server'
ACTION 'dialog_b.prg'
END SUBMIT
Define Submit 'submit_0'
Value 'Go To Demos Menu'
Action 'menu.prg'
End Submit
END FORM
RETURN
{% include( AP_GETENV( 'PATH_URL' ) + '/include/func.prg' ) %}
Usuários vendo este fórum: Nenhum usuário registrado online e 4 visitantes