Discussion :

[franckcl]

**Delphi 10.1 update 2 / Firemonkey **

Bonjour,

TStringGrid.CellRect renvoie bien les coordonnées d'une cellule mais par rapport à quoi ?
Moi, je les voudrais par rapport à la fiche.

Exemple
J'ai une grille de deux colonnes qui comporte un header.

Code :

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

1
2
3
4
5
 
  rect:=StringGrid1.cellRect(1,0);
  pt.x:= rect.left;
  pt.y:= rect.top;
  ptr:=StringGrid1.LocalToAbsolute(pt);

Après execution, Rect.top = 0 donc pt.y = 0
et donc ptr sera décalé de la hauteur du header.
Il semblerait que les coordonnées des cellules soient données par rapport à la colonne mais la propriété de StringColumn2.Top est égal à zéro !!

Donc je ne vois pas comment connaitre la position verticale de la cellule par rapport à la fenêtre ??

Si je pouvais connaitre la hauteur du header je pourrais l'ajouter mais comment la connaitre ?


Merci
Franck

[retwas]

Tu peux récupérer le Header avec le style, peut être qu'il existe plus simple ? en tout cas ça retourne bien la bonne hauteur dans mon cas.

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
procedure TForm2.StringGrid1SelectCell(Sender: TObject; const ACol,
  ARow: Integer; var CanSelect: Boolean);
var
   Header : THeader;
   Rect   : trect;
   Pt     : TPoint;
   Ptr    : tpointf;
begin
   Pt.Y   := 0;
   Header := THeader((StringGrid1).FindStyleResource('header'));
 
   if Assigned(Header) then
      Pt.Y := Round(Header.Height);
 
   Rect   := StringGrid1.CellRect(ACol, ARow);
   Pt.X   := Rect.Left;
   Pt.Y   := Pt.Y + Rect.Top;
   Ptr    := StringGrid1.LocalToAbsolute(Pt);
end;

[franckcl]

Merci Retwas,

C'est une solution effectivement.

j'avais trouvé cet artifice en attendant mieux:
HeaderHeigh := StringColumn2.AbsoluteRect.top - StringGrid1.AbsoluteRect.top;

Il faut avoué que tout cela est bien compliqué...