Discussion :

[michel71]

Bonjour,

j'ai cette boucle mais le problème c'est que la taille de la police ne varie pas même si je modifie cette ligne "lab[i,j].Font.Size:=6;"
Merci de votre aide

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
 
    pos_hor:=20;
      for j:=1 to 10 do
      begin
       c:=c+1; if c>flag then break;
            seek(fichier,tab[c]);read(fichier,enregcollec);
              lab[i,j]:=Tlabel.Create(Self);
          lab[i,j].Parent:=panel5;
          lab[i,j].Visible:=true;
          lab[i,j].caption:='N°'+enregcollec.num;
          lab[i,j].AutoSize:=false;
          lab[i,j].Alignment:=taCenter;
          lab[i,j].top:=pos_vert+3;
          lab[i,j].left:=pos_hor;
          lab[i,j].Width:=35;
          lab[i,j].Height:=12;
          lab[i,j].Color:=clInfobk;
          lab[i,j].Font.Color:=clBlack;
          lab[i,j].Font.Size:=6;
 
              cases[i,j]:=Tedit.Create(Self);
          cases[i,j].Parent:=panel5;
          cases[i,j].Visible:=true;
          cases[i,j].text:=IntToStr(enregcollec.qtcharpos);
          cases[i,j].top:=pos_vert+20;
          cases[i,j].left:=pos_hor;
          cases[i,j].Width:=35;
          cases[i,j].Height:=5;
          cases[i,j].Color:=clWindow;
          cases[i,j].Font.Color:=clblack;
 
          pos_hor:=pos_hor+50;
 
   end; // fin de for j
   pos_vert:=pos_vert+40;
end; // fin de for i

[Jipété]

Yep !

Si tu ne spécifies pas une police TrueType avec Font.Name, ton prog va utiliser la police par défaut (la même que celle que tu vois dans l'inspecteur d'objets, rubrique Font d'un Label), qui ne supporte pas la taille 6 !

Mes 2 cts,
--
jp

[michel71]

merci