如何指示 Delphi IDE 使用 OTA（Open Tools API）刷新修改后的语法高亮颜色？

Question

我正在编写一个插件以将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)?

如果您需要更多信息或问题不清楚，请告诉我。

Answer 1

我想说你最好的办法是窥探coreide*.@Envoptions@TEnvironmentOptions@EditorSourceOptionsBeforeSave 或coreide*.@Envoptions@TEnvironmentOptions@EditorSourceOptionsAfterSave

当点击 Ok 按钮时，它们会被调用。我不太擅长阅读程序集，但从外观上看，环境选项是在 IDE 初始化期间从寄存器加载的，所做的任何更改都会根据需要写回，但 IDE 取决于 TEnvironmentOptions 的内存实例所有环境选项的权威表示。

coreide*.@Envoptions@TEnvironmentOptions@GetEdColors 似乎是从环境选项中检索颜色以供 TEditorColor 编辑的位置

很遗憾，这些类都没有暴露给 OTA 或 NTA。

Answer 2

一个应该有预期效果的小技巧是让你的插件弹出环境选项对话框，并让操作员手动关闭它。这会导致 IDE 根据提交的设置重新初始化其配置。

为此，获取项目的句柄（IOTAProject 对象）并调用...

AProject.ProjectOptions.EditOptions;

其中AProject 定义为AProject: IOTAProject。

我知道这不是最优雅的解决方案，但如果它有预期的效果，至少它有点实用。