mirror of
https://gitlab.com/freepascal.org/fpc/pas2js.git
synced 2025-08-09 19:26:08 +02:00
* Add SetReading
This commit is contained in:
parent
8ec22dc064
commit
c149455dce
@ -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);
|
||||||
|
Loading…
Reference in New Issue
Block a user