paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 12:18:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: removed obsolete TAbstractReader

Browse Source 
git-svn-id: trunk@15767 -
This commit is contained in:
mattias 2008-07-13 18:59:39 +00:00
parent 0bc7d13e17
commit b223dbff27
2 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/extctrls.pp
View File

@ -38,9 +38,7 @@ uses
LCLClasses, Menus, popupnotifier;
type
{ workaround problem with fcl }
TAbstractReader = TReader;
{ TCustomPage }
TPageFlag = (
@ -184,7 +182,7 @@ type
procedure DoCreateWnd; virtual;
procedure Change; virtual;
procedure Loaded; override;
procedure ReadState(Reader: TAbstractReader); override;
procedure ReadState(Reader: TReader); override;
function DialogChar(var Message: TLMKey): boolean; override;
procedure ShowControl(APage: TControl); override;
procedure UpdateTabProperties; virtual;

2
lcl/include/customnotebook.inc
View File

@ -679,7 +679,7 @@ end;
{------------------------------------------------------------------------------
TCustomNotebook ReadState
------------------------------------------------------------------------------}
procedure TCustomNotebook.ReadState(Reader: TAbstractReader);
procedure TCustomNotebook.ReadState(Reader: TReader);
begin
// do not clear. Think about loading ancestor + loading descendant stream.
// fAccess.Clear;