Discussion :

[o_live]

Bonjour et Meilleurs Vœux

J'essaye d'accéder a une propriété protégée du composant DbGrid
en écriture RowHeights afin de pouvoir modifier la hauteur d'un linge dans une colomne,afin d'afficher correctement une image dans un DBGrid.
Dans le cas contraire l'image est écrasée

Je me suis inspiré de la faq Delphi Comment modifier la hauteur d'une ligne dans un TDBGrid ?

J'ai effectue ceci sans grand sucés (partie 1)
dans le h de mon formulaire j'ai mis ceci

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
 
#ifndef FormAnnuaire2H
#define FormAnnuaire2H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <ToolWin.hpp>
#include "CGiButton.h"
#include <DBCtrls.hpp>
#include <ExtCtrls.hpp>
#include <Menus.hpp>
//---------------------------------------------------------------------------
class TFrmAnnu : public TForm{
__published:	// Composants gérés par l'EDI
TDBGrid *DBGTel // composant ou je souhaite modifier la hauteur de ligne via RowsHeight
// bla bla
 
};
//---------------------------------------------------------------------------
// classe ajouté
class TPublicCustomGrid :TCustomGrid  {
public:
 
  void __fastcall SetRowHeight(TDBGrid *pGrid,int numligne,int hauteur){
     //this->RowHeights[10]=4;   ok
   TPublicCustomGrid *pPublicCustomGrid=dynamic_cast<TPublicCustomGrid*>(pGrid);
 
 // acces a rowHeight par la suite...
  }
};
//---------------------------------------------------------------------------
extern PACKAGE TFrmAnnu *FrmAnnu;
//---------------------------------------------------------------------------
#endif

J'ai un erreur de compilation :

[C++ Erreur] FormAnnuaire2.h(60): E2031 Impossible de transtyper de 'TDBGrid *' en 'TPublicCustomGrid *'

-Comment transtyper mon objet afin qu'il puisse accéder la propriété via la la faq Delphi partie 1 ?

Comment convertir ce code delphi en C++Builder

Code delphi :

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

 TPublicCustomGrid(DBGrid1).RowHeights[10]:=50;

-Comment utiliser ceci dans un procédure autre ?

-Est ce possible de faire ceci de cette manière en C++Builder 6 ?



merci d'avance de votre aide

[ShaiLeTroll]

dynamic_cast effectue un contrôle, essaye un cast basique
Je n'ai pas testé !

Après, En delphi, le fait de déclarer une classe dans une unité permet d'accèder au propriété protégée directement, un peu comme un friend protected sur tout le fichier !
En C++, tu es obligé soit de refaire un accesseur explicite !
Faudrait tester ces deux variantes !

Variante 1 : Ajout d'un Accesseur

Code :

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

((THackProtectedCustomGrid*)DBGrid1)->SetRowHeight(10, 50);

Code :

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

1
2
3
4
5
6
//---------------------------------------------------------------------------
class THackProtectedCustomGrid :TCustomGrid
{
public: 
  void __fastcall SetRowHeight(int numligne,int hauteur){this->RowHeights[numligne]= hauteur;}
};

Variante 2 : classes Amies

Code :

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

((THackPrivateCustomGrid*)DBGrid1)->RowHeight[10] = 50;

Code :

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

1
2
3
4
5
//---------------------------------------------------------------------------
class THackPrivateCustomGrid :TCustomGrid
{
  friend class TFrmAnnu;
};

[blondelle]

Salut o_live
Ceci fonctionne pour une StringGrid

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
class TPublicStringGrid: public TCustomGrid
{
    public:
        using TCustomGrid::RowHeights;
};
 
((TPublicStringGrid*)StringGrid1)->RowHeights[2] = 50;
}

[ShaiLeTroll]

Très interessant ce using !

Mais, RowHeights est accessible depuis une TStringGrid, ce n'est pas un très bon exemple !

on doit avoir le même résultat avec

Code :

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

1
2
3
4
5
class THackProtectedCustomGrid: public TCustomGrid
{
    public:
        __property RowHeights;
};

Après tout c'est la méthode standard d'augmentation de visibilité des propriétés VCL !

[blondelle]

Suite a l'intervention de ShaiLeTroll j'ai teste sur une DBGrid juste posee sur la Form donc une seule ligne

Code :

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

1
2
3
4
5
6
7
8
9
10
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
class TPublicCustomGrid: public TCustomGrid
{
    public:
          __property RowHeights;
};
((TPublicCustomGrid*)DBGrid1)->RowHeights[0] = 50;
}

[o_live]

Merci a vous deux
J'ai utilise le code de blondelle

Je pense que des choses comme cela pourrait être dans la Faq BCB