Changeset 156 for MicroThreading/Demo/UMainForm.pas

Timestamp:

Jan 28, 2011, 2:12:42 PM (13 years ago)

Author:

george

Message:

• Modified: Restructuralized code for support for pending state changes.

File:

• MicroThreading/Demo/UMainForm.pas (modified) (8 diffs)

MicroThreading/Demo/UMainForm.pas

@@ -46 +46 @@
     TabSheet3: TTabSheet;
     TimerRedraw: TTimer;
-    TimerSchedulerStart: TTimer;
     procedure Button1Click(Sender: TObject);
     procedure ButtonSchedulerStartStopClick(Sender: TObject);
@@ -62 +61 @@
     procedure SpinEdit3Change(Sender: TObject);
     procedure TimerRedrawTimer(Sender: TObject);
-    procedure TimerSchedulerStartTimer(Sender: TObject);
   private
     procedure Worker(MicroThread: TMicroThread);
@@ -215 +213 @@
 begin
   Iterations := SpinEdit3.Value;
+  SpinEdit2.Value := 20;
+  ButtonAddWorkers.Click;
+  ButtonSchedulerStartStop.Click;
 end;
 
@@ -224 +225 @@
     with TMicroThread(MainScheduler.MicroThreads[Item.Index]) do begin
       Item.Caption := IntToStr(Id);
-      Item.SubItems.Add(Name);
       Item.SubItems.Add('');
       Item.SubItems.Add(IntToStr(Priority));
@@ -230 +230 @@
       Item.SubItems.Add(MicroThreadBlockStateText[BlockState]);
       Item.SubItems.Add(FloatToStr(ExecutionTime));
+      Item.SubItems.Add(IntToStr(ExecutionCount));
       Item.SubItems.Add(IntToStr(Trunc(Completion * 100)) + '%');
       Item.SubItems.Add(IntToStr(StackUsed));
+      Item.SubItems.Add(Name);
     end;
   finally
@@ -260 +262 @@
 end;
 
-procedure TMainForm.TimerSchedulerStartTimer(Sender: TObject);
-begin
-  TimerSchedulerStart.Enabled := False;
-  ButtonAddWorkers.Click;
-  ButtonSchedulerStartStop.Click;
-end;
-
 procedure TMainForm.WorkerSubRoutine;
 begin
-  MTSleep(1 * OneMillisecond);
+  //MTSleep(1 * OneMillisecond);
 end;
 
@@ -282 +277 @@
       Q := 0;
       while Q < 100 do Inc(Q);
-      Synchronize(WorkerDoWrite);
+      //Synchronize(WorkerDoWrite);
       //Memo1.Lines.Add(IntToStr(Id) + ': ' + IntToStr(I) + ' ' +
       //  FloatToStr(ExecutionTime));
       Completion := I / Iterations;
-      //MTSleep(1 * Id * OneMillisecond);
+      //MTSleep(1000 * OneMillisecond);
       Yield;
-      WorkerSubRoutine;
+      //WorkerSubRoutine;
     end;
   end;
@@ -295 +290 @@
 procedure TMainForm.WorkerDoWrite;
 begin
-  Memo1.Lines.Add('.');
+  //Memo1.Lines.Add('.');
 end;