GitHub-Mirror/x2utils
1
0
Fork 0
mirror of synced 2024-12-22 09:13:07 +01:00
Code Issues Projects Releases Wiki Activity

Fix memory leak on FServiceThread

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
X2UtService.GUIContext.Form.pas
View File

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