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 ?