Discussion :

[Lung]

Je souhaite figer (comme dans Excel) les 2-3 premières colonnes, de manière à ce quelles restent visible, même en scrollant horizontalement.

J'ai bien vu ce post :http://www.developpez.net/forums/sho...562#post344562, mais l'astuce ne fonctionne pas. Les colonnes se dupliquent aléatoirement.
Je préfèrerais une solution sans composants en plus (non standard), et surtout pas la JVCL.

Si quelqu'un a une idée ...
Merci.

[Rayek]

Le composant SMDBGRID le fait, regardes ici les sources sont fournit ca pourra peut être te donner une piste de comment faire.

[TicTacToe]

Je l'ai fait il y a quelques semaines! et ca fonctionne parfaitement.

Par contre il me faut plus d'infos, sur la manière dont est implémenté le DataSet / au DBGrid, as-tu des définis des TxxxFields ?

En gros, 1 autre DBGrid, relié au même DataSet
-> DBGridGauche, DBGridDroit

Ensuite, jouer avec les visibilités des colonnes,
DBGridGauche.Columns[ x ].Visible.

Redimensionner correctement les Width des colonnes, Les gestions des largeurs n'étant pas forcément logique dans les source DBGrids.pas

Ensuite, gérer le décalage vertical éventuel. l'ascenseur horizontal apparait à droite mais pas à gauche, la DBGridGauche doit dont être moins haute au pixel près...

Mon source brut, pour gérer cela pour donnner une idée uniquement.

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
     // SYNCHRO DES GRILLES GAUCHES
     XG := 42;
     if PanelGauche.Visible
       then DBGrid.Options := DBGrid.Options - [ dgIndicator ]
       else DBGrid.Options := DBGrid.Options + [ dgIndicator ];
     for i := 0 to DBGrid.Columns.Count - 1 do
     with DBGrid.Columns[ i ] do
       begin
       if PanelGauche.Visible
         then BAGauche := ( Field = TableCanevas ) or
                          ( Field = TableDesignation ) or
                          ( Field = TableReference )
         else BAGauche := False;
       DBGridGauche.Columns[ i ].Visible := BAGauche;
       if BAGauche then DBGridGauche.Columns[ i ].Width := Width;
       Visible := not BAGauche;
       if BAGauche then Inc( XG, DBGridGauche.Columns[ i ].Width );
       end;
     PanelGauche.Width := XG;
     PanelSyntGauche.Width := XG;

Les 3 TFields (TableCanevas, Tabledesignation, TableReference) sont mes 3 champs à figer, mais cela pourrait être dynamiques

[Lung]

Pas mal. La bidouille est simple à faire.
En superposant correctement les deux DBGrid, ça donne un résultat présentable.
Malatar >> Quand j'aurais du temps, je regarderais pour faire un composant propre (si c'est pas trop dur pour moi).

[Eric.H]

Autre possibilité qui devrait fonctionner:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
TYPE
  TMa_Grille=class(TDBGrid)
  public
    property FixedCols;
  END;
 
  TMa_Grille(DBGrid_ligne).FixedCols:=3;

La property FixedCols étant dans l'un des ancêtres de TDBGrid

[Lung]

Autre possibilité qui devrait fonctionner:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
TYPE
  TMa_Grille=class(TDBGrid)
  public
    property FixedCols;
  END;
 
  TMa_Grille(DBGrid_ligne).FixedCols:=3;

La property FixedCols étant dans l'un des ancêtres de TDBGrid

Non, ça ne fonctionne pas. L'affichage mélange les colonnes.