Scroll vertical dans un StringGrid1 qui laisse la première ligne en place

Version imprimable

16/04/2020, 10h47
illuch

Scroll vertical dans un StringGrid1 qui laisse la première ligne en place

Bonjour à tous,
Je navigue dans un StringGrid de 50 lignes grâce au Scroll vertical.
Je voudrais que lors du scroll vertical ma première ligne (qui comporte mes titres de colonnes ) ne bouge pas.
Y a-t-il une astuce simple pour faire ça, sans bidouiller avec par exemple un 2ème stringGrid rajouté au dessus du premier et ne comportant que ma ligne fixe ?

Merci de vos suggestions.

Jean-Louis
16/04/2020, 11h28
tourlourou

Bonjour,
N'y a-t-il pas une propriété FixedRows à mettre à 1, dans ce cas ?
16/04/2020, 14h16
illuch

Citation:

Envoyé par tourlourou

Bonjour,
N'y a-t-il pas une propriété FixedRows à mettre à 1, dans ce cas ?

J'avais bien mis FixedRows à 1, mais ça ne marche pas. Tout défile
16/04/2020, 14h36
ShaiLeTroll

Avez-vous une méthode de dessin manuelle qui parasiterait les FixedRows ?
16/04/2020, 22h49
illuch

Citation:

Envoyé par ShaiLeTroll

Avez-vous une méthode de dessin manuelle qui parasiterait les FixedRows ?

Oui. Mais je l'ai enlevé c'est pareil.
J'ai même supprimé le stringgrid et j'en ai remis sans dessin manuel, mais ça défile encore.:(
17/04/2020, 06h02
SergioMaster

Bonjour,

Le mieux serait peut-être de faire un extrait du programme (forme avec le stringgrid) et nous fournir ce morceau
Parce que là cela devient vraiment étrange
17/04/2020, 09h03
Andnotor

Le nombre de lignes de la grille doit toujours être supérieur au nombre de lignes figées. FixedRows peut valoir au maximum RowCount -1 et est éventuellement adapté si le nombre de lignes est réduit (ça se constate même au design).

Si tu vides la grille (RowCount = 0) avant d'y insérer des données, il faut redéfinir FixedRows après remplissage.
17/04/2020, 09h32
anapurna

salut

le scrolling ne se ferait il pas sur le panel détenant la grille plutôt que la grille elle même ?
17/04/2020, 10h27
illuch

Citation:

Envoyé par SergioMaster

Bonjour,

Le mieux serait peut-être de faire un extrait du programme (forme avec le stringgrid) et nous fournir ce morceau
Parce que là cela devient vraiment étrange

C'est effectivement étrange:(

Je viens de faire un autre essai.
J'ai créé un projet avec uniquement un stringGrid et un bouton pour remplir le stringgrid.
Et j'ai mis le code de mon programme initial pour dessiner manuellement les cellules et ça marche (la première ligne ne bouge plus).
Il y donc quelque chose dans mon programme qui ne convient pas.
Je vais donc chercher et je vous tiens au courant.
Merci
Jean-Louis

Je viens de trouver pourquoi j'avais ce comportement étrange, mais je n'ai pas l'explication.

Le dessin manuel des cellules du stringGrid n'en est pas la cause.
La cause en est la redéfinition de "RowCount" lors de l'effacement du contenu du StringGrid.

Faites un projet avec un StringGrid et un bouton avec le code suivant et vous verrez ce comportement étrange :

Code:

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
interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Grids, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    StringGrid1: TStringGrid;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin

 //Effacement du stringGrid
 With StringGrid1 do begin
  for j :=  1 to RowCount -1 do
    for i := 0 to ColCount - 1 do Cells[i,j] := '';
  RowCount:=1;     // Si vous laissez cette ligne vous avez un défilement de tout le stringrid (1ère ligne fixe comprise)
 end;

 // Remplissage du StringGrid
 StringGrid1.RowCount:=50;                    // redéfinition du nombre de ligne 
 for i:= 0 to StringGrid1.ColCount-1 do
   for j:= 0 to StringGrid1.Rowcount-1 do
     StringGrid1.Cells[i,j+1]:=IntToStr(1*i+j);
end;

procedure TForm1.FormShow(Sender: TObject);
begin
 with StringGrid1 do begin
  ColCount:=2;
  RowCount:=50;
  FixedCols:=0;
  FixedRows:=1;
  Cells[0,0]:='A';
  Cells[1,0]:='B';
 end;
end;

end.

Merci de votre attention
JLouis

17/04/2020, 12h41
Andnotor

L'important est de participer. Après, qu'on soit lu est une autre histoire :(
17/04/2020, 16h36
Charly910

:ptdr: :ptdr: :ptdr:

A+
Charly