Fix #207.

Projects/Simba/simbaunit.lfm

@@ -3,9 +3,10 @@ object SimbaForm: TSimbaForm
   Height = 623
   Top = 95
   Width = 660
+  ActiveControl = ScriptPanel
   AllowDropFiles = True
   Caption = 'THA FUKING Simba'
-  ClientHeight = 603
+  ClientHeight = 600
   ClientWidth = 660
   KeyPreview = True
   Menu = MainMenu
@@ -207,8 +208,8 @@ object SimbaForm: TSimbaForm
   end
   object StatusBar: TStatusBar
     Left = 0
-    Height = 23
-    Top = 580
+    Height = 17
+    Top = 583
     Width = 660
     Panels = <    
       item
@@ -230,7 +231,7 @@ object SimbaForm: TSimbaForm
   object PanelMemo: TPanel
     Left = 0
     Height = 154
-    Top = 426
+    Top = 429
     Width = 660
     Align = alBottom
     ClientHeight = 154
@@ -253,19 +254,19 @@ object SimbaForm: TSimbaForm
     Cursor = crVSplit
     Left = 0
     Height = 5
-    Top = 421
+    Top = 424
     Width = 660
     Align = alBottom
     ResizeAnchor = akBottom
   end
   object ScriptPanel: TPanel
     Left = 0
-    Height = 397
+    Height = 400
     Top = 24
     Width = 660
     Align = alClient
     BevelOuter = bvNone
-    ClientHeight = 397
+    ClientHeight = 400
     ClientWidth = 660
     DockSite = True
     TabOrder = 4
@@ -273,7 +274,7 @@ object SimbaForm: TSimbaForm
     OnDockOver = ScriptPanelDockOver
     object PageControl1: TPageControl
       Left = 155
-      Height = 362
+      Height = 365
       Top = 0
       Width = 505
       Align = alClient
@@ -292,7 +293,7 @@ object SimbaForm: TSimbaForm
     object SearchPanel: TPanel
       Left = 0
       Height = 35
-      Top = 362
+      Top = 365
       Width = 660
       Align = alBottom
       BevelOuter = bvSpace
@@ -388,7 +389,7 @@ object SimbaForm: TSimbaForm
       end
       object LabeledEditSearch: TLabeledEdit
         Left = 104
-        Height = 21
+        Height = 27
         Top = 6
         Width = 174
         EditLabel.AnchorSideLeft.Control = LabeledEditSearch
@@ -396,10 +397,10 @@ object SimbaForm: TSimbaForm
         EditLabel.AnchorSideTop.Side = asrCenter
         EditLabel.AnchorSideRight.Control = LabeledEditSearch
         EditLabel.AnchorSideBottom.Control = LabeledEditSearch
-        EditLabel.Left = 73
-        EditLabel.Height = 14
-        EditLabel.Top = 9
-        EditLabel.Width = 28
+        EditLabel.Left = 67
+        EditLabel.Height = 18
+        EditLabel.Top = 10
+        EditLabel.Width = 34
         EditLabel.Caption = 'Find: '
         EditLabel.ParentColor = False
         LabelPosition = lpLeft
@@ -412,9 +413,9 @@ object SimbaForm: TSimbaForm
       end
       object CheckBoxMatchCase: TCheckBox
         Left = 320
-        Height = 17
+        Height = 20
         Top = 7
-        Width = 72
+        Width = 95
         Caption = 'Match case'
         OnClick = CheckBoxMatchCaseClick
         TabOrder = 1
@@ -422,34 +423,38 @@ object SimbaForm: TSimbaForm
     end
     object SplitterFunctionList: TSplitter
       Left = 150
-      Height = 362
+      Height = 365
       Top = 0
       Width = 5
       OnCanResize = SplitterFunctionListCanResize
       Visible = False
     end
     inline frmFunctionList: TFunctionListFrame
-      Height = 362
+      Height = 365
       Width = 150
-      ClientHeight = 362
+      ClientHeight = 365
       ClientWidth = 150
       OnEndDock = nil
       TabOrder = 3
       inherited FunctionList: TTreeView
-        Height = 323
+        Height = 316
+        Top = 22
         Width = 150
+        DefaultItemHeight = 19
         OnChange = FunctionListChange
         OnEnter = FunctionListEnter
         OnExit = FunctionListExit
       end
       inherited editSearchList: TEdit
-        Top = 341
+        Height = 27
+        Top = 338
         Width = 150
         OnExit = editSearchListExit
         OnKeyDown = editSearchListKeyDown
         OnKeyPress = editSearchListKeyPress
       end
       inherited FunctionListLabel: TLabel
+        Height = 18
         Width = 146
       end
     end
@@ -1303,7 +1308,7 @@ object SimbaForm: TSimbaForm
           FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF004EA3
           5778499B5103FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
         }
-        ShortCut = 16465
+        ShortCut = 16452
         OnClick = MenuitemFillFunctionListClick
       end
       object UpdateMenuButton: TMenuItem