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

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

enter image description here

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

В настоящее время я могу изменить и сохранить новые значения, но я не могу дать указание Delphi IDE применить новую конфигурацию, ch anges видны только при перезапуске 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)
004219B8 17405 1F44 __fastcall Editcolorpage::TEditorColor::InitSamplePane()
00421BC8 17403 1F45 __fastcall Editcolorpage::TEditorColor::InitSyntaxEditView(const System::DelphiInterface)
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()

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

Дайте мне знать, если вам нужна дополнительная информация или если вопрос не ясен.

12
задан RRUZ 28 March 2012 в 19:44
поделиться