Fix memory leak on FServiceThread

This commit is contained in:
JanM62 2021-10-18 14:11:24 +02:00 committed by GitHub
parent 1e7a087355
commit b779a0e6af
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 7 additions and 0 deletions

View File

@ -38,6 +38,7 @@ type
FServiceThread: TThread;
FAllowClose: Boolean;
protected
destructor Destroy; override;
procedure DoShow; override;
procedure UpdatePredefinedControlCodes; virtual;
@ -112,6 +113,12 @@ begin
btnClose.Left := (ClientWidth - btnClose.Width) div 2;
end;
destructor TX2ServiceContextGUIForm.Destroy;
begin
if Assigned(FServiceThread) then
FreeAndNil(FServiceThread);
inherited Destroy;
end;
procedure TX2ServiceContextGUIForm.DoShow;
var