|
|
@@ -95,6 +95,7 @@ type
|
|
|
function GetListBox: TListBox;
|
|
|
public
|
|
|
constructor Create(AOwner: TComponent); override;
|
|
|
+ destructor Destroy; override;
|
|
|
{ Assign the properties from Source to this instance }
|
|
|
procedure Assign(Source: TPersistent); override;
|
|
|
procedure Clear;
|
|
|
@@ -661,6 +662,12 @@ begin
|
|
|
FTimerCheckFormHide.OnTimer:= OnTimerCheckFormHide;
|
|
|
end;
|
|
|
|
|
|
+destructor TBCComboBox.Destroy;
|
|
|
+begin
|
|
|
+ FreeAndNil(FItems);
|
|
|
+ inherited Destroy;
|
|
|
+end;
|
|
|
+
|
|
|
procedure TBCComboBox.Assign(Source: TPersistent);
|
|
|
var
|
|
|
src: TBCComboBox;
|