some small fixes

2.10/Source/Editor.dfm

@@ -1660,7 +1660,7 @@ object EditForm: TEditForm
     object mnuExtendedEdit: TMenuItem
       Caption = 'Extended edit mode'
       Hint = 'Toggle extended edit mode'
-      ImageIndex = 24
+      ImageIndex = 25
       OnClick = tbExtendedEditClick
     end
     object mnuAxisLock: TMenuItem

2.10/Source/ImageMaker.pas

@@ -21,6 +21,8 @@ type
     FBuckets: TBucketArray;
     FOnProgress: TOnProgress;
 
+    MaxA: int64; // for reuse in following slices
+
     procedure CreateFilter;
     procedure NormalizeFilter;
     procedure SetOnProgress(const Value: TOnProgress);
@@ -49,6 +51,7 @@ type
     property OnProgress: TOnProgress
         read FOnProgress
        write SetOnProgress;
+    property MaxCount: int64 read MaxA;
   end;
 
 implementation
@@ -366,10 +369,6 @@ begin
   Progress(1);
 end;
 
-// global variable for reuse in follong slices
-var
-  MaxA: int64;
-
 ///////////////////////////////////////////////////////////////////////////////
 // michael baranov transparancy code from flamesong
 procedure TImageMaker.CreateImage_MB(YOffset: integer);

2.10/Source/Options.dfm

@@ -44,7 +44,7 @@ object OptionsForm: TOptionsForm
     Top = 8
     Width = 451
     Height = 265
-    ActivePage = RandomPage
+    ActivePage = GeneralPage
     TabOrder = 0
     TabStop = False
     object GeneralPage: TTabSheet

2.10/Source/ScriptForm.dfm

@@ -135,8 +135,6 @@ object ScriptEditor: TScriptEditor
       BlockLineColor = clGray
       BkColor = clWindow
       BorderStyle = bsNone
-      CodeFolding.Enabled = False
-      CodeFolding.LineColor = clGray
       Ctl3D = False
       DelErase = True
       EnhancedHomeKey = False