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

Memo   Найти похожие ветки 

← →
злобная танька   (2005-10-28 23:33) [0]

подскажите как сделать чтобы в мемо отступ строчек сохранялся? ну как в делфи.. два раза пробел даванул потом ентер и о чудо следующая строка начинается с двух пробелов!

---

← →
Sam Stone ©   (2005-10-28 23:47) [1]

ручками по нажатию енетера добавляем два пробела и о чудо: следующая строка начинается с двух пробелов. Механизм, конечно, не совсем такой, как в дельфевом редакторе...

---

← →
злобная танька   (2005-10-28 23:50) [2]

в смысле ручьками?
через свойство text чтоля? как-то дубово имхо. думала мож сообщение какое послать можно.. чтобы пряма с курсора само добавилось че надо. ну ладно будем делать дубово.

---

← →
wp2   (2005-10-28 23:53) [3]

Вопрос у меня еще круче: Как сделать, чтобы после Add("string"); курсор не переходил на следующую строку???

---

← →
злобная танька   (2005-10-28 23:59) [4]

> wp2   (28.10.05 23:53) [3]

хохо ну ето вобще ерунда. запоминаем позицию курсора до аддстринга а после него возвращаем курсор куда надо. усё через проперти SelStart.

---

← →
злобная танька   (2005-10-29 00:03) [5]

> Sam Stone ©   (28.10.05 23:47) [1]

а какой механизм в дельфевом редакторе?

---

← →
Джо ©   (2005-10-29 00:35) [6]

Если возникают такие проблему, то тут явно возможностей одного TMemo маловато. Есть хороший бесплатный компонент SynEdit - он много чего умеет.

---

← →
злобная танька   (2005-10-29 00:44) [7]

> Джо ©   (29.10.05 00:35) [6]

спасибо, поищем!

вот шо у меня получилось кстати:

 if key = #13 then with Text do
 begin
   cp := SelStart;
   Lines.BeginUpdate;
   s := Text;
   SetLength(sp, numspaces);
   FillChar(sp[1], numspaces + 1, " ");
   Insert(#13#10+sp, s, cp + 1);
   Text := s;
   SelStart := cp + numspaces + 2;
   Lines.EndUpdate;
   key := #0;
 end;

не понятно только куда SelStart уползает, что его ещё на 2 смещать приходится.. наверно это из-за #13#10.

---

← →
Piter ©   (2005-10-29 02:53) [8]

wp2   (28.10.05 23:53) [3]
Вопрос у меня еще круче: Как сделать, чтобы после Add("string"); курсор не переходил на следующую строку???

не надо пользоваться Add

---

← →
Defunct ©   (2005-10-29 05:36) [9]

> и о чудо
никаких пятен!

Вы еще кипятите?
А мы уже рубим!
.... и скоро придем к вам (smirk)
(C) антиреклама Taid

> злобная танька   (29.10.05 00:03) [5]
Разбито на клетки..
(добивался подобного эффекта как в редакторе Delphi в обычном ричэдите с моноширным шрифтом). Каждую новую строку RichEdit"а дополнял пробелами до 1024, при вводе текста лишние пробелы выбрасывал из строки. Потом времени не было этим заниматься (оставалось при сохранении пробелы лишние выкидывать) так и не доделал. Если есть желание и время поробуйте идею, вдруг что-то путное и получится.

---

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

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



Память: 0.47 MB
Время: 0.03 c