Changeset 168 for MicroThreading/UMicroThreadList.pas

Timestamp:

Feb 10, 2011, 4:10:59 PM (14 years ago)

Author:

george

Message:

• Added: Context menu in microthreads list to show microthread call stack.

File:

• MicroThreading/UMicroThreadList.pas (modified) (6 diffs)

MicroThreading/UMicroThreadList.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
-  ExtCtrls, StdCtrls, DateUtils, UPlatform;
+  ExtCtrls, StdCtrls, Menus, DateUtils, UPlatform, UMicroThreadCallStack;
 
 type
@@ -21 +21 @@
     Label8: TLabel;
     Label9: TLabel;
+    MenuItemCallStack: TMenuItem;
+    PopupMenu1: TPopupMenu;
     TimerRedraw: TTimer;
     Label1: TLabel;
@@ -31 +33 @@
     TabSheet3: TTabSheet;
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
+    procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
     procedure FormHide(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure ListView1Data(Sender: TObject; Item: TListItem);
     procedure ListView2Data(Sender: TObject; Item: TListItem);
+    procedure MenuItemCallStackClick(Sender: TObject);
     procedure TimerRedrawTimer(Sender: TObject);
   private
-    { private declarations }
+    CallStackForm: TCallStackForm;
   public
     { public declarations }
@@ -81 +86 @@
     with TMicroThread(MainScheduler.MicroThreads[Item.Index]) do begin
       Item.Caption := IntToStr(Id);
+      Item.Data := TMicroThread(MainScheduler.MicroThreads[Item.Index]);
       Item.SubItems.Add('');
       Item.SubItems.Add(IntToStr(Priority));
@@ -124 +130 @@
 end;
 
+procedure TMicroThreadListForm.MenuItemCallStackClick(Sender: TObject);
+begin
+  if Assigned(ListView1.Selected) then
+  with TMicroThread(ListView1.Selected.Data) do begin
+    //Suspend;
+    CallStackForm.Show(BasePointer);
+    //Resume;
+  end;
+end;
+
 procedure TMicroThreadListForm.FormShow(Sender: TObject);
 begin
@@ -140 +156 @@
 end;
 
+procedure TMicroThreadListForm.FormCreate(Sender: TObject);
+begin
+  CallStackForm := TCallStackForm.Create(nil);
+end;
+
+procedure TMicroThreadListForm.FormDestroy(Sender: TObject);
+begin
+  CallStackForm.Free;
+end;
+
 
 end.