Corrected tab order in item frame, shop frame and update form; corrected functions converting surface finish enumeration to number and back

Author: TheLazyTomcat

InflatablesListApp.dof

@@ -111,7 +111,7 @@ AutoIncBuild=1
 MajorVer=1
 MinorVer=9
 Release=8
-Build=1040
+Build=1041
 Debug=1
 PreRelease=1
 Special=0
@@ -122,7 +122,7 @@ CodePage=1250
 [Version Info Keys]
 CompanyName=František Milt
 FileDescription=Inflatables List application
-FileVersion=1.9.8.1040
+FileVersion=1.9.8.1041
 InternalName=Inflatables List
 LegalCopyright=© 2019 - 2020 František Milt
 LegalTrademarks=Inflatables List

InflatablesListApp.res

@@ -588,7 +588,7 @@ object frmItemFrame: TfrmItemFrame
       Anchors = [akLeft, akBottom]
       MaxValue = 268435455
       MinValue = 0
-      TabOrder = 22
+      TabOrder = 23
       Value = 0
       OnChange = seUnitPriceDefaultChange
     end
@@ -605,7 +605,7 @@ object frmItemFrame: TfrmItemFrame
       Font.Style = []
       ParentFont = False
       ScrollBars = ssBoth
-      TabOrder = 19
+      TabOrder = 20
       WordWrap = False
       OnKeyPress = meNotesKeyPress
     end
@@ -893,7 +893,7 @@ object frmItemFrame: TfrmItemFrame
       Height = 25
       Anchors = [akLeft, akBottom]
       Caption = 'Update shops...'
-      TabOrder = 27
+      TabOrder = 28
       OnClick = btnUpdateShopsClick
     end
     object btnShops: TButton
@@ -903,7 +903,7 @@ object frmItemFrame: TfrmItemFrame
       Height = 25
       Anchors = [akLeft, akBottom]
       Caption = 'Shops...'
-      TabOrder = 26
+      TabOrder = 27
       OnClick = btnShopsClick
     end
     object sePieces: TSpinEdit
@@ -926,7 +926,7 @@ object frmItemFrame: TfrmItemFrame
       EditLabel.Width = 61
       EditLabel.Height = 13
       EditLabel.Caption = 'Review URL:'
-      TabOrder = 20
+      TabOrder = 21
       OnChange = leReviewURLChange
     end
     object btnReviewOpen: TButton
@@ -939,7 +939,7 @@ object frmItemFrame: TfrmItemFrame
       Caption = '>'
       ParentShowHint = False
       ShowHint = True
-      TabOrder = 21
+      TabOrder = 22
       OnClick = btnReviewOpenClick
     end
     object seUnitWeight: TSpinEdit
@@ -949,7 +949,7 @@ object frmItemFrame: TfrmItemFrame
       Height = 22
       MaxValue = 2147483647
       MinValue = 0
-      TabOrder = 13
+      TabOrder = 19
       Value = 0
       OnChange = seUnitWeightChange
     end
@@ -993,7 +993,7 @@ object frmItemFrame: TfrmItemFrame
       MaxLength = 3
       MaxValue = 100
       MinValue = 0
-      TabOrder = 23
+      TabOrder = 24
       Value = 0
       OnChange = seRatingChange
     end
@@ -1044,7 +1044,7 @@ object frmItemFrame: TfrmItemFrame
       Height = 25
       Anchors = [akLeft, akBottom]
       Caption = 'Pictures...'
-      TabOrder = 25
+      TabOrder = 26
       OnClick = btnPicturesClick
     end
     object btnRatingDetails: TButton
@@ -1054,7 +1054,7 @@ object frmItemFrame: TfrmItemFrame
       Height = 25
       Anchors = [akLeft, akBottom]
       Caption = 'Rating details...'
-      TabOrder = 24
+      TabOrder = 25
       OnClick = btnRatingDetailsClick
     end
     object gbReadOnlyInfo: TGroupBox
@@ -1064,7 +1064,7 @@ object frmItemFrame: TfrmItemFrame
       Height = 70
       Anchors = [akLeft, akBottom]
       Caption = 'Read-only info'
-      TabOrder = 28
+      TabOrder = 29
       object shpTotalPriceSelectedBcgr: TShape
         Left = 537
         Top = 46
@@ -1352,7 +1352,7 @@ object frmItemFrame: TfrmItemFrame
       Height = 21
       Style = csDropDownList
       ItemHeight = 13
-      TabOrder = 29
+      TabOrder = 13
       OnChange = cmbSurfaceFinishChange
     end
   end

ItemFrame.dfm

@@ -291,7 +291,7 @@ object frmShopFrame: TfrmShopFrame
       Width = 521
       Height = 97
       ScrollBars = ssBoth
-      TabOrder = 15
+      TabOrder = 14
       WordWrap = False
       OnKeyPress = meNotesKeyPress
     end
@@ -478,8 +478,7 @@ object frmShopFrame: TfrmShopFrame
       ParentFont = False
       ParentShowHint = False
       ShowHint = True
-      TabOrder = 14
-      TabStop = False
+      TabOrder = 15
       OnClick = btnPredefNotesClick
     end
   end

ShopFrame.dfm

@@ -78,7 +78,7 @@ object fUpdateForm: TfUpdateForm
     ParentFont = False
     ReadOnly = True
     ScrollBars = ssBoth
-    TabOrder = 3
+    TabOrder = 4
     WordWrap = False
     OnKeyPress = meLogKeyPress
   end
@@ -89,7 +89,7 @@ object fUpdateForm: TfUpdateForm
     Height = 22
     MaxValue = 1024
     MinValue = 1
-    TabOrder = 4
+    TabOrder = 3
     Value = 1
     OnChange = seNumberOfThreadsChange
   end

UpdateForm.dfm

@@ -810,6 +810,7 @@ procedure IL_UniqueReconvStr(var Str: TILReconvString);
   ilisfSemiMatte:   Result := 5;
   ilisfPearlscent:  Result := 6;
   ilisfMetalic:     Result := 7;
+  ilisfFlocked:     Result := 9;
   ilisfCombined:    Result := 3;
   ilisfOther:       Result := 8;
 else
@@ -827,9 +828,10 @@ procedure IL_UniqueReconvStr(var Str: TILReconvString);
   4:  Result := ilisfSemiGloss;
   2:  Result := ilisfMatte;
   5:  Result := ilisfSemiMatte;
-  3:  Result := ilisfCombined;
   6:  Result := ilisfPearlscent;
   7:  Result := ilisfMetalic;
+  9:  Result := ilisfFlocked;
+  3:  Result := ilisfCombined;
   8:  Result := ilisfOther;
 else
   Result := ilisfUnknown;