paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 19:59:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Free searchitems stringlist

Browse Source 
git-svn-id: trunk@59154 -
This commit is contained in:
michael 2018-09-24 08:53:19 +00:00
parent 58bc4c9498
commit d62467de68
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/idespotter/frmspotter.lfm
View File

@ -12,6 +12,7 @@ object SpotterForm: TSpotterForm
OnActivate = FormActivate
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
Position = poDefaultSizeOnly
ShowInTaskBar = stNever

6
components/idespotter/frmspotter.pas
View File

@ -71,6 +71,7 @@ type
procedure FormActivate(Sender: TObject);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure LBMatchesClick(Sender: TObject);
procedure LBMatchesDrawItem(Control: TWinControl; Index: Integer;
@ -316,6 +317,11 @@ begin
FOrgCaption:=Caption;
end;
procedure TSpotterForm.FormDestroy(Sender: TObject);
begin
FreeAndNil(FSearchItems);
end;
procedure TSpotterForm.FormShow(Sender: TObject);
Var
MF : TForm;