× Linguagem de Programação ADVPL

Perguntas MsCalend não atualiza após remoção das restrições

Mais
10 anos 4 meses atrás - 10 anos 3 meses atrás #23973 por armando.lima
Olá amigos,

Estou usando a classe MsCalend, mas não consigo remover as restrições inseridas, como forma de "resetar" o calendário para novas restrições. Segue um exemplo básico abaixo, mesmo usando o método DelAllRestri(), as restrições permanecem ativas.

User Function MsCalend()

	DEFINE DIALOG oDlg TITLE "Exemplo MsCalend" FROM 180,180 TO 550,700 PIXEL
		
		//Cria o objeto
		oMsCalend := MsCalend():New(01,01,oDlg,.T.)
		
		//Define o dia a ser exibido no calendário  
		oMsCalend:dDiaAtu := Date()
		
		//Adiciona as restrições para destacar os dias 22 e 23
		oMsCalend:AddRestri(22, CLR_GREEN, CLR_HRED)
		oMsCalend:AddRestri(23, CLR_GREEN, CLR_HRED)
		
		//Deleta todas as restrições
		oMsCalend:DelAllRestri()
		
		//Atualiza o calendário
		oMsCalend:CtrlRefresh()
		
	ACTIVATE DIALOG oDlg CENTERED
	
Return

Como posso remover essas restrições?
Alguém já trabalhou com o MsCalend dessa forma?

Desde já agradeço!
Ultima edição: 10 anos 3 meses atrás por armando.lima. Razão: Ajustar uns deetalhes

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 3 meses atrás #23993 por armando.lima

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 3 meses atrás #24022 por armando.lima
Olá galera,

No meu caso, as restrições não são removidas com o DelAllRestri() e nem com o DelRestri(nDia). Tanto a borda quanto a fonte continuam nas mesmas cores após esses dois métodos.

Mas encontrei uma "alternativa corretiva" de setar a borda para branco e a fonte para preto, mas não é a solução ideal. O foco do clique fica diferente para esses dias com borda branca quando comparado aos dias que não tiveram restrições.

Se mais ninguém do fórum tiver uma luz para esse problema, vou ter que fazer um laço para adicionar uma restrição em todos os dias do calendário com borda branca e fonte preta, assim como era pra ser o trabalho do DelAllRestri(). Vou perder o foco amarelo com borda preta (porque todas as bordas serão brancas), mas pelo menos resolve visualmente.

Att,
Armando Lima.

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.077 segundos
Joomla templates by a4joomla