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

Как вывести в 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]

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

---

← →
ZEE ©   (2003-09-15 18:44) [8]

Лучше через 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;

---

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

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



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