Discussion :

[Linkin]

Bonjour,

Je cherche une façon d'afficher un tableau juste de l'affichage, sans rectangle de sélection, d'interaction (comme un tableau html).

Je voudrais savoir si cela était possible avec un composant standard légèrement modifié. (Dans le pire des cas, je m'orienterais vers un affichage personnalisé avec création dynamique de composant et dessin).

Mes problèmes principaux sont le rectangle de sélection les bordures extérieures (avec une TDrawGrid).

Merci.

[Linkin]

Finalement j'y suis arrivé avec une StringGrid (je précise, c'est un tableau de longueur fixe, juste en affichage).

Avec:

Code :

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

1
2
3
4
 
  Ctl3D := False; // Pour les bordures
  Enabled := False // Pour le rectangle de focus
  Scrollbars := ssNone // Pas de scrollbar

et dans le OnDrawCell

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
 
var
  lColor: TColor;
begin
  lColor := TDrawGrid(Sender).Canvas.Pen.Color; // Sauvegarde de la couleur
  TStringGrid(Sender).Canvas.Pen.Color := clBlack;
  // Bordure supérieure de la cellule
  if ARow <> 0 then
  begin
   TStringGrid(Sender).Canvas.MoveTo(Rect.Left, Rect.Top);
   TStringGrid(Sender).Canvas.LineTo(Rect.Right, Rect.Top);
  end;
 
  // Bordure gauche de la cellule
  if ACol <> 0 then
  begin
   TStringGrid(Sender).Canvas.MoveTo(Rect.Left, Rect.Top);
   TStringGrid(Sender).Canvas.LineTo(Rect.Left, Rect.Bottom);
  end;
 
  // Couleur du rectangle de sélection
  if gdSelected in State then
  begin
   TStringGrid(Sender).Canvas.Brush.Color := TStringGrid(Sender).Color;
   TStringGrid(Sender).Canvas.FillRect(Rect);
  end;
 
  TStringGrid(Sender).Canvas.Pen.Color := lColor; // restauration couleur
 
  {Texte de la cellule à dessiner}
  TStringGrid(Sender).Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, TStringGrid(Sender).Cells[ACol,ARow]);