paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 08:09:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: win, IME Handler: prevent underline styles from other markup

Browse Source 
git-svn-id: trunk@48513 -
This commit is contained in:
martin 2015-03-26 18:30:01 +00:00
parent b239addb71
commit aaaeb005bf
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/synedit/lazsynimm.pas
View File

@ -497,13 +497,21 @@ begin
TSynEditMarkupManager(MarkupMgr).AddMarkUp(FImeMarkupSelection3);
FImeMarkupSelection.MarkupInfo.Clear;
FImeMarkupSelection.MarkupInfo.FramePriority := 999;
FImeMarkupSelection.MarkupInfo.FramePriority := MaxInt-1;
FImeMarkupSelection.MarkupInfo.FrameColor := clDefault;
FImeMarkupSelection.MarkupInfo.FrameStyle := slsDotted;
FImeMarkupSelection.MarkupInfo.FrameEdges := sfeBottom;
// TODO: prevent any other frame in the active IME (as it distracts from IME underlines
// this includes left/right frame edges (can not currently be prevented)
// prevent any underline
FImeMarkupSelection.MarkupInfo.StylePriority[fsUnderline] := MaxInt;
FImeMarkupSelection.MarkupInfo.Style:= [];
FImeMarkupSelection.MarkupInfo.StyleMask:= [fsUnderline];
FImeMarkupSelection2.MarkupInfo.Clear;
FImeMarkupSelection2.MarkupInfo.FramePriority := 999+1;
FImeMarkupSelection2.MarkupInfo.FramePriority := MaxInt;
FImeMarkupSelection2.MarkupInfo.FrameColor := clDefault;
FImeMarkupSelection2.MarkupInfo.FrameStyle := slsSolid;
FImeMarkupSelection2.MarkupInfo.FrameEdges := sfeBottom;