[Débutant] Function TextSize dans une unité

Version imprimable

19/07/2006, 17h36
dacid

[Débutant] Function TextSize dans une unité

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...imensionstexte
(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...)
19/07/2006, 17h45
Bestiol

A quelle ligne l'erreur est-elle indiquée par le compilateur ?
19/07/2006, 17h46
dacid

Oups, j'ai été un peu trop vite...
Sur:
C := TBitmap.create;

Rassures moi, ça plante aussi chez toi ?

eeeuh... non :lol:

Cette unité compile parfaitement :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
unit Unit2;
 
interface
 
uses
  Windows, Types, Classes, Graphics;
 
 
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 <> nil then  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.

Le seul problème que j'ai eu c'est que j'ai commencé par mettre Windows après Graphics dans les uses, donc le TBitmap était mal interprété !
Ce serait ptêtre ton problème aussi ;)

19/07/2006, 17h56
dacid

Extra, je te remercie Bestiol !

Je viens d'apprendre que l'ordre des uses à une importance... Ce pépin n'aura pas été inutile.

Une info toutefois:
L'integer: X ne sert jamais !
19/07/2006, 17h57
Bestiol

:)

Je vais en toucher un mot à Waskol ;)

N'oublie pas le bouton résolu :mrgreen:
20/07/2006, 13h34
LadyWasky

Ca y'est, Bestiol m'en à touché un mot :aie:
On corrige la FAQ pour la prochaine publication ;)

Merci Dacid !
20/07/2006, 13h36
Bestiol

comment t'es mesquin c'est Giovanny qui a fait tout le travail :aie: :aie: