Текущий архив: 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.12 c
