Fixed #13 - Menu Improvements and fixes

lvcabral · Jan 26, 2024 · 546abb1 · 546abb1
1 parent 0ac7808
commit 546abb1
Show file tree

Hide file tree

Showing 11 changed files with 82 additions and 71 deletions.
diff --git a/Source/Class/MRUFileList.cls b/Source/Class/MRUFileList.cls
@@ -55,8 +55,13 @@ Public Property Get MenuCaption(ByVal iIndex As Long) As String
 Dim sOut As String
 
     sOut = CompressFileName(m_sFiles(iIndex))
-    MenuCaption = "&" & iIndex & "  " & sOut
-
+    If (iIndex < 10) Then
+        MenuCaption = "&" & iIndex & "  " & sOut
+    ElseIf (iIndex = 10) Then
+        MenuCaption = "1&0" & "  " & sOut
+    Else
+        MenuCaption = iIndex & "  " & sOut
+    End If
 End Property
 
 Public Function CompressFileName(ByVal sFileName As String) As String

diff --git a/Source/Docs/History.txt b/Source/Docs/History.txt
diff --git a/Source/Form/Post.frm b/Source/Form/Post.frm
@@ -168,7 +168,7 @@ Begin VB.Form frmPost
                FrameColor      =   -2147483628
                FrameShadow     =   -2147483632
                FloodStyle      =   1
-               _GridInfo       =   $"Post.frx":2C728
+               _GridInfo       =   $"Post.frx":2C9A8
                Begin SizerOneLibCtl.ElasticOne ElasticOne2 
                   Height          =   735
                   Left            =   0
@@ -333,7 +333,7 @@ Begin VB.Form frmPost
                      Italic          =   0   'False
                      Strikethrough   =   0   'False
                   EndProperty
-                  MouseIcon       =   "Post.frx":2C797
+                  MouseIcon       =   "Post.frx":2CA17
                End
                Begin wbloggar.HtmlEdit txtMore 
                   Height          =   1485
@@ -353,7 +353,7 @@ Begin VB.Form frmPost
                      Italic          =   0   'False
                      Strikethrough   =   0   'False
                   EndProperty
-                  MouseIcon       =   "Post.frx":2C7B3
+                  MouseIcon       =   "Post.frx":2CA33
                End
             End
             Begin SizerOneLibCtl.ElasticOne pnlEditor 
@@ -410,7 +410,7 @@ Begin VB.Form frmPost
                FrameColor      =   -2147483628
                FrameShadow     =   -2147483632
                FloodStyle      =   1
-               _GridInfo       =   $"Post.frx":2C7CF
+               _GridInfo       =   $"Post.frx":2CA4F
                Begin VB.CommandButton cmdCategories 
                   Caption         =   "..."
                   Height          =   315
@@ -456,7 +456,7 @@ Begin VB.Form frmPost
                      Italic          =   0   'False
                      Strikethrough   =   0   'False
                   EndProperty
-                  MouseIcon       =   "Post.frx":2C83F
+                  MouseIcon       =   "Post.frx":2CABF
                End
             End
             Begin SHDocVwCtl.WebBrowser webPreview 
@@ -546,30 +546,30 @@ Begin VB.Form frmPost
       Height          =   240
       Index           =   1
       Left            =   4020
-      Picture         =   "Post.frx":2C85B
+      Picture         =   "Post.frx":2CADB
       Top             =   6000
       Width           =   240
    End
    Begin VB.Image imgMediaPlayer 
       Height          =   240
       Index           =   0
       Left            =   3720
-      Picture         =   "Post.frx":2CDE5
+      Picture         =   "Post.frx":2D065
       Top             =   6000
       Width           =   240
    End
    Begin VB.Image imgHand 
       Height          =   480
       Left            =   1440
-      Picture         =   "Post.frx":2D36F
+      Picture         =   "Post.frx":2D5EF
       Top             =   5880
       Visible         =   0   'False
       Width           =   480
    End
    Begin VB.Image imgIcon16 
       Height          =   240
       Left            =   1140
-      Picture         =   "Post.frx":2D4C5
+      Picture         =   "Post.frx":2D745
       Top             =   5940
       Visible         =   0   'False
       Width           =   240
@@ -1381,7 +1381,7 @@ Dim strExcerpt As String, strKeywords As String
         OpenPost
     Case "miImportText"
         ImportText
-    Case "miFMRU1", "miFMRU2", "miFMRU3", "miFMRU4"
+    Case "miFMRU1", "miFMRU2", "miFMRU3", "miFMRU4", "miFMRU5", "miFMRU6", "miFMRU7", "miFMRU8", "miFMRU9", "miFMRU10"
         If Not CanContinue() Then Exit Sub
         Call LoadPostFile(objMRU.file(Tool.TagVariant))
     Case "miSave"
@@ -1751,15 +1751,15 @@ Dim strExcerpt As String, strKeywords As String
                 DeletePost gPostID, (Tool.Name = "miDelPublish"), gSettings.Silent
             End If
         End If
-    Case "miHelp"
-        ' Call ShellExecute(Me.hwnd, "open", App.Path & "\wbloggar.chm", vbNullString, CurDir$, SW_SHOW)
+    Case "miFAQ"
         OpenWebPage "http://web.archive.org/web/20090330164700if_/http://wbloggar.com/faq.php"
         Exit Sub
-    Case "miWebPage"
+    Case "miHelp", "miWebPage"
+        ' Call ShellExecute(Me.hwnd, "open", App.Path & "\wbloggar.chm", vbNullString, CurDir$, SW_SHOW)
         OpenWebPage "https://github.com/lvcabral/w.bloggar"
         Exit Sub
     Case "miDonate"
-        OpenWebPage "https://www.paypal.com/xclick/business=paypal%40wbloggar.com&item_name=w.bloggar&item_number=1"
+        OpenWebPage "https://paypal.me/lvcabral"
         Exit Sub
     Case "miLicense"
         OpenDocument App.Path & "\License.txt"
@@ -1886,7 +1886,7 @@ Dim objTool As Tool
     'Load Most Recent Updated Files
     Set objMRU = New clsMRUFileList
     objMRU.Load
-    objMRU.MaxFileCount = 4
+    objMRU.MaxFileCount = 10
     DisplayMRU
     'Initialize Music String
     strMusic = "*"
@@ -2548,6 +2548,7 @@ Dim strPost As String, strTitle As String, strFName As String
 End Sub
 
 Private Sub DisplayMRU()
+On Error Resume Next
 Dim iFile As Integer, iCount As Integer
     For iFile = 1 To objMRU.FileCount
         If (objMRU.FileExists(iFile)) Then
@@ -2562,7 +2563,6 @@ Dim iFile As Integer, iCount As Integer
             iCount = iCount + 1
         End If
     Next iFile
-    ' Debug.Print (objMRU.FileCount > 0)
     acbMain.Bands("bndPopFile").Tools("miFMRUSep").Visible = (iCount > 0)
 End Sub
 

diff --git a/Source/Form/Post.frx b/Source/Form/Post.frx
diff --git a/Source/Lang/1031.lng b/Source/Lang/1031.lng
diff --git a/Source/Lang/1033.lng b/Source/Lang/1033.lng
diff --git a/Source/Lang/1034.lng b/Source/Lang/1034.lng
diff --git a/Source/Lang/1046.lng b/Source/Lang/1046.lng
diff --git a/Source/Lang/3084.lng b/Source/Lang/3084.lng
diff --git a/Source/Lang/wbloggar.len b/Source/Lang/wbloggar.len
diff --git a/Source/wbloggar.vbp b/Source/wbloggar.vbp
@@ -68,14 +68,14 @@ HelpContextID="0"
 Description="w.bloggar - Universal Weblog Interface"
 CompatibleMode="0"
 MajorVer=4
-MinorVer=5
+MinorVer=6
 RevisionVer=210
 AutoIncrementVer=1
 ServerSupportFiles=0
 VersionComments="The best interface between you and your blog."
 VersionCompanyName="RainDrops Freeware Project"
 VersionFileDescription="w.bloggar - Universal Weblog Interface"
-VersionLegalCopyright="� 2001-2021 Marcelo Lv Cabral"
+VersionLegalCopyright="� 2001-2024 Marcelo Lv Cabral"
 VersionLegalTrademarks="https://github.com/lvcabral/w.bloggar"
 VersionProductName="w.bloggar"
 CondComp="compIE = -1"