Changeset 6 for trunk/Forms/UFormConsole.lfm

Timestamp:

May 6, 2015, 11:19:49 AM (10 years ago)

Author:

chronos

Message:

• Added: Now opened projects are remembered between application restarts.
• Added: Show basic list of files in selected project.
• Added: Packages Common and TemplateGenerics.

File:

• trunk/Forms/UFormConsole.lfm (modified) (2 diffs)

trunk/Forms/UFormConsole.lfm

@@ -3 +3 @@
   Height = 727
   Top = 261
-  Width = 984
+  Width = 975
   Caption = 'Console'
   ClientHeight = 727
-  ClientWidth = 984
+  ClientWidth = 975
   OnClose = FormClose
   OnCreate = FormCreate
   OnDestroy = FormDestroy
   OnShow = FormShow
-  LCLVersion = '1.3'
-  object MemoOutput: TMemo
+  Position = poMainFormCenter
+  LCLVersion = '1.5'
+  object Memo1: TMemo
     Left = 4
     Height = 674
     Top = 48
-    Width = 975
+    Width = 966
     Align = alCustom
     Anchors = [akTop, akLeft, akRight, akBottom]
@@ -26 +27 @@
     TabOrder = 0
   end
+  object ButtonAbort: TButton
+    Left = 895
+    Height = 25
+    Top = 8
+    Width = 75
+    Anchors = [akTop, akRight]
+    Caption = 'Abort'
+    OnClick = ButtonAbortClick
+    TabOrder = 1
+  end
   object EditCommand: TEdit
     Left = 4
     Height = 32
     Top = 7
-    Width = 893
+    Width = 884
     Anchors = [akTop, akLeft, akRight]
     ReadOnly = True
-    TabOrder = 1
+    TabOrder = 2
   end
-  object ToolBar1: TToolBar
-    Left = 902
-    Height = 34
-    Top = 8
-    Width = 77
-    Align = alCustom
-    Anchors = [akTop, akRight]
-    Caption = 'ToolBar1'
-    EdgeInner = esNone
-    EdgeOuter = esNone
-    ShowCaptions = True
-    TabOrder = 2
-    object ToolButton1: TToolButton
-      Left = 1
-      Top = 0
-      Action = AAbort
-      AutoSize = True
-      DropdownMenu = PopupMenu1
-      Style = tbsDropDown
-    end
-  end
-  object ActionList1: TActionList
-    left = 265
-    top = 130
-    object AAbort: TAction
-      Caption = 'Abort'
-      OnExecute = AAbortExecute
-    end
-    object ARestart: TAction
-      Caption = 'Restart'
-    end
-  end
-  object PopupMenu1: TPopupMenu
-    left = 264
-    top = 232
-    object MenuItem1: TMenuItem
-      Action = AAbort
-    end
-    object MenuItem2: TMenuItem
-      Action = ARestart
-    end
+  object Timer1: TTimer
+    Enabled = False
+    Interval = 1
+    OnTimer = Timer1Timer
+    left = 72
+    top = 112
   end
 end