ActiveDelphi

[mikelustosa]

[fernandovr]

[mikelustosa]

Certo.

O porém é que eu preciso disso ai, só que tem que ser de forma dinâmica.

Ou seja, os dias que devem estar em negrito são os dias que o médico atende, gravado no meu BD e não em um parâmetro como você postou!

Mas mesmo assim já está me ajudando muito ! valeu!

UP!

[fernandovr]

Ahh sim, mas ai agora é só vc implementar o código

Ali ja está um exemplo da onde coloca os dias, é só substituir pelos do seu BD.

Ai você q vai ver como é melhor, se através de loops por mês, ou se todo mês será igual, ai depende muito do seu uso mesmo.

Sobre as cores ainda estou procurando se eu achar uma forma melhor eu posto aqui.

Abraços

[mikelustosa]

Blz. Vou fazer a adaptação e depois coloco o resultado!

valeu amigo!

[fernandovr]

[Diegohilario3]

Cara, eu estou no início de um projeto e faço algo mais ou menos que você citou mas no meu caso monto um calendário dentro de um stringgrid a partir de um Tcalendar.Depois trabalho em cima do evento onDrawCell do stringgrid para pintar os dias de forma dinâmica que for necessário.

[johnny-walker]

Se vc quer minha opinião, vc não pode fazer desta forma.

Visto que em um dia vc tem mais de uma consulta e várias especialidades, assim vc não consegue mostrar todas.




Eis aí como resolvi tal, a propósito tudo que vc vê é uma stringgrid que customizei de acordo com minhas necessidades.
Falta customizar os dois calendários do lado que são bem feios.
Não nego que deu muito trabalho e se eu tivesse utilizado algum componente da tms tinha sofrido bem menos.



bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I

[mikelustosa]

Eu faço da seguinte forma:

Primeiro eu testo qual é o dia da semana, após verificado eu preencho um ComboBox com os horários disponível.

Segue parte do código:

if lbl_diaDaSemana.Caption = 'domingo' then
begin
with dataModule1.adoq_horarios do
if (fields.FieldByName('Hi_dom').Value = Null) or (fields.FieldByName('Hf_dom').Value = Null) or (fields.FieldByName('In_dom').Value = Null) or (fields.FieldByName('Hi_dom').Value = '') or (fields.FieldByName('Hf_dom').Value = '') or (fields.FieldByName('In_dom').Value = '') then
begin
application.MessageBox('Não existem horários neste dia','Mensagem',MB_OK + MB_ICONEXCLAMATION );
cbox_horario.Items.Clear;
abort;
end else
begin
vHi := fields.FieldByName('Hi_dom').AsString;
vHf := fields.FieldByName('Hf_dom').AsString;
vIn := '00'+ ':' + fields.FieldByName('In_dom').AsString;

hInicio := strToTime(Copy(vHi,1,5));
hFim := strToTime(Copy(vHf,1,5));
hIntervalo := strToTime(Copy(vIn,1,5));
hHora := hInicio;
cbox_horario.Items.Clear;

repeat
cbox_horario.Items.Add(TimeToStr(hHora));//Preenche os Horarios
hHora := hHora + hIntervalo;
until (hHora >= hFim);
marcacaoSQL;


O que eu preciso é que pelo menos fique em negrito os dias da semana que o Médico atende.

[johnny-walker]

Que Delphi é este e qual componente vc está utilizando?


bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I

[Diegohilario3]

johnny-walker, qual componente você usa para melhorar a parte gráfica dos componentes do Delphi ?

[joemil]

realmente ficou show sua tela, jhonny.

pode dar umas dicas de quais componentes ta usando?

to tentando fazer uma agenda com DevXpress, mas nao to gostando mto nao. é mto complicado configurar, e se vc muda alguma coisa, se nao marcar o q foi alterado, pra voltar ao estado anterior, baubau rsrsrs, apesar de ser um otimo componente, precisa de mta customizacao
_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/

[johnny-walker]

Tudo que vc vê é uma stringgrid e uma paintbox que utilizo para desenhar os horários da agenda.

O restante foi feito tudo na mão mesmo pessoal e no caso do paintbox foi feito as demarcações começando de 00:00 com divisões a cada 30 minutos, claro que poderia fazer um interválo menor, mas não considerei este fato tão relevante.

Inclusive o calendário foi feito com um stringrid tb, mas deu trabalho chegar onde chegou, mas o paintbox pode ser substituido por uma celula do stringgrid que pode ser mesclada, claro que tive outras idéias.

No caso onde tem um compromisso na hora, tb é um stringgrid, só que ASSUNTO, CLIENTE, CONTATO estão numa única célula em cor amarela, e a seleção está em cor rosea.



Exceto o planejador de agenda que foi feito utilizando-se do componente jedi jvcl JvTFDays com adaptações por minha parte, visto que o demo dele é um pouco ruim e adaptado ao paradox em vez de firebird/interbase.

Eu já tinha mostrado esta tela antes, há bastante tempo atrás, mas não era funcional todos os recursos, este é bem dizer completo.


Mas sinceramente não sabia que um planejador era tão complicado de se fazer, pois bem dizer não utilizei componentes de terceiros, excetuando-se pelo JvTFDays.

Esta agenda inclusive tem bastante semelhança com a do Outlook, falta implementar a lixeira de eventos que deixei para depois.


Outra, a semana de trabalho tb utiliza um stringgrid de segunda a sexta e tb mostra os eventos em cada dia da semana, tb mostrando os dias do mes do cabeçalho, assim 17 - SEGUNDA, 18 - TERÇA...

E na semana completa utilizo listbox todas flats, assim abordo tudo e facilita bastante para o usuário ter seus compromissos em mãos.


Há os contatos que vai de 0 a 9 e de A..Z, além de ter um botão que fecha a conexão com o banco.

Tenho ainda tarefas e anotações que tem funcionamennto bem parecido com o Outlook, mas adaptei vários conceitos, ficou até bom.


bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I

[johnny-walker]

[fernandovr]

Ficou muito loco mesmo, eu tb prefiro criar sem utilizar componentes de terceiros, da muito mais trabalho, mas fica independente e mais fácil de atualizar para outras versões depois.

Parabéns Johnny, ficou show.

Um dia quero aprender a fazer tudo isso tb. Ja tenho em q me inspirar