Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Embarcadero\BDS\16.0\Disabled IDE Packages]
"$(BDSBIN)\\ModernTheme220.bpl"="Embarcadero Theme Package"

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Embarcadero\BDS\16.0\Disabled IDE Packages]
"$(BDSBIN)\\ModernTheme220.bpl"=-

uses
{$IFDEF USENAMESPACE}
  Winapi.Windows, System.SysUtils, System.Classes, System.Generics.Collections,
  System.Rtti, System.TypInfo, Vcl.Controls, Vcl.Forms, Vcl.Menus, ToolsAPI,
  Vcl.Dialogs;                     // mod
{$ELSE}
  Windows, SysUtils, Classes, Generics.Collections, Rtti, TypInfo, Controls,
  Forms, Menus, ToolsAPI, Dialogs; // mod
{$ENDIF}

...

resourcestring
  sComment = 'コメント';
  sEditComment = 'コメントの編集(&D)...';
  sCaption = 'コメントの編集';              // Add
  sPrompt = 'コメントを入力してください。'; // Add

...

function TProjectMenuCreatorNotifier.AddMenu(const Ident: string): TMenuItem;
begin
  Result := TMenuItem.Create(nil);
  Result.Caption := sEditComment;
  Result.OnClick := MenuClick;
  Result.ShortCut := ShortCut(VK_F6, []); // Add
end;

...

procedure TProjectMenuCreatorNotifier.MenuClick(Sender: TObject);
//var
//  ident: string;
//  tree: TVirtualStringTree;
//begin
//  (BorlandIDEServices as IOTAProjectManager).GetCurrentSelection(ident);
//  if not IsTargetExtension(ident) then Exit;
//
//  tree := GetProjectTree;
//  if tree = nil then Exit;
//  tree.EditNode(tree.GetFirstSelected, 2);
var
  project: IOTAProject;
  ident: string;
  comment: string;
begin
  project := (BorlandIDEServices as IOTAProjectManager).GetCurrentSelection(ident);
  if not IsTargetExtension(ident) then
    Exit;
  comment := Projects[project.FileName, ident];
  if not InputQuery(sCaption, sPrompt, comment) then
    Exit;
  Projects[project.FileName, ident] := comment;
  GetProjectTree.Invalidate;
end;