Скачать: CL | DM;

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

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

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

---

← →
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;

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c