* code clean & refactoring

+ add ComponentPlatformsAttribute for MCK components (fix disabled components for platform Win64)

git-svn-id: https://svn.code.sf.net/p/kolmck/code@170 91bb2d04-0c0c-4d2d-88a5-bbb6f4c1fa07

Addons/MCKMHXP.pas

@@ -52,6 +52,7 @@ uses
 
 type
 
+  {$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
   TKOLMHXP = class(TKOLObj)
   private
     FAppName: string;

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 }

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;

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;

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;

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 }