Changeset 453 for GraphicTest/UMainForm.lfm

Timestamp:

Nov 25, 2012, 5:04:36 PM (12 years ago)

Author:

chronos

Message:

• Added: Export results to text file in mediawiki format.

File:

• GraphicTest/UMainForm.lfm (modified) (20 diffs)

GraphicTest/UMainForm.lfm

@@ -1 +1 @@
 object MainForm: TMainForm
   Left = 165
-  Height = 411
+  Height = 444
   Top = 117
   Width = 857
   Caption = 'Graphic test'
-  ClientHeight = 411
+  ClientHeight = 425
   ClientWidth = 857
+  Menu = MainMenu1
   OnClose = FormClose
   OnCreate = FormCreate
@@ -14 +15 @@
   object PageControl1: TPageControl
     Left = 459
-    Height = 411
+    Height = 425
     Top = 0
     Width = 398
@@ -23 +24 @@
     object TabSheet1: TTabSheet
       Caption = 'Description'
-      ClientHeight = 386
-      ClientWidth = 394
+      ClientHeight = 388
+      ClientWidth = 390
       object Memo1: TMemo
         Left = 0
-        Height = 386
+        Height = 388
         Top = 0
-        Width = 394
+        Width = 390
         Align = alClient
         ReadOnly = True
@@ -38 +39 @@
     object TabSheet2: TTabSheet
       Caption = 'Code'
-      ClientHeight = 386
-      ClientWidth = 394
+      ClientHeight = 388
+      ClientWidth = 390
       inline SynMemo1: TSynMemo
         Cursor = crIBeam
@@ -524 +525 @@
   object Panel1: TPanel
     Left = 0
-    Height = 411
+    Height = 425
     Top = 0
     Width = 454
     Align = alClient
     BevelOuter = bvNone
-    ClientHeight = 411
+    ClientHeight = 425
     ClientWidth = 454
     TabOrder = 1
     object ListViewMethods: TListView
       Left = 9
-      Height = 335
+      Height = 349
       Top = 8
       Width = 443
@@ -578 +579 @@
       Left = 8
       Height = 25
-      Top = 350
+      Top = 364
       Width = 115
       Anchors = [akLeft, akBottom]
@@ -588 +589 @@
       Left = 136
       Height = 25
-      Top = 350
+      Top = 364
       Width = 112
       Anchors = [akLeft, akBottom]
@@ -597 +598 @@
     object FloatSpinEdit1: TFloatSpinEdit
       Left = 88
-      Height = 25
-      Top = 378
+      Height = 23
+      Top = 394
       Width = 58
       Anchors = [akLeft, akBottom]
@@ -610 +611 @@
       Left = 256
       Height = 25
-      Top = 350
+      Top = 364
       Width = 75
       Anchors = [akLeft, akBottom]
@@ -620 +621 @@
       Left = 8
       Height = 15
-      Top = 384
-      Width = 80
+      Top = 398
+      Width = 78
       Anchors = [akLeft, akBottom]
       Caption = 'Step duration:'
@@ -629 +630 @@
       Left = 152
       Height = 15
-      Top = 384
-      Width = 6
+      Top = 398
+      Width = 5
       Anchors = [akLeft, akBottom]
       Caption = 's'
@@ -637 +638 @@
     object SpinEditWidth: TSpinEdit
       Left = 204
-      Height = 25
-      Top = 378
+      Height = 23
+      Top = 394
       Width = 58
       Anchors = [akLeft, akBottom]
@@ -648 +649 @@
     object SpinEditHeight: TSpinEdit
       Left = 273
-      Height = 25
-      Top = 378
+      Height = 23
+      Top = 394
       Width = 58
       Anchors = [akLeft, akBottom]
@@ -660 +661 @@
       Left = 169
       Height = 15
-      Top = 385
+      Top = 399
       Width = 25
       Anchors = [akLeft, akBottom]
@@ -669 +670 @@
       Left = 265
       Height = 15
-      Top = 384
+      Top = 398
       Width = 6
       Anchors = [akLeft, akBottom]
@@ -677 +678 @@
     object CheckBoxDoubleBuffered: TCheckBox
       Left = 336
-      Height = 21
-      Top = 346
-      Width = 116
+      Height = 24
+      Top = 357
+      Width = 118
       Anchors = [akLeft, akBottom]
       Caption = 'Double buffered'
@@ -687 +688 @@
     object CheckBoxEraseBackground: TCheckBox
       Left = 336
-      Height = 21
-      Top = 363
+      Height = 24
+      Top = 374
       Width = 124
       Anchors = [akLeft, akBottom]
@@ -697 +698 @@
     object CheckBox1: TCheckBox
       Left = 336
-      Height = 21
-      Top = 383
-      Width = 67
+      Height = 24
+      Top = 394
+      Width = 69
       Anchors = [akLeft, akBottom]
       Caption = 'Opaque'
@@ -708 +709 @@
   object Splitter1: TSplitter
     Left = 454
-    Height = 411
+    Height = 425
     Top = 0
     Width = 5
@@ -738 +739 @@
     top = 164
   end
+  object ActionList1: TActionList
+    left = 104
+    top = 168
+    object AExportAsWikiText: TAction
+      Caption = 'Export as Wiki text'
+      Hint = 'Export as Wiki text'
+      OnExecute = AExportAsWikiTextExecute
+    end
+    object Action1: TAction
+      Caption = 'Action1'
+    end
+    object FileExit1: TFileExit
+      Category = 'File'
+      Caption = '&Exit'
+      Hint = 'Exit'
+      ShortCut = 32883
+    end
+  end
+  object MainMenu1: TMainMenu
+    left = 160
+    top = 80
+    object MenuItem1: TMenuItem
+      Caption = 'General'
+      object MenuItem2: TMenuItem
+        Action = AExportAsWikiText
+      end
+      object MenuItem3: TMenuItem
+        Action = FileExit1
+      end
+    end
+  end
+  object SaveDialog1: TSaveDialog
+    DefaultExt = '.txt'
+    left = 308
+    top = 76
+  end
 end