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

Форуми -> Програмування -> Розфарбування RichEdit в Delphi - Додання кольоровго тексту
 
programmer 21:02 15.06.2010 Цитувати № 1 [^]
 
Вітаю.

Потрібно додавати різнокольорові рядки в RichEdit. Може має хто потрібну функцію?
 
programmer 21:14 15.06.2010 Цитувати № 2 [^]
 
Сам знайшов. Можливо буде комусь цікаво :)

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;


  Логін:
  Пароль:
Книга Фріланс на західному ринку
Книга Фріланс на західному ринку

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