Explorar o código

* add two FOS_* constants, fixes #40422

marcoonthegit hai 1 ano
pai
achega
e789db81ed
Modificáronse 1 ficheiros con 24 adicións e 21 borrados
  1. 24 21
      packages/winunits-base/src/shlobj.pp

+ 24 - 21
packages/winunits-base/src/shlobj.pp

@@ -905,27 +905,30 @@ Const
   FDESVR_REFUSE           = 2;
   FDAP_BOTTOM             = 0;
   FDAP_TOP                = 1;
-  FOS_OVERWRITEPROMPT     =        $2;
-  FOS_STRICTFILETYPES     =        $4;
-  FOS_NOCHANGEDIR         =        $8;
-  FOS_PICKFOLDERS         =       $20;
-  FOS_FORCEFILESYSTEM	  =       $40;
-  FOS_ALLNONSTORAGEITEMS  =       $80;
-  FOS_NOVALIDATE	  =      $100;
-  FOS_ALLOWMULTISELECT    =      $200;
-  FOS_PATHMUSTEXIST       =      $800;
-  FOS_FILEMUSTEXIST       =     $1000;
-  FOS_CREATEPROMPT        =     $2000;
-  FOS_SHAREAWARE          =     $4000;
-  FOS_NOREADONLYRETURN    =     $8000;
-  FOS_NOTESTFILECREATE    =    $10000;
-  FOS_HIDEMRUPLACES       =    $20000;
-  FOS_HIDEPINNEDPLACES    =    $40000;
-  FOS_NODEREFERENCELINKS  =   $100000;
-  FOS_DONTADDTORECENT     =  $2000000;
-  FOS_FORCESHOWHIDDEN     = $10000000;
-  FOS_DEFAULTNOMINIMODE	  = $20000000;
-  FOS_FORCEPREVIEWPANEON  = $40000000;
+  FOS_OVERWRITEPROMPT     =           $2;
+  FOS_STRICTFILETYPES     =           $4;
+  FOS_NOCHANGEDIR         =           $8;
+  FOS_PICKFOLDERS         =          $20;
+  FOS_FORCEFILESYSTEM	  =          $40;
+  FOS_ALLNONSTORAGEITEMS  =          $80;
+  FOS_NOVALIDATE	  =         $100;
+  FOS_ALLOWMULTISELECT    =         $200;
+  FOS_PATHMUSTEXIST       =         $800;
+  FOS_FILEMUSTEXIST       =        $1000;
+  FOS_CREATEPROMPT        =        $2000;
+  FOS_SHAREAWARE          =        $4000;
+  FOS_NOREADONLYRETURN    =        $8000;
+  FOS_NOTESTFILECREATE    =       $10000;
+  FOS_HIDEMRUPLACES       =       $20000;
+  FOS_HIDEPINNEDPLACES    =       $40000;
+  FOS_NODEREFERENCELINKS  =      $100000;
+  FOS_OKBUTTONNEEDSINTERACTION = $200000;
+  FOS_DONTADDTORECENT     =     $2000000;
+  FOS_FORCESHOWHIDDEN     =    $10000000;
+  FOS_DEFAULTNOMINIMODE	  =    $20000000;
+  FOS_FORCEPREVIEWPANEON  =    $40000000;
+  FOS_SUPPORTSTREAMABLEITEMS = cardinal($80000000);
+
   SHGFP_TYPE_CURRENT      =  0;   // shgetfolderpath, current value for user, verify it exists
   SHGFP_TYPE_DEFAULT  	  =  1;   // shgetfolderpath, default value, may not exist