Resizer les colonnes er les lignes d'un stringGrid

Question

Bonjour,

tout est dans la question.
J'ai un StrinGrid alClient sur un panel. Quelqu'un peut il m'expliquer comment 'resizer' les colonnes et les ligne quand quand on maximize le formulaire (donc le panel)?

D'avance merci

codial

cs_cantador · Answer

bonjour,

tu devras utiliser la propriété :
property ColWidths[Index: Longint]: Integer;

permettant de faire varier la largeur d'une colonne nommée par son index.

La taille devra être calculée en fonction des dimensions du Panel (puisque le mode est alClient)

et se servir de l'évènement OnResize..

bon coding

cantador

codial · Answer

Bonsoir cantador,

merci pour ta réponse, c'est effectivement par
ColWidths[Index: Longint]: Integer;
qu'il faut passer, mais je n'y suis toujours pas arrivé .
Sans abuser aurais tu un bout de code pour commencer???

D'avance merci, codial

cs_cantador · Answer

rahhhh, ça devient dur le forum...

ben tu fais une p'tit boucle du genre :


procedure ChangeColWith(Largeur);
var
i : integer;
begin
with StringGrid1 do
 begin
 for i:= 0 to Colcount - 1 do
  Colwidths[i]:= Largeur;
 end;
end;

procedure TForm1.Panel1Resize(Sender: TObject);
begin
// là il faut trouver une formule qui donne la largeur d'une colonne en fonction de la largeur du panel à l'écran
Largeur := 
ChangeColWith(Largeur);
end;



Je t'en laisse un peu.
tu ne m'en voudras pas..

cantador

cs_cantador · Answer

aie..

procedure changecolwith(largeur : integer);

cantador

codial · Answer

Merci beaucoup cantador pour ta réponse et ta function.
Je vais tester et ....pour le reste je vais me débrouiller.

cordialement, codial

cs_cantador · Answer

[i]
pour le reste je vais me débrouiller./i

bravo et tiens nous au courant si ça marche.

cantador

Resizer les colonnes er les lignes d'un stringGrid

6 réponses

Votre réponse

Discussions similaires