Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/327912/newLayout.css

...

Pagetitle

...

Classe TBtnBmp

Classe

...

TBtnBmp

...

Componente do tipo botão.

Hierarquia

...

...

    • TBtnBmp

Construtores

Inclusão de trecho
Classe TBtnBmp - Construtores
Classe TBtnBmp - Construtores
nopaneltrue

Propriedades

Inclusão de trecho
Classe TBtnBmp - Propriedades
Classe TBtnBmp - Propriedades
nopaneltrue

Métodos

Inclusão de trecho
Classe TBtnBmp - Métodos
Classe TBtnBmp - Métodos
nopaneltrue

Exemplos

    oObjeto()
  • Retorna o objeto criado
oTBtnBmp := TBtnBmp() :NewBar('RPMNEW',,,,'',;            {||Alert('TBtnBmp 01')},.F.,oTBar,.T.,{||.T.},,.F.,,,1,,,,,.T. )

LoadBitmaps

Define uma imagem para o botão.

TBtnBmp(): LoadBitmaps ( [ cResName1] ) -->

oTBtnBmp:LoadBitmaps("A1.PNG")

SetPopupMenu

Define o objeto do tipo TMenu referente ao botão.

TBtnBmp(): SetPopupMenu ( < oMenu> ) -->

#include "TOTVS.CH"
User Function TBtnBmp()

  DEFINE DIALOG oDlg TITLE "Exemplo TBtnBmp
:SetPopupMenu
" FROM 180, 180 TO 550,
700 PIXEL
 
// Cria Menu oMenu := TMenu():New(0,0,0,0,.T.) // Adiciona itens no Menu oTMenuItem1 := TMenuItem():New(oDlg,"TMenuItem 01",,,,{||Alert("TMenuItem 01")}; ,,,,,,,,,.T.) oTMenuItem2 := TMenuItem():New(oDlg,"TMenuItem 02",,,,{||Alert("TMenuItem 02")}; ,,,,,,,,,.T.) oTMenuItem3 := TMenuItem():New(oDlg,"TMenuItem 03",,,,{||Alert("TMenuItem 03")}; ,,,,,,,,,.T.) oMenu:Add(oTMenuItem1) oMenu:Add(oTMenuItem2) oMenu:Add(oTMenuItem3) // Cria botão que sera usado no Menu oTBtnBmp1 := TBtnBmp() :NewBar('RPMNEW',,,,'',; {||Alert('TBtnBmp 01')},.F.,,.T.,{||.T.},,.F.,,,1,,,,,.T. ) // Define botão no Menu oTBtnBmp1:SetPopupMenu(oMenu) ACTIVATE DIALOG oDlg CENTERED Return
Exemplo do método SetPopupMenu
Image Removed
Bloco de código
languagecpp
themeEclipse
linenumberstrue
collapsefalse
#include "totvs.ch"

NewBar

Método construtor da classe.

TBtnBmp(): NewBar ( [ cResName1], [ uParam2], [ uParam3], [ uParam4], [ cMsg], [ bAction], [ uParam7], [ oWnd], [ uParam9], [ bWhen], [ cToolTip], [ uParam12], [ uParam13], [ uParam14], [ uParam15], [ cPrompt], [ oFont], [ uParam18], [ uParam19], [ uParam20] ) --> oObjeto

NomeTipoDescriçãoObrigatórioReferência
cResName1CaracterIndica o nome do recurso que contém a imagem. Este recurso deve estar compilado,no repositório de imagens, para ser utilizado.uParam2CaracterCompatibilidade.uParam3CaracterCompatibilidade.uParam4CaracterCompatibilidade.cMsgCaracterIndica a mensagem, do tipo dica de contexto (tooltip/hint), ao posicionar o ponteiro do mouse sobre o botão.bActionBloco de códigoIndica o bloco de código que será executado quando clicar, com o botão esquerdo do mouse, sobre o botão.uParam7LógicoCompatibilidade.oWndObjetoIndica a janela ou controle visual onde o botão será criado.uParam9LógicoCompatibilidade.bWhenBloco de códigoIndica o bloco de código que será executado quando a mudança de foco da entrada de dados, na janela em que o controle foi criado, estiver sendo efetuada. Observação: O bloco de código retornará verdadeiro (.T.) se o controle permanecer habilitado; caso contrário, retornará falso (.F.).cToolTipCaracterIndica a mensagem que será apresentada quando o objeto exibir sua dica de contexto (tooltip).uParam12LógicoCompatibilidade.uParam13Bloco de códigoCompatibilidade.uParam14CaracterCompatibilidade.uParam15NuméricoCompatibilidade.cPromptCaracterIndica o texto (Caption) do botão.oFontObjetoIndica o objeto do tipo TFont utilizado para definir as características da fonte aplicada na exibição do conteúdo do controle visual.uParam18CaracterCompatibilidade.uParam19CaracterCompatibilidade.uParam20LógicoCompatibilidade.
NomeTipoDescriçãoObrigatórioReferência
cResName1CaracterIndica o nome do recurso que contém a imagem. Este recurso deve estar compilado,no repositório de imagens, para ser utilizado.
NomeTipoDescriçãoObrigatórioReferência
oMenuObjetoIndica o objeto do tipo TMenu que será apresentado quando clicar, com o botão esquerdo do mouse, sobre o objeto. X
PropriedadeDescriçãoTipo
bActionIndica o bloco de código que será executado quando clicar, com o botão esquerdo do mouse, sobre o botão.Bloco de código
#include "TOTVS.CH"User Function TBtnBmp() DEFINE DIALOG oDlg TITLE "Exemplo TBtnBmp" FROM 180,180 TO 550,700 PIXEL
700 PIXEL

    // Cria barra de botões
    oTBar := TBar():New( oDlg, 25, 32, .T.,,,, .F. )

    
// Cria botões
    oTBtnBmp1 := TBtnBmp()
:NewBar( 'RPMNEW',,,, '',
; {||Alert(
 { || Alert( 'TBtnBmp 01' ) }, .F., oTBar, .T., { || .T. },, .F.,,, 1,,,,, .T. )
    oTBtnBmp2 := TBtnBmp()
:NewBar( 'copyuser',,,, '',
; {||Alert(
 { || Alert( 'TBtnBmp 02' ) }, .F., oTBar, .T., { || .T. },, .F.,,, 1,,,,, .T. )


  ACTIVATE DIALOG oDlg CENTERED


Return
Exemplo da classe TBtnBmp
Image Removed

Resultado do Exemplo

Image Added

Abrangência

Microsiga Protheus 8.11, Microsiga Protheus 11, Protheus 10, TOTVS Application Server 10, ByYou Application Server