Как в RichEdit изменить цвета отдельных строк....

← →
EugenCFG (2002-07-15 19:44) [0]

← →
FLAME (2002-07-15 20:05) [1]

RichEdit.SelAttributes.Color

← →
EugenCFG (2002-07-15 23:00) [2]

И как определить конкретную строку....

← →
Song (2002-07-15 23:07) [3]

В хэлпе по TCustomRichEdit.SelAttributes есть отличный пример

← →
mukha (2002-07-15 23:11) [4]

procedure TForm1.Button1Click(Sender: TObject);
var OldColor:TColor;
begin
OldColor :=RichEdit1.Font.Color;
RichEdit1.SelAttributes.Color := clBlue;
RichEdit1.Lines.Add("Эта строка синего цвета.");
end;

← →
EugenCFG (2002-07-15 23:15) [5]

Спасибо большое!!!

← →
FLAME (2002-07-15 23:22) [6]

>И как определить конкретную строку....
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;

Как в RichEdit изменить цвета отдельных строк.... Найти похожие ветки