1
0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-25 18:52:15 -05:00

Added destructor for the paramhints.

This commit is contained in:
Raymond 2010-04-04 13:21:28 +02:00
parent 7007f28939
commit 6fe68d1267

View File

@ -99,6 +99,7 @@ type
procedure DrawHints(var MaxWidth, MaxHeight: Integer; Draw: boolean);
function PrepareParamString(out Str : string; out MustHide : boolean) : integer;
public
destructor Destroy; override;
constructor Create(TheOwner: TComponent); override;
procedure CalculateBounds;
procedure UpdateHint;
@ -706,6 +707,12 @@ begin
Parser.Free;
end;
destructor TParamHint.Destroy;
begin
Application.RemoveOnIdleHandler(@ApplicationIdle);
inherited Destroy;
end;
constructor TParamHint.Create(TheOwner: TComponent);
begin