Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Компоненты и классы
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 06.11.2023, 13:41
ya_vanka2 ya_vanka2 вне форума
Прохожий
 
Регистрация: 06.11.2023
Сообщения: 1
Версия Delphi: Delphi 2010
Репутация: 10
По умолчанию Проблема с подсветкой части строк добавляемых в TRichEdit

Добрый день!

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

Код:
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. На скриншотах ещё одна подсветка - синяя. Не обращайте на неё внимания. Из кода убрал для сокращения сообщения.
Ответить с цитированием
  #2  
Старый 07.11.2023, 00:41
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,051
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

А если попробовать:
Код:
FoundPos := Length(REdit.Text) - Length(FullStr);
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 02:10.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter