Árvore de páginas

Versões comparadas

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.

TSrvObject -> TControl -> MsCalend


New

Método construtor da classe.


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


 

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.  

 

oObjeto
    (objeto)
  • Retorna o objeto criado.

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

AddRestri

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


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


 

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.  

 


oMsCalend:AddRestri(10, CLR_GREEN, CLR_HRED)

Exemplo do método AddRestri

ColorDay

Define a cor das colunas.


MsCalend(): ColorDay ( ) -->


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

Exemplo do método ColorDay

CtrlRefresh

Atualiza as informações do calendário.


MsCalend(): CtrlRefresh ( ) -->


oMsCalend:CtrlRefresh()

DelAllRestri

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


MsCalend(): DelAllRestri ( ) -->


oMsCalend:DelAllRestri()

DelRestri

Exclui a restrição de uma determinada data.


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


 

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

 


 

 


oMsCalend:DelRestri(10)

 

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

 


#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

Exemplo da classe MsCalend

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