Discussion :

[Invité]

Bonjour,

Dans ma FixedRow, je place des textes à 270°. Je veux calculer la hauteur nécessaire :
Le code suivant ne provoque que des erreurs :

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
var
  iLoc : integer;
  aCanvas : TCanvas;
  aHeight : single;
begin
   aHeight := 0;
 
   aCanvas := TCanvas.Create;
 
   for iLoc  := 1 to TMSFMXGrid1.ColumnCount -1 do begin
      aCanvas.Font.Assign(TMSFMXGrid1.Columns[iLoc].FixedFont);
      aHeight := max(aheight, aCanvas.TextWidth(TMSFMXGrid1.Columns[iLoc].DisplayName));
   end;
   aCanvas.Free;
   if aHeight <> 0 then TMSFMXGrid1.RowHeights[0] := aHeight;

Je sais que ces derniers jours j'ai un peu abusé de Qt mais quand même.
Au niveau des messages, j'ai

[dcc32 Avertissement] Unit1.pas(75): W1020 Construction d'instance de 'TCanvas' contenant la méthode abstraite 'TCanvas.IntersectClipRect'

et

Cela doit être bête comme tout mais je ne vois pas le problème.

[Invité]

J'ai finalement un code fonctionnel

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
var
  iLoc : integer;
  aHeight : single;
  aFont : TFont;
  aBitMap: TBitmap;
begin
   aHeight := 0;
   try
    aFont := TFont.Create;
    aBitMap := TBitmap.Create;
 
    with aBitMap, TMSFMXGrid1 do
      for iLoc  := 1 to ColumnCount -1 do begin
        aFont :=  Columns[iLoc].FixedFont;
        Canvas.Font.Assign(aFont);
        aHeight := max(aheight, Canvas.TextWidth(Columns[iLoc].DisplayName));
      end;
   finally
      aBitMap.Free;
      aFont.Free;
   end;
   if aheight <> 0 then TMSFMXGrid1.RowHeights[0] := aHeight +4;

Mais pourquoi l'utilisation directe de TCanvas ne fonctionne-t-elle pas ?

[Linkin]

Car en FMX, TCanvas est une class abstraite:

TCanvas = class abstract(TInterfacedPersistent)

Il faudrait peut-être utiliser TCanvasManager.GetDefaultCanvas pour avoir la bonne classe.

[Invité]

Merci pour votre aide.

Cela me semble un peu compliqué en effet. En passant par un classique TBitmap, le problème semble résolu sur toutes les plateformes.