Fixed issue #29 (After the window handle is recreated the Ribbon is missing).

Author: Joachim Marder

Lib/UIRibbon.pas

@@ -195,6 +195,7 @@   TUIRibbon = class(TWinControl, IUIApplication)
     procedure SetTextColor(const Value: TColor);
   protected
     procedure CreateWnd(); override;
+    procedure DestroyWnd(); override;
     procedure AddCommand(const Command: TUICommand);
     function GetColor(const PropKey: TUIPropertyKey): TUIHsbColor;
     procedure SetColor(const PropKey: TUIPropertyKey; const Value: TUIHsbColor);
@@ -996,9 +997,18 @@ procedure TUIRibbon.Load();
 procedure TUIRibbon.CreateWnd;
 begin
   inherited;
+  if csRecreating in ControlState then
+    FFramework.Initialize(Parent.Handle, Self);
   Load();
 end;
 
+procedure TUIRibbon.DestroyWnd;
+begin
+  inherited;
+  FFramework.Destroy();
+  fLoaded := False;
+end;
+
 function TUIRibbon.LoadRibbonSettings(): boolean;
 var
   lSettingsFileFullPath: string;