Add files via upload

Author: fafalone

DemoMain.twinproj

@@ -4,7 +4,7 @@
 Public Class ucShellBrowse
 Option Explicit
 
-Private Const mVersionStr = "ucShellBrowse 12.0"
+Private Const mVersionStr = "ucShellBrowse 12.0 R1"
 Private Const mVersionApp = "ucShellBrowse"
 Private Const mVersionMjr = 12
 Private Const mVersionMnr = 0
@@ -214,6 +214,11 @@ Private Const mVersionMnr = 0
 '
 '------------------------------------CHANGELOG------------------------------------
 '
+'New in v12.0 R1 (Released 02 Feb 2023)
+'
+'-Updated tbShellLib to 2.6.62 with fixed hex literals, and fixed a couple (unused)
+' ones in this control.
+'
 'New in v12.0 (Released 02 Feb 2023)
 '
 '-There's now a RegisterWindow option that, if True, will register this control as
@@ -3743,8 +3748,8 @@ Public Enum ucsb_StaticControlStyles
     SS_EDITCONTROL = &H2000
     SS_ENDELLIPSIS = &H4000
     SS_PATHELLIPSIS = &H8000&
-    SS_WORDELLIPSIS = &HC000
-    SS_ELLIPSISMASK = &HC000
+    SS_WORDELLIPSIS = &HC000&
+    SS_ELLIPSISMASK = &HC000&
 End Enum
 
 Private Const ANSI_CHARSET As Byte = &H0
@@ -4509,7 +4514,7 @@ Private Enum ucsb_LVStyles
   LVS_NOSCROLL = &H2000
   LVS_NOCOLUMNHEADER = &H4000
   LVS_NOSORTHEADER = &H8000&
-  LVS_TYPESTYLEMASK = &HFC00
+  LVS_TYPESTYLEMASK = &HFC00&
   LVS_ALIGNTOP = &H0
   LVS_ALIGNMASK = &HC00
 End Enum   ' LVStyles
@@ -4949,7 +4954,7 @@ Private Enum LVITEM_state
   LVIS_ACTIVATING = &H20
 
   LVIS_OVERLAYMASK = &HF00
-  LVIS_STATEIMAGEMASK = &HF000
+  LVIS_STATEIMAGEMASK = &HF000&
 End Enum
 Private Type LVBKIMAGE
   ulFlags As LVBKIMAGE_Flags

FileDialogDemo.twinproj

@@ -4,12 +4,12 @@
 Public Class ucShellTree
 Option Explicit
 
-Private Const mVersionStr As String = "Shell Tree Control 2.8 R1"
+Private Const mVersionStr As String = "Shell Tree Control 2.8 R2"
 #Region "README"
 ''*********************************************************************************************
 '
 'ucShellTree.twin
-'Shell Tree Control v2.8 R1 - twinBASIC Implementation
+'Shell Tree Control v2.8 R2 - twinBASIC Implementation
 '
 'Author: fafalone
 '(c) 2018-2023
@@ -62,6 +62,10 @@ Private Const mVersionStr As String = "Shell Tree Control 2.8 R1"
 '
 '---------------------------------------CHANGELOG----------------------------------------
 '
+'v2.8 R2
+'-Updated tbShellLib to 2.6.62 with fixed hex literals, and fixed a couple ones in this
+' control.
+'
 'v2.8
 '
 '(R1) IPAO hooking code integrated so as to not conflict with ucShellBrowse.
@@ -913,7 +917,7 @@ Private Enum ucst_IL_CreateFlags
   ILC_PALETTE = &H800                  ' (no longer supported...never worked anyway)
   '5.0
   ILC_MIRROR = &H2000
-  ILC_PERITEMMIRROR = &H8000
+  ILC_PERITEMMIRROR = &H8000&
   '6.0
   ILC_ORIGINALSIZE = &H10000
   ILC_HIGHQUALITYSCALE = &H20000
@@ -1336,8 +1340,8 @@ Private Enum ucst_TVITEM_State
     TVIS_EXPANDEDONCE = &H40
     TVIS_EXPANDPARTIAL = &H80
     TVIS_OVERLAYMASK = &HF00
-    TVIS_STATEIMAGEMASK = &HF000
-    TVIS_USERMASK = &HF000
+    TVIS_STATEIMAGEMASK = &HF000&
+    TVIS_USERMASK = &HF000&
 End Enum
 Private Enum ucst_TVITEM_State_Ex
     '6.0