скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

Изменить цвет выделения для TRichEdit



Оформил: DeeCo

uses
   RichEdit;

 procedure RE_SetSelBgColor(RichEdit: TRichEdit; AColor: TColor);
 var
   Format: CHARFORMAT2;
 begin
   FillChar(Format, SizeOf(Format), 0);
   with Format do
   begin
     cbSize := SizeOf(Format);
     dwMask := CFM_BACKCOLOR;
     crBackColor := AColor;
     Richedit.Perform(EM_SETCHARFORMAT, SCF_SELECTION, Longint(@Format));
   end;
 end;

 // Example: Set clYellow background color for the selected text. 
procedure TForm1.Button1Click(Sender: TObject);
 begin
   RE_SetSelBgColor(RichEdit1, clYellow);
 end;





Copyright © 2004-2016 "Delphi Sources". Delphi World FAQ




Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook