Fonction TextSize dans une unitéRésolu

Question

Bonjour,


Ca à l'air bête comme chou mais je n'arrive pas à mettre cette fonction dans une unité:
http://www.developpez.com/delphi/faq/?page=typechaine#dimensionstexte
(elle marche très bien dans une tForm)


Il me dit: type object ou class requis...


Je pense pourtant avoir bien mis tout ce qu'il fallait dans les uses:
uses Graphics, SysUtils, Classes, Math, types, Windows, StrUtils;
(j'ai même recopié tous les uses depuis la form ou ça marche...)

David, à VERSAILLES
http://www.gentag.fr

cs_Forman · Accepted Answer

Il faut mettre "Graphics" avant "Windows" dans les uses (car il y a un type TBitmap défini aussi dans Windows.pas, qui n'est pas une classe)

cs_nitrique · Answer

Oups, j'ai oublié de préciser...
Ca plante sur:
C := TBitmap.create;

[;)] David, à VERSAILLES
http://www.gentag.fr

Francky23012301 · Answer

Salut,

Caribensila : Ce téléscopage a t'il lieu avec toutes les versions de Delphi ? car perso je n'ai jamais rencontré de problèmes.

Merci

@+

cs_nitrique · Answer

Bonjour à tous,

Hé bien, c'est bon à savoir... C'est dommage de passer beaucoup de temps sur une bêtise comme ça !

Merci.

[;)] David, à VERSAILLES
http://www.gentag.fr

Cirec · Answer

Salut,

pas besoin de chercher des complications :

unit UTest;



interface


Uses Windows, Graphics; // et pas besoin d'inverser



Function TextSize(Phrase : string; Police : TFont =  nil) : TPoint;
 implementation 
Function TextSize(Phrase : string; Police : TFont  = nil) : TPoint;
var
  DC: HDC; 
  X: Integer; 
  Rect: TRect; 
  C : TBitmap; 
begin
  C :=  TBitmap.create; 
   if  police <> nilthen  C.canvas.Font : = police; 


    Rect.Left := 0; 
    Rect.Top:=0; 
    Rect.Right:=0; 
    Rect.Bottom:=0; 
    DC := GetDC(0); 
    C.Canvas.Handle := DC; 
    DrawText(C.Canvas.Handle, PChar(Phrase), Length(Phrase), Rect, (DT_EXPANDTABS or DT_CALCRECT)); 
    C.Canvas.Handle := 0; 
    ReleaseDC(0, DC); 
    result.X:=Rect.Right-Rect.Left; 
    result.Y:=Rect.Bottom-Rect.Top; 
    C.Free; 
end;



end.

Voilà et c'est tout 














@+
Cirec

cs_nitrique · Answer

Bonjour Cirec,

En fait, ce que tu viens de donner est ce qu'il faut faire...
Seulement, moi j'avais inversé windows et graphics et ça plantait sans que je sache pourquoi.

[;)] David, à VERSAILLES
http://www.gentag.fr

Cirec · Answer

Ok, en principe l'unité Windows est à déclarer en premier dans les Uses (Form où Unit) ceci pour éviter ce genre de problèmes.

Il existe toute fois d'autres "téléscopages" qui ne peuvent être évités 
Ex. dans la création de composant plus particulièrement dans la surcharge de certaines procédures, il y a "téléscopages" entre la variable Rect (TRect) et la fonction Rect (de l'unité Classes) mais dans ce cas c'est une erreur des Dev de Borland.

La solution est d'utiliser Rect (TRect) tel quel et
pour utiliser la fonction Rect il faut écrire Classes.Rect

Voili voilou c'est tout 

@+
Cirec

Fonction TextSize dans une unité

7 réponses

Votre réponse

Discussions similaires