paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 18:09:30 +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
FOwner: TComponent;
FName: TComponentName;
FTag: Longint;
FTag: Ptrint;
FComponents: TFpList;
FFreeNotifies: TFpList;
FDesignInfo: Longint;
@ -1681,7 +1681,7 @@ type
property VCLComObject: Pointer read FVCLComObject write FVCLComObject;
published
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;
{ TBasicActionLink }