TOTVSTEC

Árvore de páginas

Versões comparadas

Versão antiga 3

changes.mady.by.user Adriana Panseri Santos

Gravado em

comparado com

Nova versão 4

changes.mady.by.user Usuário desconhecido (thiago.masaki)

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Portuguese

Pagetitle
MsCalend
MsCalend

Classe: MsCalend

Cria um objeto do tipo calendário.

Hierarquia

TSrvObject -> TControl -> MsCalend


Construtores
New

New

Método construtor da classe.


Sintaxe

MsCalend(): New ( [ nRow], [ nCol], [ oWnd], [ lCanMultSel] ) --> oObjeto


Parâmetros

 

NomeTipoDescriçãoObrigatórioReferência
nRowNuméricoIndica a coordenada vertical.  
nColNuméricoIndica a coordenada horizontal.  
oWndObjetoIndica a janela ou controle visual onde o objeto será criado.  
lCanMultSelLógicoIndica se habilita (.T.)/desabilita (.F.) a seleção de múltiplos dias.  

 

Retorno
oObjeto
    (objeto)
  • Retorna o objeto criado.

Exemplos
oMsCalend := MsCalend():New(01,01,oDlg,.T.)

Métodos
AddRestri

AddRestri

Adiciona uma data com restrição no calendário.


Sintaxe

MsCalend(): AddRestri ( < nDia>, < nCorFonte>, [ nCorBorda] ) -->


Parâmetros

 

NomeTipoDescriçãoObrigatórioReferência
nDiaNuméricoIndica a data que será restringida.X 
nCorFonteNuméricoIndica a cor da fonte.X 
nCorBordaNuméricoIndica a cor da borda.  

 


Exemplos
oMsCalend:AddRestri(10, CLR_GREEN, CLR_HRED)

Preview
Exemplo do método AddRestri
ColorDay

ColorDay

Define a cor das colunas.


Sintaxe

MsCalend(): ColorDay ( ) -->


Exemplos
oMsCalend:ColorDay( 1, CLR_HRED )oMsCalend:ColorDay( 3, CLR_GREEN )

Preview
Exemplo do método ColorDay
CtrlRefresh

CtrlRefresh

Atualiza as informações do calendário.


Sintaxe

MsCalend(): CtrlRefresh ( ) -->


Exemplos
oMsCalend:CtrlRefresh()
DelAllRestri

DelAllRestri

Exclui todas as restrições do calendário.


Sintaxe

MsCalend(): DelAllRestri ( ) -->


Exemplos
oMsCalend:DelAllRestri()
DelRestri

DelRestri

Exclui a restrição de uma determinada data.


Sintaxe

MsCalend(): DelRestri ( [ nDia] ) -->


Parâmetros

 

NomeTipoDescriçãoObrigatórioReferência
nDiaNuméricoIndica a data para excluir a restrição.  

 


Observações

 

 


Exemplos
oMsCalend:DelRestri(10)

Propriedade

 

PropriedadeDescriçãoTipo
bChangeIndica o bloco de código que será executado quando o estado ou conteúdo do objeto for modificado pela ação sobre o controle visual.Bloco de código
bChangeMesIndica o bloco de código que será executado ao selecionar um novo mês.Bloco de código
dDiaAtuIndica ou retorna o dia selecionado.Data
lCanMultSelIndica se habilita (.T.)/desabilita (.F.) a seleção de múltiplos dias.Lógico

 


Exemplos
#include "TOTVS.CH"
User Function MsCalend()  
DEFINE DIALOG oDlg TITLE "Exemplo MsCalend" FROM 180,180 TO 550,700 PIXEL      
// Cria objeto    
oMsCalend := MsCalend():New(01,01,oDlg,.T.)    
// Define o dia a ser exibido no calendário    
oMsCalend:dDiaAtu := ctod( "01/01/2008" )    
// Code-Block para mudança de Dia    
oMsCalend:bChange := {|| Alert('Dia Selecionado: ' + dtoc(oMsCalend:dDiaAtu)) }        
// Code-Block para mudança de mes    
oMsCalend:bChangeMes := {|| alert('Mes alterado') }               	  
ACTIVATE DIALOG oDlg CENTERED 
Return

Preview
Exemplo da classe MsCalend

Abrangência
Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server