Adapted project to V2.0 (issue #1)

Author: Joachim Marder

Samples/Medium Level/02 Context Popup/ContextPopup.dproj

@@ -43,10 +43,9 @@
         <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>
+        <DCC_Namespace>Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)</DCC_Namespace>
         <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Base_Win64)'!=''">
@@ -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>
+        <DCC_DebugInformation>0</DCC_DebugInformation>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_2)'!=''">
         <DCC_Optimize>false</DCC_Optimize>

Samples/Medium Level/02 Context Popup/FMain.dfm

@@ -1,7 +1,7 @@
 object FormMain: TFormMain
   Left = 0
   Top = 0
-  Caption = 'Context Popup'
+  Caption = 'Click one button in ribbon, then right click in form'
   ClientHeight = 337
   ClientWidth = 635
   Color = clBtnFace
@@ -14,4 +14,14 @@ object FormMain: TFormMain
   OnContextPopup = FormContextPopup
   PixelsPerInch = 96
   TextHeight = 13
+  object Ribbon: TUIRibbon
+    Left = 0
+    Top = 0
+    Width = 635
+    Height = 117
+    ResourceName = 'APPLICATION'
+    OnLoaded = RibbonLoaded
+    ExplicitLeft = 8
+    ExplicitTop = 128
+  end
 end

Samples/Medium Level/02 Context Popup/FMain.pas

@@ -4,23 +4,20 @@ interface
 
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, UIRibbonForm, UIRibbonCommands;
+  Dialogs, UIRibbonCommands, UIRibbon, Vcl.ExtCtrls;
 
 type
-  TFormMain = class(TUIRibbonForm)
+  TFormMain = class(TForm)
+    Ribbon: TUIRibbon;
     procedure FormContextPopup(Sender: TObject; MousePos: TPoint;
       var Handled: Boolean);
+    procedure RibbonLoaded(Sender: TObject);
   private
     { Private declarations }
     FCurrentContext: Integer;
     FCommandContexts: array [0..3] of TUICommandBoolean;
   private
     procedure ContextToggle(const Args: TUICommandBooleanEventArgs);
-  strict protected
-    procedure RibbonLoaded; override;
-  public
-    { Public declarations }
-    class function RibbonResourceName: String; override;
   end;
 
 var
@@ -31,7 +28,7 @@ implementation
 {$R *.dfm}
 
 uses
-  ContextPopupConst;
+  ContextPopupUI;
 
 { TFormMain }
 
@@ -55,7 +52,7 @@ procedure TFormMain.FormContextPopup(Sender: TObject; MousePos: TPoint;
   Ribbon.ShowContextPopup(FCurrentContext, P);
 end;
 
-procedure TFormMain.RibbonLoaded;
+procedure TFormMain.RibbonLoaded(Sender: TObject);
 const
   CONTEXTS: array [0..3] of Integer = (
     IDC_CMD_CONTEXT1, IDC_CMD_CONTEXT2, IDC_CMD_CONTEXT3, IDC_CMD_CONTEXT4);
@@ -77,9 +74,4 @@ procedure TFormMain.RibbonLoaded;
   FCommandContexts[0].Checked := True;
 end;
 
-class function TFormMain.RibbonResourceName: String;
-begin
-  Result := 'CONTEXTPOPUP';
-end;
-
 end.