Comment déplacer une ligne dans une TStringGrid

Version imprimable

Bonsoir
Voici comment deplacer une ligne ou une colonne dans un StringGrid, tire de la FAQ Delphi

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
 
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Move_Row_Col.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
class TPublicStringGrid: public TCustomGrid
{
    public:
        using TCustomGrid::MoveRow;
        using TCustomGrid::MoveColumn;
};
// Déplace la première ligne (Row=0) vers la seconde (Row=1)
((TPublicStringGrid*)StringGrid1)->MoveRow(0,1);
//Déplace la première colonne (Col=0) vers la seconde (Col=1)
((TPublicStringGrid*)StringGrid1)->MoveColumn(0,1);
}
//---------------------------------------------------------------------------
 
// Comment déplacer une ligne dans une TStringGrid ?
 
// Il suffit de rendre publiques les méthodes MoveRow et MoveColumn de la
// classe TCustomGrid dont hérite la classe TStringGrid à travers le
// transtypage de cette dernière en une classe dérivée déclarée dans la même unité :
// Il est a noter que si les cellules vers lesquelles on déplace avec MoveRow
// ou MoveColumn ne sont pas vides, les valeurs seront permutées avec celles
// que l'on veut déplacer.

Salut !

La classe dérivée :

Code:

1
2
3
4
5
6
7
8
9
10
 
class jStringGrid : public TStringGrid
{
public :
    __fastcall jStringGrid(TComponent *AOwner);
    __fastcall ~jStringGrid();
 
    void __fastcall MoveRow(int FromIndex, int ToIndex);
    void __fastcall MoveColumn(int FromIndex, int ToIndex);
};

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
__fastcall jStringGrid::jStringGrid(TComponent *AOwner)
    : TStringGrid(AOwner)
{
if(AOwner->InheritsFrom(__classid(TWinControl)))
    {
    Parent = (TWinControl*)AOwner;
    }
//Pour le test
Options = Options << goEditing;
}
 
__fastcall jStringGrid::~jStringGrid()
{
}

A première vue on peut faire ainsi :

Code:

1
2
3
4
5
6
7
8
9
10
 
void __fastcall jStringGrid::MoveRow(int FromIndex, int ToIndex)
{
TCustomGrid::MoveRow(FromIndex, ToIndex);
}
 
void __fastcall jStringGrid::MoveColumn(int FromIndex, int ToIndex)
{
TCustomGrid::MoveColumn(FromIndex, ToIndex);
}

Donc soit utiliser la classe jStringGrid (qui n'est rien d'autre qu'une TStringGrid) soit transtyper vers elle :

Code:

1
2
3
4
5
6
7
 
TStringGrid *StringGrid1;
 
void __fastcall TForm1::SpeedButton2Click(TObject *Sender)
{
((jStringGrid*)StringGrid1)->MoveRow(1,3);
}

Peut-être que l'on peut faire autrement, je pense être limité avec mon BCB3 Pro !

A plus !

19/11/2008, 19h08
blondelle

Merci pour ta classe henderson, je termine ce que je fais, et je teste ton code