Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/3279126062824/newLayouttecnologia.css |
|
Pagetitle |
---|
...
...
|
...
|
Cria um objeto do tipo grade de períodos.
Hierarquia
...
...
- MsCalendGrid
Construtores
Inclusão de trecho | ||||||
---|---|---|---|---|---|---|
|
Propriedades
Inclusão de trecho | ||||||
---|---|---|---|---|---|---|
|
Métodos
Inclusão de trecho | ||||||
---|---|---|---|---|---|---|
|
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
Bloco de código | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
#include "TOTVS.CH"
User Function MsCalendGrid()
NewMétodo construtor da classe. MsCalendGrid(): New ( [ oWnd], [ nRow], [ nCol], [ nWidth], [ nHeight], [ dDateIni], [ nResolution], [ bWhen], [ bAction], [ nDefColor], [ bRClick], [ lFilAll], [ nTypeUnit ] ) --> oObjeto
oObjeto
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<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 Delete<p>Exclui um intervalo do calendário.</p>MsCalendGrid(): Delete ( < nLinha>, < nIntervalo> ) -->
oMsCalendGrid:Delete( 1, 10 ) Exemplo do método Delete 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
oMsCalendGrid:GetEscala() // Result: 1 Intervalo = 3 Pixels GetIntervalTime<p>Retorna o texto definido para o intervalo.</p>MsCalendGrid(): GetIntervalTime ( < nLinha>, < nIntervalo> ) --> cIntervalo
cIntervalo
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 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 SetTimeUnitDefine 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)
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 Preview
|
Exemplo da classe MsCalendGrid
Abrangência
Microsiga Protheus 8.11, Microsiga Protheus
...
11, Protheus 10, TOTVS Application Server 10, TOTVS Application Server 11