From fcdbc95f18acd5a2d108d43c81edd53f7eb85800 Mon Sep 17 00:00:00 2001
From: Roland Bengtsson <roland.bengtsson@aholadigital.com>
Date: Sat, 7 Dec 2024 12:38:39 +0200
Subject: [PATCH] Set x64 flag for components. #20

---
 Source/BoldCursorHandle.pas                       | 1 +
 Source/BoldDatabaseAdapterUniDAC.pas              | 1 +
 Source/BoldDerivedHandle.pas                      | 1 +
 Source/BoldExpressionHandle.pas                   | 1 +
 Source/BoldExternalObjectSpaceEventHandler.pas    | 1 +
 Source/BoldExternalObjectSpaceEventHandlerReg.pas | 4 ++--
 Source/BoldFilteredHandle.pas                     | 1 +
 Source/BoldSortedHandle.pas                       | 1 +
 8 files changed, 9 insertions(+), 2 deletions(-)

diff --git a/Source/BoldCursorHandle.pas b/Source/BoldCursorHandle.pas
index 5c10501e..e940d934 100644
--- 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
index 74021bd4..ed831744 100644
--- 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
index a852a023..7b0e3d24 100644
--- 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
index 2a2d0d66..0c734dae 100644
--- 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
index 51ad030c..dc888026 100644
--- 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
index 41b71b42..5e3ba6cf 100644
--- 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
index fe21cb5b..5335361f 100644
--- 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
index 530eb82f..9399f5bf 100644
--- 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;