Adapted to V2.0 of Windows Ribbon Framework for Delphi

Author: joachim.marder

Samples/Medium Level/01 Simple Ribbon/FMain.dfm

@@ -13,4 +13,11 @@ object FormMain: TFormMain
   OldCreateOrder = False
   PixelsPerInch = 96
   TextHeight = 13
+  object Ribbon: TUIRibbon
+    Left = 0
+    Top = 0
+    Width = 635
+    Height = 117
+    ResourceName = 'SIMPLERIBBON'
+  end
 end

Samples/Medium Level/01 Simple Ribbon/FMain.pas

@@ -4,15 +4,14 @@ interface
 
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, UIRibbonForm;
+  Dialogs, UIRibbon;
 
 type
-  TFormMain = class(TUIRibbonForm)
+  TFormMain = class(TForm)
+    Ribbon: TUIRibbon;
   private
     { Private declarations }
   public
-    { Public declarations }
-    class function RibbonResourceName: String; override;
   end;
 
 var
@@ -24,9 +23,4 @@ implementation
 
 { TFormMain }
 
-class function TFormMain.RibbonResourceName: String;
-begin
-  Result := 'SIMPLERIBBON';
-end;
-
 end.

Samples/Medium Level/01 Simple Ribbon/SimpleRibbon.dpr

@@ -10,7 +10,8 @@ uses
   UIRibbonUtils in '..\..\..\Lib\UIRibbonUtils.pas',
   UIRibbonApi in '..\..\..\Lib\UIRibbonApi.pas',
   UIRibbonCommands in '..\..\..\Lib\UIRibbonCommands.pas',
-  WinApiEx in '..\..\..\Lib\WinApiEx.pas';
+  WinApiEx in '..\..\..\Lib\WinApiEx.pas',
+  UIRibbonActions in '..\..\..\Lib\UIRibbonActions.pas';
 
 {$R *.res}
 

Samples/Medium Level/01 Simple Ribbon/SimpleRibbon.dproj

@@ -1,7 +1,7 @@
 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
     <PropertyGroup>
         <ProjectGuid>{6E0E82F5-3468-4D20-A6F4-9F31565804B1}</ProjectGuid>
-        <ProjectVersion>14.3</ProjectVersion>
+        <ProjectVersion>16.0</ProjectVersion>
         <MainSource>SimpleRibbon.dpr</MainSource>
         <Config Condition="'$(Config)'==''">Debug</Config>
         <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
@@ -43,7 +43,6 @@
         <DCC_Platform>x86</DCC_Platform>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Base_Win32)'!=''">
-        <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
         <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
         <VerInfo_Locale>1033</VerInfo_Locale>
         <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
@@ -56,7 +55,7 @@
         <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
         <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
         <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
-        <DCC_DebugInformation>false</DCC_DebugInformation>
+
     </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_2)'!=''">
         <BRCC_CompilerToUse>rc</BRCC_CompilerToUse>