Fixed warnings: W1025 Unsupported language feature: 'class constructor'

Author: Joachim Marder

Lib/UIRibbon.pas

@@ -49,9 +49,8 @@   TRibbonMarkupElement = record
   TRibbonMarkupElementList = class(TList<TRibbonMarkupElement>)
   strict private
     fResourceName: string;
+  private
     class var fContainer: TObjectList<TRibbonMarkupElementList>;
-    class constructor Create;
-    class destructor Destroy;
   public
     class function LookupListByResourceName(const pResourceName: string): TRibbonMarkupElementList;
     function TryGetItem(pID: integer; out pItem: TRibbonMarkupElement): boolean;
@@ -515,16 +514,6 @@ constructor TRibbonMarkupElementList.Create(pResourceName: string);
   fContainer.Add(Self);
 end;
 
-class constructor TRibbonMarkupElementList.Create;
-begin
-  fContainer := nil;
-end;
-
-class destructor TRibbonMarkupElementList.Destroy;
-begin
-  FreeAndNil(fContainer);
-end;
-
 class function TRibbonMarkupElementList.LookupListByResourceName(const pResourceName: string): TRibbonMarkupElementList;
 var
   lElement: TRibbonMarkupElementList;
@@ -1386,4 +1375,11 @@ function TUIRibbon._Release: Integer;
   Result := -1;
 end;
 
+
+initialization
+  TRibbonMarkupElementList.fContainer := nil;
+
+finalization
+  FreeAndNil(TRibbonMarkupElementList.fContainer);
+
 end.