Текущий архив: 2003.03.03;
Скачать: CL | DM;
Вниз
Delphi - RichEdit - Font Найти похожие ветки
← →
VP (2003-02-20 17:35) [0]Приветствую всех.
Вопрос такой. Туплю, не могу додуматься сам.
Есть RichEdit. В нем текст. В строку N мне надо добавить значение стринговой переменной S. Так вот надо, чтоб шрифт именно этой S был в RichEdite Жирный. Хоть направьте в нужную сторону. плиз
← →
MAN-IN-RED © (2003-02-20 17:38) [1]
SelAttributes
← →
VP (2003-02-20 17:58) [2]Это я знаю, как мне применить это именно к кусочку текста. который я вставил?
← →
Clickmaker © (2003-02-20 18:07) [3]Editor.SelStart = PosWhereYouInsertString;
Editor.SelLength := Length(S);
Editor.SelAttributes.Style := [fsBold];
Editor.SetSelection(-1, 0, false);
← →
MAN-In-RED © (2003-02-20 18:11) [4]
procedure TForm1.Button1Click(Sender: TObject);
var
Str :String;
Ns :Integer;
begin
Str := "ABC";
Ns := Length(RichEdit1.Text);
RichEdit1.Lines.Add(Str);
RichEdit1.SelStart := Ns;
RichEdit1.SelLength := Length(Str);
RichEdit1.SelAttributes.Style := [fsBold];
end;
// или так:
RichEdit1.SelAttributes.Style := [fsBold];
RichEdit1.Lines.Add(Str);
RichEdit1.SelAttributes.Style := [];
← →
VP (2003-02-20 18:12) [5]2 ClickMaster - спасибо.
Еще один вопрос
"PosWhereYouInsertString" как определить?
← →
MAN-In-RED © (2003-02-20 18:17) [6]
> VP (20.02.03 18:12)
MAN-In-RED © (20.02.03 18:11)
← →
Clickmaker © (2003-02-20 18:19) [7]Editor.Lines.Insert(N, S);
Pos := SendMessage(Editor.Handle, EM_LINEINDEX, N, 0);
← →
MAN-In-RED © (2003-02-20 18:20) [8]
> "PosWhereYouInsertString" как определить?
А каким образом ты в строку N вставляешь S?
RichEdit.Lines.Add...
or
RichEdit.Lines[1] := ...
???
← →
MAN-In-RED © (2003-02-20 18:27) [9]
PosWhereYouInsertString := RichEdit1.Perform(EM_LINEINDEX, 1{номер строки}, 0{это для красоты...});
Страницы: 1 вся ветка
Текущий архив: 2003.03.03;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.019 c
