IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Delphi Discussion :

[Débutant] Function TextSize dans une unité


Sujet :

Delphi

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éprouvé Avatar de dacid
    Homme Profil pro
    Inscrit en
    Juin 2003
    Messages
    1 065
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 1 065
    Par défaut [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...)

  2. #2
    Membre Expert
    Avatar de Bestiol
    Profil pro
    Inscrit en
    Mai 2002
    Messages
    1 515
    Détails du profil
    Informations personnelles :
    Âge : 38
    Localisation : France, Paris (Île de France)

    Informations forums :
    Inscription : Mai 2002
    Messages : 1 515
    Par défaut
    A quelle ligne l'erreur est-elle indiquée par le compilateur ?
    Mea est trop forte, elle flotte : mea coule pas !

    Basically this boot sector (Win95) code is 32 bit extension for a 16 bit patch to an 8 bit boot sector originally coded for a 4 bit microprocessor, written by a 2 bit company, that can't stand 1 bit of competition.

    olance.developpez.com
    Servez-vous, profitez, abusez de la FAQ Delphi !!

  3. #3
    Membre éprouvé Avatar de dacid
    Homme Profil pro
    Inscrit en
    Juin 2003
    Messages
    1 065
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 1 065
    Par défaut
    Oups, j'ai été un peu trop vite...
    Sur:
    C := TBitmap.create;

    Rassures moi, ça plante aussi chez toi ?

  4. #4
    Membre Expert
    Avatar de Bestiol
    Profil pro
    Inscrit en
    Mai 2002
    Messages
    1 515
    Détails du profil
    Informations personnelles :
    Âge : 38
    Localisation : France, Paris (Île de France)

    Informations forums :
    Inscription : Mai 2002
    Messages : 1 515
    Par défaut
    eeeuh... non

    Cette unité compile parfaitement :

    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
    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
    Mea est trop forte, elle flotte : mea coule pas !

    Basically this boot sector (Win95) code is 32 bit extension for a 16 bit patch to an 8 bit boot sector originally coded for a 4 bit microprocessor, written by a 2 bit company, that can't stand 1 bit of competition.

    olance.developpez.com
    Servez-vous, profitez, abusez de la FAQ Delphi !!

  5. #5
    Membre éprouvé Avatar de dacid
    Homme Profil pro
    Inscrit en
    Juin 2003
    Messages
    1 065
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 1 065
    Par défaut
    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 !

  6. #6
    Membre Expert
    Avatar de Bestiol
    Profil pro
    Inscrit en
    Mai 2002
    Messages
    1 515
    Détails du profil
    Informations personnelles :
    Âge : 38
    Localisation : France, Paris (Île de France)

    Informations forums :
    Inscription : Mai 2002
    Messages : 1 515
    Par défaut


    Je vais en toucher un mot à Waskol

    N'oublie pas le bouton résolu
    Mea est trop forte, elle flotte : mea coule pas !

    Basically this boot sector (Win95) code is 32 bit extension for a 16 bit patch to an 8 bit boot sector originally coded for a 4 bit microprocessor, written by a 2 bit company, that can't stand 1 bit of competition.

    olance.developpez.com
    Servez-vous, profitez, abusez de la FAQ Delphi !!

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 9
    Dernier message: 09/11/2005, 11h53
  2. [Débutant] Sélection multiples dans une Listbox
    Par eraim dans le forum Access
    Réponses: 4
    Dernier message: 15/10/2005, 03h21
  3. Réponses: 1
    Dernier message: 23/09/2005, 18h30
  4. Comment empêcher le debuger d'entrer dans une unité ?
    Par Alex Laforest dans le forum EDI
    Réponses: 5
    Dernier message: 22/07/2005, 21h14
  5. Réponses: 8
    Dernier message: 05/05/2004, 16h28

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo