import.css=/download/attachments/6062824/tecnologia.css |
Cria um objeto do tipo grade de períodos.
#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
|
Microsiga Protheus 8.11, Microsiga Protheus 11, Protheus 10, TOTVS Application Server 10, TOTVS Application Server 11