Changeset 122 for trunk/Packages/Common/UResetableThread.pas

Timestamp:

Jun 29, 2018, 11:44:07 PM (6 years ago)

Author:

chronos

Message:

• Modified: Updated Common package.
• Modified: Updated IPTV prices.
• Added: deb package build script.

File:

• trunk/Packages/Common/UResetableThread.pas (modified) (3 diffs)

trunk/Packages/Common/UResetableThread.pas

@@ -104 +104 @@
 
 procedure TResetableThread.WaitForStart;
-var
-  WaitResult: TWaitResult;
+//var
+//  WaitResult: TWaitResult;
 begin
   //try
@@ -127 +127 @@
 
 procedure TResetableThread.WaitForStop;
-var
-  WaitState: TWaitResult;
+//var
+//  WaitState: TWaitResult;
 begin
   try
@@ -156 +156 @@
   FThread.Name := 'ResetableThread';
   FThread.Parent := Self;
-  FThread.Resume;
+  FThread.Start;
 end;