Histórico da Página
...
Portuguese | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Classe: MsCalend
|
Nome | Tipo | Descrição | Obrigatório | Referência |
nRow | Numérico | Indica a coordenada vertical. | ||
nCol | Numérico | Indica a coordenada horizontal. | ||
oWnd | Objeto | Indica a janela ou controle visual onde o objeto será criado. | ||
lCanMultSel | Lógico | Indica 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] ) -->
Nome | Tipo | Descrição | Obrigatório | Referência |
nDia | Numérico | Indica a data que será restringida. | X | |
nCorFonte | Numérico | Indica a cor da fonte. | X | |
nCorBorda | Numérico | Indica a cor da borda. |
oMsCalend:AddRestri(10, CLR_GREEN, CLR_HRED)
Exemplo do método AddRestri
![](https://tdn.totvs.com/download/attachments/6063194/Mon+May+21+15%3A38%3A01+BRT+2012mscalend%2B-%2Baddrestri.jpg?version=1&modificationDate=1337625481222)
![](https://tdn.totvs.com/download/attachments/6063194/Mon+May+21+15%3A38%3A01+BRT+2012mscalend%2B-%2Baddrestri.jpg?version=1&modificationDate=1337625481222)
ColorDay
Define a cor das colunas.
MsCalend(): ColorDay ( ) -->
oMsCalend:ColorDay( 1, CLR_HRED )oMsCalend:ColorDay( 3, CLR_GREEN )
Exemplo do método ColorDay
![](https://tdn.totvs.com/download/attachments/6063194/Mon+May+21+15%3A38%3A01+BRT+2012temp?version=1&modificationDate=1337625481260)
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] ) -->
Nome | Tipo | Descrição | Obrigatório | Referência |
nDia | Numérico | Indica a data para excluir a restrição. |
oMsCalend:DelRestri(10)
Propriedade | Descrição | Tipo |
bChange | Indica 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 |
bChangeMes | Indica o bloco de código que será executado ao selecionar um novo mês. | Bloco de código |
dDiaAtu | Indica ou retorna o dia selecionado. | Data |
lCanMultSel | Indica 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
![](https://tdn.totvs.com/download/attachments/6063194/Mon+May+21+15%3A38%3A01+BRT+2012mscalend.jpg?version=1&modificationDate=1337625481299)
![](https://tdn.totvs.com/download/attachments/6063194/Mon+May+21+15%3A38%3A01+BRT+2012mscalend.jpg?version=1&modificationDate=1337625481299)
Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas