fixed range check error after editing RGBConv

Author: Wiering

Main.pas

@@ -16573,11 +16573,13 @@ procedure TMainForm.LoadRGBConvNames;
       Delete (s, 1, 1);
       Delete (s, Length (s), 1);
       RGBConvListBox.Items.Add (s);
-      if (s = LastSelected) then
-        RGBConvListBox.Selected[RGBConvListBox.Items.Count - 1] := TRUE;
 
       Inc (j);
       SetLength (RGBConvScripts, j + 1);
+
+      if (s = LastSelected) then
+        RGBConvListBox.ItemIndex := j;
+      
       RGBConvScripts[j] := TStringList.Create;
     end
     else

RGBConvForm.dfm

@@ -1,8 +1,8 @@
 object RGBConv: TRGBConv
   Left = 192
   Top = 107
-  Width = 450
-  Height = 429
+  Width = 545
+  Height = 497
   Anchors = [akLeft, akBottom]
   Caption = 'Color Conversion Scripts'
   Color = clBtnFace
@@ -17,22 +17,23 @@ object RGBConv: TRGBConv
   TextHeight = 13
   object lblFilename: TLabel
     Left = 8
-    Top = 376
+    Top = 428
     Width = 39
-    Height = 13
+    Height = 18
+    Anchors = [akLeft, akBottom]
     Caption = 'filename'
   end
   object Script: TMemo
     Left = 8
     Top = 8
-    Width = 425
-    Height = 351
+    Width = 513
+    Height = 405
     Anchors = [akLeft, akTop, akRight, akBottom]
     TabOrder = 0
   end
   object btnSave: TButton
-    Left = 248
-    Top = 368
+    Left = 335
+    Top = 424
     Width = 89
     Height = 25
     Anchors = [akRight, akBottom]
@@ -42,8 +43,8 @@ object RGBConv: TRGBConv
     OnClick = btnSaveClick
   end
   object btnCancel: TButton
-    Left = 344
-    Top = 368
+    Left = 431
+    Top = 424
     Width = 89
     Height = 25
     Anchors = [akRight, akBottom]

rgbconv.txt

@@ -8,7 +8,24 @@ R=255-R
 G=255-G
 B=255-B
 
+[Swap Red and Green]
+G=R
+R=G
+
 [Swap Blue and Green]
 G=B
 B=G
 
+[Swap Red and Blue]
+R=B
+B=R
+
+[More Saturation]
+R=(12*R-((R+G+B)/3))/11
+G=(12*G-((R+G+B)/3))/11
+B=(12*B-((R+G+B)/3))/11
+
+[Less Saturation]
+R=(11*R+((R+G+B)/2))/12
+G=(11*G+((R+G+B)/2))/12
+B=(11*B+((R+G+B)/2))/12