Discussion :

[denokan]

ok c'est ma faute

j'ai tenté d'ajouter une fiche en double cliquant, le formulaire de saisie s'affiche, mais quand je valide ça renvoie une erreur, forcément ....

bon maintenant j'ai compris pourquoi, mais ca pourrai faire l'objet d'une mise à jour pour les autre benets comme moi

[LadyWasky]

ok c'est ma faute

j'ai tenté d'ajouter une fiche en double cliquant, le formulaire de saisie s'affiche, mais quand je valide ça renvoie une erreur, forcément ....

bon maintenant j'ai compris pourquoi, mais ca pourrai faire l'objet d'une mise à jour pour les autre benets comme moi

effectivement, c'est un cas que je n'avais pas pris en compte
Mais bon, ça fait plus partie de la partie demo, que de la partie composant du code.

En fait, comme aucune fiche n'était selectionnée, plan.planning.fichecourante est égal à nil, d'où le acces violation

[petitprince]

Bien, je croix que cette discussion est plus que résolu, waskol nous à créer un superbe composant de planning qui pour une fois, fonctionne avec une version PERSONNELLE de delphi. Encore bravo et merci à tous pour votre participation...

PetitPrince

[LadyWasky]

Un petit mot de passage après trois ans, pour tout ceux qui travaillent avec une version antérieure à Delphi7, le programme ne compilera pas et s'arrêtera sur l'erreur :

[Erreur] UnitPlanner.pas(203): Identificateur non déclaré : 'csNeedsBorderPaint'

Normal, csNeedsBorderPaint n'est utile QUE dans la cadre des Themes XP et n'existe pas dans Delphi3, 4, 5, ni 6.

Donc si vous voulez compiler cette chose en Delphi 6 (ou antérieur), Il s'agit juste de supprimer cet identifiant de telle sorte que la ligne dans UnitPlanner.pas ressemble à ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ControlStyle:=[csCaptureMouse, csOpaque,csClickEvents, csDoubleClicks];

Au lieu de ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ControlStyle:=[csCaptureMouse, csOpaque,csClickEvents, csDoubleClicks, csNeedsBorderPaint];

[qi130]

Arf, ami bidouilleur pro

un petit IFDEF ne pourrait-il pas être mis en oeuvre pour régler ceci ?

[LadyWasky]

Arf, ami bidouilleur pro

un petit IFDEF ne pourrait-il pas être mis en oeuvre pour régler ceci ?

Si
J'ai eu la flemme de le faire

[tintin62]

Bonjour
tres bien ton programme planning
mais jai un petit soucis
jai cree un bouton pour sauvegarder
plan.planning.savetofile(fichier)

et jessai apres de le charger
je creer un plan
ensuite
plan.planning.loadfromfile(fichier)
plan.invalidate

mais rien a ecran
ou est erreur
Merci

[LadyWasky]

Je regarde ça cet après-midi

[tintin62]

Bonjour
Merci d avance pour ton aide
+++

[tintin62]

bonjour
il as une erreur pour la sauvegarde heure debut et fin
si je met deb:=encodate(..........) pour loadstream
je vois les fiches
jarrive pas a modifier connait tres mal les stream

merci de maider
++

[LadyWasky]

Alors...
J'ai été à la chasse aux vilains bugs, so far so good, j'en ai trouvé 2 !


Le premier :
Dans UnitStreams.pas, ligne 38, enlever le "Result:=" (non mais sans blague, qu'est ce qu'il fait là ???? )

Donc à la place de :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
function ReadStreamDouble(Stream : TStream) : double;
begin
  Result := Stream.Read(Result, SizeOf(Double));
end;

On devrait avoir ça à la place :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
function ReadStreamDouble(Stream : TStream) : double;
begin
  Stream.Read(Result, SizeOf(Double));
end;

Et le deuxième bug... :
Il se trouve dans l'unité UnitPlanning.pas, ligne 151, à la place de ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
WriteStreamDouble(Stream,FDebut);
  WriteStreamDouble(Stream,FDebut);
  WriteStreamStr(Stream,FTitre);

on devrait avoir ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
WriteStreamDouble(Stream,FDebut);
  WriteStreamDouble(Stream,FFin); // <--- là, ici, le bug
  WriteStreamStr(Stream,FTitre);

Sinon, quelques astuces de codage pour sauver, charger un planning :
Pour "nettoyer", vider le planning :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Plan.Planning.Clear;
Plan.invalidate; // <-- ne pas oublier pour raffraîchir le dessin

Pour charger un planning :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Plan.planning.clear; //sinon, ce qui était là avant reste
Plan.Planning.LoadFromFile(NomFichier);
Plan.invalidate;

Pour fusionner 2 plannings, à supposer qu'on en a déjà chargé un ou créé un, il suffit de charger un deuxième planning, mais sans faire un Clear :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Plan.Planning.LoadFromFile(NomFichier2);
Plan.invalidate;

Pour "Enregistrer sous" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Plan.Planning.SaveToFile(NomFichierChoisi)

Pour Enregistrer un planning dont le nom est déjà "connu", il suffit d'utiliser la propriété Filename du Planning (qui est mise à jour lors d'un LoadFromFile ou d'un SaveToFile :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
if Plan.FileName<>'' 
then Plan.Planning.SaveToFile(Plan.FileName)
else EnregistrerSous

voilà, voilà

Bises,
Chloé

[tintin62]

Bonjour
Merci
sa marche
autrement quelle composant me conseille tu pour
faire un planning avec la version perso Delphi 7

je dois faire un planning pour programmer 8 relais
donc a la meme heure je peux avoir 2 ou plus qui se mettent
en route

il y a la Jvcl mais exemple donné marche avec une Bd

quelq'un as tu fais sa avec Jvtfdays

Merci de votre aide

++

[LadyWasky]

Bonjour
Merci
sa marche
autrement quelle composant me conseille tu pour
faire un planning avec la version perso Delphi 7

je dois faire un planning pour programmer 8 relais
donc a la meme heure je peux avoir 2 ou plus qui se mettent
en route

il y a la Jvcl mais exemple donné marche avec une Bd

quelq'un as tu fais sa avec Jvtfdays

Merci de votre aide

++

Avec la version perso ? Je crois que le seul gestionnaire de planning sans base de données, il est ici.

[tintin62]

Bonjour
Merci pour info
je voudrais ajouter a ton planning au coin haut
la date jour mois annee
voir photo

et comment modifier une fiche existante
moi je fais comme sa

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
procedure TFicheEdition.Button4Click(Sender: TObject);
 
  var dat:tdate;
begin
 
  plan.Planning.Remove(plan.Planning.FicheCourante);
  UneFiche:=TFiche.Create;
     dat:= trunc(DTPDateDeb.Date)+frac(DTPHeureDeb.Time);
      UneFiche.debut:=dat;
    dat:= trunc(DTPDatefin.Date)+frac(DTPHeurefin.Time);
  UneFiche.Fin:=dat;  // et 13h30
  UneFiche.Titre:=ficheedition.Edit1.Text;
  UneFiche.BkgColor:=ficheedition.ColorBox1.Colors[ficheedition.ColorBox1.ItemIndex];
  uneFiche.Description.Add(richedit1.text);
  Plan.Planning.Add(UneFiche);
 
 
  Plan.Invalidate;
 
 
 
FicheEdition.ModalResult:=mryes;
end;

merci encore de ton aide
++

[tintin62]

Bonjour
pour le titre dans le coin c'est bon
comme j'ai mis comme parent un panel
j'ecris mon texte dessus en haut

++

[LadyWasky]

Bravo ! Félicitations !
Heureuse que tout ça ait pu t'être utile et que tu aies réussi à maîtriser la bête !

[blackbird_dream]

bravo !
une question encore : comment supprimer une fiche proprement ?

oups , je crois que c'est comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
  if PLan.Planning.FicheCourante<>nil then
    Plan.Planning.Delete(PLan.Planning.IndexCourant);

exact ?