Текущий архив: 2003.11.13;
Скачать: CL | DM;

Вниз

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

← →
Виктор   (2003-11-03 11:34) [0]

Привет всем!
Может знает кто принцип написания CodeInsight
Например, юзер печатает в RichEdit"е текст, поставил точку (или другой служебный символ) и возле курсора вываливается окошко со списком своих "методов" и "свойств" (их можно хранить в TStringList).
Короче нужен некий аналог дельфовского CodeInsight. Может компонент какой-нить есть?

Спасибо

---

← →
Gero ©   (2003-11-03 11:53) [1]

Можно попататья так:
Создаешь компонент на основе, например, TPanel. Вставляешь в него TListBox со всеми свойствами. Потом пишешь :

procedure RichEdit1KeyPress(.. Key : Char);
var
C : Char;
Count : Integer;
S : string;
begin
if Key = "." then
with RichEdit1 do
begin
C := Text[SelStart];
while not (C in [ #0, #13, " "]) do
begin
Inc(Count);
C := Text[SelStart - Count];
S := S + C;
end;
MyCodeInsight1.Show;
MyCodeInsight1.FindMethod(S);
end;
end;


---

← →
Виктор   (2003-11-03 14:56) [2]

Хотя это далеко не готовое решение, но Вы дали мне направление, в котором надо идти. Спасибо.

---

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

Текущий архив: 2003.11.13;
Скачать: CL | DM;

Наверх

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