|
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707 |
- unit uutlObservable;
-
- {$mode objfpc}{$H+}
-
- interface
-
- uses
- Classes, SysUtils,
- uutlGenerics, uutlInterfaces, uutlEvent, uutlComparer;
-
- type
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- TutlObservableEventType = (
- oetAdd,
- oetRemove,
- oetReplace,
- oetClear
- );
-
- TutlObservableEventArgs = class(TutlEventArgs)
- private
- fEventType: TutlObservableEventType;
-
- public
- property EventType: TutlObservableEventType read fEventType;
-
- constructor Create(const aEventType: TutlObservableEventType);
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- generic TutlObservableItemEventArgs<T> = class(TutlObservableEventArgs)
- private
- fItem: T;
-
- public
- property Item: T read fItem;
-
- constructor Create(const aEventType: TutlObservableEventType; constref aItem: T);
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- generic TutlObservableReplaceEventArgs<T> = class(TutlObservableEventArgs)
- private
- fOldItem: T;
- fNewItem: T;
-
- public
- property OldItem: T read fOldItem;
- property NewItem: T read fNewItem;
-
- constructor Create(const aEventType: TutlObservableEventType; constref aOldItem: T; constref aNewItem: T);
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- generic TutlObservableCustomList<T> = class(
- specialize TutlCustomList<T>
- , IutlObservable)
-
- public type
- TItemEventArgs = class(specialize TutlObservableItemEventArgs<T>)
- private
- fIndex: Integer;
- public
- property Index: Integer read fIndex;
- constructor Create(const aEventType: TutlObservableEventType; const aIndex: Integer; constref aItem: T);
- end;
-
- TReplaceEventArgs = class(specialize TutlObservableReplaceEventArgs<T>)
- private
- fIndex: Integer;
- public
- property Index: Integer read fIndex;
- constructor Create(const aEventType: TutlObservableEventType; const aIndex: Integer; constref aOldItem: T; constref aNewItem: T);
- end;
-
- private
- fEventListener: TutlEventListenerSet;
-
- protected
- procedure InsertIntern(const aIndex: Integer; constref aValue: T); override;
- procedure DeleteIntern(const aIndex: Integer; const aFreeItem: Boolean); override;
-
- procedure DoAddItem (const aIndex: Integer; constref aItem: T); virtual;
- procedure DoRemoveItem(const aIndex: Integer; constref aItem: T); virtual;
- procedure DoChangeItem(const aIndex: Integer; constref aOldItem: T; constref aNewItem: T); virtual;
- procedure DoClear (); virtual;
-
- public { IutlObservable }
- procedure RegisterEventListener (aListener: IutlEventListener);
- procedure UnregisterEventListener(aListener: IutlEventListener);
-
- protected
- procedure SetItem(const aIndex: Integer; aValue: T); override;
-
- public
- procedure Clear; override;
-
- constructor Create(
- aEqualityComparer: IEqualityComparer;
- aOwnsObjects: Boolean = true);
- destructor Destroy; override;
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- generic TutlObservableList<T> = class(specialize TutlObservableCustomList<T>)
- public type
- TEqualityComparer = specialize TutlEqualityComparer<T>;
-
- public
- constructor Create(const aOwnsObjects: Boolean);
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- generic TutlObservableCustomHashSet<T> = class(
- specialize TutlCustomHashSet<T>
- , IutlObservable)
-
- public type
- TItemEventArgs = class(specialize TutlObservableItemEventArgs<T>)
- private
- fIndex: Integer;
- public
- property Index: Integer read fIndex;
- constructor Create(const aEventType: TutlObservableEventType; const aIndex: Integer; constref aItem: T);
- end;
-
- TReplaceEventArgs = class(specialize TutlObservableReplaceEventArgs<T>)
- private
- fIndex: Integer;
- public
- property Index: Integer read fIndex;
- constructor Create(const aEventType: TutlObservableEventType; const aIndex: Integer; constref aOldItem: T; constref aNewItem: T);
- end;
-
- private
- fEventListener: TutlEventListenerSet;
-
- protected
- procedure InsertIntern(const aIndex: Integer; constref aValue: T); override;
- procedure DeleteIntern(const aIndex: Integer; const aFreeItem: Boolean); override;
- procedure SetItem (const aIndex: Integer; aValue: T); override;
-
- procedure DoAddItem (const aIndex: Integer; constref aItem: T); virtual;
- procedure DoRemoveItem(const aIndex: Integer; constref aItem: T); virtual;
- procedure DoChangeItem(const aIndex: Integer; constref aOldItem: T; constref aNewItem: T); virtual;
- procedure DoClear (); virtual;
-
- public { IutlObservable }
- procedure RegisterEventListener (aListener: IutlEventListener);
- procedure UnregisterEventListener(aListener: IutlEventListener);
-
- public
- procedure Clear; override;
-
- constructor Create(const aComparer: IComparer; const aOwnsItems: Boolean);
- destructor Destroy; override;
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- generic TutlObservableHashSet<T> = class(specialize TutlObservableCustomHashSet<T>)
- public
- constructor Create(const aOwnsItems: Boolean);
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- generic TutlObservableCustomMap<TKey, TValue> = class(
- specialize TutlCustomMap<TKey, TValue>
- , IutlObservable)
-
- public type
- TObservableHashSet = class(THashSet)
- strict private
- fOwner: TutlObservableCustomMap;
-
- protected
- procedure InsertIntern(const aIndex: Integer; constref aValue: TKeyValuePair); override;
- procedure DeleteIntern(const aIndex: Integer; const aFreeItem: Boolean); override;
- procedure SetItem(const aIndex: Integer; aValue: TKeyValuePair); override;
-
- public
- procedure Clear; override;
-
- constructor Create(const aOwner: TutlObservableCustomMap; const aComparer: IComparer); reintroduce;
- end;
-
- TItemEventArgs = class(specialize TutlObservableItemEventArgs<TValue>)
- private
- fIndex: Integer;
- fKey: TKey;
- public
- property Index: Integer read fIndex;
- property Key: TKey read fKey;
- constructor Create(const aEventType: TutlObservableEventType; const aIndex: Integer; constref aKey: TKey; constref aItem: TValue);
- end;
-
- TReplaceEventArgs = class(specialize TutlObservableReplaceEventArgs<TValue>)
- private
- fIndex: Integer;
- fKey: TKey;
- public
- property Index: Integer read fIndex;
- property Key: TKey read fKey;
- constructor Create(const aEventType: TutlObservableEventType; const aIndex: Integer; constref aKey: TKey; constref aOldItem: TValue; constref aNewItem: TValue);
- end;
-
- private
- fEventListener: TutlEventListenerSet;
-
- protected
- procedure DoAddItem (const aIndex: Integer; constref aKey: TKey; constref aItem: TValue); virtual;
- procedure DoRemoveItem(const aIndex: Integer; constref aKey: TKey; constref aItem: TValue); virtual;
- procedure DoChangeItem(const aIndex: Integer; constref aKey: TKey; constref aOldItem: TValue; constref aNewItem: TValue); virtual;
- procedure DoClear (); virtual;
-
- public { IutlObservable }
- procedure RegisterEventListener (aListener: IutlEventListener);
- procedure UnregisterEventListener(aListener: IutlEventListener);
-
- public
- constructor Create(const aHashSet: TObservableHashSet; const aOwnsKeys: Boolean; const aOwnsValues: Boolean); reintroduce;
- destructor Destroy; override;
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- generic TutlObservableMap<TKey, TValue> = class(specialize TutlObservableCustomMap<TKey, TValue>)
- public type
- TComparer = specialize TutlComparer<TKey>;
-
- strict private
- fHashSetImpl: TObservableHashSet;
-
- public
- constructor Create(const aOwnsKeys: Boolean; const aOwnsValues: Boolean);
- destructor Destroy; override;
- end;
-
- implementation
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- //TutlObservableEventArgs///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- constructor TutlObservableEventArgs.Create(const aEventType: TutlObservableEventType);
- begin
- inherited Create;
- fEventType := aEventType;
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- //TutlObservableItemEventArgs///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- constructor TutlObservableItemEventArgs.Create(const aEventType: TutlObservableEventType; constref aItem: T);
- begin
- inherited Create(aEventType);
- fItem := aItem;
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- //TutlObservableChangeEventArgs/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- constructor TutlObservableReplaceEventArgs.Create(const aEventType: TutlObservableEventType; constref aOldItem: T; constref aNewItem: T);
- begin
- inherited Create(aEventType);
- fOldItem := aOldItem;
- fNewItem := aNewItem;
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- //TutlObservableCustomList.TChangeEventArgs/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- constructor TutlObservableCustomList.TReplaceEventArgs.Create(
- const aEventType: TutlObservableEventType;
- const aIndex: Integer;
- constref aOldItem: T;
- constref aNewItem: T);
- begin
- inherited Create(aEventType, aOldItem, aNewItem);
- fIndex := aIndex;
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- //TutlObservableCustomList.TItemEventArgs///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- constructor TutlObservableCustomList.TItemEventArgs.Create(
- const aEventType: TutlObservableEventType;
- const aIndex: Integer;
- constref aItem: T);
- begin
- inherited Create(aEventType, aItem);
- fIndex := aIndex;
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- //TutlObservableCustomList//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- procedure TutlObservableCustomList.InsertIntern(const aIndex: Integer; constref aValue: T);
- begin
- inherited InsertIntern(aIndex, aValue);
- DoAddItem(aIndex, aValue);
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- procedure TutlObservableCustomList.DeleteIntern(const aIndex: Integer; const aFreeItem: Boolean);
- begin
- DoRemoveItem(aIndex, GetItem(aIndex));
- inherited DeleteIntern(aIndex, aFreeItem);
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- procedure TutlObservableCustomList.DoAddItem(const aIndex: Integer; constref aItem: T);
- var
- e: IutlEventArgs;
- begin
- if Assigned(fEventListener) and not fEventListener.IsEmpty then begin
- e := TItemEventArgs.Create(oetAdd, aIndex, aItem);
- fEventListener.DispatchEvent(self, e);
- end;
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- procedure TutlObservableCustomList.DoRemoveItem(const aIndex: Integer; constref aItem: T);
- var
- e: IutlEventArgs;
- begin
- if Assigned(fEventListener) and not fEventListener.IsEmpty then begin
- e := TItemEventArgs.Create(oetRemove, aIndex, aItem);
- fEventListener.DispatchEvent(self, e);
- end;
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- procedure TutlObservableCustomList.DoChangeItem(const aIndex: Integer; constref aOldItem: T; constref aNewItem: T);
- var
- e: IutlEventArgs;
- begin
- if Assigned(fEventListener) and not fEventListener.IsEmpty then begin
- e := TReplaceEventArgs.Create(oetReplace, aIndex, aOldItem, aNewItem);
- fEventListener.DispatchEvent(self, e);
- end;
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- procedure TutlObservableCustomList.DoClear;
- var
- e: IutlEventArgs;
- begin
- if Assigned(fEventListener) and not fEventListener.IsEmpty then begin
- e := TutlObservableEventArgs.Create(oetClear);
- fEventListener.DispatchEvent(self, e);
- end;
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- procedure TutlObservableCustomList.RegisterEventListener(aListener: IutlEventListener);
- begin
- fEventListener.Add(aListener);
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- procedure TutlObservableCustomList.UnregisterEventListener(aListener: IutlEventListener);
- begin
- fEventListener.Remove(aListener);
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- procedure TutlObservableCustomList.SetItem(const aIndex: Integer; aValue: T);
- begin
- DoChangeItem(aIndex, GetItem(aIndex), aValue);
- inherited SetItem(aIndex, aValue);
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- procedure TutlObservableCustomList.Clear;
- begin
- DoClear;
- inherited Clear;
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- constructor TutlObservableCustomList.Create(aEqualityComparer: IEqualityComparer; aOwnsObjects: Boolean);
- begin
- fEventListener := TutlEventListenerSet.Create;
- inherited Create(aEqualityComparer, aOwnsObjects);
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- destructor TutlObservableCustomList.Destroy;
- begin
- inherited Destroy;
- FreeAndNil(fEventListener);
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- //TutlObservableList////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- constructor TutlObservableList.Create(const aOwnsObjects: Boolean);
- begin
- inherited Create(TEqualityComparer.Create, aOwnsObjects);
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- //TutlObservableCustomHashSet.TItemEventArgs////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- constructor TutlObservableCustomHashSet.TItemEventArgs.Create(
- const aEventType: TutlObservableEventType;
- const aIndex: Integer;
- constref aItem: T);
- begin
- inherited Create(aEventType, aItem);
- fIndex := aIndex;
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- //TutlObservableCustomHashSet.TReplaceEventArgs/////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- constructor TutlObservableCustomHashSet.TReplaceEventArgs.Create(
- const aEventType: TutlObservableEventType;
- const aIndex: Integer;
- constref aOldItem: T;
- constref aNewItem: T);
- begin
- inherited Create(aEventType, aOldItem, aNewItem);
- fIndex := aIndex;
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- //TutlObservableCustomHashSet///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- procedure TutlObservableCustomHashSet.InsertIntern(const aIndex: Integer; constref aValue: T);
- begin
- inherited InsertIntern(aIndex, aValue);
- DoAddItem(aIndex, aValue);
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- procedure TutlObservableCustomHashSet.DeleteIntern(const aIndex: Integer; const aFreeItem: Boolean);
- begin
- DoRemoveItem(aIndex, GetItem(aIndex));
- inherited DeleteIntern(aIndex, aFreeItem);
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- procedure TutlObservableCustomHashSet.SetItem(const aIndex: Integer; aValue: T);
- begin
- DoChangeItem(aIndex, GetItem(aIndex), aValue);
- inherited SetItem(aIndex, aValue);
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- procedure TutlObservableCustomHashSet.DoAddItem(const aIndex: Integer; constref aItem: T);
- var
- e: IutlEventArgs;
- begin
- if Assigned(fEventListener) and not fEventListener.IsEmpty then begin
- e := TItemEventArgs.Create(oetAdd, aIndex, aItem);
- fEventListener.DispatchEvent(self, e);
- end;
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- procedure TutlObservableCustomHashSet.DoRemoveItem(const aIndex: Integer; constref aItem: T);
- var
- e: IutlEventArgs;
- begin
- if Assigned(fEventListener) and not fEventListener.IsEmpty then begin
- e := TItemEventArgs.Create(oetRemove, aIndex, aItem);
- fEventListener.DispatchEvent(self, e);
- end;
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- procedure TutlObservableCustomHashSet.DoChangeItem(const aIndex: Integer; constref aOldItem: T; constref aNewItem: T);
- var
- e: IutlEventArgs;
- begin
- if Assigned(fEventListener) and not fEventListener.IsEmpty then begin
- e := TReplaceEventArgs.Create(oetReplace, aIndex, aOldItem, aNewItem);
- fEventListener.DispatchEvent(self, e);
- end;
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- procedure TutlObservableCustomHashSet.DoClear;
- var
- e: IutlEventArgs;
- begin
- if Assigned(fEventListener) and not fEventListener.IsEmpty then begin
- e := TutlObservableEventArgs.Create(oetClear);
- fEventListener.DispatchEvent(self, e);
- end;
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- procedure TutlObservableCustomHashSet.RegisterEventListener(aListener: IutlEventListener);
- begin
- fEventListener.Add(aListener);
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- procedure TutlObservableCustomHashSet.UnregisterEventListener(aListener: IutlEventListener);
- begin
- fEventListener.Remove(aListener);
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- procedure TutlObservableCustomHashSet.Clear;
- begin
- DoClear;
- inherited Clear;
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- constructor TutlObservableCustomHashSet.Create(const aComparer: IComparer; const aOwnsItems: Boolean);
- begin
- fEventListener := TutlEventListenerSet.Create;
- inherited Create(aComparer, aOwnsItems);
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- destructor TutlObservableCustomHashSet.Destroy;
- begin
- inherited Destroy;
- FreeAndNil(fEventListener);
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- //TutlObservableHashSet/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- constructor TutlObservableHashSet.Create(const aOwnsItems: Boolean);
- begin
- inherited Create(specialize TutlComparer<T>.Create, aOwnsItems);
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- //TutlObservableCustomMap.TObservableHashSet////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- procedure TutlObservableCustomMap.TObservableHashSet.InsertIntern(const aIndex: Integer; constref aValue: TKeyValuePair);
- begin
- inherited InsertIntern(aIndex, aValue);
- fOwner.DoAddItem(aIndex, aValue.Key, aValue.Value);
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- procedure TutlObservableCustomMap.TObservableHashSet.DeleteIntern(const aIndex: Integer; const aFreeItem: Boolean);
- var
- kvp: TKeyValuePair;
- begin
- kvp := GetItem(aIndex);
- fOwner.DoRemoveItem(aIndex, kvp.Key, kvp.Value);
- inherited DeleteIntern(aIndex, aFreeItem);
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- procedure TutlObservableCustomMap.TObservableHashSet.SetItem(const aIndex: Integer; aValue: TKeyValuePair);
- begin
- fOwner.DoChangeItem(aIndex, aValue.Key, GetItem(aIndex).Value, aValue.Value);
- inherited SetItem(aIndex, aValue);
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- procedure TutlObservableCustomMap.TObservableHashSet.Clear;
- begin
- fOwner.DoClear;
- while (Count > 0) do
- Delete(Count - 1);
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- constructor TutlObservableCustomMap.TObservableHashSet.Create(
- const aOwner: TutlObservableCustomMap;
- const aComparer: IComparer);
- begin
- inherited Create(aOwner, aComparer);
- fOwner := aOwner;
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- //TutlObservableCustomMap.TItemEventArgs////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- constructor TutlObservableCustomMap.TItemEventArgs.Create(
- const aEventType: TutlObservableEventType;
- const aIndex: Integer;
- constref aKey: TKey;
- constref aItem: TValue);
- begin
- inherited Create(aEventType, aItem);
- fIndex := aIndex;
- fKey := aKey;
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- //TutlObservableCustomMap.TReplaceEventArgs/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- constructor TutlObservableCustomMap.TReplaceEventArgs.Create(
- const aEventType: TutlObservableEventType;
- const aIndex: Integer;
- constref aKey: TKey;
- constref aOldItem: TValue;
- constref aNewItem: TValue);
- begin
- inherited Create(aEventType, aOldItem, aNewItem);
- fIndex := aIndex;
- fKey := aKey;
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- //TutlObservableCustomMap///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- procedure TutlObservableCustomMap.DoAddItem(
- const aIndex: Integer;
- constref aKey: TKey;
- constref aItem: TValue);
- var
- e: IutlEventArgs;
- begin
- if Assigned(fEventListener) and not fEventListener.IsEmpty then begin
- e := TItemEventArgs.Create(oetAdd, aIndex, aKey, aItem);
- fEventListener.DispatchEvent(self, e);
- end;
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- procedure TutlObservableCustomMap.DoRemoveItem(
- const aIndex: Integer;
- constref aKey: TKey;
- constref aItem: TValue);
- var
- e: IutlEventArgs;
- begin
- if Assigned(fEventListener) and not fEventListener.IsEmpty then begin
- e := TItemEventArgs.Create(oetRemove, aIndex, aKey, aItem);
- fEventListener.DispatchEvent(self, e);
- end;
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- procedure TutlObservableCustomMap.DoChangeItem(
- const aIndex: Integer;
- constref aKey: TKey;
- constref aOldItem: TValue;
- constref aNewItem: TValue);
- var
- e: IutlEventArgs;
- begin
- if Assigned(fEventListener) and not fEventListener.IsEmpty then begin
- e := TReplaceEventArgs.Create(oetReplace, aIndex, aKey, aOldItem, aNewItem);
- fEventListener.DispatchEvent(self, e);
- end;
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- procedure TutlObservableCustomMap.DoClear;
- var
- e: IutlEventArgs;
- begin
- if Assigned(fEventListener) and not fEventListener.IsEmpty then begin
- e := TutlObservableEventArgs.Create(oetClear);
- fEventListener.DispatchEvent(self, e);
- end;
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- procedure TutlObservableCustomMap.RegisterEventListener(aListener: IutlEventListener);
- begin
- fEventListener.Add(aListener);
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- procedure TutlObservableCustomMap.UnregisterEventListener(aListener: IutlEventListener);
- begin
- fEventListener.Remove(aListener);
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- constructor TutlObservableCustomMap.Create(
- const aHashSet: TObservableHashSet;
- const aOwnsKeys: Boolean;
- const aOwnsValues: Boolean);
- begin
- fEventListener := TutlEventListenerSet.Create;
- inherited Create(aHashSet, aOwnsKeys, aOwnsValues);
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- destructor TutlObservableCustomMap.Destroy;
- begin
- inherited Destroy;
- FreeAndNil(fEventListener);
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- //TutlObservableMap/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- constructor TutlObservableMap.Create(const aOwnsKeys: Boolean; const aOwnsValues: Boolean);
- begin
- fHashSetImpl := TObservableHashSet.Create(self, TKeyValuePairComparer.Create(TComparer.Create));
- inherited Create(fHashSetImpl, aOwnsKeys, aOwnsValues);
- end;
-
- ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
- destructor TutlObservableMap.Destroy;
- begin
- inherited Destroy;
- FreeAndNil(fHashSetImpl);
- end;
-
- end.
-
|