paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-10 07:26:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Tag is now PtrInt, for upcoming Delphi 64-bit compatibility

Browse Source 
git-svn-id: trunk@16408 -
This commit is contained in:
michael 2010-11-23 21:19:39 +00:00
parent 749991ec02
commit c4cc9b59e0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1582,7 +1582,7 @@ type
private private
FOwner: TComponent; FOwner: TComponent;
FName: TComponentName; FName: TComponentName;
FTag: Longint; FTag: Ptrint;
FComponents: TFpList; FComponents: TFpList;
FFreeNotifies: TFpList; FFreeNotifies: TFpList;
FDesignInfo: Longint; FDesignInfo: Longint;
@ -1681,7 +1681,7 @@ type
property VCLComObject: Pointer read FVCLComObject write FVCLComObject; property VCLComObject: Pointer read FVCLComObject write FVCLComObject;
published published
property Name: TComponentName read FName write SetName stored False; property Name: TComponentName read FName write SetName stored False;
property Tag: Longint read FTag write FTag default 0; property Tag: PtrInt read FTag write FTag default 0;
end; end;
{ TBasicActionLink } { TBasicActionLink }