Panel aligné à droite d'une cellule d'une StringGrid

Version imprimable

1 pièce(s) jointe(s)

Bonjour à tous,

J'ai besoin de mettre un panel dans les cellules de la colonne 0 d'une StringGrid. Le panel est invisible jusqu'à ce que le pointeur de la souris arrive dans le dernier quart (approx) de la cellule. Le panel doit se mettre comme si nous pouvions faire un .Left (à droite sur la hauteur totale de la cellule). Chaque cellule de la colonne 0 est concernée. Le panel se comportera comme un bouton dans lequel je vais cliquer.

Pièce jointe 596874

Je tourne en rond.
J'arrive à mettre mon panel, à détecter ma position mais c'est de le caler style .left dans la cellule qui pose problème. Je n'arrive pas à avoir la position gauche exacte de la cellule.

Je vous passe mon code, si quelqu'un à une idée.

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
procedure TForm1.StringGrid1MouseMove(Sender: TObject;Shift: TShiftState; X, Y: Integer);
Var
    ACol, ARow: Longint;
    ARect: TRect;
    ScreenPoint : TPoint;
    ClientPoint : TPoint;
    GridPoint : TPoint;
begin
    StringGrid1.MouseToCell(X, Y, ACol, ARow);
 
    GetCursorPos(ScreenPoint);
    ARect:=StringGrid1.CellRect(ACol,ARow);
    ClientPoint := Panel5.ScreenToClient(ScreenPoint);
    GridPoint := StringGrid1.ScreenToClient(ScreenPoint);
 
// Pour suivre la position et comprendre le truc
Label7.Caption:=Format('Largeur %d - Left %d - Pt.X %d' ,[aRect.width, aRect.Left, ClientPoint.Y]);
Label7.Update;
Label8.Caption:=Format('Top %d - Bottom %d - Pt.Y %d - Panel.top %d' ,[aRect.Top, aRect.Bottom, ScreenPoint.Y, Panel_Liste1.Top]);
Label8.Update;
 
if (ARow>0)
    then begin
        if (ACol=0)
        then begin
            if (ClientPoint.X>=ARect.Left+ARect.width + StringGrid1.GridLineWidth - Image_Liste1.Width)
            and (ClientPoint.X<=ARect.Left+ARect.width)
            then begin
                Panel_Liste1.Visible:=true;
                Panel_Liste1.BringToFront;
                Panel_Liste1.Width:=Image_Liste1.Width;
                Panel_Liste1.Left:=aRect.Left + aRect.width + StringGrid1.GridLineWidth - Image_Liste1.Width;
                Panel_Liste1.Top:= ClientPoint.Y; //(ScreenPoint.Y div (StringGrid1.DefaultRowHeight + StringGrid1.GridLineWidth))*(StringGrid1.DefaultRowHeight + StringGrid1.GridLineWidth)+1;
                Panel_Liste1.Height:=StringGrid1.DefaultRowHeight;
                StringGrid1.Invalidate;
            end
            else begin
                Panel_Liste1.Visible:=False;
                StringGrid1.Invalidate;
            end;
        end
        else begin
            Panel_Liste1.Visible:=False;
            StringGrid1.Invalidate;
        end;
    end;
end;

29/04/2021, 18h48
ShaiLeTroll

Faudra prévoir une largeur suffisante pour éviter que le Panel masque le texte.
En général, je dessinais directement et gérer manuellement le Clic, ton besoin ressemble à faire un InplaceEditor de type ComboBox que l'on voit dans un TDBGrid via le TColumn.PickList

CellRect(ACol, ARow) est plutôt fiable, je l'utilise aussi à la place du Rect fourni par OnDrawCell
Cependant, je n'ai que mis des CheckBox au centre de la Cellule comme dans ce sujet

Panel_Liste1 le plus simple c'est du lui affecter au RunTime le StringGrid1 comme Parent, cela évite des conversions de coordonnées Client<->Screen

Merci ShaiLeTroll,
tout fonctionne parfaitement du coup.

Pour ceux que ça interesse :
Suite à l'intervention de ShaiLeTroll j'ai mis dans le onCreate de la fiche :

Code:

Panel_Liste1.Parent := StringGrid1;

Puis j'ai corrigé le code comme suit (ligne corrigée en gras) :

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
procedure TForm1.StringGrid1MouseMove(Sender: TObject;Shift: TShiftState; X, Y: Integer);
Var
    ACol, ARow: Longint;
    ARect: TRect;
    ScreenPoint : TPoint;
    ClientPoint : TPoint;
begin
    StringGrid1.MouseToCell(X, Y, ACol, ARow);
 
    GetCursorPos(ScreenPoint);
    ARect:=StringGrid1.CellRect(ACol,ARow);
    ClientPoint := Panel5.ScreenToClient(ScreenPoint);
 
// Pour suivre la position et comprendre le truc
Label7.Caption:=Format('Largeur %d - Left %d - Pt.X %d' ,[aRect.width, aRect.Left, ClientPoint.Y]);
Label7.Update;
Label8.Caption:=Format('Top %d - Bottom %d - Pt.Y %d - Panel.top %d' ,[aRect.Top, aRect.Bottom, ScreenPoint.Y, Panel_Liste1.Top]);
Label8.Update;
 
if (ARow>0)
    then begin
        if (ACol=0)
        then begin
            if (ClientPoint.X>=ARect.Left+ARect.width + StringGrid1.GridLineWidth - Image_Liste1.Width)
            and (ClientPoint.X<=ARect.Left+ARect.width)
            then begin
                Panel_Liste1.Visible:=true;
                Panel_Liste1.BringToFront;
                Panel_Liste1.Width:=Image_Liste1.Width;
                Panel_Liste1.Left:=aRect.Left + aRect.width + StringGrid1.GridLineWidth - Image_Liste1.Width;
                Panel_Liste1.Top:= (ClientPoint.Y div (StringGrid1.DefaultRowHeight + StringGrid1.GridLineWidth))*(StringGrid1.DefaultRowHeight + StringGrid1.GridLineWidth)+1;
                Panel_Liste1.Height:=StringGrid1.DefaultRowHeight;
                StringGrid1.Invalidate;
            end
            else begin
                Panel_Liste1.Visible:=False;
                StringGrid1.Invalidate;
            end;
        end
        else begin
            Panel_Liste1.Visible:=False;
            StringGrid1.Invalidate;
        end;
    end;
end;

Ainsi, le panel est coincé sur le coté droit de la cellule peu importe la position en Y de la souris.
Top! Merci encore