Česky
 In English


WinForms RichTextBox avec espacement des paragraphes en C#


En travaillant sur un logiciel pour le Collège technique et Lycée de Lowanatom, j'ai trouvé, que j'ai besoin du RichTextBox en C# WinForms, qui est capable d'espacer les paragraphes. Malheureusement tous les forums, que j'ai visité, disaient, que c'est "impossible" ou "trop difficile". Bon ... il parait, que le RichTextBox a bien des capacités cachées, qu'il n’expose. Après un peu du bricolage, j'ai trouvé une solution viable et assez simple. Le code complète pour un custom control est ici-bas. Profitez-en!

Astuce: pour que les espaces soient vraiment visibles, il faut insérer les valeurs autour de 100 ou 200 au moins.

Liens intéressants:


using System;
using System.Collections.Generic;
using System.Linq;
using System.Runtime.InteropServices;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;

namespace Exerc
{
    class RichTextBoxWithParagraphSpacing : RichTextBox
    {
        private const int PFM_SPACEBEFORE = 64;
        private const int PFM_SPACEAFTER = 128;
        private const int EM_SETPARAFORMAT = 1095;
        private const int SCF_SELECTION = 1;

        public int SelectionParagraphSpacingAfter
        {
            set
            {
                PARAFORMAT fmt = new PARAFORMAT();
                fmt.cbSize = Marshal.SizeOf(fmt);
                fmt.dwMask = PFM_SPACEAFTER;
                fmt.dySpaceAfter = value;
                SendMessage(new HandleRef(this, this.Handle),
                             EM_SETPARAFORMAT,
                             SCF_SELECTION,
                             ref fmt
                           );
            }
        }

        public int SelectionParagraphSpacingBefore
        {
            set
            {
                PARAFORMAT fmt = new PARAFORMAT();
                fmt.cbSize = Marshal.SizeOf(fmt);
                fmt.dwMask = PFM_SPACEBEFORE;
                fmt.dySpaceBefore = value;
                SendMessage(new HandleRef(this, this.Handle),
                             EM_SETPARAFORMAT,
                             SCF_SELECTION,
                             ref fmt
                           );
            }
        }

        [StructLayout(LayoutKind.Sequential)]
        private struct PARAFORMAT
        {
            public int cbSize;
            public uint dwMask;
            public short wNumbering;
            public short wReserved;
            public int dxStartIndent;
            public int dxRightIndent;
            public int dxOffset;
            public short wAlignment;
            public short cTabCount;
            [MarshalAs(UnmanagedType.ByValArray, SizeConst = 32)]
            public int[] rgxTabs;

            // PARAFORMAT2 from here onwards.
            public int dySpaceBefore;
            public int dySpaceAfter;
            public int dyLineSpacing;
            public short sStyle;
            public byte bLineSpacingRule;
            public byte bOutlineLevel;
            public short wShadingWeight;
            public short wShadingStyle;
            public short wNumberingStart;
            public short wNumberingStyle;
            public short wNumberingTab;
            public short wBorderSpace;
            public short wBorderWidth;
            public short wBorders;
        }

        [DllImport("user32", CharSet = CharSet.Auto)]
        private static extern int SendMessage(HandleRef hWnd,
                                               int msg,
                                               int wParam,
                                               ref PARAFORMAT lp);
    }

}
Vidéos suggérées | Voir plus sur mon canal YouTube
Západ slunce | Sunset time capture - Lowanatom | Tanna | Vanuatu
2013-05-25 Večerní cesta na misii | Evening on Lowanatom mission

Vanuatu