moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-22 17:22:21 -05:00
Code Issues Releases Wiki Activity

Added destructor for the paramhints.

Browse Source
This commit is contained in:
Raymond 2010-04-04 13:21:28 +02:00
parent 7007f28939
commit 6fe68d1267
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Units/Misc/v_autocompleteform.pas
View File

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