import.css=/download/attachments/6062824/tecnologia.css |
Cria a janela principal do programa.
#include "TOTVS.CH" user function exemplo() oWindow:= TWindow():New(10, 10, 200, 200, "Exemplo TWindow", NIL, NIL, NIL, NIL, NIL, NIL, NIL,; CLR_BLACK, CLR_WHITE, NIL, NIL, NIL, NIL, NIL, NIL, .T. ) oWindow:Activate() Return |
Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server