Форум: "Основная";
Текущий архив: 2003.11.27;
Скачать: [xml.tar.bz2];

Вниз

OpenAPI работа с редактором   Найти похожие ветки 

← →
SkyRanger   (2003-11-18 04:47) [0]

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

Код обновления формы эксперта:


procedure TWizardDataModule.Timer1Timer(Sender: TObject);
var
ModuleServices: IOTAModuleServices;
Module: IOTAModule;
Editor: IOTASourceEditor;
I : Byte;
Intf: IOTAEditor;
begin
ModuleServices := BorlandIDEServices as IOTAModuleServices;
Module := ModuleServices.CurrentModule;
if Module = nil then
Exit;
ExpertForm.MainForm.SB.Panels.Items[3].Text:=Module.FileName;
for I := 0 to Module.GetModuleFileCount-1 do
begin
Intf := Module.GetModuleFileEditor(I);
if Intf.QueryInterface(IOTASourceEditor, Editor) = S_OK then
Break;
end;
if Editor = nil then
Exit;
if (Editor.Modified) then
ExpertForm.MainForm.SB.Panels.Items[2].Text:="Modified"
else
ExpertForm.MainForm.SB.Panels.Items[2].Text:="";
ExpertForm.MainForm.SB.Panels.Items[0].Text:=
IntToStr(Editor.BlockStart.Line)+": "+
IntToStr(Editor.BlockStart.CharIndex+1);
end;


---

← →
SkyRanger   (2003-11-18 09:30) [1]

Блин понял в чем косяк...
Editor.BlockStart - ентот зверь работает тока при выделении какого то текста мышой... поентому ему пофигу нажатия клавишь!

---

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

Форум: "Основная";
Текущий архив: 2003.11.27;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.011 c