[ya_vanka2]

Добрый день!

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

Код:

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


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

Код:

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]

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

Код:

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