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

Delphi Sources



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

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 09.02.2019, 20:28
MotoArhangel MotoArhangel вне форума
Новичок
 
Регистрация: 14.10.2012
Сообщения: 58
Версия Delphi: Delphi 10.4
Репутация: 10
Вопрос Ошибка в RichEdit

Добрый день.
Что я делаю не так? При нескольких нажатиях мыши по RichEdit при выполнении кода появляется ошибка(прикрепил во вложениях).Такое ощущение, что причиной становится перескакивание каретки при нажатии мыши.
ReadOnly:=true
Код:
procedure TFMain.logAdd(LogText: string; color_log: Integer = 0);
var
  xStart: Integer;
  TimeLine:string;
begin
  TimeLine:='[ ' + TimeToStr(Now) + ' ] ';
  with RichEdit do
  begin
    xStart := Length(StringReplace(Text,#13,'',[rfReplaceAll, rfIgnoreCase]));
    Lines.Add(TimeLine + LogText);
    SetFocus;
    Lines.BeginUpdate;
    SelStart := xStart;
    SelLength := Length(TimeLine);
    SelAttributes.Style := SelAttributes.Style + [fsBold];
    case color_log of
      0:
        SelAttributes.Color := clGreen;
      1:
        SelAttributes.Color := clWebDarkOrange;
      2:
        SelAttributes.Color := clRed;
      3:
        SelAttributes.Color := clWebBrown;
    end;
    SetFocus;
    SelStart := xStart + SelLength;
    SelLength := Length(LogText);
    SelAttributes.Color := clBlue;
    Lines.EndUpdate;
  end;
end;
Изображения
Тип файла: jpg 2019-02-10_0-20-19.jpg (19.3 Кбайт, 0 просмотров)

Последний раз редактировалось MotoArhangel, 10.02.2019 в 08:49.
Ответить с цитированием
  #2  
Старый 10.02.2019, 10:23
MotoArhangel MotoArhangel вне форума
Новичок
 
Регистрация: 14.10.2012
Сообщения: 58
Версия Delphi: Delphi 10.4
Репутация: 10
По умолчанию

Решил вопрос. Как всегда сам себе ответил =) Неудачно длину вычислял.
Код:
SendMessage(Handle, EM_LINEINDEX, Lines.Count, 0);
Ответить с цитированием
Ответ


Delphi Sources

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

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

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

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


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


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

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

ВКонтакте   Facebook   Twitter