Текущий архив: 2002.07.29;
Скачать: 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 вся ветка
Текущий архив: 2002.07.29;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.01 c
