Discussion :

[Invité]

Bonjour,

je cherche une "approche" pour gérer les tabulations dans l'affichage des cells des StringGrids : l'objet serait de récupérer un TMemo dont la propriété WantTabs := True; et de placer son contenu correctement formaté (ie comme dans le TMemo) dans la Cells.

Le remplacement de #9 par une série d'espaces ne convient pas avec l'usage de polices proportionnelles.

Je ne sais pas comment "approcher" le problème... à moins "d'inclure" le TMemo dans les Cells mais on en revient à l'approche de la discussion précédente.

Une piste pour Win et Nux ? Merci.
Cordialement.
Gilles

[DOLPat®]

Bonjour

Pourquoi tu ne dessine pas directement le texte sur le Canvas de la cellule ? (par contre, je ne sais pas si cela fonctionne sous Nux)

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
procedure TForm1.StringGrid1DrawCell(Sender: TObject; aCol, aRow: Integer;
  aRect: TRect; aState: TGridDrawState);
const
  Decalage=8;
begin
  with StringGrid1 do
    begin
      Canvas.FillRect(aRect);
      if Copy(Cells[aCol, aRow], 1, 1)=#9 then
        Canvas.TextOut(aRect.Left+Decalage, aRect.Top, Cells[aCol, aRow])
      else
        Canvas.TextOut(aRect.Left, aRect.Top, Cells[aCol, aRow])
    end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.Cells[1,1]:= 'Test';
  StringGrid1.Cells[2,1]:= #9'Test';
end;

[Invité]

Bonjour Patrick,

C'est que je suis en mutiligne dans les cellules... Cela complique sérieusement la chose d'autant que même sur une ligne, il peut y avoir plusieurs Tabs.

Cordialement. Gilles

[mick605]

Salut

Une solution de contournement : il te faut remplacer les tabulations par des espaces, et, pour régler le problème des polices non proportionnelles, tu as qu'a utiliser Canvas.TextWidth(' ');. Tu définis ainsi combien il te faut d'espaces pour obtenir une tabulation, quelque soit la police ...

Sinon, il est vrai que tu peux utiliser le Canvas pour dessiner toi même ton texte, mais ca devient très compliqué (mais pas infaisable ...) surtout en multilignes et avec plusieurs tabulations ...

EDIT : Encore une idée qui me vient a l'esprit, et assez simple : Dessines carrément ton mémo dans ta cellule, copie le Canvas ... Je viens de trouver une solution pour y parvenir :

Code :

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

1
2
3
4
5
6
7
8
9
var C : TBitmap;
begin
  C:=TBitmap.Create;
  C.Height:=Memo1.Height;
  C.Width:=Memo1.Width;
  C.Canvas.Handle:=GetDC(Memo1.Handle);
  StringGrid1.Canvas.Draw(0,0,C);
  C.Free;
end;

Bonne chance

[DOLPat®]

C'est que je suis en mutiligne dans les cellules... Cela complique sérieusement la chose d'autant que même sur une ligne, il peut y avoir plusieurs Tabs.

Cela complique effectivement la chose, mais c'est faisable. En plus des #9, il faut gérer les #10 (et peut-être réajuster la hauteur de la ligne de cellules), ce qui n'est pas le bout du monde à mon avis. Les Canvas.TextOut & Canvas.TextHeight Permettent cela. Maintenant, il y a peut-être une approche plus simple. À toi de voir.

[Edit]
L'idée de selzig est excellente. Il suffit d'ajuster la hauteur de la ligne de cellules par:

Code :

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

StringGrid1.RowHeights[aRow]:=Memo1.Height;