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

API, COM et SDKs Delphi Discussion :

Creer une FONT


Sujet :

API, COM et SDKs Delphi

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Inscrit en
    Juillet 2005
    Messages
    12
    Détails du profil
    Informations forums :
    Inscription : Juillet 2005
    Messages : 12
    Par défaut Creer une FONT
    Salut

    Comment creer sa propre fonte,e t quelle sont les programme que vous me conseiller.

    Merci.

  2. #2
    Membre Expert

    Homme Profil pro
    Consultant informatique
    Inscrit en
    Janvier 2004
    Messages
    2 301
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Suisse

    Informations professionnelles :
    Activité : Consultant informatique
    Secteur : Finance

    Informations forums :
    Inscription : Janvier 2004
    Messages : 2 301
    Par défaut
    HS

  3. #3
    Membre chevronné Avatar de chtiot
    Profil pro
    Inscrit en
    Octobre 2002
    Messages
    385
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2002
    Messages : 385
    Par défaut
    il y a high-logic font creator qui est pas trop mal

  4. #4
    Expert confirmé
    Avatar de anapurna
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Mai 2002
    Messages
    3 489
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Arts - Culture

    Informations forums :
    Inscription : Mai 2002
    Messages : 3 489
    Par défaut
    salut

    en quoi la creation d'une font est HS

    voila un morceau de code te permetant de creer une font
    dans son appli

    il existe deux solution pour generer des font dans une appli
    soit

    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
    Font1:=CreateFont(
        -12,                           // Height
        0,                             // Width
        0,                             // Angle of Rotation
        0,                             // Orientation
        FW_NORMAL,                     // Weight
        0,                             // Italic
        0,                             // Underline
        0,                             // Strike Out
        ANSI_CHARSET,                  // Char Set
        OUT_DEFAULT_PRECIS,            // Precision
        CLIP_DEFAULT_PRECIS,           // Clipping
        DEFAULT_QUALITY,               // Render Quality
        VARIABLE_PITCH or FF_SWISS,    // Pitch & Family
        'MS Sans Serif');              // Font Name
    ou utiliser CreateFontIndirect en remplisant l'enregistrement de type
    LOGFONT

    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
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
     
    var
      DefFontLog1: TLogFont;
     
    with DefFontLog1 do
      begin
      lfHeight := -12;
      lfWidth := 0;
      lfEscapement := 0;
      lfOrientation := 0;
      lfWeight := 0;
      lfItalic := 0;
      lfUnderline := 0;
      lfStrikeOut := 0;
      lfCharSet := DEFAULT_CHARSET;
      lfFaceName := 'MS Sans Serif';
      lfOutPrecision := OUT_DEFAULT_PRECIS;
      lfClipPrecision := CLIP_DEFAULT_PRECIS;
      lfQuality := DEFAULT_QUALITY;
      lfPitchAndFamily := DEFAULT_PITCH;
      end;
    FontHandle := CreateFontIndirect(DefFontLog1);
     
    with DefFontLog1 do
      begin
      lfHeight := -14;
      lfWidth := 0;
      lfItalic := 0;
      lfWeight := FW_BOLD;
      lfCharSet := DEFAULT_CHARSET;
      lfOutPrecision := OUT_TT_PRECIS;
      lfClipPrecision := CLIP_DEFAULT_PRECIS;
      lfQuality := {DEFAULT_QUALITY}ANTIALIASED_QUALITY;
      lfPitchAndFamily := VARIABLE_PITCH or FF_ROMAN;
      lfFaceName := 'Times New Roman';
      end;
    Font2 := CreateFontIndirect(DefFontLog1);
     
    with DefFontLog1 do
      begin
      lfHeight := -20;
      lfWidth := 0;
      lfItalic := 1;
      lfWeight := FW_NORMAL;
      lfPitchAndFamily := VARIABLE_PITCH or FF_DECORATIVE{FF_SCRIPT}{FF_SWISS};
       lfFaceName := 'v8j9k2a5';
      end;
    Font3 := CreateFontIndirect(DefFontLog1);
     
    with DefFontLog1 do
      begin
      lfHeight := -14;
      lfWidth := 0;
      lfItalic := 0;
      lfEscapement := 200;
      lfOrientation := lfEscapement;
      lfPitchAndFamily := VARIABLE_PITCH or FF_SWISS;
      lfFaceName := 'Arial';
      end;
    Font4 := CreateFontIndirect(DefFontLog1);
     
    with DefFontLog1 do
      begin
      lfHeight := -14;
      lfEscapement := 3400;
      lfOrientation := lfEscapement;
      end;
    Font5 := CreateFontIndirect(DefFontLog1);
     
    with DefFontLog1 do
      begin
      lfHeight := -16;
      lfWeight := 0;
      lfEscapement := 900;
      {this font is rotated 90 degrees}
      lfOrientation := lfEscapement;
      end;
    Font6 := CreateFontIndirect(DefFontLog1);
     
    with DefFontLog1 do
      begin
      lfHeight := -16;
      lfEscapement := 2700;
      lfOrientation := lfEscapement;
      lfPitchAndFamily := VARIABLE_PITCH or FF_ROMAN;
      lfFaceName := 'Times New Roman';
      end;
    Font7 := CreateFontIndirect(DefFontLog1);


    @+ phil

Discussions similaires

  1. [langage] Creer une fonction qui met en majuscule ?
    Par Cyber@l dans le forum Langage
    Réponses: 6
    Dernier message: 04/12/2003, 18h44
  2. [TP]comment creer une disquette bootable (les fichiers)
    Par ludovic5532 dans le forum Turbo Pascal
    Réponses: 5
    Dernier message: 25/10/2003, 18h46
  3. Créer une diquette de boot
    Par gwen-al dans le forum Administration système
    Réponses: 2
    Dernier message: 02/07/2003, 14h48
  4. jaimerais savoir commen creer une grille.......
    Par zephyr dans le forum Flash
    Réponses: 5
    Dernier message: 29/04/2003, 12h14
  5. [VB6]Créer une Base de données
    Par ThierryAIM dans le forum VB 6 et antérieur
    Réponses: 4
    Dernier message: 07/04/2003, 17h24

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