Скачать: 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 вся ветка

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



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