Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

Узнать раскраску фона RichEdit   Найти похожие ветки 

 
картман ©   (2010-02-26 17:41) [0]

Всем доброго времени суток!

Нужно раскрашивать фон (шрифта?) RichEdit, крашу так:

procedure RESetSelBgColor(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;

procedure TForm1.Button1Click(Sender: TObject);
begin
 RESetSelBgColor(RichEdit1, clYellow);
end;

Потом мне нужно получить смещение и длину всех раскрашенных областей. Получаю так:

function REGetSelBgColor(RichEdit: TRichEdit): Boolean;
var
 Format: CHARFORMAT2;
begin
 FillChar(Format, SizeOf(Format), 0);
 with Format do
 begin
   cbSize := SizeOf(Format);
   dwMask := CFM_BACKCOLOR;
   Richedit.Perform(EM_GETCHARFORMAT, SCF_SELECTION, Longint(@Format));
 end;
 Result := Format.crBackColor > 0;
end;

procedure TForm1.Button4Click(Sender: TObject);
var
 st: string;
 i: Integer;
 InSel: Boolean;
begin
 st := "";
 InSel := False;
 for i := 0 to Length(RichEdit1.Text) - 1 do
 begin
   RichEdit1.SelStart := i;
   RichEdit1.SelLength := 1;
   if REGetSelBgColor(RichEdit1) then
   begin
     if not InSel then
     begin
       InSel := True;
       st := st + #13#10 + IntToStr(i);
     end;
   end
   else begin
     if InSel then
       st := st + "-" + IntToStr(i - 1);
     InSel := False;
   end;
 end;
 ShowMessage(st);
end;

Как получить то же самое не посылая сообщение для каждого символа?


 
KilkennyCat ©   (2010-02-26 18:26) [1]

посмотреть формат ртф и работать с ним нативно


 
картман ©   (2010-02-26 21:54) [2]


> KilkennyCat ©   (26.02.10 18:26) [1]

о-ох...
спасибо.



Страницы: 1 вся ветка

Текущий архив: 2010.08.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.065 c
15-1269080805
tippa
2010-03-20 13:26
2010.08.27
английский и программирование


2-1269712810
ZeTToG350
2010-03-27 21:00
2010.08.27
Проблемма с окнами


2-1275655873
SIV5000
2010-06-04 16:51
2010.08.27
Плавная промотка


15-1270451902
brother
2010-04-05 11:18
2010.08.27
FAT32


15-1265718113
Virtus
2010-02-09 15:21
2010.08.27
Активировать окно при наведении мышкой