TRichEdit. Перенос курсора на другую строку

[Манжосов Денис :)]

Подскажите пожалуйста. Есть строка 1 и 2. Как мне сделать так, чтобы при переносе на строку 2 (при нажатии на Enter), позиция курсора по X сдвигалась на столько, сколько пробелов было перед началом текста на 1 строке. Если не очень понятно, могу сделать иллюстрацию к вопросу. Спасибо за помощь.

[Alex Cones]

Узнай, сколько пробелов было в начале строки 1 и столько же добавь в строку 2. Делаешь компилятор?

[Манжосов Денис :)]

Просто блокнот для своих нужд . Спасибо, не догадался. Дальше сам

[Манжосов Денис :)]

И всё-таки что-то у меня не выходит ничего. Вот код:

procedure TForm1.C_reEnter(Sender: TObject);
var
  x,i,k: integer;
  s: string;
begin
    x := 0;
    k := 1;
    s := c_Re.Lines.Strings[C_re.Lines.Count - 1];
    if s = '' then exit;
    while s[k] = ' ' do begin
      Inc(x);
      Inc(k);
    end;
    s := '';
    for i := 1 to x do s := s + ' ';
    C_re.Lines.Strings[C_re.Lines.Count] := s + C_re.Lines.Strings[C_re.Lines.Count];
end;

Немного несовершенный, согласен. Этот код не работает, можете помочь и сказать, что делаю не так?

[Alex Cones]

Может так:
*.Lines.Add(S);
Вместо C_re.Lines.Strings[C_re.Lines.Count] := s + C_re.Lines.Strings[C_re.Lines.Count];
P.S. Смоука в конце убивают

[Манжосов Денис :)]

Твой вариант не подходит, не работает.

[Alex Cones]

А потому, что она не выполняется, вот послушай:

procedure TForm1.C_reEnter(Sender: TObject);
var
  x,i,k: integer;
  s: string;
begin
    WINDOWS.BEEP(700,700);
    x := 0;
    k := 1;
    s := c_Re.Lines.Strings[C_re.Lines.Count - 1];
    if s = '' then exit;
    while s[k] = ' ' do begin
      Inc(x);
      Inc(k);
    end;
    s := '';
    for i := 1 to x do s := s + ' ';
    C_re.Lines.Strings[C_re.Lines.Count] := s + C_re.Lines.Strings[C_re.Lines.Count];
end;

Каждый раз при нажатии ENTER должна бикать.

[Манжосов Денис :)]

И это я тоже знаю, что не выполняется. Я ещё пробовал в процедуре OnKeyPress писать if Key = #13 then ну и код переноса курсора. Давайте без лишнего флуда, а то модераторы будут ругаццо

[Манжосов Денис :)]

Я не верю, что ни один человек на форуме не знает, как разрешить проблему. Это не обязательно должен быть компонент RichEdit, но и должен быть готовым компонентом с этой функцией.

[Kotofff]

Из DelphiWorld с моими коментами :

procedure TForm1.RichEdit1KeyPress(Sender: TObject; var Key: Char);
var
  line, col, indent: integer;
  S: string;
begin
  if key = #13 then// работаем только есть нажата Enter
  begin
    key := #0;// сбрасываем клавишу чтобы по-умолчанию ничего не произошло - все сделаем сами далее...
    with sender as TRichEdit do
    begin
      // вычисляем позицию курсора: строка, столбец
      line := PerForm( EM_EXLINEFROMCHAR, 0, SelStart );
      Col := SelStart - Perform( EM_LINEINDEX, line, 0 );
      // берем все что было слева от курсора
      S:= Copy( lines[ line ], 1, col );
      // считаем пробелы или табы слева и до первого символа 
      indent := 0;
      while (indent < length( S )) and (S[indent + 1] in [' ', #9]) do Inc( indent );
      // переводим строку и вставляем то что было нами взято слева до первого символа (отступ)
      SelText := #13#10 + Copy(S, 1, indent);
    end;
  end;
end;

Всё.
P.S.
Под рукой нету Делфи - проверить не смог, но DelphiWorld верил всегда... Удачи !