Classe: TOleContainer
Cria um objeto do tipo botão vinculado a um objeto OLE (Object Linking and Embedding).
Atenção!
Este componente não é suportado pelo TOTVS | SmartClient HTML.
TSrvObject -> TControl -> TOleContainer
New
Método construtor da classe.
TOleContainer(): New ( [ nRow], [ nCol], [ nWidth], [ nHeight], [ oWnd], [ lAutoActivate], [ cFileName] ) --> oObjeto
Nome | Tipo | Descrição | Obrigatório | Referência |
nRow | Numérico | Indica a coordenada vertical em pixels ou caracteres. | ||
nCol | Numérico | Indica a coordenada horizontal em pixels ou caracteres. | ||
nWidth | Numérico | Indica a largura em pixels do objeto. | ||
nHeight | Numérico | Indica a altura em pixels do objeto. | ||
oWnd | Objeto | Indica a janela ou controle visual onde o objeto será criado. | ||
lAutoActivate | Lógico | Compatibilidade. | ||
cFileName | Caracter | Indica o diretório do arquivo OLE que será aberto. |
oObjeto
- (objeto)
- Retorna o objeto criado.
oTOleContainer := TOleContainer():New( 01,01,260,184,oDlg,.T.,; 'C:\Dir\Totvs.doc' )
DoVerbDefault
Chama o método padrão do objeto OLE (Object Linking and Embedding) utilizado.
TOleContainer(): DoVerbDefault ( ) -->
oTOleContainer:DoVerbDefault()
OpenFromFile
Abre arquivo do tipo OLE (Object Linking and Embedding).
TOleContainer(): OpenFromFile ( [ cFileName], [ lAsIcon], [ llowInPlace] ) -->
Nome | Tipo | Descrição | Obrigatório | Referência |
cFileName | Caracter | Indica o caminho para o arquivo OLE que será aberto. | ||
lAsIcon | Lógico | Indica se o objeto OLE será ícone. | ||
llowInPlace | Lógico | Indica se a abertura do arquivo será local ou não. |
oTOleContainer:OpenFromFile('C:\Dir\Totvs.doc',.F.)
- Este componente somente funciona, no Smart Client, com o sistema operacional Microsoft Windows.
- Este componente necessita registrar um arquivo de biblioteca (DLL) que serve de “ponte” entre o Protheus e o aplicativo (Exemplo: WinWord). O Windows Group Policy não permite o registro de qualquer DLL sem acesso de Administrador, por motivos de segurança, e não há uma maneira sistêmica de contornar isso (em versões a partir do Windows Vista). A recomendação é que o usuário que necessite desta ferramenta receba acesso de administrador para sua utilização.
Exemplo
#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
Exemplo da classe TOleContainer
Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas