Colega semanas atrás perguntou se tinhas como pintar uma célula de um calendário
No delphi pois preciso criar um calendário com os dias que os professores dão aula.
Por exemplo Professor Paulo tem aula de Matemática na segunda então em todas as
Segunda do calendário a célula dos dias de segunda ficam verdes, com o calendário do delphi ou outros componentes similares não deu certo então resolve usar o StringGrid é fiz assim:
{Janeiro por exemplo}
StringGrid1.Cells[0,0]:= 'D';
StringGrid1.Cells[1,0]:= 'S';
StringGrid1.Cells[2,0]:= 'T';
StringGrid1.Cells[3,0]:= 'Q';
StringGrid1.Cells[4,0]:= 'Q';
StringGrid1.Cells[5,0]:= 'S';
StringGrid1.Cells[6,0]:= 'S';
StringGrid1.Cells[0,1]:= '';
StringGrid1.Cells[0,2]:= '7';
StringGrid1.Cells[0,3]:= '14';
StringGrid1.Cells[0,4]:= '21';
StringGrid1.Cells[0,5]:= '28';
StringGrid1.Cells[1,1]:= '1';
StringGrid1.Cells[1,2]:= '8';
StringGrid1.Cells[1,3]:= '15';
StringGrid1.Cells[1,4]:= '22';
StringGrid1.Cells[1,5]:= '29';
StringGrid1.Cells[2,1]:= '2';
StringGrid1.Cells[2,2]:= '9';
StringGrid1.Cells[2,3]:= '16';
StringGrid1.Cells[2,4]:= '23';
StringGrid1.Cells[2,5]:= '30';
StringGrid1.Cells[3,1]:= '3';
StringGrid1.Cells[3,2]:= '10';
StringGrid1.Cells[3,3]:= '17';
StringGrid1.Cells[3,4]:= '24';
StringGrid1.Cells[3,5]:= '31';
StringGrid1.Cells[4,1]:= '4';
StringGrid1.Cells[4,2]:= '11';
StringGrid1.Cells[4,3]:= '18';
StringGrid1.Cells[4,4]:= '25';
StringGrid1.Cells[4,5]:= '';
StringGrid1.Cells[5,1]:= '5';
StringGrid1.Cells[5,2]:= '12';
StringGrid1.Cells[5,3]:= '19';
StringGrid1.Cells[5,4]:= '26';
StringGrid1.Cells[5,5]:= '';
StringGrid1.Cells[6,1]:= '6';
StringGrid1.Cells[6,2]:= '13';
StringGrid1.Cells[6,3]:= '20';
StringGrid1.Cells[6,4]:= '27';
StringGrid1.Cells[6,5]:= '';
{Fim}
Com um StringGrid faço um MonthCalendar é no evento DrawCell do StringGrid
Pinto as células que preciso só que ficou muito manual tenho 12 StringGrid no form
É tenho que colocar o valor é as cores de cada célula é mudar todo ano
Têm como atribuir os valores e pintar as células de cada StringGrid dinamicamente
Pergunta
Marcos Santana
Colega semanas atrás perguntou se tinhas como pintar uma célula de um calendário
No delphi pois preciso criar um calendário com os dias que os professores dão aula.
Por exemplo Professor Paulo tem aula de Matemática na segunda então em todas as
Segunda do calendário a célula dos dias de segunda ficam verdes, com o calendário do delphi ou outros componentes similares não deu certo então resolve usar o StringGrid é fiz assim:
{Janeiro por exemplo}
StringGrid1.Cells[0,0]:= 'D';
StringGrid1.Cells[1,0]:= 'S';
StringGrid1.Cells[2,0]:= 'T';
StringGrid1.Cells[3,0]:= 'Q';
StringGrid1.Cells[4,0]:= 'Q';
StringGrid1.Cells[5,0]:= 'S';
StringGrid1.Cells[6,0]:= 'S';
StringGrid1.Cells[0,1]:= '';
StringGrid1.Cells[0,2]:= '7';
StringGrid1.Cells[0,3]:= '14';
StringGrid1.Cells[0,4]:= '21';
StringGrid1.Cells[0,5]:= '28';
StringGrid1.Cells[1,1]:= '1';
StringGrid1.Cells[1,2]:= '8';
StringGrid1.Cells[1,3]:= '15';
StringGrid1.Cells[1,4]:= '22';
StringGrid1.Cells[1,5]:= '29';
StringGrid1.Cells[2,1]:= '2';
StringGrid1.Cells[2,2]:= '9';
StringGrid1.Cells[2,3]:= '16';
StringGrid1.Cells[2,4]:= '23';
StringGrid1.Cells[2,5]:= '30';
StringGrid1.Cells[3,1]:= '3';
StringGrid1.Cells[3,2]:= '10';
StringGrid1.Cells[3,3]:= '17';
StringGrid1.Cells[3,4]:= '24';
StringGrid1.Cells[3,5]:= '31';
StringGrid1.Cells[4,1]:= '4';
StringGrid1.Cells[4,2]:= '11';
StringGrid1.Cells[4,3]:= '18';
StringGrid1.Cells[4,4]:= '25';
StringGrid1.Cells[4,5]:= '';
StringGrid1.Cells[5,1]:= '5';
StringGrid1.Cells[5,2]:= '12';
StringGrid1.Cells[5,3]:= '19';
StringGrid1.Cells[5,4]:= '26';
StringGrid1.Cells[5,5]:= '';
StringGrid1.Cells[6,1]:= '6';
StringGrid1.Cells[6,2]:= '13';
StringGrid1.Cells[6,3]:= '20';
StringGrid1.Cells[6,4]:= '27';
StringGrid1.Cells[6,5]:= '';
{Fim}
Com um StringGrid faço um MonthCalendar é no evento DrawCell do StringGrid
Pinto as células que preciso só que ficou muito manual tenho 12 StringGrid no form
É tenho que colocar o valor é as cores de cada célula é mudar todo ano
Têm como atribuir os valores e pintar as células de cada StringGrid dinamicamente
Ou melhorar esse minha idéia.
Link para o comentário
Compartilhar em outros sites
10 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.