Discussion :

[jackvpt]

Bonjour,

J'utlise une StringGrid sous Delphi 7 (la JvgStringGrid pour être précis) et j'ai besoin de votre aide pour 2 soucis:

1) Comment faire un renvoi à la ligne dans une cellule afin que mon texte s'affiche sur 2 lignes (j'essaie chr(13) et/ou chr(10) mais rien n'y fait) ?

2) Je souhaite transformer ma StringGrid en quelque chose d'un peu plus puissant avec la possibilité (comme avec Excel) de fusionner des cellules, mettre des bordures en pointillés, etc... . Quelqu'un connait-il un composant capable de ce genre de chose ?

Merci.

[Sub0]

Salut!

En utilisant une TDrawGrid, tu peux faire absolument tout ce que tu veux !
Regarde, par exemple mon échiquier est une TDrawGrid. La liste des coups qui se trouve à gauche aussi !!

http://sub0.developpez.com/delphi/exe/TableB5.zip

Bien entendu, cela te demandera de programmer toutes les fonctions dont tu auras besoin, et pourquoi pas, d'en faire par la suite un composant intéressant.

à+

[jackvpt]

Salut,

Effectivement c'est très puissant.
Ne m'en veux pas, mais je débute en Delphi et je n'arrive pas à afficher la moindre chose dans mon objet DrawGrid (j'ai beau utiliser les propriétés Canvas, MoveTo, LineTo, TextOut et autres, mais rien n'y fait...).
Je cherche désespérement des codes sources m'indiquant comment utiliser cet objet.

Merci de ton aide.

A+

[Sub0]

Ah oui, en effet, si tu ne connais pas l'évènement OnDrawCell, tu n'arriveras à rien. Grossomodo, l'évènement est appellé pour dessiner une cellule. Par exemple, quand on fait un Refresh de la grille, cela va redessiner toutes les cellules et il y aura alors, un évènement OnDrawCell pour chacune des cellules. Il suffit donc de définir ce que l'on veut dessiner dans cet évènement. Tu trouveras un exemple très parlant dans l'aide en ligne de Delphi (avec la touche F1). Si tu as des questions, n'hésites pas, à+

[edam]

oui comme ta dit sub0 "F1" est notre milleur guid et ami dans les pires moments( par vraiment pire que sa )

[jackvpt]

Merci pour vos réponses, il me manquait effectivement l'essentiel.

J'arrive tout doucement à programmer ma DrawGrid grâce à OnDrawCell...

Une possibilité m'échappe encore: comment faire un retour chariot dans du texte afin d'écrire quelque chose sur plusieurs lignes ?
J'essaie des chr(13) ou chr(10) mais je n'obtiens qu'une barre verticale au lieu d'un retour à la ligne.

Quelqu'un a-t-il la solution ?

Merci d'avance.

[Sub0]

La seule solution que j'ai trouvé pour le moment est de dessiner soi-même le saut de ligne.
J'utilise ici une TStringList pour séparer les lignes, puis je dessine chacune des lignes.
Dans cette boucle, j'incrémente la position "Top" avec la hauteur de la ligne précédente :

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
Procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
Var
  List: TStringList;
  i: Integer;
Begin
  List := TStringList.Create;
  // STOCKE ICI LA CHAÎNE A AFFICHER //
  List.Text := IntToStr(Acol) + #13#10 + IntToStr(ARow); 
  For i := 0 To List.Count - 1 Do
  Begin
    DrawGrid1.Canvas.TextOut(Rect.Left, Rect.Top, List[i]);
    Rect.Top := Rect.Top + DrawGrid1.Canvas.TextHeight(List[i]);
  End;
  List.Free;
End;

Cela fonctionne de la même façon pour une StringGrid que pour une DrawGrid.