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

* Add SetReading

Browse Source
This commit is contained in:
michael 2019-05-11 15:23:50 +00:00
parent 8ec22dc064
commit c149455dce
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/rtl/classes.pas
View File

@ -556,6 +556,7 @@ type
procedure Loaded; virtual; procedure Loaded; virtual;
procedure Loading; virtual; procedure Loading; virtual;
procedure SetWriting(Value: Boolean); virtual; procedure SetWriting(Value: Boolean); virtual;
procedure SetReading(Value: Boolean); virtual;
procedure Notification(AComponent: TComponent; Operation: TOperation); virtual; procedure Notification(AComponent: TComponent; Operation: TOperation); virtual;
procedure PaletteCreated; virtual; procedure PaletteCreated; virtual;
procedure SetAncestor(Value: Boolean); procedure SetAncestor(Value: Boolean);
@ -3386,6 +3387,14 @@ begin
Exclude(FComponentState,csWriting); Exclude(FComponentState,csWriting);
end; end;
procedure TComponent.SetReading(Value: Boolean);
begin
If Value then
Include(FComponentState,csReading)
else
Exclude(FComponentState,csReading);
end;
Procedure TComponent.Notification(AComponent: TComponent; Procedure TComponent.Notification(AComponent: TComponent;
Operation: TOperation); Operation: TOperation);