Changeset 155 for MicroThreading/Demo/UMainForm.pas

Timestamp:

Jan 28, 2011, 7:33:14 AM (14 years ago)

Author:

george

Message:

• Modified: Reworked microthread internal states.

File:

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

MicroThreading/Demo/UMainForm.pas

@@ -55 +55 @@
     procedure ButtonClearMicroThreadsClick(Sender: TObject);
     procedure CheckBoxUseMainThreadChange(Sender: TObject);
-    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
@@ -208 +207 @@
 end;
 
-procedure TMainForm.FormClose(Sender: TObject; var CloseAction: TCloseAction);
+procedure TMainForm.FormDestroy(Sender: TObject);
 begin
   MainScheduler.Active := False;
-end;
-
-procedure TMainForm.FormDestroy(Sender: TObject);
-begin
-  MainScheduler.Free;
 end;
 
@@ -234 +228 @@
       Item.SubItems.Add(IntToStr(Priority));
       Item.SubItems.Add(MicroThreadStateText[State]);
+      Item.SubItems.Add(MicroThreadBlockStateText[BlockState]);
       Item.SubItems.Add(FloatToStr(ExecutionTime));
       Item.SubItems.Add(IntToStr(Trunc(Completion * 100)) + '%');