Changeset 168 for MicroThreading/UMicroThreadList.lfm

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.lfm (modified) (5 diffs)

MicroThreading/UMicroThreadList.lfm

@@ -1 +1 @@
 object MicroThreadListForm: TMicroThreadListForm
-  Left = 476
+  Left = 321
   Height = 423
-  Top = 111
+  Top = 108
   Width = 569
   Caption = 'Microthread list'
@@ -8 +8 @@
   ClientWidth = 569
   OnClose = FormClose
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
   OnHide = FormHide
   OnShow = FormShow
@@ -16 +18 @@
     Top = 7
     Width = 553
-    ActivePage = TabSheet1
+    ActivePage = TabSheet3
     Anchors = [akTop, akLeft, akRight, akBottom]
-    TabIndex = 0
+    TabIndex = 2
     TabOrder = 0
     object TabSheet1: TTabSheet
@@ -170 +172 @@
           end>
         OwnerData = True
+        PopupMenu = PopupMenu1
         ReadOnly = True
         RowSelect = True
@@ -185 +188 @@
     top = 85
   end
+  object PopupMenu1: TPopupMenu
+    left = 192
+    top = 136
+    object MenuItemCallStack: TMenuItem
+      Caption = 'Call stack'
+      OnClick = MenuItemCallStackClick
+    end
+  end
 end