Discussion :

[Rylo-42]

Bonjour à tous,

J'ai un petit problème avec le dessin d'une parenthèse autour d'une fraction.
Lorsque je trace ma formule mathématique, j'ai besoin d'afficher une parenthèse autour d'une fraction. Pour cela je double la taille de ma parenthèse.
Mais cela me pose un problème car elle apparaît du coup plus "grasse"/"épaisse" que le reste du texte.



J'aurais besoin d'afficher la parenthèse un peu moins "épaisse" comme cela se fait dans Word par exemple (Le reste de l'affichage convient à mon client).



J'ai beau avoir testé drawString avec tous les paramètres possibles mais je n'y arrive pas.

J'ai joint mon projet (simplifié) à ce post.

FormuleDeveloppez.zip

Merci d'avance pour vos réponse.

[MABROUKI]

bonjour

Pour avoir un Font simple sans "fioritures" la famlle de font FontFamily.GenericMonospace est ton bienveillant ami...

code vb.net :

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
 
 
Public Class Form2
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        PictureBox1.Image = TracerFormule()
    End Sub
 
    Private Function TracerFormule(Optional ByVal TaillePolice As Integer = 10) As System.Drawing.Bitmap
        Dim UneImage As New System.Drawing.Bitmap(400, 400)
        UneImage.SetResolution(300, 300)
        Dim g As Graphics = Graphics.FromImage(UneImage)
        Dim TailleDefaut As Integer = 10
        Dim LaPolice As String = "Calibri"
 
 
        ' On récupére le lexeme (arbre) de la formule
        Dim myString As String = "( X y )"
 
        ' Pour que le texte soit beau à l'affichage
        g.TextRenderingHint = System.Drawing.Text.TextRenderingHint.AntiAliasGridFit
 
        '************* On dessine *************
 
        DrawString(g, myString, LaPolice, TaillePolice)
 
        ' On dispose les ressources
        g.Dispose()
        g = Nothing
 
        Return UneImage
    End Function
    Private Sub DrawString(ByRef g As Graphics, ByVal s As String, Optional ByVal LaPolice As String = "Courier New", Optional ByVal TaillePolice As Integer = 10)
        Dim UnStyle As FontStyle = FontStyle.Regular
        Dim fntParenthese As Font = New Font(FontFamily.GenericMonospace, TaillePolice * 2, UnStyle)
        Dim fntAutreChar As Font = New Font(LaPolice, TaillePolice, UnStyle)
        Dim sizeFont As Single = fntParenthese.Size
 
 
        Dim drawFormat As New StringFormat
        drawFormat.Alignment = StringAlignment.Center
        Dim position As PointF = g.MeasureString("(", fntParenthese)
 
        Dim pos As New Point(50, 50)
        For Each item As Char In s
            If item = "(" Or item = ")" Then
                g.DrawString(item, fntParenthese, Brushes.Black, position)
            Else
                g.DrawString(item, fntAutreChar, Brushes.Black, position)
            End If
 
            position.X += 20
        Next
 
 
    End Sub
 
 
 
 
End Class

Ce qui deseagrable c'est de lire des codes avec des details qui obscurcissent le probleme pose !!!
Bon Code ...

[Rylo-42]

Merci MABROUKI

Cela résout mon problème.

Je ferrais attention la prochaine fois à l'allure de mon projet pour mettre le strict nécessaire.