Merci, j'ai placé la captcha sur mon site, mais je reçois ce message d'erreur avertissement session_start()...Cannot send session cache limiter - headers already sent; mais au niveau de mon ordinateur local je ne reçois aucune erreur.
J'ai utilisé le code sans aucune modification, (mon lien http://guelmachess.net/livreor.php), merci

Bonsoir, je n'arrive pas placer this sommaire en bas de bas page, merci pour votre aide.

Merci

Re-Bonjour, En réalisant un outils pour ajouter des messages, avec les divers switchs valides, par coincidences j'étais tombé sur l'erreur, et il fonctionne sous IE.

Bonjour merci, programme très intéressant, et très pratique, que je désire exploiter sur mon bureau, mais il ne tourne que sous firefox, sous Internet explorer il n'ya aucun affichage de l'agenda, je sais que c'est possible de la faire fonctionner sous IE, je débute en javaScript.

Merci.

Le codage est claire du genre consonne voyelle... comme le bon vieux jeux bien connu, mais en réinventa pas enigma pour autant... tandis que l'autre partie ce sont les chiffres, et si on veut plus compliquer, alors c'est l'un dans l'autre, les tables hash et avec un bon metaxa on y arrivera.(merci pour ce code qui ouvre la porte à toute sorte modification, et merci pour ces commentaires... je débute en PHP je découvre md5 ainsi que les SHA... que d'autres languages n'offrent pas).

Merci pour le bel programme, mais je n'arrive pas à réaliser certaines fonctionnalité, comment fermer la fiche crée, sans passer par un bitbutton.
(j'ai essayé, close, free, destroy, mr-résults) sans résultat. Merci

il y'a de fct dans DateUtils pour le choix du 1er Jours de la semaine, j'utilise ces deux fonctions pour mon agenda de bureau, et je réussi le décalage, puisque le week end ici est un vendredi.
jw// est le jour de la semaine
y //est la date courante du date time picker // le décalage des semaines se fait toujours à partir du lundi jour numéro un...

placer les divers labels pour tester,

     procedure testj( d:string);
     var js1:integer;
     begin
     rdv1.Monthcalendar1.date:= strtodate(d);
     if dayoftheweek(rdv1.Monthcalendar1.date - 5) >0 then js1:= dayoftheweek(rdv1.Monthcalendar1.date - 5)
     else js1:= js1+2;
     jw:=js1;
     end;
    procedure cadrelejour();
    begin
   testj(datetostr(rdv1.monthcalendar1.Date));
   if weekof(rdv1.monthcalendar1.Date+2)= weekof(date()+2) then

begin
testj(datetostr(date()));
if  jw=1 then begin
rdv1.label12.Font.Color  := clwhite; rdv1.label12.Transparent := false; rdv1.label12.Color := clblack;
end ;

if  jw=2 then begin
rdv1.label13.Font.Color  := clwhite;rdv1.label13.Transparent := false; rdv1.label13.Color := clblack;
end ;

if  jw=3 then begin
rdv1.label14.Font.Color  := clwhite; rdv1.label14.Transparent := false; rdv1.label14.Color := clblack;
end ;

if  jW=4 then begin
rdv1.label15.Font.Color  := clwhite; rdv1.label15.Transparent := false;rdv1.label15.Color := clblack;
end;

if jw=5 then begin
rdv1.label16.Font.Color  := clwhite;  rdv1.label16.Transparent := false; rdv1.label16.Color := clblack;
end;

if  jw=6 then begin
rdv1.label17.Font.Color  := clwhite;  rdv1.label17.Transparent := false; rdv1.label17.Color := clblack;
end ;

if  jw=7 then begin
rdv1.label18.Font.Color  := clwhite;rdv1.label18.Transparent := false; rdv1.label18.Color := clblack;
end;  end;   end;



procedure affectiondesjours(d:string) ;

begin
begin
testj(d);
  y:= (datetostr(rdv1.MonthCalendar1.Date)) ;
//------------1-------SAMEDI
if jw=1 then
begin
with rdv1 Do
begin
label14.Font.Color  := clblack;label14.Transparent := true; label12.Caption := inttostr(dayof(strtodate(y)+0));
label13.Caption := inttostr(dayof(strtodate(y)+1));label14.Caption := inttostr(dayof(strtodate(y)+2));
label15.Caption := inttostr(dayof(strtodate(y)+3)); label16.Caption := inttostr(dayof(strtodate(y)+4));
label17.Caption := inttostr(dayof(strtodate(y)+5)); label18.Caption := inttostr(dayof(strtodate(y)+6));
dbgrid1.SetFocus ;
end;
end;

//------------2-------DIMANCHE
if jw=2 then
begin
with rdv1 Do
begin
label14.Font.Color  := clblack; label14.Transparent := true; label12.Caption := inttostr(dayof(strtodate(y)-1));
label13.Caption := inttostr(dayof(strtodate(y)+0));  label14.Caption := inttostr(dayof(strtodate(y)+1));
label15.Caption := inttostr(dayof(strtodate(y)+2)); label16.Caption := inttostr(dayof(strtodate(y)+3));
label17.Caption := inttostr(dayof(strtodate(y)+4)); label18.Caption := inttostr(dayof(strtodate(y)+5));
dbgrid2.SetFocus ;
end; end;

//------------3-------Lundi
if jw=3 then
begin
with rdv1 Do
begin
label14.Font.Color  := clblack;label14.Transparent := true;label12.Caption := inttostr(dayof(strtodate(y)-2));
label13.Caption := inttostr(dayof(strtodate(y)-1)); label14.Caption := inttostr(dayof(strtodate(y)+0));
label15.Caption := inttostr(dayof(strtodate(y)+1)); label16.Caption := inttostr(dayof(strtodate(y)+2));
label17.Caption := inttostr(dayof(strtodate(y)+3));  label18.Caption := inttostr(dayof(strtodate(y)+4));
dbgrid3.SetFocus ;
end;
end;

  //------------4-------Mardi
if jw=4 then
begin
with rdv1 Do
begin
label14.Font.Color  := clblack;label14.Transparent := true; label12.Caption := inttostr(dayof(strtodate(y)-3));
label13.Caption := inttostr(dayof(strtodate(y)-2)); label14.Caption := inttostr(dayof(strtodate(y)-1));
label15.Caption := inttostr(dayof(strtodate(y)+0)); label16.Caption := inttostr(dayof(strtodate(y)+1));
label17.Caption := inttostr(dayof(strtodate(y)+2)); label18.Caption := inttostr(dayof(strtodate(y)+3));
dbgrid4.SetFocus ;
end;
end;
   //------------5-------Mercredi
if jw=5 then
begin
with rdv1 Do
begin
label14.Font.Color  := clblack;label14.Transparent := true;label12.Caption := inttostr(dayof(strtodate(y)-4));
label13.Caption := inttostr(dayof(strtodate(y)-3));label14.Caption := inttostr(dayof(strtodate(y)-2));
label15.Caption := inttostr(dayof(strtodate(y)-1));label16.Caption := inttostr(dayof(strtodate(y)+0));
label17.Caption := inttostr(dayof(strtodate(y)+1)); label18.Caption := inttostr(dayof(strtodate(y)+2));
dbgrid5.SetFocus ;
end;
end;
//------------6-------jeudi
if jw=6 then
begin
with rdv1 Do
begin
label14.Font.Color  := clblack; label14.Transparent := true;label12.Caption := inttostr(dayof(strtodate(y)-5));
label13.Caption := inttostr(dayof(strtodate(y)-4)); label14.Caption := inttostr(dayof(strtodate(y)-3));
label15.Caption := inttostr(dayof(strtodate(y)-2)); label16.Caption := inttostr(dayof(strtodate(y)-1));
label17.Caption := inttostr(dayof(strtodate(y)+0)); label18.Caption := inttostr(dayof(strtodate(y)+1));
dbgrid6.SetFocus ;
end;
end;
//------------7-------Vendredi
if jw=7 then
begin
with rdv1 Do
begin
label14.Font.Color  := clblack; label14.Transparent := true;  label12.Caption := inttostr(dayof(strtodate(y)-6));
label13.Caption := inttostr(dayof(strtodate(y)-5));label14.Caption := inttostr(dayof(strtodate(y)-4));
label15.Caption := inttostr(dayof(strtodate(y)-3)); label16.Caption := inttostr(dayof(strtodate(y)-2));
label17.Caption := inttostr(dayof(strtodate(y)-1)); label18.Caption := inttostr(dayof(strtodate(y)+0));
dbgrid7.SetFocus ;
end; end;  end; end;

Bonsoir,

C'est toute l'application qui se place sur la barre des taches, à la ligne 5 j'aurais bien aimé lire Tvotreform et non votreform. merci, je cherche toujours comment placer une form sur la barre des tâches windows.

Ben chez moi j'arrive à descendre toutes les barres de défilement à fond, et je suis sous SP2 ...

Je l'ai aussi testé sous xp-Familliale(Portable), tout est OK.


Cordialement,