Cria um objeto do tipo botão vinculado a um objeto OLE (Object Linking and Embedding).
|
|
#INCLUDE "TOTVS.CH" MAIN FUNCTION testOleContainer() DEFINE DIALOG oDlg TITLE "Exemplo TOleContainer" FROM 180,180 TO 550,700 PIXEL oTOleContainer := TOleContainer():New(01, 01, 260, 184, oDlg, .T., 'C:\Dir\Totvs.doc') ACTIVATE DIALOG oDlg CENTERED RETURN |