added info & clear

Forms/Form1.frm

@@ -4,12 +4,12 @@ Begin VB.Form Form1
    ClientHeight    =   13455
    ClientLeft      =   2325
    ClientTop       =   690
-   ClientWidth     =   8640
+   ClientWidth     =   8670
    Icon            =   "Form1.frx":0000
    LinkTopic       =   "Form1"
    OLEDropMode     =   1  'Manuell
    ScaleHeight     =   13455
-   ScaleWidth      =   8640
+   ScaleWidth      =   8670
    Begin VB.TextBox Text1 
       BeginProperty Font 
          Name            =   "Courier New"
@@ -75,14 +75,17 @@ Begin VB.Form Form1
    Begin VB.Image Image1 
       Height          =   480
       Left            =   8160
-      Picture         =   "Form1.frx":0CD0
+      MouseIcon       =   "Form1.frx":0CD0
+      MousePointer    =   99  'Benutzerdefiniert
+      Picture         =   "Form1.frx":159A
+      ToolTipText     =   "Click for app info"
       Top             =   0
       Width           =   480
    End
    Begin VB.Label Label2 
       Caption         =   "drag'drop *.syx files into the textbox"
       Height          =   255
-      Left            =   4080
+      Left            =   5160
       TabIndex        =   6
       Top             =   120
       Width           =   2655
@@ -105,6 +108,13 @@ Begin VB.Form Form1
       Top             =   480
       Width           =   375
    End
+   Begin VB.Menu mnuPopup 
+      Caption         =   "Popup"
+      Visible         =   0   'False
+      Begin VB.Menu mnuClear 
+         Caption         =   "Clear"
+      End
+   End
 End
 Attribute VB_Name = "Form1"
 Attribute VB_GlobalNameSpace = False
@@ -258,6 +268,30 @@ Private Sub Form_Unload(Cancel As Integer)
     Set m_sr = Nothing
 End Sub
 
+Private Sub Image1_Click()
+    MsgBox App.CompanyName & " " & App.EXEName & " " & vbCrLf & _
+           App.FileDescription & vbCrLf & _
+           "v" & App.Major & "." & App.Minor & "." & App.Revision, vbInformation
+End Sub
+
+Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
+    If Button = vbRightButton Then
+        PopupMenu mnuPopup
+    End If
+End Sub
+
+Private Sub mnuClear_Click()
+    Set m_sr = New KDS8SyxReader
+    m_IsHeadRead = False
+    m_KDS8ProgList = MKDS8Types.ListOf_KORG_DS8_PROG_Empty
+    m_FNm = vbNullString
+    m_Err = vbNullString
+    Me.Combo1.Clear
+    Me.Text1.Text = vbNullString
+    Me.Label1.Caption = vbNullString
+    'UpdateView
+End Sub
+
 Private Sub OptClipB_Click()
     If Not m_sr Is Nothing Then UpdateView
 End Sub
@@ -278,6 +312,7 @@ Private Sub OLEDragDrop(Data As DataObject, Effect As Long) ', Button As Integer
     If Data.GetFormat(vbCFFiles) Then
         m_FNm = Data.Files(1)
         OpenSyXFile m_FNm
+        Me.Caption = "KDS8Reader" & ": [" & m_FNm & "]"
     End If
 End Sub
 Private Sub OpenSyXFile(ByVal FNm As String)

PKDS8Reader.vbp

@@ -20,13 +20,13 @@ Name="PKDS8Reader"
 HelpContextID="0"
 CompatibleMode="0"
 MajorVer=1
-MinorVer=0
-RevisionVer=11
+MinorVer=2
+RevisionVer=15
 AutoIncrementVer=1
 ServerSupportFiles=0
-VersionCompanyName="MBO-Ingenieurb�ro"
-VersionFileDescription="liest Korg DS-8 Sysex-Dateien und stellt alle Parameter in Textform dar. *.syx per drag'n'drop in die Textbox ziehen"
-VersionLegalCopyright="Mbo-Ing.com"
+VersionCompanyName="MBO-Ing.com"
+VersionFileDescription="Reads Korg DS-8 sysex-files and shows all parameters in textformat. Drag'n'drop *.syx file into textbox."
+VersionLegalCopyright="MBO-Ing.com"
 VersionLegalTrademarks="KORG"
 VersionProductName="KDS8Reader"
 CompilationType=0

README.md

@@ -1,14 +1,20 @@
 # KORG_Read_DS8syx
 ## Reader of SysEx-files (\*.syx) from the old 4-Op FM-Synth Korg DS-8  
-I started this project in summer 2012, when I had problems with my old synth.
+
+[![GitHub](https://img.shields.io/github/license/OlimilO1402/KORG_Read_DS8syx?style=plastic)](https://github.com/OlimilO1402/KORG_Read_DS8syx/blob/master/LICENSE) 
+[![GitHub release (latest by date)](https://img.shields.io/github/v/release/OlimilO1402/KORG_Read_DS8syx?style=plastic)](https://github.com/OlimilO1402/KORG_Read_DS8syx/releases/latest)
+[![Github All Releases](https://img.shields.io/github/downloads/OlimilO1402/KORG_Read_DS8syx/total.svg)](https://github.com/OlimilO1402/KORG_Read_DS8syx/releases/download/v1.2.14/KDS8Reader_v1.2.14.zip)
+[![Follow](https://img.shields.io/github/followers/OlimilO1402.svg?style=social&label=Follow&maxAge=2592000)](https://github.com/OlimilO1402/KORG_Read_DS8syx/watchers)
+
+Project started in jun.2012, when I had problems with my old synth.
 In the early days of MIDI, System-Exclusive-Data (Sys-Ex/syx) was the only way 
 to share sounds between different synths, at least of the same synth model. 
 Roland corp defined the midi protocol in the 80ies. But it's kinda hard to 
 read all bits in the right order. Until now I do not know if every bit will be 
 read correctly. So the program never made it to a syx-writer, but anymay, it 
 helped me out to solve my DS-8-problems, to see whats inside a syx-file, to 
 distinguish different sounds and to spot the differences betweeen the sounds 
-at a single glance. 
+at one glance. 
 If you love vintage gear like I do, you could take this little project as a 
 starting point for your own ideas. 
 You may also have a look at my other KORG related project: