Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
portuguese
Composition Setup
import.css=/download/attachments/3279126062824/newLayouttecnologia.css

Pagetitle

...

...

Classe MsCalendGrid
Classe

...

MsCalendGrid

Cria

...

um

...

objeto

...

do

...

tipo

...

grade

...

de

...

períodos.

Hierarquia

...

...

    • MsCalendGrid

Construtores

Inclusão de trecho
Classe MsCalendGrid - Construtores
Classe MsCalendGrid - Construtores
nopaneltrue

Propriedades

Inclusão de trecho
Classe MsCalendGrid - Propriedades
Classe MsCalendGrid - Propriedades
nopaneltrue

Métodos

Inclusão de trecho
Classe MsCalendGrid - Métodos
Classe MsCalendGrid - Métodos
nopaneltrue

Observações

  • A tecla de atalho "Ctrl +" expande e "Ctrl -" condensa o espaçamento entre os valores da grade do calendário a exemplo do que faz a propriedade MsCalendGrid:nZoom.

Exemplos

    oObjeto()
  • Retorna o objeto criado.

 

 

oMsCalendGrid := MsCalendGrid():New( oDlg, 01, 01, 260,184,;                 date(), nResolution, ,{|x,y| Alert(x) },;                 RGB(255,255,196), {|x,y|Alert(x,y)}, .T. )
Add

Add

<p>Adiciona um período na grade.</p>

MsCalendGrid(): Add ( [ cCaption], [ nLin], [ nInicial], [ nFinal], [ nColor], [ cDescri] ) -->

 
oMsCalendGrid:Add('caption 01', 1, 10, 20, RGB(255,000,0), 'Descricao 01')

ChangeColor

<p>Redefine a cor de um determinado intervalo.</p>

MsCalendGrid(): ChangeColor ( < nLinha>, < nIntervalo>, < nCor> ) -->

 

 

 

oMsCalendGrid:ChangeColor( 1, 10, CLR_YELLOW )
Exemplo do método ChangeColor
Image Removed

Delete

<p>Exclui um intervalo do calendário.</p>

MsCalendGrid(): Delete ( < nLinha>, < nIntervalo> ) -->

 
oMsCalendGrid:Delete( 1, 10 )
Exemplo do método Delete
Image Removed

GetEscala

<p>Retorna um texto informando o intervalo e a quantidade de pixels necessários para exibição do calendário.</p>

MsCalendGrid(): GetEscala ( ) --> cEscala

    cEscala(caracter)
  • Retorna um texto informando o intervalo e a quantidade de pixels necessários para exibição do calendário.
 
oMsCalendGrid:GetEscala() // Result: 1 Intervalo = 3 Pixels

GetIntervalTime

<p>Retorna o texto definido para o intervalo.</p>

MsCalendGrid(): GetIntervalTime ( < nLinha>, < nIntervalo> ) --> cIntervalo

    cIntervalo(caracter)
  • Retorna o texto que contém informações sobre o intervalo.
 
oMsCalendGrid:GetIntervalTime(1,10) //Result: 09/06/08 02:15 - 09/06/08 04:45 - Descricao 01

GoNext

<p>Posiciona o ponteiro do mouse no início, do próximo intervalo, da linha selecionada.</p>

MsCalendGrid(): GoNext ( ) -->

 

 

 

oMsCalendGrid:GoNext()

GoPrev

<p>Posiciona o ponteiro do mouse no início, do intervalo anterior, da linha selecionada.</p>

MsCalendGrid(): GoPrev ( ) -->

 
oMsCalendGrid:GoPrev()

Reset

<p>Limpa todos os intervalos do calendário.</p>

MsCalendGrid(): Reset ( ) -->

 
oMsCalendGrid:Reset()

SetDateIni

<p>Define a data inicial do calendário.</p>

MsCalendGrid(): SetDateIni ( < dDataIni> ) -->

 
oMsCalendGrid:SetDateIni( ctod("01/01/2008") )

SetDefColor

<p>Define a cor de fundo do calendário.</p>

MsCalendGrid(): SetDefColor ( < nCor> ) -->

 
oMsCalendGrid:SetDefColor( CLR_HRED )
Exemplo do método SetDefColor
Image Removed

SetResolution

<p>Define a resolução para exibição dos períodos.</p>

MsCalendGrid(): SetResolution ( < nResolução> ) -->

 
oMsCalendGrid:SetResolution(1)
Exemplo do método SetResolution
Image Removed

SetTimeUnit

Define o tipo de grade, 0 = Horas e 1 = Dias.

MsCalendGrid(): SetTimeUnit ( < nTypeUnit> ) -->

Método disponível em builds superiores a 7.00.101202A.

nTypeUnit := 1 // [0=Horas(Default) e 1=Dias]oMsCalendGrid := MsCalendGrid():New( oDlg,01,01,500,125,,nResolution,,,,,.T. )oMsCalendGrid:SetTimeUnit(nTypeUnit)
Image Removed
Bloco de código
themeEclipse
languagecpp
titleExemplo 1
linenumberstrue
collapsefalse
  #include "TOTVS.CH"
  User Function MsCalendGrid()  
    
New

New

Método construtor da classe.

MsCalendGrid(): New ( [ oWnd], [ nRow], [ nCol], [ nWidth], [ nHeight], [ dDateIni], [ nResolution], [ bWhen], [ bAction], [ nDefColor], [ bRClick], [ lFilAll], [ nTypeUnit ] ) --> oObjeto

NomeTipoDescriçãoObrigatórioReferência
oWndObjetoIndica a janela ou controle visual onde o objeto será criado.nRowNuméricoIndica a coordenada vertical em pixels ou caracteres.nColNuméricoIndica a coordenada horizontal em pixels ou caracteres.nWidthNuméricoIndica a largura em pixels do objeto.nHeightNuméricoIndica a altura em pixels do objeto.dDateIniDataIndica a data inicial do calendário.nResolutionNuméricoIndica a resolução que será aplicada na grade do calendário.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.).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.nDefColorNuméricoIndica a cor de fundo da grade.bRClickBloco de códigoIndica o bloco de código que será executado quando clicar, com o botão direito do mouse, sobre o objeto.lFilAllLógicoIndica se habilita (.T.)/desabilita (.F.) o preenchimento de todo o período.nTypeUnit NuméricoIndica o tipo de grade, 0(Default) = Horas e 1=Dias
NomeTipoDescriçãoObrigatórioReferência
cCaptionCaracterIndica o título que será inserido à esquerda da grade.nLinNuméricoIndica o número da linha que será inserido no item.nInicialNuméricoIndica a data inicial.nFinalNuméricoIndica a data final.nColorNuméricoIndica a cor que será utilizada para destacar o item.cDescriCaracterIndica a mensagem, do tipo dica de contexto (tooltip/hint), que será apresentada ao posicionar o ponteiro do mouse sobre o item.
NomeTipoDescriçãoObrigatórioReferência
nLinhaNuméricoIndica a linha do calendário. X nIntervaloNuméricoIndica o intervalo que será redefinido no calendário. X nCorNuméricoIndica a cor que será utilizada no intervalo. X
NomeTipoDescriçãoObrigatórioReferência
nLinhaNuméricoIndica a linha do calendário. X nIntervaloNuméricoIndica o intervalo que será excluído. X
NomeTipoDescriçãoObrigatórioReferência
nLinhaNuméricoIndica a linha do calendário. X nIntervaloNuméricoIndica o intervalo do calendário. X
NomeTipoDescriçãoObrigatórioReferência
dDataIniDataIndica a data inicial do calendário. X
NomeTipoDescriçãoObrigatórioReferência
nCorNuméricoIndica a cor de fundo do calendário. X
NomeTipoDescriçãoObrigatórioReferência
nResoluçãoNuméricoIndica a resolução que será utilizada para exibição dos períodos. X
NomeTipoDescriçãoObrigatórioReferência
nTypeUnitNuméricoDefine o tipo de grade, 0 = Horas e 1 = Dias X
PropriedadeDescriçãoTipo
cTopMsgIndica o texto a ser exibido na lateral esquerda superior.Disponível a partir de build superior à 7.00.111010PCaracter
nLineAtuIndica a linha que será selecionada.Numérico
nZoomIndica o zoom que será definido.Numérico
 
#include "TOTVS.CH"User Function MsCalendGrid()
DEFINE DIALOG oDlg TITLE "Exemplo MsCalendGrid" FROM 180,180 TO 550,700 PIXEL
     
    // Cria Calendário    
    nResolution := 4    
    oMsCalendGrid := MsCalendGrid():New( oDlg, 01, 01, 260,184,;
                date(), nResolution, ,{|x,y| Alert(x) },;
                RGB(255,255,196), {|x,y|Alert(x,y)}, .T. )                          
    // Adiciona periodos    
    oMsCalendGrid:Add('caption 01', 1, 10, 20, RGB(255,000,0), 'Descricao 01')    
    oMsCalendGrid:Add('caption 02', 2, 20, 30, RGB(255,255,0), 'Descricao 02')    
    oMsCalendGrid:Add('caption 03', 3, 01, 05, RGB(255,0,255), 'Descricao 03')       
    ACTIVATE DIALOG oDlg CENTERED 
  Return

Exemplo da classe MsCalendGrid

...

Image Added

Abrangência

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