ГоловнаКаталогБлогРейтингЕ-Пошта 
 
 
Зробити домашньою у вибране  

  Відповісти  

  Попередні відповіді  
programmer
Сам знайшов. Можливо буде комусь цікаво :)

Text
procedure AddText(ARichEdit: TRichEdit; const AText: string; ABold: Boolean; AColor: TColor);
var sel: TCharRange;
begin
  sel.cpMin := ARichEdit.GetTextLen;
  sel.cpMax := sel.cpMin;
  // перейти в кінець річедіта
  ARichEdit.Perform(EM_EXSETSEL, 0, Longint(@sel));
  // встановити стиль
  if ABold then
    ARichEdit.SelAttributes.Style := [fsBold]
  else
    ARichEdit.SelAttributes.Style := [];
  ARichEdit.SelAttributes.Color := AColor;
  // додати текст
  ARichEdit.Perform(EM_REPLACESEL, 0, Longint(PChar(AText)));
// прокрутити в кінець  ARichEdit.Perform(EM_SCROLl, SB_PAGEDOWN , 0);
end;
procedure test;
begin
  RichEdit1.Clear;
  AddText(RichEdit1, '1234', False, clBlack);
  AddText(RichEdit1, 'abcd'#13#10, True, clRed);
  AddText(RichEdit1, 'qwerty', False, clBlack);
end;
programmer
Вітаю.

Потрібно додавати різнокольорові рядки в RichEdit. Може має хто потрібну функцію?


  Ім'я:
  Пароль:
РОСІЙСЬКО-УКРАЇНСЬКИЙ НАУКОВО-ТЕХНІЧНИЙ СЛОВНИК. (30 000 слів)
РОСІЙСЬКО-УКРАЇНСЬКИЙ НАУКОВО-ТЕХНІЧНИЙ СЛОВНИК. (30 000 слів)

APServer | SiMan CMS | Лічильник відвідувань | Тека сайтів | Рейтинг | Форум | Лінійки малюкам | PHP Builder | Download | Шаблони сторінок | Посібник Smarty | Підручник PHP | Статті/Огляди | Розробка сайтів | Банерна мережа