diff options
| -rw-r--r-- | extras/tiopf/gui/tiListMediators.pas | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/extras/tiopf/gui/tiListMediators.pas b/extras/tiopf/gui/tiListMediators.pas index 1185607c..0eecb535 100644 --- a/extras/tiopf/gui/tiListMediators.pas +++ b/extras/tiopf/gui/tiListMediators.pas @@ -57,6 +57,7 @@ type procedure SetupGUIandObject; override; procedure ClearList; override; procedure RebuildList; override; + procedure SetActive(const AValue: Boolean); override; public constructor CreateCustom(AModel: TtiObjectList; AGrid: TfpgStringGrid; ADisplayNames: string; AIsObserving: Boolean = True); reintroduce; overload; destructor Destroy; override; @@ -249,9 +250,9 @@ end; procedure TtiListViewMediatorView.SetActive(const AValue: Boolean); begin + inherited SetActive(AValue); if not AValue then ClearList; - inherited SetActive(AValue); end; constructor TtiListViewMediatorView.CreateCustom(AModel: TtiObjectList; AView: TfpgListView; AOnBeforeSetupField: TtiOnBeforeSetupField; ADisplayNames: string; AIsObserving: Boolean); @@ -521,6 +522,13 @@ begin end; end; +procedure TtiStringGridMediatorView.SetActive(const AValue: Boolean); +begin + inherited SetActive(AValue); + if not AValue then + ClearList; +end; + constructor TtiStringGridMediatorView.CreateCustom(AModel: TtiObjectList; AGrid: TfpgStringGrid; ADisplayNames: string; AIsObserving: Boolean); begin inherited Create; |