Parameterized variations

2.10/Source/Editor.dfm

@@ -53,7 +53,7 @@ object EditForm: TEditForm
   TextHeight = 13
   object StatusBar: TStatusBar
     Left = 0
-    Top = 547
+    Top = 541
     Width = 578
     Height = 15
     Panels = <
@@ -325,14 +325,14 @@ object EditForm: TEditForm
     Left = 0
     Top = 24
     Width = 578
-    Height = 523
+    Height = 517
     Align = alClient
     TabOrder = 1
     object Splitter1: TSplitter
       Left = 396
       Top = 1
       Width = 9
-      Height = 521
+      Height = 515
       Align = alRight
       AutoSnap = False
       Beveled = True
@@ -343,7 +343,7 @@ object EditForm: TEditForm
       Left = 1
       Top = 1
       Width = 395
-      Height = 521
+      Height = 515
       Align = alClient
       BevelOuter = bvNone
       Color = clBlack
@@ -353,7 +353,7 @@ object EditForm: TEditForm
         Left = 0
         Top = 0
         Width = 395
-        Height = 521
+        Height = 515
         Align = alClient
         PopupMenu = EditPopup
         OnDblClick = GraphImageDblClick
@@ -366,7 +366,7 @@ object EditForm: TEditForm
       Left = 405
       Top = 1
       Width = 172
-      Height = 521
+      Height = 515
       Align = alRight
       Alignment = taLeftJustify
       BevelOuter = bvNone
@@ -406,7 +406,7 @@ object EditForm: TEditForm
         Left = 0
         Top = 136
         Width = 172
-        Height = 385
+        Height = 379
         Align = alClient
         TabOrder = 0
         object lblTransform: TLabel
@@ -439,10 +439,10 @@ object EditForm: TEditForm
         end
         object PageControl: TPageControl
           Left = 1
-          Top = 26
+          Top = 20
           Width = 170
           Height = 358
-          ActivePage = TriangleTab
+          ActivePage = TabSheet4
           Align = alBottom
           Anchors = [akLeft, akTop, akRight, akBottom]
           MultiLine = True
@@ -1319,6 +1319,28 @@ object EditForm: TEditForm
                 63)
             end
           end
+          object TabSheet4: TTabSheet
+            Caption = 'Variables'
+            ImageIndex = 4
+            object vleVariables: TValueListEditor
+              Left = 0
+              Top = 0
+              Width = 162
+              Height = 312
+              Align = alClient
+              ScrollBars = ssVertical
+              TabOrder = 0
+              TitleCaptions.Strings = (
+                'Variation'
+                'Value')
+              OnExit = vleVariablesExit
+              OnKeyPress = vleVariablesKeyPress
+              OnValidate = vleVariablesValidate
+              ColWidths = (
+                93
+                63)
+            end
+          end
           object tabColors: TTabSheet
             Caption = 'Colors'
             ImageIndex = 3