Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
TBtnBmp
TBtnBmp

Classe: TBtnBmp

Cria um objeto do tipo botão.


TSrvObject -> TControl -> TBtnBmp


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.
    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] ) -->


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.

oTBtnBmp:LoadBitmaps("A1.PNG")

SetPopupMenu

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


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


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

#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

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                                                    // Cria barra de botões    oTBar := TBar():New( oDlg,25,32,.T.,,,,.F. )                               // Cria botões    oTBtnBmp1 := TBtnBmp() :NewBar('RPMNEW',,,,'',;                 {||Alert('TBtnBmp 01')},.F.,oTBar,.T.,{||.T.},,.F.,,,1,,,,,.T. )    oTBtnBmp2 := TBtnBmp() :NewBar('copyuser',,,,'',;                 {||Alert('TBtnBmp 02')},.F.,oTBar,.T.,{||.T.},,.F.,,,1,,,,,.T. )	  ACTIVATE DIALOG oDlg CENTERED Return

Exemplo da classe TBtnBmp

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