|
Форуми -> Програмування -> Розфарбування RichEdit в Delphi - Додання кольоровго тексту
|
Вітаю.
Потрібно додавати різнокольорові рядки в RichEdit. Може має хто потрібну функцію?
|
|
Сам знайшов. Можливо буде комусь цікаво :)
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;
|
|
Книга Фріланс на західному ринку
|
|