Discussion :

[kurul1]

Bonjour à tous

J'affiche dans un Panel, un graphique avec un repère et l'échelle. J'utilise donc des TextOut pour afficher les valeurs des graduations. Ce que je voudrais, c'est réduire la taille du texte que j'affiche dans ces TextOut car ils sont trop gros et se chevauche.

Merci d'avance pour votre aide.

[ChicoLau]

Salut,

tu aurais du mettre ton code pour voir comment tu fais les TextOut.
Voici ce que tu peux faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
    TCanvas * cnv = new TCanvas;
    cnv->Handle = GetDC(Panel1->Handle); 
    cnv->Font->Size = 4;    //Taille de 4 points
    cnv->TextOutA(0,0,"graduations");

[kurul1]

Voilà mon code désolé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
   // On se positionne en x
   x = 15;
 
   // On rend la couleur de la brosse tramsparante
   ImageComposantes->Canvas->Brush->Style = bsClear;
 
   // On définit la couleur de la Font
   ImageComposantes->Canvas->Font->Color = clBlack;
 
   ImageComposantes->Canvas->TextOut(x, (y - 7), i);
 
   // On réactive la brosse
   ImageComposantes->Canvas->Brush->Style = bsSolid;

ImageComposantes est un TImage
i est géré par une boucle et correspond a la valeur affichée
y est géré par une boucle et correspond à l'ordonnée.

J'ai fait un test en affichant le size de ma police pour savoir quelle valeur il avait et je l'ai ensuite réduit mais la taille n'a pas bougé.

[ChicoLau]

En fait le size de la font d'un canvas est limité à 8, voici un exemple de comment réduire la taille :

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
 
    LOGFONT lf;
    memset(&lf,0,sizeof(LOGFONT));
    lf.lfHeight = 6;
//création d'une font avec taille 6
    HFONT hFont = CreateFontIndirect(&lf);
 
//sélection de cette font dans le canvas en cours
    SelectObject(ImageComposantes->Canvas->Handle,hFont);
 
//afficher texte du canvas en noir
    SetTextColor(ImageComposantes->Canvas->Handle,clBlack);
 
//ton code
   // On se positionne en x
   x = 15;
 
   // On rend la couleur de la brosse tramsparante
   ImageComposantes->Canvas->Brush->Style = bsClear;
/*
   // On définit la couleur de la Font
   ImageComposantes->Canvas->Font->Color = clBlack;
*/
   ImageComposantes->Canvas->TextOut(x, (y - 7), i);
 
   // On réactive la brosse
   ImageComposantes->Canvas->Brush->Style = bsSolid;

Attention il ne faut plus que tu agisses sur Canvas->Font directement sinon la sélection de la font créée dans le canvas est remplacé, c'est pour cela que j'ai mis en commentaire "ImageComposantes->Canvas->Font->Color = clBlack;"
Tout ce que le Canvas te permet de faire tu peux le faire directement avec les API windows.
Si dans Borland tu fais "F1" sur CreateFontIndirect puis tu cliques sur "Group" tu verra toutes les APIS se rapportant aux FONT.
A partir de là tu ne seras plus contraint aux limites de la classe TCanvas.

[kurul1]

Si j'ai bien compris, je dois créer une font et l'affecter à mon canvas.

Je vais tester tout de suite.

[henderson]

Salut !

Pour une petite fonte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

...Canvas->Font->Name = "Small Fonts"; (taille de 2 à 7)

Consulter la propriété Font depuis l'inspecteur d'objets voir lister les fontes disponibles.

La taille de la fonte "MS Serif" commence normalement à partir de 6
Celle de la fonte "Terminal" commence normalement à partir de 5

Pour modifier le style, comme par exemple mettre en gras :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

...Canvas->Font->Style = ...Canvas->Font->Style << fsBold;

Pour retirer le style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

...Canvas->Font->Style = ...Canvas->Font->Style >> fsBold;

A plus !

[ChicoLau]

Merci pour les infos, la police "Small Fonts" je connaissais pas.

[kurul1]

Moi non plus.

Merci à toi ChicoLau pour ton aide, ca marche nikel

Merci à toi Henderson car ta solution semble plus simple, et fonctionne également parfaitement.