Some function parameters hints and changed error message.

2.10/Source/ScriptForm.dfm

@@ -20,7 +20,7 @@ object ScriptEditor: TScriptEditor
   TextHeight = 13
   object Splitter1: TSplitter
     Left = 0
-    Top = 250
+    Top = 244
     Width = 531
     Height = 4
     Cursor = crVSplit
@@ -30,7 +30,7 @@ object ScriptEditor: TScriptEditor
     Left = 508
     Top = 0
     Width = 23
-    Height = 250
+    Height = 244
     Align = alRight
     AutoSize = True
     Caption = 'ToolBar'
@@ -96,7 +96,7 @@ object ScriptEditor: TScriptEditor
   end
   object StatusBar: TStatusBar
     Left = 0
-    Top = 343
+    Top = 337
     Width = 531
     Height = 19
     Anchors = [akLeft, akRight]
@@ -106,7 +106,7 @@ object ScriptEditor: TScriptEditor
     Left = 0
     Top = 0
     Width = 508
-    Height = 250
+    Height = 244
     Align = alClient
     BevelInner = bvLowered
     BevelOuter = bvLowered
@@ -116,7 +116,7 @@ object ScriptEditor: TScriptEditor
       Left = 2
       Top = 2
       Width = 504
-      Height = 246
+      Height = 240
       Cursor = crIBeam
       PopupMenu = PopupMenu
       ActiveLineSettings.ShowActiveLine = False
@@ -136,6 +136,8 @@ object ScriptEditor: TScriptEditor
       BlockLineColor = clGray
       BkColor = clWindow
       BorderStyle = bsNone
+      CodeFolding.Enabled = False
+      CodeFolding.LineColor = clGray
       Ctl3D = False
       DelErase = True
       EnhancedHomeKey = False
@@ -145,11 +147,6 @@ object ScriptEditor: TScriptEditor
       Gutter.Font.Height = -13
       Gutter.Font.Name = 'Courier New'
       Gutter.Font.Style = []
-      Gutter.LineNumberStart = 1
-      Gutter.LineNumberTextColor = clBlack
-      Gutter.ShowLineNumbers = True
-      Gutter.Visible = True
-      Gutter.ShowLeadingZeros = False
       Font.Charset = DEFAULT_CHARSET
       Font.Color = clBlack
       Font.Height = -13
@@ -191,14 +188,14 @@ object ScriptEditor: TScriptEditor
       UrlStyle.BkColor = clWhite
       UrlStyle.Style = [fsUnderline]
       UseStyler = True
-      Version = '1.6.0.17'
+      Version = '2.0.0.1'
       WordWrap = wwNone
       OnChange = EditorChange
     end
   end
   object Console: TMemo
     Left = 0
-    Top = 254
+    Top = 248
     Width = 531
     Height = 89
     Align = alBottom
@@ -556,13 +553,74 @@ object ScriptEditor: TScriptEditor
     HintParameter.HintCharDelimiter = ';'
     HintParameter.HintCharWriteDelimiter = ','
     HintParameter.Parameters.Strings = (
-      'ShowMessage(const Msg: string);')
+      'ShowMessage(const Msg: string);'
+      
+        'InputQuery(const Caption: string; const Prompt: string; var Valu' +
+        'e: string)'
+      'Translate(X: integer, Y: integer)'
+      'Rotate(Angle: double)'
+      'SetActiveTransform(TransformNumber: integer);'
+      'ListFile(const filename: string)'
+      'DeleteFile(const filename: string)'
+      'LoadFlame(FlameNumber: integer)'
+      'SetActiveTransform(TransformNumber: integer)'
+      'ShowStatus(const Text: string)'
+      'RotateReference(Angle: double)'
+      'Scale(Scale: double)'
+      'SaveFlame(const filename: string)')
     HexIdentifier = '$'
     Description = 'Pascal'
     Filter = 'Pascal Files (*.pas,*.dpr,*.dpk,*.inc)|*.pas;*.dpr;*.dpk;*.inc'
     DefaultExtension = '.pas'
     StylerName = 'Pascal'
     Extensions = 'pas;dpr;dpk;inc'
+    RegionDefinitions = <
+      item
+        Identifier = 'procedure'
+        RegionStart = 'begin'
+        RegionEnd = 'end'
+        RegionType = rtClosed
+        ShowComments = False
+      end
+      item
+        Identifier = 'interface'
+        RegionStart = 'interface'
+        RegionType = rtOpen
+        ShowComments = False
+      end
+      item
+        Identifier = 'unit'
+        RegionStart = 'unit'
+        RegionType = rtFile
+        ShowComments = False
+      end
+      item
+        Identifier = 'implementation'
+        RegionStart = 'implementation'
+        RegionType = rtOpen
+        ShowComments = False
+      end
+      item
+        Identifier = 'case'
+        RegionStart = 'case'
+        RegionEnd = 'end'
+        RegionType = rtIgnore
+        ShowComments = False
+      end
+      item
+        Identifier = 'function'
+        RegionStart = 'begin'
+        RegionEnd = 'end'
+        RegionType = rtClosed
+        ShowComments = False
+      end
+      item
+        Identifier = '{$region'
+        RegionStart = '{$region'
+        RegionEnd = '{$endregion'
+        RegionType = rtClosed
+        ShowComments = False
+      end>
     Left = 328
     Top = 32
   end