Как вывести в RichEdit e?

← →
Pomashok (2003-09-15 17:48) [0]

Необходимо вывести строку "Угол наклона

← →
jack128 © (2003-09-15 17:53) [1]

Выделяешь нужный символ и TCustomRichEdit.SelAttributes меняешь на нужный фонт

← →
Nikolay M. © (2003-09-15 17:58) [2]

Выделить символ b через SelStart/SelLength, установить для него шрифт System (AFAIR)...

← →
PVOzerski © (2003-09-15 18:03) [3]

>Nikolay M. © (15.09.03 17:58) [2]
фонт Symbol

← →
Pomashok (2003-09-15 18:09) [4]

А что делать если за этим следует вторая строка "Угол наклона

← →
Nikolay M. © (2003-09-15 18:13) [5]

> PVOzerski © (15.09.03 18:03) [3]

Угу, ачепятался... Конец дня... :)

> тогда для этой строки уже нельзя применить SelStart/SelLength

А ты пробовал?

← →
clickmaker © (2003-09-15 18:15) [6]

> Pomashok (15.09.03 18:09) [4]

Угу. И угол наклона строки тож будет меняться :)

← →
Pomashok (2003-09-15 18:36) [7]

Ох, лучше не острите а помогите!!! замучался уже :(

Лучше через SelStart, SelText
т.е. добавляешь "Угол наклона "
меняешь шрифт и ставишь курсор в конец строки
добавляешь "

← →
Pomashok (2003-09-15 19:08) [9]

Как поставить курсор в конец строки?
Можно ли программно поставить курсор в строку 2 и позицию 3 ?

← →
GEN (2003-09-16 01:52) [10]

procedure TForm1.setCursor(nomStr,nomPos:word);
var
n,k,u:integer;
s:string;
begin
n:=0;
S:=re.Text;
for k:=1 to nomStr-1 do
begin
u:= Pos(#13,s);
if u=0 then exit;
n:=n+u;
delete(s,1,u);

end;

if length(re.text)<n+nomPos then exit;
re.SelStart:=n+nomPos;
re.SetFocus;
end;

Как вывести в RichEdit e? Найти похожие ветки