Как указать, чтобы IDE Delphi обновлял измененные цвета подсветки синтаксиса с помощью OTA (API открытых инструментов)?

Я пишу плагин для интеграции Delphi IDE Theme Editor с помощью Rad Studio IDE (текущая версия этого инструмента работает как внешнее приложение) пока все работает нормально (см. ниже изображение), за исключением того факта, который я не могу понять, как обновить выделенные цвета подсветки синтаксиса в Delphi IDE

Позвольте мне пояснить, что в стандартной опции для изменения цветов подсветки синтаксиса (Параметры редактора → Цвет) вы можете настроить любой элемент и назначить новый цвет переднего и заднего фона, затем, если вы нажмете кнопку . OK ., примените IDE изменения и окна редактора IDE обновляются с новыми настройками.

В настоящее время я могу изменять и сохранять новые значения, но я не могу приказать Delphi IDE применять новую конфигурацию, изменения видны только в том случае, если среда IDE перезагружена.

Я искал блок ToolsAPI, и я нашел интерфейсы IOTAEditOptions, IOTAHighlighter и IOTAHighlightServices, но ни один из них не включает в себя возможность обновления (перезагрузки) измененной настройки.

Также я пробовал unmangle (используя tdump) и напрямую вызывал функции файла coreide1XX.bpl, но это тоже не сработало.

00420B94 17411 1F39 Editcolorpage::TEditorColor::
00422188 17400 1F3A __fastcall Editcolorpage::TEditorColor::ColorClick(System::TObject *)
0042174C 17407 1F3B __fastcall Editcolorpage::TEditorColor::ColorSpeedSettingClick(System::TObject *)
004224BC 17396 1F3C __fastcall Editcolorpage::TEditorColor::DefaultClick(System::TObject *)
00422414 17397 1F3D __fastcall Editcolorpage::TEditorColor::EditorColorBroadcast(System::TObject *, Winapi::Messages::TMessage&)
00421584 17409 1F3E __fastcall Editcolorpage::TEditorColor::EditorColorCreate(System::TObject *)
00421730 17408 1F3F __fastcall Editcolorpage::TEditorColor::EditorColorDestroy(System::TObject *)
004217B0 17406 1F40 __fastcall Editcolorpage::TEditorColor::ElementListClick(System::TObject *)
004222E8 17399 1F41 __fastcall Editcolorpage::TEditorColor::FontClick(System::TObject *)
004225DC 17395 1F42 __fastcall Editcolorpage::TEditorColor::HelpClick(System::TObject *)
00421AE8 17404 1F43 __fastcall Editcolorpage::TEditorColor::InitLineFlags(const System::DelphiInterface<Toolsapi::IOTAHighlighterPreview>)
004219B8 17405 1F44 __fastcall Editcolorpage::TEditorColor::InitSamplePane()
00421BC8 17403 1F45 __fastcall Editcolorpage::TEditorColor::InitSyntaxEditView(const System::DelphiInterface<Toolsapi::IOTAHighlighterPreview>)
0042262C 17393 1F46 __fastcall Editcolorpage::TEditorColor::LoadHighlightPreviews()
004225F4 17394 1F47 __fastcall Editcolorpage::TEditorColor::MarkDirty()
004220E4 17401 1F48 __fastcall Editcolorpage::TEditorColor::SampleClick(System::TObject *)
00422080 17402 1F49 __fastcall Editcolorpage::TEditorColor::SetColorSpeedSetting(Vedopts::TColorSpeedSetting)
0042238C 17398 1F4A __fastcall Editcolorpage::TEditorColor::UpdateSamplePane()
00422814 17392 1F4B __fastcall Editcolorpage::TEditorColor::tbsetPreviewsChange(System::TObject *, int, bool&)
004AA8D4 17390 1F4C __fastcall Editcolorpage::initialization()
00423C38 17413 1F4D __fastcall Editdisplaypage::Finalization()

How I can instruct to the Delphi IDE refresh the modified syntax highlight colors using OTA (Open Tools API)?

Сообщите мне, если вам нужна дополнительная информация или вопрос непонятен.

Ответ 1

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

Чтобы сделать это, получите дескриптор объекта Project (IOTAProject) и вызовите...

AProject.ProjectOptions.EditOptions;

Где AProject определяется как AProject: IOTAProject.

Я знаю, что это не самый элегантный из решений, но если он имеет желаемый эффект, по крайней мере, он несколько практичен.

Ответ 2

Я бы сказал, что лучше всего будет следить за coreide*[email protected]@[email protected] или coreide*[email protected]@[email protected]

Они вызываются при нажатии кнопки Ok. Я не очень хорошо разбираюсь в сборке, но из-за того, что параметры среды загружаются из реестра во время инициализации IDE, и любые сделанные изменения записываются по мере необходимости, но среда IDE зависит от экземпляра памяти TEnvironmentOptions авторитарное представление всех параметров среды.

coreide*[email protected]@[email protected] появляется там, где цвета извлекаются из параметров среды для редактирования с помощью TEditorColor

Несчастливо ни один из этих классов не подвергается OTA или NTA.