Discussion :

[martinus45]

Bonjour,

J'avais sous Delphi le code suivant qui compilait bien :

Code :

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

1
2
3
4
5
6
7
8
var
  Taille : TSize; 
  Fond : TBitMap ;
  UnTexte : string ;
 
begin
   UnTexte := 'aaaaaaaa';
   Taille := Fond.Canvas.TextExtent(UnTexte);

Avec Lazarus 0.9.28, j'ai une erreur de compilation sur la dernière ligne :

Error: Incompatible types: got "TSize" expected "LongWord"


Je ne comprends pas pourquoi, puisque que la fonction TextExtent du Canvas semble toujours retourner un TSize, et pas un LongWord.

Vous pourriez m'aider ?

[M.Dlb]

As-tu essayer un transtypage de la valeur retournée par TextExtent en LongWord ?

[martinus45]

Si je fais :

Code :

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

Taille := TSize( Fond.Canvas.TextExtent(UnTexte))

j'ai une erreur de compilation :

Error: Illegal type conversion: "<record type>" to "DWord"


Le seul contournement que j'ai trouvé est de déclarer H et L comme Integer et de faire :

Code :

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

1
2
  L := Fond.Canvas.TextExtent(UnTexte).Cx;
  H := Fond.Canvas.TextExtent(UnTexte).Cy;

C'est moins élégant... et non compatible avec Delphi.

[chris37]

Ca marche pas ca ?

Code :

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

1
2
Canvas.TextWidth('MON TEXTE');
Canvas.TextHeight('MON TEXTE');

J'ai fais ce test rapidos

Code :

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

1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
var
  Taille : TSize; //Mettre Types dans le uses
begin
 Taille:=Canvas.TextExtent('TOTO');
 ShowMessage(inttostr(taille.cx)+#13#10+inttostr(Canvas.TextWidth('TOTO')));
end;

Ça roule, j'obtiens la même valeur...

[martinus45]

Oui, si ça marche aussi bien sûr, mais ça fait un peu plus de modifications au code.

J'aurais quand même bien aimé comprendre pourquoi le code initial ne se compile pas.

Est-ce que les fonctions ne peuvent pas renvoyer un type structuré en FPC ? (Si oui, l'erreur de compilation devrait être au niveau de la fonction).

A+

Martinus

[chris37]

Salut Martin,

Ton code initial fonctionne bien chez moi

Si bien sur, une fonction peut renvoyer ce que tu veux !

Passe moi ton code si c'est possible, on va regarder ca

@+