Couleur sdes cases
darky93
Messages postés
42
Date d'inscription
mercredi 8 juin 2005
Statut
Membre
Dernière intervention
13 octobre 2005
-
8 juin 2005 à 16:39
darky93 Messages postés 42 Date d'inscription mercredi 8 juin 2005 Statut Membre Dernière intervention 13 octobre 2005 - 9 juin 2005 à 16:24
darky93 Messages postés 42 Date d'inscription mercredi 8 juin 2005 Statut Membre Dernière intervention 13 octobre 2005 - 9 juin 2005 à 16:24
1 réponse
darky93
Messages postés
42
Date d'inscription
mercredi 8 juin 2005
Statut
Membre
Dernière intervention
13 octobre 2005
9 juin 2005 à 16:24
9 juin 2005 à 16:24
Cela fait très peu de temps que je programme mais je pense que dans les autres cas la stringGrid est déjà créée et je ne vois pas comment ils appélent la procédure Alors que ma procedure permet de créer la StringGrid de la façon suivante :
Procedure TCalcul.AffichageStringGrid;
var i,j:Integer;
begin
With TStringGrid.Create(Calcul) do
begin
Parent:=Calcul;
Left:=64;
Top:=352;
Height:=385;
Width:=929;
FixedCols:=0;
FixedRows:=0;
Font.Size :=6;
DefaultColWidth:=50;
DefaultRowHeight:=23;
RowCount:=5;
ColCount:=2*k; {k et q sont déffinient dans d'autres procedures}
if q<>0 then
begin
for i:=0 to k-1 do
begin
for j:=0 to 1 do
begin
Cells[2*i+j,13]:=FloatToStr(Chiffres[i]);
Cells[2*i+j,14]:='n°'+IntToStr(i+1);
if j=0 then
begin
Cells[2*i+j,0]:=Formatfloat('0.00E+00',Resultat_1[0,i]);
Cells[2*i+j,1]:=Formatfloat('0.00E+00', Resultat_2[1,i]);
Cells[2*i+j,2]:=Formatfloat('0.00E+00', Resultat_3[2,i]);
end
else if j=1 then
begin
Cells[2*i+j,0]:=Formatfloat('0.00E+00',Resultat_1[0,i]);
Cells[2*i+j,1]:=Formatfloat('0.00E+00', Resultat_2[1,i]);
Cells[2*i+j,2]:=Formatfloat('0.00E+00', Resultat_3[2,i]);
end;
end;
end;
end;
end;
end;
En plus j'appele cette procedure 2 fois, l'une pour faire apparaitre des cases vide (quand q=0), l'autre pour afficher les résultats!
Procedure TCalcul.AffichageStringGrid;
var i,j:Integer;
begin
With TStringGrid.Create(Calcul) do
begin
Parent:=Calcul;
Left:=64;
Top:=352;
Height:=385;
Width:=929;
FixedCols:=0;
FixedRows:=0;
Font.Size :=6;
DefaultColWidth:=50;
DefaultRowHeight:=23;
RowCount:=5;
ColCount:=2*k; {k et q sont déffinient dans d'autres procedures}
if q<>0 then
begin
for i:=0 to k-1 do
begin
for j:=0 to 1 do
begin
Cells[2*i+j,13]:=FloatToStr(Chiffres[i]);
Cells[2*i+j,14]:='n°'+IntToStr(i+1);
if j=0 then
begin
Cells[2*i+j,0]:=Formatfloat('0.00E+00',Resultat_1[0,i]);
Cells[2*i+j,1]:=Formatfloat('0.00E+00', Resultat_2[1,i]);
Cells[2*i+j,2]:=Formatfloat('0.00E+00', Resultat_3[2,i]);
end
else if j=1 then
begin
Cells[2*i+j,0]:=Formatfloat('0.00E+00',Resultat_1[0,i]);
Cells[2*i+j,1]:=Formatfloat('0.00E+00', Resultat_2[1,i]);
Cells[2*i+j,2]:=Formatfloat('0.00E+00', Resultat_3[2,i]);
end;
end;
end;
end;
end;
end;
En plus j'appele cette procedure 2 fois, l'une pour faire apparaitre des cases vide (quand q=0), l'autre pour afficher les résultats!
