Classe: MsCalendGrid
Cria um objeto do tipo grade de períodos.
Cria um objeto do tipo grade de períodos.
TSrvObject -> TControl -> MsCalendGrid
Propriedade | Descrição | Tipo |
cTopMsg | Indica o texto a ser exibido na lateral esquerda superior.Disponível a partir de build superior à 7.00.111010P | Caracter |
nLineAtu | Indica a linha que será selecionada. | Numérico |
nZoom | Indica 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
![](https://tdn.totvs.com/download/attachments/6063196/Mon+May+21+15%3A38%3A04+BRT+2012temp?version=2&modificationDate=1337625484346)
Microsiga Protheus 8.11
,
Protheus 10
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas