Le 27/05/02

Cration des fonctions 

function searchdowndir(Dossier :string; dir :string; nodir : string):string;
function searchdownFile(Dossier :string; dir :string; nodir : string):string;
function GetDossier( DirCurrent: string; dir :string; stopdir :string):string;
function GetDossierParent(dir :string):string;
function searchFile( Dossier :string; NameFile:string ;stopDir:string):string;
function searchDir(Dossier :string; NameDir:string ;stopDir:string):string;

Elles sont utilises pour placer n'importe quel fichier n'importe o !
(extrait du mail envoy  naim
Voil.
1) A priori, si tout marche bien, n'importe quel fichier peut tre situ
n'importe o. L'algo utilis recherche un fichier dans le rpertoire courant
puis dans les sous-rpertoires puis remonte pas  pas jusqu' la racine du
disque.
2) pour viter le dsordre les fichiers sont recherchs par dfaut dans des
rpertoires dont les noms correspondent  leur type (non sensible  la casse
mais sensibles aux accents et aux pluriels). voir exemple dans fichier
attach mais encore une fois tu peux mettre (en principe) un fichier
n'importe o du moment qu'il est sur le mme disque dur que phylo.exe
3) Si tu veux modifier ces noms il suffit de demander ! (plus srieusement
on pourrait les dfinir dans un fichier "init")
4) Il y a certaines incohrences dans les extensions de fichier (cf.
Dominique) :
- fichier image: phg
- fichier de caractres : tab etc...
a mriterait une rflexion ! pour une future version !?
fin de l'extrait)
 

Ces variables initialement dfinies dans donnees.pas, le sont maintenant dans phylmain

  CheminTaxons:=searchDir(GetCurrentdir,'Taxons','')+'\';     // jfr modifie le 27/05/02
  CheminCaract:=searchDir(GetCurrentdir,'Caract','')+'\';
  CheminCaracTxt:=searchDir(GetCurrentdir,'CaracTxt','')+'\';
  CheminMolecules:=searchDir(GetCurrentdir,'Molecules','')+'\';

Toutes les fonctions en principe faisant appel  une boite de dialogue pour la recherche d'un fichier   utilisent les fonctions
searchfile ou searchdir

le 30/04/02

Modification pour les fichiers d'aides
phylmain.pas
Les variables sont initialises dans formcreate et non plus dans initvars car cette fonction est appele 
 plusieurs reprises, notamment aprs qu'une matrice ou un fichier d'images soient chargs.
ce qui change la valeur du rpertoire courant

Modification : Nom du fichier de molcules : ajout dans le module arbre.
phylmol.pas le controle TEdit Editfile a t ajout et trois lignes ont t ajoutes 
dans la procedure TFormMol.AjoutmolClick(Sender: TObject) pour que le nom du fichier de molcules s'affiche dans le TEdit
Mynewgrid.pas 
Sa couleur est modifie (couleur bleue),si on ajoute une molcule dont le nom apparat aussi en bleu. 
fonction drawcelltextbis(...) dans mynewgrid.pas ajoute et procedure TMolGrid.Paint modifie pour appeler cette fonction
quand une ligne n'est pas slectionne c.a.d celle qui correspond  la molcule ajoute


le 19/04/02 et/ou 29/04/02

fichier TreeCLGR.pas
pour viter le bug qui arrive quand on clique avec le bouton droit de la souris sur les lgendes de l'arbre
dans la procedure TFormArbre.GCT1RespClicDownRight(WPoint: TPoint);
la condition a t rajoute

Tous les changements suivants sont destins  corriger le problme de l'tat inconnu ?
Attention : dans le fichier de codage l'tat inconnu '?' ne doit pas apparaitre comme un tat  part entire

fichier Dataselmat.pas
dans function  TDataSelectCL.CopyMaxState(nomcarac : string ):string;
Bug :quand le tableau de codage contient des colonnes vides, des tats vides sont rajouts
par exemple 1/2//// . Les lignes de codes rajoutes le sont pour viter ce problme

fichier strbox.pas
function GetListWord(Str:string;token:char):TStringlist;
bug possible
if (S1<>'') and (length(S1)>1) then list.add(S1); a t chang en
if (S1<>'') and (length(S1)>0) then list.add(S1); pour que l'tat '?' soit pris en compte

fichier MyNewGrid.pas
procedure TTabGrid.CreateTabCod(ATabCod :TStrListArray)
le test de newstr<>'?' a t rajout pour viter que l'tat inconnu '?' soit considr comme un tat de caractre

le 19/04/02

Les deux variables ont t rajoutes et doivent tre initialises dans la fonction initvars
  FichierAide :='\aide.htm';
  AdresseAide :='http://www.inrp.fr/Acces/biotic/evolut/phylogene/accueil.htm';

Deux options ont t rajoutes au menu aide : fichier d'aide et aide en ligne
Elles sont traites par les fonctions et procdures :
function TFormPrinc.ExecuteFile(const FileName, Params, DefaultDir: string;
procedure TFormPrinc.Aideenligne1Click(Sender: TObject);
procedure TFormPrinc.Aide2Click(Sender: TObject);

le 07/03/02
dans phylmain.pas
dans procedure TFormPrinc.Classer(Sender: TObject);
'Arbre1.enabled:=false' a t rajout pour empcher qu'on puisse construire un arbre  partir d'un tri.
Cette possibilit n'est plus accessible qu' partir de la fonction suivante

dans phyltrier.pas
rajoute : procedure TFormTri.GraphTri1MouseUp(Sender: TObject; Button: TMouseButton;
Pour activer la possibilit de cration d'un arbre  partir d'un tri.
Cette possibilit n'est pas orthodoxe aux yeux des volutionistes et devrait ne pas exister.
 Elle devient donc optionnelle dans phylo
 Attention : modifier le fichier dfm en appellant cette fonction  travers l'inspecteur
 d'objet et la proprit  onMouseUp de graphtri
