Discussion :

[Delphi-ne]

Je voudrais pouvoir stocker un caractère graphique dans un titre de colonne de TStringGrid.
Le but est d'afficher en titre de la colonne le sens du tri.

Je pense qu'il faut jouer sur le canvas de la cellule mais comment y afficher le caractère graphique.

[banban54]

bonjour

as tu essayé quelque chose du genre:

Code :

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

1
2
3
 
  TonStringGrid.ControlStyle := TonStringGrid.ControlStyle + [csAcceptsControls];
  TonImage.Parent := TonStringGrid;

[Delphi-ne]

Je ne connaissais pas cette propriété.

J'ai fait cela

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
   If State = [gdFixed] Then Begin
       lMarge := (Grille.ColWidths[ACol] -
                  Grille.Canvas.TextWidth(Grille.Cells[ACol, ARow])) Div 2;
       lTexte := '';
       While Grille.Canvas.TextWidth(lTexte)< lMarge Do lTexte := ltexte + ' ';
       lTexte := lTexte + Grille.Cells[ACol, ARow];
       lTexte := lTexte + '   ';
       Grille.Canvas.TextOut(rect.left+2,
                             rect.top+2,
                             lTexte);
 
       if (arow = 0) And (Acol = nColTri) then begin
          lMarge := Grille.Canvas.TextWidth(lTexte);
          lFont  := Grille.Canvas.Font.Name;
          Grille.Canvas.Font.Name := 'Map Symbols';
          If cSensTri = 'A' Then lSymbol := Chr(37);
          If cSensTri = 'D' Then lSymbol := Chr(38);
          Grille.Canvas.TextOut(Rect.Left + lMarge,
                                rect.top+2,
                                lSymbol);
          Grille.Canvas.Font.Name := lFont;
       end;
       Exit;
   End;

Mon problème maintenant c'est que la police 'Map Symbols' varien en fonction de la version de Windows.

[Droïde Système7]

Bonjour,

Mon problème maintenant c'est que la police 'Map Symbols' varien en fonction de la version de Windows.

sur mon Windows, je n'ai pas cette fonte. Alors que fait un fureteur en cas de fonte non présente sur la bécane du quidam ?

Faut chercher une fonte commume aux Windows...

[Delphi-ne]

Faut chercher une fonte commume aux Windows

Si quelqu'un la connait je prend
Je pense que je vais plutôt mettre une image dans le canvas de l'entete

[Droïde Système7]

Je pense que je vais plutôt mettre une image dans le canvas de l'entete

En effet, s'il ne s'agit que d'un titre...

Mais au fait, as-tu tenté avec l'Arial ?

[Cl@udius]

Salut

Je pense que je vais plutôt mettre une image dans le canvas de l'entete

Et si tu dessinais un petit triangle sur le canevas comme on le retrouve souvent !

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
TDirectionTri = (dtDown, dtUp, dtNone);
 
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  DirectionTri: TDirectionTri;
  //----------------------------------------------------------------------------
  procedure DessinFlecheTri(x, y: integer; aDirection: TDirectionTri);
  begin
    with TStringGrid(Sender).Canvas do
    begin
      if aDirection = dtUp then
        begin
          Pen.Color := clBtnShadow;
          MoveTo(x, y + 6);
          LineTo(x + 3, y);
          Pen.Color := clWindow;
          LineTo(x + 4, y);
          LineTo(x + 7, y + 6);
          LineTo(x + 1, y + 6);
        end
      else
        begin
          Pen.Color := clBtnShadow;
          MoveTo(x + 6, y);
          LineTo(x, y);
          LineTo(x + 3, y + 6);
          Pen.Color := clWindow;
          LineTo(x + 4, y + 6);
          LineTo(x + 7, y);
        end;
    end;
  end;
  //----------------------------------------------------------------------------
begin
 
  DirectionTri := dtDown; // Choisi de façon empirique pour illustrer l'exemple
 
  if (gdFixed in State) and (ARow = 0) and (DirectionTri <> dtNone) then
  begin
    with Rect, TStringGrid(Sender) do
    begin
      DessinFlecheTri(Rect.Right - 15, Rect.Top + 5, DirectionTri);
      Rect.Left := Rect.Left + 2;
      Rect.Top := 2;
      DrawText(Canvas.handle,
               PChar(Cells[ACol, ARow]),
               -1,
               Rect,
               DT_WORDBREAK or DT_NOPREFIX);
    end;
  end;
end;

@+ Claudius

[Delphi-ne]

C'est ce que je pensais faire mais je n'avais pas osé demandé le code.
Merci beaucoup je vais intégrer cela.