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