Discussion :

[AT]

Bonsoir

Code :

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

1
2
t:array[0..3] of string=('HNO3','H2SO4',
'FeSO4','He2+');

Peut-on ajouter dans un listbox une suite de molecules par ex

Ajout Indices

HNO3
H2SO4
FeSO4

Idem mais avec des

Exposants

He2+ (le 2+ en exposant)


merci

[sjrd]

Je crois bien qu'il y a un composant TJvHTListBox dans la JVCL qui permet de le faire, en stockant tes formules moléculaires sous forme HTML (donc avec <sup> et <inf> si mes souvenirs sont bons).

[AT]

S'il s'agit de la Jedi Library (JVCL) c'est pour delphi5 à 2005

Je possede de delphi 2006

sinon je recherche un tuto pour installer des composants sous cette version

merci

[sjrd]

Euh où as-tu vu que c'était limité à D2005 ? La dernière version propose même de s'installer sur D2007 il me semble

[Gilbert Geyer]

Salut et bonne Année,

Voici un code qui utilise un TLisbox standard et l'événement ListBox1DrawItem

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
25
26
27
28
29
30
31
32
33
34
35
36
 
//ListBox à couleurs alternées + Formules chimiques avec indices en position d''indice: OK testé marche
procedure TfrmOcc.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
const     num = ['1'..'9'];
var       Texte : string; c : Char; i,w,h : byte; x,y : integer;
begin     ListBox1.Style:=(lbOwnerDrawFixed);
          with ListBox1.Canvas do
          begin Font.Color:=clBlack; // Couleur de fonte
                if Odd(Index) then Brush.Color:=clAqua   // Couleur d'arrière plan
                              else Brush.Color:=clWhite; // alternée bleu/blanc
                FillRect(Rect); // Remplit le rectangle de l'Index sur canvas avec Brush.color
                // Texte de l'Item
                Texte:=ListBox1.Items[Index];
                Font.name:='Arial';
                x:=Rect.Left+3; y:=Rect.Top;
                for i:=1 to length(Texte) do
                begin c:=Texte[i];
                      if Not (c in Num) then // Symboles en position normale
                      begin Font.Size:=8;
                            TextOut(x, y, c);
                            w:=TextWidth(c); x:=x+w;
                      end else // indices numériques
                      begin Font.Size:=5; h:=TextHeight(c);
                            TextOut(x, Rect.Bottom - h, c);
                            w:=TextWidth(c); x:=x+w;
                      end;
                end;
          end;
end;
 
procedure TfrmOcc.ListBox1Click(Sender: TObject);
var       i:integer;
begin     for i:=0 to ListBox1.Items.Count-1
          do ListBox1DrawItem(ListBox1,i,ListBox1.ItemRect(i),[odDefault]);
end;

... cet exemple de code illustre simplement la faisabilité, dans son état actuel il place tout caractère de ['1'..'9'] en position d'indice mais on peut l'adapter en le modifiant pour placer en position d'exposant tout caractère numérique suivi du '+' de l'exemple "He2+ (le 2+ en exposant)".

... De plus, pour simplifier, je me suis ici contenté d'activer le ListBox1DrawItem dans le ListBox1Click il serait préférable de l'activer lors du FormShow par exemple.

A+

EDIT : Comme j'ai testé ce code sous Delphi-5 y'a aucune raison que cela ne marcherait pas avec des versions plus récentes ... et sans nécessiter de composant spécialisé.

[AT]

Bonjour

En suivant le lien sur le site : Composant fichier joint)
c'est bien marque JVCL library d5 à 2005

[AT]

ok merci et meilleurs voeux aussi

AT

[sjrd]

Bonjour

En suivant le lien sur le site : Composant fichier joint)
c'est bien marque JVCL library d5 à 2005

Euh ouais Ca c'est notre page Composants qui n'est plus à jour Mais je t'assure que la JVCL est bien compatible D2006 et D2007.

[AT]

J'ai un peu de mal à suivre ton exemple Gilbert

Comment j'ajoute ma liste au ListBox ?

merci

[AT]

ok c'est bon

Code :

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

1
2
3
4
5
6
7
 
procedure TForm1.FormActivate(Sender: TObject);
var       i:integer;
begin
   for i:=0 to 3 do
    Listbox1.Items.Add(t[i])  ;
end;

mais il faut cliquer sur la listbox pour que cela s'affiche. peut -on le faire directement dans le onactivate au démarrage ?

merci

[AT]

En effet tout simple

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.FormActivate(Sender: TObject);
var       i:integer;
begin
   for i:=Low(t) to High(t) do
    begin
    Listbox1.Items.Add(t[i])  ;
    ListBox1DrawItem(ListBox1,i,ListBox1.ItemRect(i),[odDefault]);
    end;
end;

Comment mettre les + ou - en exposant et non en indice ?

[Gilbert Geyer]

Salut,

Comment mettre les + ou - en exposant et non en indice ?

... il faut compliquer un peu le code dans la partie suivante du code da la procédure ListBox1DrawItem():

Code :

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

1
2
3
4
5
6
7
8
              ...
              // Texte de l'Item
              Texte:=ListBox1.Items[Index];
              Font.name:='Arial';
              x:=Rect.Left+3; y:=Rect.Top;
              for i:=1 to length(Texte) do
              ...

Avant d'entrer dans la boucle for i:=1 to length(Texte) do
j'ajouterais un truc du genre

Code :

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

1
2
3
 
      posSigne:=pos('+',Texte);
      if posSigne=0 then posSigne:=pos('-',Texte);

... avec ça il faut en plus dans la boucle faire un if posSigne<>0 :
- si posSigne<>0 alors dans la boucle on sait qu'il faut mettre en exposant le caractère d'indice i=posSigne ainsi que la caratère numérique qui le précède,
- et si posSigne=0 alors dans la boucle on sait qu'il faut mettre en indice comme cela se passe déjà dans le code actuel.

Pour la mise en exposant on devrait donc trouver en plus dans ton code un truc comme ceci :

Code :

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

1
2
3
4
5
6
7
8
 
         ...
         end else // caractères numériques en exposant
         begin Font.Size:=5; 
                 TextOut(x, Rect.Top, c);
                 w:=TextWidth(c); x:=x+w;
        end;
        ...

J'allais oublier, il faut peut-être aussi remplacer const num = ['1'..'9']; par const num = ['1'..'9','-','+'];

Je pense qu'avec cela tu dois pouvoir t'en sortir.
Je testerai peut-être cette manip demain ... mais d'ici là t'auras peut-être déjà terminé.

A+

[AT]

Super

merci

AT

[Gilbert Geyer]

Salut,

Comme la nuit porte conseil j'ai eu une idée de résolution un peu différente (de celle d'hier) qui permet non seulement d'afficher la formule d'une molécule chimique avec des particules ['1'..'9','+','-'] en indice et en exposant, mais qui permet également d'afficher une formule d'une réaction chimique c'est à dire avec des coefficients numériques et un opérateur d'addition ('+') situés au même niveau et de même taille que les caractères alphabétiques.

La syntaxe à respecter pour la saisie des formules est toute simple :
- mettre un espace ' ' devant tout caractère ['1'..'9','+','-'] devant être affiché au même niveau que les caractères alphabétiques : Exemple : ' + 3H2SO4' s'affichera + 3H2SO4,
- ne mettre aucun espace devant un '+' ou un '-' s'il doit être affiché en exposant,
- ne mettre aucun espace devant un caractère numérique devant être affiché en indice.
En bref suffit d'écrire comme si on rédigeait un manuscrit sans balises-codes.

Voici le code :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
 
// Pour ListBox à couleurs alternées + Formules de molécules chimiques ou de
// réactions chimiques avec particules en indice et en exposant : OK testé marche
procedure TfrmOcc.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
const     num = ['1'..'9','+','-'];
var       Texte : string;
          cc,cp,cs : Char; // caract : courant, précédent, suivant
          niveau : string[3]; // sup, med, inf
          i,w,h : byte; x,y : integer;
begin     ListBox1.Style:=(lbOwnerDrawFixed);
          with ListBox1.Canvas do
          begin Font.Color:=clBlack; // Couleur de fonte
                if Odd(Index) then Brush.Color:=clAqua   // Couleur d'arrière plan
                              else Brush.Color:=clWhite; // alternée bleu/blanc
                FillRect(Rect); // Remplit le rect de l'Index sur canvas avec Brush.color
                // Texte de l'Item
                Texte:=ListBox1.Items[Index];
                Font.name:='Arial';
                x:=Rect.Left+3; y:=Rect.Top; cp:=' ';
                for i:=1 to length(Texte) do
                begin cc:=Texte[i];
                      if i<length(Texte) then cs:=Texte[i+1] else cs:=' ';
                      if (Not (cc in Num)) or ((cc in num) and (cp=' '))
                      then niveau:='med'
                      else begin if ((cp<>' ') and ((cc='+') or (cc='-'))) // H+ Mg++ He2+
                                 then niveau:='sup'
                                 else niveau:='inf';
                      end;
                      if niveau='med' then // caract en position normale
                      begin Font.Size:=8;
                            TextOut(x, y, cc);
                            w:=TextWidth(cc); x:=x+w;
                      end else
                      if niveau='inf' then // caract en indice
                      begin Font.Size:=5; h:=TextHeight(cc);
                            TextOut(x, Rect.Bottom - h, cc);
                            w:=TextWidth(cc); x:=x+w;
                      end else
                      if niveau='sup' then // caract en exposant
                      begin Font.Size:=6; h:=TextHeight(cc);
                            TextOut(x, Rect.Top-1, cc);
                            //sms(cc);
                            w:=TextWidth(cc); x:=x+w;
                      end;
                      niveau:='';
                      cp:=cc;
                end;
          end;
end;
 
procedure TfrmOcc.ListBox1Click(Sender: TObject);
var       i:integer;
begin     for i:=0 to ListBox1.Items.Count-1
          do ListBox1DrawItem(ListBox1,i,ListBox1.ItemRect(i),[odDefault]);
end;

A+

[sjrd]

Ce serait quand même mieux avec un type TNiveau défini comme suit :

Code :

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

1
2
type
  TNiveau = (nMed, nSup, nInf);

[Gilbert Geyer]

Bonjour et Bonne Année,

Sjrd Ce serait quand même mieux avec un type TNiveau défini comme suit ...

... exact c'est plus académique : promis j'essayerai de ne pas recommencer.

A+

[Gilbert Geyer]

Re-bonjour,

Voici le code précédent retouché selon la remarque de Sjrd :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
 
// Pour ListBox à couleurs alternées + Formules de molécules chimiques ou de
// réactions chimiques avec particules en indice et en exposant : OK testé marche
procedure TfrmOcc.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
type      TNiveau = (nMed, nSup, nInf); // niveau d'affichage
const     num = ['1'..'9','+','-'];
var       Texte : string;
          cc,cp : Char; // caract : courant, précédent.
          niveau : TNiveau;
          i,w,h : byte; x,y : integer;
begin     ListBox1.Style:=(lbOwnerDrawFixed);
          with ListBox1.Canvas do
          begin Font.Color:=clBlack; // Couleur de fonte
                if Odd(Index) then Brush.Color:=clAqua   // Couleur d'arrière plan
                              else Brush.Color:=clWhite; // alternée bleu/blanc
                FillRect(Rect); // Remplit le rect de l'Index sur canvas avec Brush.color
                // Texte de l'Item
                Texte:=ListBox1.Items[Index];
                Font.name:='Arial';
                x:=Rect.Left+3; y:=Rect.Top; cp:=' ';
                for i:=1 to length(Texte) do
                begin cc:=Texte[i];
                      if (Not (cc in Num)) or ((cc in num) and (cp=' '))
                      then niveau:=nMed
                      else begin if ((cp<>' ') and ((cc='+') or (cc='-'))) // H+ Mg++ He2+
                                 then niveau:=nSup
                                 else niveau:=nInf;
                      end;
                      case Niveau Of
                           nMed : begin // caract en position normale
                                        Font.Size:=8;
                                        TextOut(x, y, cc);
                                  end;
                           nInf : begin // caract en indice
                                        Font.Size:=5; h:=TextHeight(cc);
                                        TextOut(x, Rect.Bottom - h, cc);
                                  end;      
                           nSup : begin // caract en exposant
                                        Font.Size:=6; h:=TextHeight(cc);
                                        TextOut(x, Rect.Top-1, cc);
                                  end;
                      end;
                      w:=TextWidth(cc); x:=x+w;
                      cp:=cc;
                end;
          end;
end;
 
// Appel de ListBox1DrawItem :
 
procedure TfrmOcc.FormActivate(Sender: TObject);
var       i:integer;
begin     for i:=0 to ListBox1.Items.Count-1
          do ListBox1DrawItem(ListBox1,i,ListBox1.ItemRect(i),[odDefault]);
end;

A+

[AT]

Avec un peu de retard

[Gilbert Geyer]

Bonjour,

A AT : De rien.

Je te signale quand même un truc à fignoler : Avec la police Arial en taille 8 pour la caractères alphabétiques et les coefficient, les particules numériques en taille 5 sont bien visibles, par contre les '+' et les '-' placés en exposant bien que j'aie pris une taille 6 sont relativement minuscules à l'écran et le '+' est même rendu dissymétrique et donne l'impression visuelle du petit 4. Il faudrait peut-être augmenter d'un cran ces trois valeurs pour un meilleur rendu.

A+

[AT]

Merci Gilbert

J'ai un peu repris le code ce matin

J'ai pas resolu un petit zic : celui de 2 chiffres qui se suivent

Par exemple un ion comme

CrO42- : le 4 est en indice et le 2- en exposant

si tu as une idée merci