Discussion :

[fthdz]

bonjour,

Je souhaite mettre un footer(pied) qui affiche la somme des lignes d'une colonne montant par exemple et qui suivent cette colonne même en cas de scrolling
Quelqu'un aurait il une solution a me proposer (composant stringgrid gratuit qui contient cette option,code,orientation)?


Merci d'avance

windows 8.1,delphi 7 entreprise

[fthdz]

je pense a ajouter un nouveau stringgrid directement sous la grille principale. Ce stringgrid ne comporte que 1 ligne (fixed row) qui affiche les totaux. De cette façon, l'utilisateur ne peut pas faire défiler les totaux hors de vue.reste a trouver comment faire pour que le deuxieme stringgrid suivent le premier lors de défilement.
que pensez vous de cette solution ou il y a mieuX?

[sgmsg]

C'est exactement comme ça que je procède pour les entêtes. Ça évite de gérer des [y+1] à tour de bras.

[Papy214]

la TRxDBGrid ne fait pas déjà ça ??

http://www.micrel.cz/RxLib/

[fthdz]

la TRxDBGrid ne fait pas déjà ça ??

http://www.micrel.cz/RxLib/

apparemment il contient pas cette option en plus c 'est pas un stringgrid

[anapurna]

salut

tu peut aussi utiliser un headerControl aussi plutot qu'un autre stringgrid

[fthdz]

bonjour,
voici le code que j'ai utilisé

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
 
procedure TForm1.EditRowFoot(miRow: integer);
var R1: TRect;
begin
  R1 := jvStringGrid1.CellRect(1,miRow);
  R1.Left := R1.Left + jvStringGrid1.Left;
  R1.Right := R1.Right + jvStringGrid1.Left;
  R1.Bottom := jvStringGrid1.top+jvStringGrid1.Height;
    {Show the Edit}
    with Border5 do
     begin
      Left := R1.Left + 1;
     Top := (R1.Bottom-1)-24;
      Width := ((R1.Right + 1) - R1.Left)+1;
      Height := 24;
      Visible := True;
     end;
 
  R1 := jvStringGrid1.CellRect(2,miRow);
  R1.Left := R1.Left + jvStringGrid1.Left;
  R1.Right := R1.Right + jvStringGrid1.Left;
  R1.Bottom := jvStringGrid1.top+jvStringGrid1.Height;
    {Show the Edit}
    with Border4 do
     begin
      Left := R1.Left + 1;
      Top := (R1.Bottom-1)-jvStringGrid1.DefaultRowHeight;
      Width := ((R1.Right + 1) - R1.Left)+1;
      Height := jvStringGrid1.DefaultRowHeight;
      Visible := True;
     end;
 
  R1 := jvStringGrid1.CellRect(3,miRow);
  R1.Left := R1.Left + jvStringGrid1.Left;
  R1.Right := R1.Right + jvStringGrid1.Left;
  R1.Bottom := jvStringGrid1.top+jvStringGrid1.Height;
    with Border7 do
     begin
      Left := R1.Left + 1;
      Top := (R1.Bottom-1)-jvStringGrid1.DefaultRowHeight;
      Width := ((R1.Right + 1) - R1.Left)+1;
      Height := jvStringGrid1.DefaultRowHeight;
      Visible := True;
     end;
end;

merci pour tous