pascal/kolmck
1
0
Fork 0
Code Issues Releases Activity

* code clean & refactoring

Browse Source 
+ 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
This commit is contained in:
dkolmck
2021-03-09 05:49:57 +00:00
parent aea6c4eb33
commit 2a0bcf1de0
6 changed files with 13 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
Addons/MCKMHXP.pas
View File

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

7
Addons/mckCCtrls.pas
View File

@ -9,6 +9,7 @@ uses
{$I KOLDEF.INC} {$I KOLDEF.INC}
type type
{$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
TKOLTrackBar = class(TKOLControl) TKOLTrackBar = class(TKOLControl)
private private
FOptions: TTrackbarOptions; FOptions: TTrackbarOptions;
@ -56,6 +57,7 @@ type
{ SPC CONTROLS } { SPC CONTROLS }
{$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
TSPCDirectoryEditBox = class(TKOLControl) TSPCDirectoryEditBox = class(TKOLControl)
private private
{ Private declarations } { Private declarations }
@ -101,6 +103,7 @@ type
end; end;
TSortBy = (sbName, sbExtention); TSortBy = (sbName, sbExtention);
{$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
TSPCFileListBox = class(TKOLListBox) TSPCFileListBox = class(TKOLListBox)
private private
{ Private declarations } { Private declarations }
@ -163,6 +166,7 @@ type
// property Items: Boolean read FNotAvailable; // property Items: Boolean read FNotAvailable;
end; end;
{$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
TSPCDirectoryListBox = class(TKOLListView) TSPCDirectoryListBox = class(TKOLListView)
private private
{ Private declarations } { Private declarations }
@ -230,6 +234,7 @@ type
property OnColumnClick: Boolean read FNotAvailable; property OnColumnClick: Boolean read FNotAvailable;
end; end;
{$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
TSPCDriveComboBox = class(TKOLComboBox) TSPCDriveComboBox = class(TKOLComboBox)
private private
{ Private declarations } { Private declarations }
@ -280,6 +285,7 @@ type
property Items: Boolean read FNotAvailable; property Items: Boolean read FNotAvailable;
end; end;
{$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
TSPCFilterComboBox = class(TKOLComboBox) TSPCFilterComboBox = class(TKOLComboBox)
private private
{ Private declarations } { Private declarations }
@ -331,6 +337,7 @@ type
property OnChar: Boolean read FNotAvailable; property OnChar: Boolean read FNotAvailable;
end; end;
{$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
TSPCStatusBar = class(TKOLControl) TSPCStatusBar = class(TKOLControl)
private private
{ Private declarations } { Private declarations }

1
Addons/mckDHTML.pas
View File

@ -9,6 +9,7 @@ type
TDHTMLEditShowContextMenu = procedure(Sender: TObject; xPos: Integer; yPos: Integer) of object; TDHTMLEditShowContextMenu = procedure(Sender: TObject; xPos: Integer; yPos: Integer) of object;
TDHTMLEditContextMenuAction = procedure(Sender: TObject; itemIndex: Integer) of object; TDHTMLEditContextMenuAction = procedure(Sender: TObject; itemIndex: Integer) of object;
{$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
TDHTMLEDIT = class(TKOLCustomControl) TDHTMLEDIT = class(TKOLCustomControl)
private private
fBrowseMode: boolean; fBrowseMode: boolean;

1
Addons/mckEcmListEdit.pas
View File

@ -8,6 +8,7 @@ uses
mckCtrls, Graphics, KOLEcmListEdit, DesignIntf, DesignEditors, DesignConst, mckLVColumnsEditor; mckCtrls, Graphics, KOLEcmListEdit, DesignIntf, DesignEditors, DesignConst, mckLVColumnsEditor;
type type
{$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
TKOLEcmListEdit = class(TKOLListView) TKOLEcmListEdit = class(TKOLListView)
protected protected
fDrawForbidden: TOnDrawItem; fDrawForbidden: TOnDrawItem;

1
Addons/mckWebBrowser.pas
View File

@ -39,6 +39,7 @@ type
TWebBrowserOnFullScreen = procedure(Sender: TObject; FullScreen: WordBool) of object; TWebBrowserOnFullScreen = procedure(Sender: TObject; FullScreen: WordBool) of object;
TWebBrowserOnTheaterMode = procedure(Sender: TObject; TheaterMode: WordBool) of object; TWebBrowserOnTheaterMode = procedure(Sender: TObject; TheaterMode: WordBool) of object;
{$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
TKOLWebBrowser = class(TKOLCustomControl) TKOLWebBrowser = class(TKOLCustomControl)
private private
FOnStatusTextChange: TWebBrowserStatusTextChange; FOnStatusTextChange: TWebBrowserStatusTextChange;

2
Addons/mckXPMenus.pas
View File

@ -6,6 +6,7 @@ uses
Windows, mirror, Messages, Graphics, Classes, Math, SysUtils; Windows, mirror, Messages, Graphics, Classes, Math, SysUtils;
type type
{$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
TKOLXPMainMenu = class(TKOLMainMenu) TKOLXPMainMenu = class(TKOLMainMenu)
private private
{ Private declarations } { Private declarations }
@ -45,6 +46,7 @@ type
property CheckColor: TColor read FCheckColor write SetCheckColor; property CheckColor: TColor read FCheckColor write SetCheckColor;
end; end;
{$IFDEF _DXE2orHigher}[ComponentPlatformsAttribute(pidWin32 or pidWin64)]{$ENDIF}
TKOLXPPopupMenu = class(TKOLPopupMenu) TKOLXPPopupMenu = class(TKOLPopupMenu)
private private
{ Private declarations } { Private declarations }