TDrawGrid + bulle d'aide (hint) multiligne

Version imprimable

12/07/2005, 15h38
alexandre21130

TDrawGrid + bulle d'aide (hint) multiligne

Bonjour,
je cherche a faire une grille de type TDrawgrid qui affiche
des informations relatives a la cellule sur laquelle se trouve la souris.

Deroulement du programme :

Un timer se declenche toutes les secondes, provoque un certain nombre de traitement sur un tableau en memoire (tableau_memoire) et demande a la grille de se repeindre (invalidate). La fonction drawcell dessine les differentes cellules en fonction de certains criteres de tableau_memoire.

Je voudrais que lorsque la souris passe sur une case de la TDRAWGRID, je recupere les infos contenues dans tableau_memoire (case correspondante dans tableau_memoire) et les afficher dans une bulle d'aide qui doit etre multiligne.

Je voudrais dans un premier temps connaitre votre avis pour savoir
dans quel evenement je dois mettre le code pour remplacer le texte de Hint (je cherche un truc du genre OnMouseOver sur le tdrawgrid qui me fournirait la ligne et la colonne) et savoir si ca marche le multiligne dans les Hints.
D'autre part, peut on forcer l'affichage d'une bulle d'aide (une fonction ShowHint() par exemple, cela pour ne pas attendre le delai d'affichage d'une bulle d'aide ?

Merci d'avance, je suis sous BCB6

Bonne journée :D
12/07/2005, 15h49
alexandre21130

ah oui, j'allais oublier, c'est pour plus tard mais autant en profiter,
comment feriez vous pour faire un genre de double buffering avec une
tdrawgrid : 8O

En gros, j'ai deux tdrawgrid, une que j'affiche et l'autre en memoire, je
modifie celle en memoire et une fois que c'est fait je recopie tout dans celle
qui est affichée. :idea:

Ca se ferait comment cette drole de bete :?:
et est ce que ca peut valoir le coup (notamment si l'affichage doit etre
modifié rapidement et qu'il ya des images a dessiner dans les cellules)

Merci encore

Salut !

En dérivant de TCustomForm ou bien en rajoutant une nouvelle form au projet tu peux
réaliser une petite fenêtre pouvant servir de Hint. Voici un exemple avec une TCustomForm :

Code:

1
2
3
4
5
6
7
8
9
class JHint : public TCustomForm
{
public :
TStringList *List;
Graphics::TBitmap *Bitmap; //pour ma version BC3 et pour accélérer le graphisme
    __fastcall JHint(TComponent *Owner);
    __fastcall ~JHint();
    void __fastcall Paint();
};

Code:

1
2
3
4
5
6
7
8
__fastcall JHint::JHint(TComponent *Owner) : TCustomForm(Owner, 0)
{
BorderStyle = bsNone;
FormStyle = fsStayOnTop;
List = new TStringList();
Bitmap = new Graphics::TBitmap();
Color = (TColor)0x00FFEFDF; //bleu pâle sinon clAqua c'est bien aussi
}

Code:

1
2
3
4
5
6
__fastcall JHint::~JHint()
{
delete Bitmap;
Bitmap = NULL;
delete List;
}

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
void __fastcall JHint::Paint()
{
int w, h;
int maxwidth=0;
int maxheight=0;
if(Bitmap != NULL)
    {
    for(int j = 0; j < List->Count; j++)
        {
        w = Canvas->TextWidth(List->Strings[j]);
        if(w > maxwidth) maxwidth = w;
        h = Canvas->TextHeight(List->Strings[j]);
        if(h > maxheight) maxheight = h;
        }
    SetBounds(Left, Top, maxwidth + 8, (h * List->Count) + 8 );
    if((Bitmap->Width != Width) || (Bitmap->Height != Height))
        {
        Bitmap->Width = Width; Bitmap->Height = Height;
        }
    TCanvas *C = Bitmap->Canvas; //pour mon BCB3
    C->Pen->Color = clBlack;
    C->Pen->Mode =pmCopy;
    C->Pen->Style = psSolid;
    C->Brush->Color = Color; //pour éviter un scintillement
    C->Brush->Style = bsSolid;
    C->Rectangle(0,0, Width, Height);
    C->Brush->Style = bsClear; //on ne dessine que le texte
    int y = 4;
    for(int j = 0; j < List->Count; j++)
        {
        C->TextOut(4, y, List->Strings[j]);
        y+=h;
        }
    Canvas->Draw(0,0,Bitmap);
    }
}

Pour la form principale (ici Form1), ou bien celle où se dessine le TDrawGrid :

Code:

JHint *jHint; //déclaration globale

Dans son constructeur :

Code:

jHint = new JHint(Owner);

Voici la mise en oeuvre du Hint :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
void __fastcall TForm1::DrawGrid1MouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
jHint->Left = Form1->Left + DrawGrid1->Left + X + 16;
jHint->Top = Form1->Top + DrawGrid1->Top + Y + 48;
jHint->List->Clear();
//Je vais montrer tout ça :
jHint->List->Add("Souris");
jHint->List->Add("X = " + IntToStr(X));
jHint->List->Add("Y = " + IntToStr(Y));
//je n'ai pas trouvé mieux ici :
jHint->Repaint();
jHint->Show();
}

Code:

1
2
3
4
5
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
jHint->Hide();
}

Certainement à améliorer car je n'ai pas géré en profondeur la position de la fenêtre
...donc je te laisse faire !

A plus !