paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 08:51:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Some delphi compatibility types and consts

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-11-01 23:19:56 +01:00
parent d8c7b99cdd
commit e4ebf46df3
2 changed files with 55 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/objpas/classes/classes.inc
View File

@ -2774,3 +2774,8 @@ end;
{$i twriter.inc}
constructor ComponentPlatformsAttribute.Create(const aPlatforms: TPlatformIds);
begin
FPlatForms:=aPlatForms;
end;

50
rtl/objpas/classes/classesh.inc
View File

@ -2395,6 +2395,55 @@ type
end;
TDataModuleClass = Class of TDataModule;
TPlatformIds = UInt32;
ComponentPlatformsAttribute = class(TCustomAttribute)
private
FPlatforms: TPlatformIds;
public
constructor Create(const aPlatforms: TPlatformIds);
property Platforms: TPlatformIds read FPlatforms write FPlatforms;
end;
const
{ Platform identifiers }
pidWin32 = $00000001;
pidWin64 = $00000002;
pidOSX32 = $00000004;
pidiOSSimulator32 = $00000008;
pidAndroidArm32 = $00000010;
pidLinux32 = $00000020;
pidiOSDevice32 = $00000040;
pidLinux64 = $00000080;
pidWinNX32 = $00000100;
pidWinIoT32 = $00000200;
pidiOSDevice64 = $00000400;
pidWinARM32 = $00000800;
pidOSX64 = $00001000;
pidLinuxArm32 = $00002000;
pidLinuxArm64 = $00004000;
pidAndroidArm64 = $00008000;
pidiOSSimulator64 = $00010000;
pidOSXArm64 = $00020000;
pidWinArm64 = $00040000;
pidiOSSimulatorArm64 = $00080000;
pidAllPlatforms = pidWin32 or pidWin64 or
pidOSX32 or pidOSX64 or pidOSXArm64 or
pidiOSDevice32 or pidiOSDevice64 or
pidiOSSimulator32 or pidiOSSimulator64 or
pidAndroidArm32 or pidAndroidArm64 or
pidLinux64;
pfidWindows = pidWin32 or pidWin64;
pfidOSX = pidOSX32 or pidOSX64 or pidOSXArm64;
pfidiOS = pidiOSDevice32 or pidiOSDevice64 or
pidiOSSimulator32 or pidiOSSimulator64;
pfidAndroid = pidAndroidArm32 or pidAndroidArm64;
pfidLinux = pidLinux64;
var
// IDE hooks for TDatamodule support.
AddDataModule : procedure (DataModule: TDataModule) of object;
@ -2484,6 +2533,7 @@ type
TIntToIdent = function(Int: Longint; var Ident: string): Boolean;
TFindGlobalComponent = function(const Name: string): TComponent;
TInitComponentHandler = function(Instance: TComponent; RootAncestor : TClass): boolean;
TGetStreamProc = procedure (const S: TStream) of object;
var
MainThreadID: TThreadID;