Add option to specify pen with for misspelled words?

  • Currently the non-traditional curly line under misspelled words does not stand out very well in some circumstances (customer feedback). It appears to be a 1px line. Can an option be added to increase it to 2px. I changed the source in WPRTEPaint's DrawCurly procedure from: DestCanvas.Pen.Width := 0; to DestCanvas.Pen.Width := px2; which really makes it stand out nicely for us.

  • In case others might want a curly line that looks like the one being used in Thunderbird email clients, you can make the following changes in WPRTEPaint:


    Code
    1. //curly_trad: array[0..11] of Integer = (0, -1, -1, 0, 0, -1, -1, 0, 0, -1, -1, 0);
    2. curly_trad: array[0..11] of Integer = (3, 1, 0, 0, 1, 3, 3, 1, 0, 0, 1, 3);
    3. ...
    4. DestCanvas.Pen.Width := px2; // Changed Width from 0 to px2
    5. ...
    6. if (wpTraditionalMisspellMarkers in ViewOptions) then // Added conditional since start positions differ
    7. DestCanvas.MoveTo(LastLineSpellX, LastLineY + px2 + curly_trad[loop] * px1)
    8. else
    9. DestCanvas.MoveTo(LastLineSpellX, LastLineY + px2 + curly[loop] * px1);