No longer using deprecated TUIRibbonForm but a TUIRibbon control placed on the form.

Author: joachim.marder

Designer/FPreview.dfm

@@ -15,7 +15,7 @@ object FormPreview: TFormPreview
   TextHeight = 13
   object PageControl: TPageControl
     Left = 0
-    Top = 0
+    Top = 117
     Width = 635
     Height = 462
     ActivePage = TabSheetColorize
@@ -26,7 +26,7 @@ object FormPreview: TFormPreview
       object LabelAppModes: TLabel
         Left = 0
         Top = 0
-        Width = 198
+        Width = 627
         Height = 13
         Align = alTop
         Caption = '* There are no application modes defined'
@@ -54,7 +54,7 @@ object FormPreview: TFormPreview
       object LabelContextTabs: TLabel
         Left = 0
         Top = 0
-        Width = 188
+        Width = 627
         Height = 13
         Align = alTop
         Caption = '* There are no contextual tabs defined'
@@ -82,7 +82,7 @@ object FormPreview: TFormPreview
       object LabelContextPopups: TLabel
         Left = 0
         Top = 0
-        Width = 182
+        Width = 627
         Height = 13
         Align = alTop
         Caption = '* There are no context popus defined'
@@ -712,4 +712,12 @@ object FormPreview: TFormPreview
       end
     end
   end
+  object Ribbon: TUIRibbon
+    Left = 0
+    Top = 0
+    Width = 635
+    Height = 117
+    ResourceName = 'APPLICATION'
+    OnCommandCreate = CommandCreated
+  end
 end

Designer/FPreview.pas

@@ -8,7 +8,7 @@ interface
   StdCtrls, CheckLst, RibbonMarkup, BasicXml, Generics.Collections, ExtCtrls;
 
 type
-  TFormPreview = class(TUIRibbonForm)
+  TFormPreview = class(TForm)
     PageControl: TPageControl;
     TabSheetAppModes: TTabSheet;
     TabSheetContextTabs: TTabSheet;
@@ -75,13 +75,15 @@   TFormPreview = class(TUIRibbonForm)
     UpDownTextS: TUpDown;
     EditTextB: TEdit;
     UpDownTextB: TUpDown;
+    Ribbon: TUIRibbon;
     procedure CheckListBoxAppModesClickCheck(Sender: TObject);
     procedure CheckListBoxContextTabsClickCheck(Sender: TObject);
     procedure ListBoxContextPopupsClick(Sender: TObject);
     procedure PanelSampleClick(Sender: TObject);
     procedure EditBackgroundColorChange(Sender: TObject);
     procedure EditHighlightColorChange(Sender: TObject);
     procedure EditTextColorChange(Sender: TObject);
+    procedure CommandCreated(const Sender: TUIRibbon; const Command: TUICommand);
   private
     { Private declarations }
     FInstance: THandle;
@@ -98,15 +100,10 @@   TFormPreview = class(TUIRibbonForm)
     procedure InitializeContextualTabs;
     procedure InitializeContextPopups;
     procedure InitializeColorization;
-  strict protected
-    procedure CommandCreated(const Sender: TUIRibbon;
-      const Command: TUICommand); override;
   public
     { Public declarations }
     constructor Create(const Instance: THandle; const Document: TRibbonDocument); reintroduce;
     destructor Destroy; override;
-
-    function RibbonInstance: THandle; override;
   end;
 
 resourcestring
@@ -488,9 +485,5 @@ procedure TFormPreview.CommandCreated(const Sender: TUIRibbon;
   end;
 end;
 
-function TFormPreview.RibbonInstance: THandle;
-begin
-  Result := FInstance;
-end;
 
 end.

Designer/RibbonDesigner.dproj

@@ -1,18 +1,24 @@
-	<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
     <PropertyGroup>
         <ProjectGuid>{453097E8-48A7-46E6-A57F-BDD6E5BE0E90}</ProjectGuid>
         <MainSource>RibbonDesigner.dpr</MainSource>
-			<ProjectVersion>12.3</ProjectVersion>
+        <ProjectVersion>16.0</ProjectVersion>
         <Base>True</Base>
-        <Config Condition="'$(Config)'==''">Release</Config>
-			<Platform>Win32</Platform>
+        <Config Condition="'$(Config)'==''">Debug</Config>
         <AppType>Application</AppType>
         <FrameworkType>VCL</FrameworkType>
         <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+        <TargetedPlatforms>1</TargetedPlatforms>
+        <Platform Condition="'$(Platform)'==''">Win32</Platform>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
         <Base>true</Base>
     </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
+        <Base_Win32>true</Base_Win32>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
     <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_1)'!=''">
         <Cfg_1>true</Cfg_1>
         <CfgParent>Base</CfgParent>
@@ -24,6 +30,14 @@
         <Base>true</Base>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Base)'!=''">
+        <VerInfo_MajorVer>2</VerInfo_MajorVer>
+        <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
+        <VerInfo_Build>70</VerInfo_Build>
+        <DCC_Namespace>Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;System.Win;$(DCC_Namespace)</DCC_Namespace>
+        <VerInfo_Locale>1033</VerInfo_Locale>
+        <SanitizedProjectName>RibbonDesigner</SanitizedProjectName>
+        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+        <VerInfo_Keys>CompanyName=Erik van Bilsen AudioVisuality;FileDescription=Ribbon Designer;FileVersion=2.0.0.70;InternalName=;LegalCopyright=© 2011 Erik van Bilsen, Joachim Marder e.K.;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=2.0;Comments=</VerInfo_Keys>
         <DCC_UnitSearchPath>..\Lib;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
         <DCC_DependencyCheckOutputName>RibbonDesigner.exe</DCC_DependencyCheckOutputName>
         <DCC_ImageBase>00400000</DCC_ImageBase>
@@ -34,6 +48,10 @@
         <DCC_F>false</DCC_F>
         <DCC_K>false</DCC_K>
     </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_Win32)'!=''">
+        <DCC_Namespace>Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
+        <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
+    </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_1)'!=''">
         <DCC_DependencyCheckOutputName>Bin\RibbonDesigner.exe</DCC_DependencyCheckOutputName>
         <DCC_DebugDCUs>true</DCC_DebugDCUs>
@@ -49,10 +67,10 @@
         <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
         <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
         <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
-			<DCC_DebugInformation>false</DCC_DebugInformation>
+        <DCC_DebugInformation>0</DCC_DebugInformation>
     </PropertyGroup>
     <ItemGroup>
-			<DelphiCompile Include="RibbonDesigner.dpr">
+        <DelphiCompile Include="$(MainSource)">
             <MainSource>MainSource</MainSource>
         </DelphiCompile>
         <RcCompile Include="..\Lib\UIRibbon.rc">
@@ -249,13 +267,13 @@
             <Form>FormNewFile</Form>
         </DCCReference>
         <DCCReference Include="Classes\BasicZip.pas"/>
-			<BuildConfiguration Include="Base">
-				<Key>Base</Key>
-			</BuildConfiguration>
         <BuildConfiguration Include="Release">
             <Key>Cfg_2</Key>
             <CfgParent>Base</CfgParent>
         </BuildConfiguration>
+        <BuildConfiguration Include="Base">
+            <Key>Base</Key>
+        </BuildConfiguration>
         <BuildConfiguration Include="Debug">
             <Key>Cfg_1</Key>
             <CfgParent>Base</CfgParent>
@@ -305,8 +323,10 @@
             </Delphi.Personality>
             <Platforms>
                 <Platform value="Win32">True</Platform>
+                <Platform value="Win64">False</Platform>
             </Platforms>
         </BorlandProject>
         <ProjectFileVersion>12</ProjectFileVersion>
     </ProjectExtensions>
-	</Project>
+    <Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
+</Project>