GUI Signals

This commit is contained in:
Michael Schimmel
2025-06-24 14:37:38 +02:00
parent 3048c28fe3
commit 35413f5966
5 changed files with 105 additions and 116 deletions
-9
View File
@@ -108,9 +108,6 @@ type
constructor Create(AInit: Boolean);
destructor Destroy; override;
// Factory method to create a new TMycFlag instance.
class function CreateDirty: TFlag.IFlag; static;
function Subscribe(Subscriber: TSignal.ISubscriber): Pointer;
procedure Unsubscribe(Tag: Pointer);
@@ -402,12 +399,6 @@ begin
FSubscribers.Create;
end;
class function TMycFlag.CreateDirty: TFlag.IFlag;
begin
// Factory method to create a new TMycFlag instance.
Result := TMycFlag.Create(true);
end;
destructor TMycFlag.Destroy;
begin
FSubscribers.Destroy; // Clean up the subscriber list.