Set x64 flag for components. #20

Embarcadero · Dec 7, 2024 · fcdbc95 · fcdbc95
1 parent cefda3a
commit fcdbc95
Show file tree

Hide file tree

Showing 8 changed files with 9 additions and 2 deletions.
diff --git a/Source/BoldCursorHandle.pas b/Source/BoldCursorHandle.pas
@@ -16,6 +16,7 @@ interface
   TBoldCursorHandle = class;
 
   { TBoldCursorHandle }
+  [ComponentPlatforms(pidWin32 or pidWin64)]
   TBoldCursorHandle = class(TBoldAbstractListHandle)
   private
     fAutoFirst: Boolean;

diff --git a/Source/BoldDatabaseAdapterUniDAC.pas b/Source/BoldDatabaseAdapterUniDAC.pas
@@ -16,6 +16,7 @@ interface
   TBoldDatabaseAdapterUniDAC = class;
 
   { TBoldDatabaseAdapterUniDAC }
+  [ComponentPlatforms(pidWin32 or pidWin64)]
   TBoldDatabaseAdapterUniDAC = class(TBoldAbstractDatabaseAdapter)
   private
     fBoldUniDACConnection: TBoldUniDACConnection;

diff --git a/Source/BoldDerivedHandle.pas b/Source/BoldDerivedHandle.pas
@@ -26,6 +26,7 @@ interface
   TBoldDerivedHandle = class;
 
   {---TBoldDerviedHandle---}
+  [ComponentPlatforms(pidWin32 or pidWin64)]
   TBoldDerivedHandle = class(TBoldRootedHandle)
   private
     fOnDeriveAndSubscribe: TBoldHandleDeriveAndSubscribe;

diff --git a/Source/BoldExpressionHandle.pas b/Source/BoldExpressionHandle.pas
@@ -27,6 +27,7 @@   TBoldExpressionHandle = class;
   TBoldExpressionHandleClass = class of TBoldExpressionHandle;       
 
   {---TBoldExpressionHandle---}
+  [ComponentPlatforms(pidWin32 or pidWin64)]
   TBoldExpressionHandle = class(TBoldRootedHandle, IBoldOCLComponent)
   function IBoldOCLComponent.GetContextType = GetStaticRootType;
   private

diff --git a/Source/BoldExternalObjectSpaceEventHandler.pas b/Source/BoldExternalObjectSpaceEventHandler.pas
@@ -52,6 +52,7 @@   EOSSConflict = class(EOSS)
 
   TIdListArray = array of TBoldObjectIdList;
 
+  [ComponentPlatformsAttribute (pidWin32 or pidWin64)]
   TBoldExternalObjectSpaceEventHandler = class(TBoldStringDequeuer)
   private
     fBoldSystemHandle: TBoldSystemHandle;

diff --git a/Source/BoldExternalObjectSpaceEventHandlerReg.pas b/Source/BoldExternalObjectSpaceEventHandlerReg.pas
@@ -34,8 +34,8 @@ procedure RegisterEditors;
 
 procedure Register;
 begin
-    RegisterComponentsOnPalette;
-    RegisterEditors;
+  RegisterComponentsOnPalette;
+  RegisterEditors;
 end;
 
 end.

diff --git a/Source/BoldFilteredHandle.pas b/Source/BoldFilteredHandle.pas
@@ -20,6 +20,7 @@   TBoldFilteredHandle = class;
   TBoldElementFilter = function (Element: TBoldElement): Boolean of object;
 
   { TBoldFilter }
+  [ComponentPlatforms(pidWin32 or pidWin64)]
   TBoldFilter = class(TBoldSubscribableComponentViaBoldElem)
   private
     FOnFilter: TBoldElementFilter;

diff --git a/Source/BoldSortedHandle.pas b/Source/BoldSortedHandle.pas
@@ -16,6 +16,7 @@   TBoldComparer = class;
   TBoldSortedHandle = class;
 
  { TBoldComparer }
+  [ComponentPlatforms(pidWin32 or pidWin64)]
   TBoldComparer = class(TBoldSubscribableComponentViaBoldElem)
   private
     FOnCompare: TBoldElementCompare;