2022.8.28.0

Changed target platforms
Added RedGifs pics
Fixed Switcher limit bug

Changelog.md

@@ -1,3 +1,12 @@
+# 2022.8.28.0
+
+*2022-08-28*
+
+- Added
+  - RedGifs icon
+- Fixed
+  - Incorrect number of posts displayed in the Reddit channels downloader.
+
 # 2022.8.22.0
 
 *2022-08-22*

SCrawler/API/Redgifs/SiteSettings.vb

@@ -13,6 +13,16 @@ Imports PersonalUtilities.Functions.RegularExpressions
 Namespace API.RedGifs
     <Manifest("AndyProgram_RedGifs"), UseClassAsIs>
     Friend Class SiteSettings : Inherits SiteSettingsBase
+        Friend Overrides ReadOnly Property Icon As Icon
+            Get
+                Return My.Resources.RegGifsIcon
+            End Get
+        End Property
+        Friend Overrides ReadOnly Property Image As Image
+            Get
+                Return My.Resources.RegGifsPic32
+            End Get
+        End Property
         Friend Sub New()
             MyBase.New(RedGifsSite, "redgifs.com")
             UrlPatternUser = "https://www.redgifs.com/users/{0}/"

SCrawler/Channels/ChannelViewForm.vb

@@ -194,6 +194,7 @@ Friend Class ChannelViewForm : Implements IChannelLimits
             .ButtonKey(RButton.Previous) = Keys.F2
             .ButtonKey(RButton.Next) = Keys.F3
             .LabelNumbersProvider = CProvider
+            .Limit = ImagesInRow * ImagesRows
             .AddThisToolbar()
         End With
         ToolbarTOP.Items.AddRange({CMB_CHANNELS.GetControlHost,

SCrawler/My Project/AssemblyInfo.vb

@@ -32,6 +32,6 @@ Imports System.Runtime.InteropServices
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("2022.8.22.0")>
-<Assembly: AssemblyFileVersion("2022.8.22.0")>
+<Assembly: AssemblyVersion("2022.8.28.0")>
+<Assembly: AssemblyFileVersion("2022.8.28.0")>
 <Assembly: NeutralResourcesLanguage("en")>

SCrawler/My Project/Resources.Designer.vb

@@ -270,6 +270,26 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Looks up a localized resource of type System.Drawing.Icon similar to (Icon).
+        '''</summary>
+        Friend ReadOnly Property RegGifsIcon() As System.Drawing.Icon
+            Get
+                Dim obj As Object = ResourceManager.GetObject("RegGifsIcon", resourceCulture)
+                Return CType(obj,System.Drawing.Icon)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Looks up a localized resource of type System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property RegGifsPic32() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("RegGifsPic32", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Looks up a localized resource of type System.Drawing.Bitmap.
         '''</summary>

SCrawler/My Project/Resources.resx

@@ -199,4 +199,10 @@
   <data name="Pause_Blue_16" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Content\Pictures\Pause_Blue_16.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="RegGifsIcon" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Content\Icons\RegGifsIcon.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="RegGifsPic32" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Content\Pictures\RegGifsPic32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
 </root>

SCrawler/SCrawler.vbproj

@@ -31,8 +31,8 @@
     <BootstrapperEnabled>true</BootstrapperEnabled>
   </PropertyGroup>
   <PropertyGroup>
-    <TargetPlatformVersion Condition=" '$(TargetPlatformVersion)' == '' ">10.0.16299.0</TargetPlatformVersion>
-    <TargetPlatformMinVersion>10.0.16299.0</TargetPlatformMinVersion>
+    <TargetPlatformVersion>10.0</TargetPlatformVersion>
+    <TargetPlatformMinVersion>10.0</TargetPlatformMinVersion>
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
     <PlatformTarget>AnyCPU</PlatformTarget>
@@ -425,6 +425,8 @@
     <None Include="Content\Pictures\ScriptPic32.png" />
     <None Include="Content\Icons\GroupBy_284.ico" />
     <None Include="Content\Pictures\Pause_Blue_16.png" />
+    <None Include="Content\Pictures\RegGifsPic32.png" />
+    <None Include="Content\Icons\RegGifsIcon.ico" />
     <Content Include="ffmpeg.exe">
       <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
     </Content>