Последние записи

made in programmersforum 8

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

16th
Июн

Выделить строку RichEdit жирным

Posted by Chas under Delphi

Вывожу данные из базы в RichEdit. А как сделать чтобы строка ‘Остановлен: ‘ + ADOTable1.FieldByName(‘Время_ост’). AsString выделялась жирным

Аватар
Как вариант

var SelStart,SelLen: Integer;

    s: String;

begin

  edtNotes.Lines.Add('Организация: '+ADOTable1.FieldByName('Организация').AsString);

  edtNotes.Lines.Add('Адрес: '+ADOTable1.FieldByName('Адрес').AsString);

  ...

  edtNotes.Lines.Add('Запущен: '+ADOTable1.FieldByName('Время_пуск').AsString);

  SelStart:=Length(edtNotes.Text);

  s:='Остановлен: '+ADOTable1.FieldByName('Время_ост').AsString;

  SelLen:=Length(s);

  edtNotes.Lines.Add(s);

  edtNotes.SelStart:=SelStart;

  edtNotes.SelLength:=SelLen;

  edtNotes.SelAttributes.Style:=edtNotes.SelAttributes.Style+[fsBold];

//Чтобы не было выделения

  edtNotes.SelStart:=0;

  edtNotes.SelLength:=0;

end;