[ya_vanka2]

Добрый день!

Столкнулся с проблемой. Необходимо подсвечивать часть добавляемых строк. Написал процедуру:

Код:

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

procedure AddLineToRichEdit(LogMsg : TLogMessage); var   PrefixStr, FullStr : string;   PrevTextLen, PrevSelStart, FoundPos : integer;     procedure SelectRgn(sfrom, sto : longint; hRich : THandle);   var     CharRange : TCharRange;   begin     CharRange.cpMin := sfrom;     CharRange.cpMax := sto;     SendMessage(hRich, EM_EXSETSEL, 0, Longint(@CharRange));   end;   {аналог вызовов REdit.SelStart, REdit.SelLength только одним сообщением     REdit.SelStart := sfrom;     REdit.SelLength := sto - sfrom;}   begin   PrevTextLen := Length(REdit.Text);   PrevSelStart := REdit.SelStart;     PrefixStr := GetLogMsgPrefix(LogMsg.DirectionType, LogMsg.Time);     FullStr := PrefixStr + LogMsg.Text;   if (LogMsg.HexLog <> '') then FullStr := FullStr + #13{#10} + LogMsg.HexLog;     REdit.Lines.Add(FullStr);   FoundPos := PrevTextLen;     if (FoundPos >= 0) then   begin     SelectRgn(FoundPos, FoundPos + Length(PrefixStr), REdit.Handle);     SetStyle($00979797, [], REdit.Handle);   end; end;

Но при каждой новой добавленной строке происходит сдвиг вправо подсвечиваемой области. т.е. по непонятной причине выделенная область к которой применяется стиль сдвигается.

Получается вот так:
photo_2023-11-06_13-30-08_result.jpg


Я подумал, может надо не учитывать символ перевода строки и попробовал написать

Код:

1	FoundPos := PrevTextLen - 1*(REdit.Lines.Count);

Так сдвигается в другую сторону:
photo_2023-11-06_13-30-34_result.jpg



Как добиться того, чтобы сдвига не было?
И получалось вот так:
photo_2023-11-06_13-30-28_result.jpg


PS. На скриншотах ещё одна подсветка - синяя. Не обращайте на неё внимания. Из кода убрал для сокращения сообщения.

[lmikle]

А если попробовать:

Код:

1	FoundPos := Length(REdit.Text) - Length(FullStr);