added mouse-drag for variable list + some optimization

2005-09-16 10:28:44 +00:00
parent 6876a3f80a
commit af28de8e5f
2 changed files with 252 additions and 262 deletions
--- a/2.10/Source/Editor.dfm
+++ b/2.10/Source/Editor.dfm
@ -1291,8 +1291,7 @@ object EditForm: TEditForm
                'Variation'
                'Value')
              OnDblClick = VEVarsDblClick
-              OnDrawCell = VEVarsDrawCell
-              OnExit = VEVarsExit
+              OnExit = VEVarsChange
              OnKeyPress = VEVarsKeyPress
              OnMouseDown = VEVarsMouseDown
              OnMouseMove = VEVarsMouseMove
@ -1310,15 +1309,19 @@ object EditForm: TEditForm
              Left = 0
              Top = 0
              Width = 162
-              Height = 312
+              Height = 322
              Align = alClient
              ScrollBars = ssVertical
              TabOrder = 0
              TitleCaptions.Strings = (
-                'Variation'
+                'Variable'
                'Value')
+              OnDblClick = VEVarsDblClick
              OnExit = vleVariablesExit
              OnKeyPress = vleVariablesKeyPress
+              OnMouseDown = VEVarsMouseDown
+              OnMouseMove = VEVarsMouseMove
+              OnMouseUp = VEVarsMouseUp
              OnValidate = vleVariablesValidate
              ColWidths = (
                93