TDBGRid et ScrollBar

Bjr

Je développe sous BC++ et cherche à ôter la scrollbar verticale d'un DbGrid. La doc trouvée ici mentionne la fonction ShowScrollBar qui fonctionne très bien sous Win2000 mais plante sur XPPro (Acces Violation ... Read Of Address 0x0000..).

Après un rapide parcours de la doc je tente un HandleNeeded() sans résultat.

Problème connu ? ou autre solution ?

A noter que le compilateur refuse la propriété DbGrid-ScrollBars elle n est pas accessible

merci à vous

Pardon pardon, je suis allé un peu vite. L'exception venait d'une autre raison.

Mais du coup je me rends compte que la ScrollBar ne disparait pas même en Win2000 (je l'ai cru car le nombre de lignes était insuffisant).

Y a t il une autre méthode que ShowScrollBar() ?

je pense que ShowScrollBar() est la meilleure méthode,

seulement elle doit être appelée à chaque fois que le composant Dbgrid est redessinnée,sinon elle réapparait.

il n'ya pas de gestionnaire d'evenement OnPaint accessible de l'exterieur pour le DBGrid.
Donc il faut faire un composant descendant de TDBGrid pour pouvoir acceder
à la méthode Paint de DBGrid.
Rien de bien compliqué je te rassure :
Menu->Composant ->nouveau composant ,etc..
comme nom de composant j'ai mis DjDBGrid mais tu mettre ce que tu veux

dans le .h :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
class PACKAGE TDjDBGrid : public TDBGrid
{
private:
        bool FVertScrollVisible;   // scroll vertical
        void __fastcall SetVScrollVisible(bool fvisible);
        bool FHorzScrollVisible;   //scrll horizontal
        void __fastcall SetHScrollVisible(bool fvisible);
 
 
protected:
        virtual void __fastcall Paint(void);
public:
        __fastcall TDjDBGrid(TComponent* Owner);
__published:
        __property Boolean ScrollVertical = {read =FVertScrollVisible,write=SetVScrollVisible, default=0};
        __property Boolean ScrollHorizontal ={ read =FHorzScrollVisible,write=SetHScrollVisible, default=0};
 
};

dans le .cpp

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
#include "DjDBGrid.h"
#pragma package(smart_init)
//---------------------------------------------------------------------------
// ValidCtrCheck est utilisé pour vérifier que les composants créés n'ont
// aucune fonction virtuelle pure
//
 
static inline void ValidCtrCheck(TDjDBGrid *)
{
        new TDjDBGrid(NULL);
}
//---------------------------------------------------------------------------
__fastcall TDjDBGrid::TDjDBGrid(TComponent* Owner)
        : TDBGrid(Owner)
{
 
}
//---------------------------------------------------------------------------
void __fastcall TDjDBGrid::Paint(){
 
      //à chaque fois que le grille est redessinée
     // elle met ou eleve les scrollbar :
 
       ShowScrollBar(Handle,SB_HORZ,FHorzScrollVisible);
       ShowScrollBar(Handle,SB_VERT,FVertScrollVisible);
        TDBGrid::Paint();
}
//---------------------------------------------------------------------------
void __fastcall TDjDBGrid::SetVScrollVisible(bool fvisible){
       FVertScrollVisible=fvisible;
       Repaint();
}
//---------------------------------------------------------------------------
void __fastcall TDjDBGrid::SetHScrollVisible(bool fvisible){
       FHorzScrollVisible=fvisible;
 
       Repaint();
}
//---------------------------------------------------------------------------
namespace Djdbgrid
{
        void __fastcall PACKAGE Register()
        {
                 TComponentClass classes[1] = {__classid(TDjDBGrid)};
                 RegisterComponents("DjobDev", classes, 0);
        }
}
//---------------------------------------------------------------------------

y'a plus qu'à l'installer et via ll'EDI : propriétés ScrollVertical et ScrollHorizontal

ou bien le code par DjDbgrid1->ScrollVertical =true;

[EDIT]
ou lieu des repaint je crois qu'il vaut mieux des Invalidate, je sais plus,
mais des membres plus compétents que moi dans la création de composant pourront t'en dire plus à ce sujet ...
[/EDIT]

Super, en effet j'ai constaté la rémanence du ScrollBar...

Je suis un peu pris par le temps aussi je ne testerai pas ta méthode immédiatement mais merci beaucoup quand même. Je vais me garder cela pour mes petits congés de Noel.