Commit c4cc9b59 authored by Michael Van Canneyt's avatar Michael Van Canneyt
Browse files

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

git-svn-id: trunk@16408 -
parent 749991ec
......@@ -1582,7 +1582,7 @@ TComponent = class(TPersistent,IUnknown,IInterfaceComponentReference)
private
FOwner: TComponent;
FName: TComponentName;
FTag: Longint;
FTag: Ptrint;
FComponents: TFpList;
FFreeNotifies: TFpList;
FDesignInfo: Longint;
......@@ -1681,7 +1681,7 @@ TComponent = class(TPersistent,IUnknown,IInterfaceComponentReference)
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 }
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment