Árvore de páginas

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

Versão 1 Próxima »

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


 

NomeTipoDescriçãoObrigatórioReferência
nRowNuméricoIndica a coordenada vertical em pixels ou caracteres.  
nColNuméricoIndica a coordenada horizontal em pixels ou caracteres.  
nWidthNuméricoIndica a largura em pixels do objeto.  
nHeightNuméricoIndica a altura em pixels do objeto.  
oWndObjetoIndica a janela ou controle visual onde o objeto será criado.  
lAutoActivateLógicoCompatibilidade.  
cFileNameCaracterIndica 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] ) -->


 

NomeTipoDescriçãoObrigatórioReferência
cFileNameCaracterIndica o caminho para o arquivo OLE que será aberto.  
lAsIconLógicoIndica se o objeto OLE será ícone.  
llowInPlaceLógicoIndica 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

 

  • Sem rótulos