TOTVSTEC

Árvore de páginas

Cria um objeto do tipo grade de períodos.

Hierarquia

Construtores

Propriedades

Métodos

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

Exemplo 1
  #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

Abrangência

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

  • Sem rótulos