Хочу бродить по RichEdit также как и в редакторе Delphi

← →
Silver_ © (2004-02-07 11:38) [0]

Т.е. не только до конца текста в строке, но и дальше.
Как ато осуществить?

Неужели заполнять строки чем-то, например пробелами?

← →
olookin © (2004-02-07 11:54) [1]

Я лично не вижу иного выхода. Потому как бродить (т.е. перемещать каретку) просто:

procedure TForm1.RichEdit1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var p,step: tpoint;
begin
Step.x:=richedit1.font.Size; Step.y:=Abs(richedit1.font.Height)+2;
p.x:=(X div Step.x)*Step.x; p.y:=(Y div Step.y)*Step.y;
SetCaretPos(p.x,p.y);
end;

А вот текст вставлять там куда ты "попродил" не удастся... Текст будет вставляться там где прежде каретка и была.

← →
Silver_ © (2004-02-08 12:59) [2]

> Неужели заполнять строки чем-то, например пробелами?

1. Кроме этого ничго не остается?
2. Это не самый лучший выход?

если 2. то какой выход видите вы?

В RichEdit не получится. Но есть готовые компоненты с такой функциональностью, пример использования - в Jedi Editor
http://jediedit.sourceforge.net/
Есть исходники.

Если не ошибаюсь (сам не проверял) такой компонент есть (Demo имеется) в библиотеке JVCL: http://jvcl.sourceforge.net/

Хочу бродить по RichEdit также как и в редакторе Delphi Найти похожие ветки