Skip to content

Commit

Permalink
- Merged any Pull Requests from @click4dylan
Browse files Browse the repository at this point in the history
  • Loading branch information
Speedvicio committed Jan 6, 2024
1 parent cda201f commit 404abc0
Show file tree
Hide file tree
Showing 5 changed files with 230 additions and 194 deletions.
11 changes: 7 additions & 4 deletions MedGui Reborn/GlobalVar.vb
Original file line number Diff line number Diff line change
Expand Up @@ -106,9 +106,10 @@ Module GlobalVar
plugin = New String(11) {"\SevenZipSharp.dll", "\MedGuiR\Plugins\Proxy7z.dll", "\IrcClient.dll", "\FTPclient.dll", "\DiscTools.dll",
"\LinqBridge.dll", "\Newtonsoft.Json.dll", "\PeakMeterCtrl.dll", "\CoreAudioApi.dll", "\fmod.dll", "\NAudio.dll", "\MedGuiR\Plugins\7zPlugins\7z.dll"}

For i = 0 To 11
If File.Exists(Application.StartupPath & plugin(i)) = False Then
MissingResource()
For i = 0 To plugin.Length - 1
Dim file_path = Application.StartupPath & plugin(i)
If File.Exists(file_path) = False Then
MissingResource(file_path)
MedGuiR.Close()
Threading.Thread.Sleep(2000)
Exit Sub
Expand Down Expand Up @@ -438,7 +439,9 @@ ReCheckConfig:
Try
If r_sha <> MGRH Then
My.Computer.FileSystem.CopyFile(MedGuiR.TextBox4.Text & "\" & DMedConf & ".cfg", MedExtra & "Backup\" & Date.Today.ToString("ddMMyyyy") & "_ByUpdate.cfg", True)
MsgBox("New MedGui Reborn version detected, i have created a backup to prevent corruption of " & DMedConf & ".cfg", vbOKOnly + MsgBoxStyle.Information, "Backup " & DMedConf & ".cfg...")
MsgBox("A new MedGui Reborn version was detected since the last launch." & vbCrLf & vbCrLf & "Backup of " & DMedConf & ".cfg was created in:" & vbCrLf & vbCrLf &
MedExtra & "Backup\" & vbCrLf & vbCrLf &
"in case of possible corruption.", vbOKOnly + MsgBoxStyle.Information, "Backup " & DMedConf & ".cfg...")
End If
Catch
End Try
Expand Down
6 changes: 3 additions & 3 deletions MedGui Reborn/ManageIni.vb
Original file line number Diff line number Diff line change
Expand Up @@ -16,9 +16,9 @@ Module ManageIni
MedGuiR.ComboBox1.Text = RIni.IniRead(MedExtra & "\Mini.ini", "General", "Dat")

If (RIni.IniRead(MedExtra & "\Mini.ini", "General", "TextMenu")) = "" Then
Dim Rtxt = MsgBox("Do you want to start MedGui with top icon menu or old style text menu?" & vbCrLf &
"YES = ICON MENU" & vbCrLf & "NO = TEXTUAL MENU (Raccomended)", vbYesNo + MsgBoxStyle.Information, "Select top menu...")
If Rtxt = MsgBoxResult.Yes Then
Dim Rtxt = MsgBox("Do you want to start MedGui with the newer text-style top menu or older icon-based menu?" & vbCrLf &
"YES = TEXT MENU (Recommended)" & vbCrLf & "NO = ICON MENU", vbYesNo + MsgBoxStyle.Information, "Select top menu...")
If Rtxt = MsgBoxResult.No Then
MedGuiR.CheckBox23.Checked = False
Else
MedGuiR.CheckBox23.Checked = True
Expand Down
2 changes: 2 additions & 0 deletions MedGui Reborn/MedGuiR.vb
Original file line number Diff line number Diff line change
Expand Up @@ -834,6 +834,8 @@ Public Class MedGuiR
SetSRom()
TempFolder = StartRom

MainGrid.Rows.Clear()

If CheckBox14.Checked = True Then
RecuScan()
Else
Expand Down
2 changes: 1 addition & 1 deletion MedGui Reborn/MgrSetting.Designer.vb

Some generated files are not rendered by default. Learn more about how customized files appear on GitHub.

Loading

0 comments on commit 404abc0

Please sign in to comment.