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

+ re-enabled Top/Left property writing

Browse Source
This commit is contained in:
michael 2002-01-09 10:40:24 +00:00
parent 9d78506c59
commit 842b28dc3b
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
fcl/inc/compon.inc
View File

@ -64,14 +64,14 @@ end;
Procedure TComponent.ReadLeft(Reader: TReader);
begin
// LongRec(FDesignInfo).Lo:=Reader.ReadInteger;
LongRec(FDesignInfo).Lo:=Reader.ReadInteger;
end;
Procedure TComponent.ReadTop(Reader: TReader);
begin
// LongRec(FDesignInfo).Hi:=Reader.ReadInteger;
LongRec(FDesignInfo).Hi:=Reader.ReadInteger;
end;
@ -173,12 +173,10 @@ begin
Temp:=0;
Ancestor:=TComponent(Filer.Ancestor);
If Assigned(Ancestor) then Temp:=Ancestor.FDesignInfo;
{
Filer.Defineproperty('left',readleft,writeleft,
Filer.Defineproperty('left',@readleft,@writeleft,
(longrec(FDesignInfo).Lo<>Longrec(temp).Lo));
Filer.Defineproperty('top',readtop,writetop,
Filer.Defineproperty('top',@readtop,@writetop,
(longrec(FDesignInfo).Hi<>Longrec(temp).Hi));
}
end;
@ -535,7 +533,10 @@ end;
{
$Log$
Revision 1.5 2002-01-06 21:54:50 peter
Revision 1.6 2002-01-09 10:40:24 michael
+ re-enabled Top/Left property writing
Revision 1.5 2002/01/06 21:54:50 peter
* action classes added
Revision 1.4 2001/12/03 21:39:58 peter