diff --git a/Addons/MCKMHXP.pas b/Addons/MCKMHXP.pas index 317858e..488efc2 100644 --- a/Addons/MCKMHXP.pas +++ b/Addons/MCKMHXP.pas @@ -52,6 +52,7 @@ uses type + {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF} TKOLMHXP = class(TKOLObj) private FAppName: string; diff --git a/Addons/mckCCtrls.pas b/Addons/mckCCtrls.pas index 9e7e996..647d6a8 100644 --- a/Addons/mckCCtrls.pas +++ b/Addons/mckCCtrls.pas @@ -9,6 +9,7 @@ uses {$I KOLDEF.INC} type + {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF} TKOLTrackBar = class(TKOLControl) private FOptions: TTrackbarOptions; @@ -56,6 +57,7 @@ type { SPC CONTROLS } + {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF} TSPCDirectoryEditBox = class(TKOLControl) private { Private declarations } @@ -101,6 +103,7 @@ type end; TSortBy = (sbName, sbExtention); + {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF} TSPCFileListBox = class(TKOLListBox) private { Private declarations } @@ -163,6 +166,7 @@ type // property Items: Boolean read FNotAvailable; end; + {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF} TSPCDirectoryListBox = class(TKOLListView) private { Private declarations } @@ -230,6 +234,7 @@ type property OnColumnClick: Boolean read FNotAvailable; end; + {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF} TSPCDriveComboBox = class(TKOLComboBox) private { Private declarations } @@ -280,6 +285,7 @@ type property Items: Boolean read FNotAvailable; end; + {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF} TSPCFilterComboBox = class(TKOLComboBox) private { Private declarations } @@ -331,6 +337,7 @@ type property OnChar: Boolean read FNotAvailable; end; + {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF} TSPCStatusBar = class(TKOLControl) private { Private declarations } diff --git a/Addons/mckDHTML.pas b/Addons/mckDHTML.pas index 2bb446e..c7df88d 100644 --- a/Addons/mckDHTML.pas +++ b/Addons/mckDHTML.pas @@ -9,6 +9,7 @@ type TDHTMLEditShowContextMenu = procedure(Sender: TObject; xPos: Integer; yPos: Integer) of object; TDHTMLEditContextMenuAction = procedure(Sender: TObject; itemIndex: Integer) of object; + {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF} TDHTMLEDIT = class(TKOLCustomControl) private fBrowseMode: boolean; diff --git a/Addons/mckEcmListEdit.pas b/Addons/mckEcmListEdit.pas index 23102a3..7d0c4e0 100644 --- a/Addons/mckEcmListEdit.pas +++ b/Addons/mckEcmListEdit.pas @@ -8,6 +8,7 @@ uses mckCtrls, Graphics, KOLEcmListEdit, DesignIntf, DesignEditors, DesignConst, mckLVColumnsEditor; type + {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF} TKOLEcmListEdit = class(TKOLListView) protected fDrawForbidden: TOnDrawItem; diff --git a/Addons/mckWebBrowser.pas b/Addons/mckWebBrowser.pas index e68c024..84760f4 100644 --- a/Addons/mckWebBrowser.pas +++ b/Addons/mckWebBrowser.pas @@ -39,6 +39,7 @@ type TWebBrowserOnFullScreen = procedure(Sender: TObject; FullScreen: WordBool) of object; TWebBrowserOnTheaterMode = procedure(Sender: TObject; TheaterMode: WordBool) of object; + {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF} TKOLWebBrowser = class(TKOLCustomControl) private FOnStatusTextChange: TWebBrowserStatusTextChange; diff --git a/Addons/mckXPMenus.pas b/Addons/mckXPMenus.pas index 3ae8ec2..bfba07e 100644 --- a/Addons/mckXPMenus.pas +++ b/Addons/mckXPMenus.pas @@ -6,6 +6,7 @@ uses Windows, mirror, Messages, Graphics, Classes, Math, SysUtils; type + {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF} TKOLXPMainMenu = class(TKOLMainMenu) private { Private declarations } @@ -45,6 +46,7 @@ type property CheckColor: TColor read FCheckColor write SetCheckColor; end; + {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF} TKOLXPPopupMenu = class(TKOLPopupMenu) private { Private declarations }