[Voron]

Доброго времени суток.
Подскажите пожалуйста, как в RichEdit реализовать механизм, как в редакторе кода. То есть я пишу например SEL нажимаю Ctrl+Space и появляется список с возможными продолжениями SELECT допустим, я вибираю пункт списка и вместо SEL появляется в тексте SELECT.
Заранее спасибо!

[Страдалецъ]

Вы хотите именно реализовать сами это действо или вам важен результат?
Если второе, то просто воспользуйтесь готовыми компонентами, например такой сервис реализован в TMS-компонентах

[einstein]

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

[PhoeniX]

[offtop]Эйнштейн, твою дивизию! Честно, заколебал писать не просто английские, а "программерские" слова на русской раскладке.[/offtop]

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

[Pyro]

можно посмотреть открытые ide типа pyscripter или rde
в первом используются компоненты вокруг tsynedit
ещё есть какой-то synedit в lazarus и там он на первый взгляд по-мощнее

[PhoeniX]

Pyro, во-первых, SynEdit это редактор с поддержкой подсветки синтаксиса и кучей дополнительных фич, однако того, что хочет ТС, я в нём не видел.
Во-вторых, Lazarus, если на то пошло - аналог Delphi под Linux. И тут он всяко никаким боком.

Так что не путай тут никого...

[Pyro]

я както мини-иде делал до авто-комплита дело не дошло, но tsynautocomplete где-то видел
lazarus это не kylix, а он открытый и кросс-платформенный и там насколько я понял ихний-же tsynedit используется самим-же lazarus-ом, поэтому должен быть круче дельфовского, но в лазарус с delphi я не решился переходить

[Voron]

Сообщение от Страдалецъ

Вы хотите именно реализовать сами это действо или вам важен результат?
Если второе, то просто воспользуйтесь готовыми компонентами, например такой сервис реализован в TMS-компонентах

Хочу реализовать сам. В принципе механизм понятен. Хотел бы просто знать как получить координаты корретки (позицию курсора) в RICHEDIT в пикселях.

[Страдалецъ]

В общем примерно так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

procedure TForm1.RichEdit1KeyDown(Sender: TObject; var Key: Word;   Shift: TShiftState); var   Coords: TPoint; begin  if (Shift = [ssCtrl]) and (Key = VK_SPACE)  then begin       RichEdit1.Perform(EM_POSFROMCHAR, WPARAM(@Coords), RichEdit1.SelStart);       ListBox1.Left := RichEdit1.Left + Coords.X;       ListBox1.Top := RichEdit1.Top + Coords.Y;       ListBox1.Show;       ListBox1.SetFocus       end; end;   procedure TForm1.ListBox1KeyDown(Sender: TObject; var Key: Word;   Shift: TShiftState); begin  case Key  of VK_ESCAPE: ;     VK_RETURN: RichEdit1.SelText := ListBox1.Items[ListBox1.ItemIndex];     else Exit;  end;  ListBox1.Visible := False;  RichEdit1.SetFocus; end;.

[Voron]

Сообщение от Страдалецъ

В общем примерно так:

Код:

Благодарю!!!