| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как в ;RichEdit изменить цвета отдельных строк.... [D6, Win2k]
EugenCFG © (2002-07-15 19:44:00)Как в RichEdit изменить цвета отдельных строк....
FLAME (2002-07-15 23:22:00) [1]>И как определить конкретную строку....
RichEdit1.CaretPos для определения позиции курсора, и еще пара функций:
function RichRow(RE: TRichedit): Longint;
begin
Result := SendMessage(RE.Handle, EM_LINEFROMCHAR, RE.SelStart, 0);
end;
function RichCol(RE: TRichedit): Longint;
begin
Result := RE.SelStart - SendMessage(RE.Handle, EM_LINEINDEX, SendMessage(RE.Handle, EM_LINEFROMCHAR, RE.SelStart, 0), 0);
end;
EugenCFG (2002-07-15 23:15:00) [2]Спасибо большое!!!
mukha (2002-07-15 23:11:00) [3]procedure TForm1.Button1Click(Sender: TObject);
var OldColor:TColor;
begin
OldColor :=RichEdit1.Font.Color;
RichEdit1.SelAttributes.Color := clBlue;
RichEdit1.Lines.Add("Эта строка синего цвета.");
end;
Song (2002-07-15 23:07:00) [4]В хэлпе по TCustomRichEdit.SelAttributes есть отличный пример
EugenCFG (2002-07-15 23:00:00) [5]И как определить конкретную строку....
FLAME (2002-07-15 20:05:00) [6]RichEdit.SelAttributes.Color
| |
