Browse Source

Core: remove UI-synchronization feature from TPCThread

Herman Schoenfeld 6 years ago
parent
commit
b263223b45
1 changed files with 1 additions and 4 deletions
  1. 1 4
      src/core/UThread.pas

+ 1 - 4
src/core/UThread.pas

@@ -64,7 +64,6 @@ Type
   TPCThreadClass = Class of TPCThread;
   TPCThreadClass = Class of TPCThread;
   TPCThread = Class(TThread)
   TPCThread = Class(TThread)
   private
   private
-    FExecuteUIThread : Boolean;
     FDebugStep: String;
     FDebugStep: String;
     FStartTickCount : TTickCount;
     FStartTickCount : TTickCount;
   protected
   protected
@@ -82,7 +81,6 @@ Type
     constructor Create(CreateSuspended: Boolean);
     constructor Create(CreateSuspended: Boolean);
     destructor Destroy; override;
     destructor Destroy; override;
     Property DebugStep : String read FDebugStep write FDebugStep;
     Property DebugStep : String read FDebugStep write FDebugStep;
-    property ExecuteUIThread : Boolean read FExecuteUIThread write FExecuteUIThread;
     property Terminated;
     property Terminated;
   End;
   End;
 
 
@@ -184,7 +182,6 @@ Var _threads : TPCThreadList<TPCThread>;
 constructor TPCThread.Create(CreateSuspended: Boolean);
 constructor TPCThread.Create(CreateSuspended: Boolean);
 begin
 begin
   inherited Create(CreateSuspended);
   inherited Create(CreateSuspended);
-  FExecuteUIThread := false;
   {$IFDEF HIGHLOG}TLog.NewLog(ltdebug,Classname,'Created Thread '+IntToHex(PtrInt(Self),8));{$ENDIF}
   {$IFDEF HIGHLOG}TLog.NewLog(ltdebug,Classname,'Created Thread '+IntToHex(PtrInt(Self),8));{$ENDIF}
 end;
 end;
 
 
@@ -209,7 +206,7 @@ begin
     {$IFDEF HIGHLOG}TLog.NewLog(ltdebug,Classname,'Starting Thread '+IntToHex(PtrInt(Self),8)+' in pos '+inttostr(i+1));{$ENDIF}
     {$IFDEF HIGHLOG}TLog.NewLog(ltdebug,Classname,'Starting Thread '+IntToHex(PtrInt(Self),8)+' in pos '+inttostr(i+1));{$ENDIF}
     Try
     Try
       Try
       Try
-        if FExecuteUIThread then Synchronize(BCExecute) else BCExecute;
+        BCExecute;
         FDebugStep := 'Finalized BCExecute';
         FDebugStep := 'Finalized BCExecute';
       Finally
       Finally
         Terminate;
         Terminate;