En el Microsiga Protheus existe una serie de comandos creados para facilitar las construcciones y el acceso a clases. Partes de estos comandos se realizaron para clases de interfaz de usuario, como por ejemplo:
- TSay
- TGet
- MSDialog
Siempre que sea posible, prefiera la utilización del comando, en lugar de la utilización de constructores o acceso a métodos, por ejemplo para la clase TSay:
// CommandVsConstructor.prw
#INCLUDE "TOTVS.CH"
Function CommandVsConstructor()
Local oDlg := Nil
Local oSay := Nil
Define Dialog oDlg Title "Command Vs Constructor" From 0,0 To 300,300 Pixel
// Versão utilizando o construtor
oSay:= TSay():New( 05, 05, {||"Texto para exhibición"}, oDlg, , , , ,;
,.T., CLR_RED, CLR_WHITE, 200, 20)
// Versión que utiliza el comando
@15,05 Say oSay Prompt "Texto para exhibición" Of oDlg Pixel Colors CLR_RED,CLR_WHITE Size 200,20
Activate Dialog oDlg Centered
Return
Import HTML Content
Visão Geral
Conteúdo das Ferramentas