Issue #22: Write the path to the Ribbon Designer to the registry, so that the designtime package knows where to find it.

Author: Joachim Marder

Designer/FMain.pas

@@ -160,7 +160,7 @@   TFormMain = class(TForm)
 implementation
 
 uses
-  UITypes;
+  UITypes, System.Win.Registry, UIRibbonUtils;
 
 {$R *.dfm}
 
@@ -367,6 +367,15 @@ procedure TFormMain.CMShowingChanged(var Msg: TMessage);
 constructor TFormMain.Create(AOwner: TComponent);
 begin
   inherited;
+  // Write the path to the Ribbon Designer to the registry, so that the designtime package knows where to find it. Issue #22
+  With TRegistry.Create do
+    try
+      OpenKey(cRegistryPath, True);
+      WriteString(cRegistryKeyDesigner, ParamStr(0));
+    finally
+      Free;
+    end;
+
   FDocument := TRibbonDocument.Create;
   FCompiler := TRibbonCompiler.Create;
   FCompiler.OnMessage := RibbonCompilerMessage;

Lib/UIRibbonUtils.pas

@@ -15,6 +15,14 @@ function ColorToHsb(const Color: TColor): TUIHsbColor;
 
 function CreateStringFromResource(const ResourceId: Integer): String;
 
+
+const
+  cPackageTitle = 'Ribbon Framework';
+  cRegistryPath = 'Software\Embarcadero\' + cPackageTitle;
+  cRegistryKeyDesigner = 'RibbonDesigner';
+
+
+
 implementation
 
 uses